正在制作用户控件属性页,出现了错误,求解决
提示错误是这句For t1 = 1 To .Tabs,实时错误438。对象不支持该属性或方法。
这几天才接触这些,希望高手详细点解答,谢谢
Private Sub PropertyPage_SelectionChanged()
Dim t1 As Integer
tSettingUp = True
With SelectedControls(0)
cmbCaptions.Clear
For t1 = 1 To .Tabs
cmbCaptions.AddItem .Caption(t1)
Next t1
cmbCaptions.ListIndex = 0
cmbCaptions_Click
End With
tSettingUp = False
Refresh
End Sub