¦p¦óÅýa=a+1²Ö¥[

av8d

Sub CommandButton1_Click()
    '²Î­p¸ê®Æ¼Æ
        Dim Label23 As Integer
        Label23 = Label23 + 1
End Sub

av8d

¦^´_ 12# GBKEE


    §¹¥þ¬O§Ú·Q­nªºµª®×~¾Ç²ß¤F~ÁÂÁÂ

GBKEE

¦^´_ 11# av8d
¨Ï¥ÎQBColor ¨ç¼Æ

1. TextBox23 = Val(TextBox23) + 1
   
2.     If TextBox23 >= 10 And TextBox23 <= 100 Then
   
3.         TextBox1.ForeColor = QBColor(Int(TextBox23 / 10))
   
4.     End If

½Æ»s¥N½X

¤U¸ü (54.04 KB)

2013-11-19 14:13

av8d

¦^´_ 10# GBKEE

1. '²Î­p¸ê®Æ¼Æ
   
2.     TextBox23.Text = TextBox23.Text + 1
   
3.     If TextBox23.Text >= 10 Then
   
4.         TextBox23.ForeColor = &HC0&
   
5.         If TextBox23.Text >= 20 Then
   
6.             TextBox23.ForeColor = &HC0&
   
7.         End If
   
8.     End If

½Æ»s¥N½X

¦pªG§ÚªºIF±q10~100¦U¦³¤£¦PªºÃC¦â~¬O§_¦³Â²²¤¼gªk?¦A¦¸·PÁ¡I

GBKEE

¦^´_ 9# av8d

1. Private Sub CommandButton1_Click()
   
2.     '²Î­p¸ê®Æ¼Æ
   
3.     Label23.Caption = Val(Label23.Caption) + 1
   
4.     '³oLabel23¬Oªí³æ±±¨î¶µ
   
5.     '¥¦ªºÄÝ©ÊCaption¬O¦r¦ê,­n¥ÎVal¨ç¼Æ:¶Ç¦^¥]§t©ó¦r¦ê¤ºªº¼Æ¦r¡C
   
6. End Sub

½Æ»s¥N½X

av8d

¦^´_ 8# GBKEE

½Ð¹L¥Ø
123.rar (30.54 KB)

¤U¸ü¦¸¼Æ: 4

2013-11-19 13:04

-----------------------------
§ä¨ì°ÝÃDÂI¤F~§Ú¨S+Caption©M¹w³]­È

GBKEE

¦^´_ 7# av8d
¤W¶ÇÀɮ׬ݬÝ

av8d

¦^´_ 6# GBKEE


    GBKEE¤j¤j±z¦n~
¥Ø«e§Ú¬O¦bUserForm¤º«Ø¥ßªº~

«ö¤U«ö¶sCommandButton«á~

·|¥X²{ «¬ºA¤£²Å¦X ªº¿ù»~          Label23 = Label23 + 1

¥\¯à¦b©ó¨C«ö¤U¤@¦¸CommandButton~«h·|À°§Úµù°O¤@¦¸

GBKEE

¦^´_ 5# av8d

1. Option Explicit
   
2. Dim Label23 As Integer '¼Ò²Õªº(¤½¥Î,¨p¥Î)ÅܼÆ,¦b END «á³QÄÀ©ñ ©Î SET ??? = NOTHING
   
3. 'ªí³æ¼Ò²Õªº(¤½¥Î,¨p¥Î)ÅܼÆ,¦bªí³æµ²§ô©Î Unload(±N¤@­Óª«¥ó¦Û°O¾ÐÅ餤²¾°£)«á³QÄÀ©ñ
   
4. Sub CommandButton1_Click()
   
5.   'Dim Label23 As Integer 'µ{¦¡¸ÌªºÅܼÆ:µ{¦¡µ²§ô·|³QÄÀ©ñ
   
6.         Label23 = Label23 + 1
   
7.         MsgBox Label23
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# av8d

1. Áä ¥N½X
   
2. BREAK {BREAK}
   
3. CAPS LOCK {CAPSLOCK}
   
4. CLEAR {CLEAR}
   
5. DELETE ©Î DEL {DELETE} ©Î {DEL}
   
6. END {END}
   
7. ENTER ~ (ªiª¬²Å¸¹)
   
8. ENTER (¼Æ¦r¤pÁä½L) {ENTER}

½Æ»s¥N½X

1. Private Sub CommandButton1_Click() 'Private ¨p¥Îªºµ{§Ç,¥u¦³³o¼Ò²Õªºµ{§Ç¥i©I¥s¦¹µ{§Ç
   
2. 
   
3. Sub CommandButton1_Click()         '¹w³]¬°¤½¥Îµ{§Ç,¨ä¥L¼Ò²Õªºµ{§Ç¤]¥i©I¥s¦¹µ{§Ç

½Æ»s¥N½X