- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# changxxx
UserFormªºµ{¦¡½X- Option Explicit
- Dim UserForm_Text(1 To 69) As New Class1 '«Å§iÅܼƬ°·sªºª«¥ó¼Ò²Õ
- Private Sub UserForm_Initialize()
- Dim i As Integer
- For i = 1 To UBound(UserForm_Text)
- Set UserForm_Text(i).Class_TextBox = Controls("textbox" & i)
- 'ª«¥ó¼Ò²ÕªºClass_TextBox ³]©w¬° Controls("textbox" & i)
- Next
- End Sub
½Æ»s¥N½X ª«¥óÃþ§O¼Ò²Õªºµ{¦¡½X- Option Explicit
- Public WithEvents Class_TextBox As MSForms.TextBox
- 'WithEvents ¿ï¾Ü©Ê¤Þ¼Æ¡Cªí¥Ü varname ¬Oª«¥óÅܼƪºÃöÁä¦r¡A¥B¥Î¨Ó¹ïÀ³ ActiveX ª«¥ó©Ò¤Þµoªº¨Æ¥ó¡C
- '¶È¾A¥Î©óª«¥óÃþ§O¼Ò²Õ¤¤¡C
- '±z¥i¥H¥Î WithEvents ¨ÓÓ§O«Å§iÅܼơA¦ý¤£¥i¥Î¨Ó«Ø¥ß°}¦C¡A¤]¤£¥i»P New ¦P®É¨Ï¥Î¡C
- Private Sub Class_TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- With Class_TextBox
- If KeyCode = 13 Then .Parent.TextBox70.Text = Val(.Parent.TextBox70.Text) + Val(.Text)
- End With
- End Sub
½Æ»s¥N½X |
|