正在制作用户控件属性页,出现了错误,求解决
提示错误是这句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
[解决办法]
顶上
不 要沉
[解决办法]
该回复于2011-05-17 14:46:21被版主删除
[解决办法]
.Tabs.Count() ' ?
[解决办法]
不是哦。
错误还是这句。
这里应该写那个呢For t1 = 1 To .Tabs
1 To ***写那个呢