|
サンプルいただきましてありがとうございます。
実行してみるのですが
変数が定義されていません
といわれてしまい、進めません。意味がわからないのです。すみません。
'Private Sub ComboBox1_Change()
' Dim ctl As Control
'
' For Each ctl In Controls '変数が定義されていません
' If TypeName(ctl) = "ComboBox" Then
' MsgBox ctl.Name
' End If
' Next
'End Sub
Private Sub CommandButton1_Click()
Dim MyControl As Control
Dim AllName As String
Dim i As Integer
AllName = "フォームに配置されている全てのコントロール名" & Chr(13)
For Each MyControl In Controls '変数が定義されていません
i = i + 1
AllName = AllName & Chr(13) & _
i & ":MyControl.Name = " & MyControl.Name
Next
MsgBox AllName
End Sub
|
|