- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# dechiuan999 - Private Sub MultiPage1_Change()
- Select Case MultiPage1.Value
- 'MultiPage1.Value = 0
- Case Is = 3
- mSht1.Cells.Clear
- mSht2.Select
- 'mSht2.Cells.Clear
- ReDim myOp15(15 To 18)
- For i = 15 To 18
- '這裡表單每一個控制項 循環 4次 指定相同物件的控制項
- Set myOp15(i) = New allAppCls
- Set myOp15(i).mySqlServer = New allServerCls
- myOp15(i).mySqlServer.clsConn = conStr
- Set myOp15(i).opt15 = Me.Controls("OptionButton" & CStr(i))
- Set myOp15(i).mTb6 = Me.Controls("TextBox6")
- Set myOp15(i).mTb7 = Me.Controls("TextBox7")
- Set myOp15(i).comBox5 = Me.Controls("ComBoBox5")
- Set myOp15(i).List3 = Me.Controls("ListBox3")
-
- Set myOp15(i).Command2 = Me.Controls("CommandButton2")
- Set myOp15(i).mSht2 = Worksheets("Appsearch_Data")
- myOp15(i).ck15 = i
- Next
- With ComboBox5
- .AddItem "Server"
- .AddItem "LocalHost"
- .ListIndex = 0
- End With
- ListBox3.Clear
- End Select
- End Sub
- Public Property Set List3(setList3 As MSForms.ListBox)
- Set mList3 = setList3
- MsgBox mList3.Parent.Parent.Parent.Name & "-" & mList3.Parent.Parent.Name & "-" & mList3.Parent.Name & "-" & mList3.Name
- End Property
|
|
發表於 2014-2-9 06:43
| 