- ©«¤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# dechiuan999
Page2 ¦@«Å§i [3Ó] ·sªºª«¥ó¼Ò²Õ- Private Sub MultiPage1_Change()
- Select Case UserForm1.MultiPage1.Value
- Case Is = 0
- Set Test1 = New clsTest1
- With Test1
- Set .cmd1 = Me.Controls("CommandButton1")
- Set .cmd2 = Me.Controls("CommandButton2")
- Set .cmd6 = Me.Controls("CommandButton6")
- Set .mTxtb1 = Me.Controls("TextBox1")
- .mdTrue = True
- End With
- Case Is = 1
- ReDim Test2(3 To 5)
- For i = 3 To 5
- Set Test2(i) = New clsTest2 '¦@«Å§i [3Ó] ·sªºª«¥ó¼Ò²Õ
- Set Test2(i).cmd = Me.Controls("CommandButton" & CStr(i))
- Set Test2(i).mTxtb2 = Me.Controls("TextBox2") '
- Next
- Test2(3).mType = 3
- Test2(4).mType = 4
- Test2(5).mType = 5
- Test2(3).mdTrue = True
- End Select
-
- End Sub
½Æ»s¥N½X- Private Sub mCmd_Click()
- MsgBox mCmd.Caption & "-" & mTrue
- Select Case ckType
- Case Is = 3
- If mTrue = False Then
- mTrue = True
- Else
- mTrue = False
- End If
- mTxt2 = mTrue
- Case Is = 4
-
- Case Is = 5
- If mTrue = True Then
- mTrue = False
- Else
- mTrue = True
- End If
- mTxt2 = mTrue
- End Select
- End Sub
½Æ»s¥N½X |
|