GBKEE

¦^´_ 1# av8d
¨t²Î±±¨îÅv¦b UserForm µLªk°õ¦æ¦Û©wªº²Õ¦XÁä
UserForm1.Show False  ªí³æ¬°¬O«D±j¨î¦^À³ªº¡C(¨t²Î±±¨îÅv¥iÂಾ¨ì¤u§@ªí)
UserFormªºµ{¦¡½X

1. Option Explicit
   
2. Sub CommandButton1_Click()
   
3.     MsgBox CommandButton1.Caption
   
4. End Sub
   
5. Private Sub UserForm_Initialize()
   
6.     Application.OnKey "^h", "Ex"
   
7. End Sub
   
8. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
9.     Application.OnKey "^h"   '¦p¬°¨t²Î¹w³]²Õ¦XÁä:ÁÙ­ì­ì¨Óªº«ü¥O
   
10. End Sub

½Æ»s¥N½X

¤@¯ë¼Ò²Õªºµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()
   
3.     UserForm1.CommandButton1_Click
   
4. End Sub
   
5. Sub Ex1()
   
6.     UserForm1.Show False
   
7. End Sub

½Æ»s¥N½X

¤U¸ü (100.39 KB)

2013-11-14 17:17

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

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

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

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

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