定义类型调用

Question

定义 Private Sub SettingListView(LV As ListView, CmbName As Controls)
 调用 SettingListView ListView1, txtProve
txtProve类型是combobox，尝试CmbName As Combobox也不行

Answer 1

Private Sub SettingListView(LV As ListView, CmbName As ComboBox)
MsgBox LV.Name
End SubPrivate Sub Command1_Click()
SettingListView ListView1, Combo1
End Sub

Answer 2

Private Sub SettingListView(LV As object, CmbName As object)

Answer 3

查看你传送的是否为控件名（name）,而不是caption。