2,461
社区成员
发帖
与我相关
我的任务
分享
Set mcolCombos1 = New Collection
For i = 1 To 5
Dim ctlCombo1 As ComboBox
Set ctlCombo1 = Frame1.Controls.Add("Forms.combobox.1", "modular subbce" & i, True)
With ctlCombo1
.Left = 200
.Top = 30 + (i - 1) * 50 + 6
.Width = 120
.Height = 20
.AddItem "M 5/2 Monostable"
.AddItem "B 5/2 Bistable"
End With
Dim objMyCombo1 As MyCombo
Set objMyCombo1 = New MyCombo
Set objMyCombo1.mctlCombo = ctlCombo1
objMyCombo1.mlngIndex = i
mcolCombos1.Add objMyCombo1
Next i
Dim oTX As Control
Dim i As Integer
With UserForm1
For i = 1 To 5
Set oTX = Frame1.Controls.Add("Forms.textbox.1", "Txt" & i, True)
With oTX
.Left = 100
.Top = 30 + (i - 1) * 50 + 6
.Width = 80
.Height = 20
End With
Next i
End With
Option Explicit
Public WithEvents mctlCombo As ComboBox
Public mlngIndex As Long
Public mcolCombosVal1 As String
Public mcolCombosVal1x As String
Private Sub mctlCombo_Change()
MsgBox mcolCombosVal1
mcolCombosVal1x = mcolCombos(1).mctlCombo.Value
mcolCombosVal1 = Mid(mcolCombosVal1x, 1, 1)
UserForm1.Controls("Txt1").Text = mcolCombosVal1
mcolCombos(1).mctlCombo.Value = Mid(mcolCombosVal1x, 4)
End Sub
Option Explicit
Public WithEvents mctlCombo As ComboBox
Public mlngIndex As Long
Public mstrCombosVal1 As String
Public mstrCombosVal1x As String
Private Sub mctlCombo_Change()
if mlngIndex <> 1 Then
Exit Sub
End If
MsgBox mstrCombosVal1
mstrCombosVal1x = mctlCombo.Text
mstrCombosVal1 = Mid(mstrCombosVal1x, 1, 1)
UserForm1.Controls("Txt1").Text = mstrCombosVal1
mctlCombo.Text = Mid(mstrCombosVal1x, 4)
End Sub
Option Explicit
Public WithEvents mctlCombo As ComboBox
Public mlngIndex As Long
Public mstrCombosVal1 As String
Public mstrCombosVal1x As String
Private Sub mctlCombo_Change()
MsgBox mstrCombosVal1
mstrCombosVal1x = mctlCombo.Text
mstrCombosVal1 = Mid(mstrCombosVal1x, 1, 1)
UserForm1.Controls("Txt1").Text = mstrCombosVal1
mctlCombo.Text = Mid(mstrCombosVal1x, 4)
End Sub