Private Sub Command3_Click()
Select Case Me.Command3.Caption
Case "0"
Me.选项卡控件0.Value = 0
Me.Command3.Caption = "1"
Case "1"
Me.选项卡控件0.Value = 1
Me.Command3.Caption = "0"
End Select
End Sub作者: williamwangc 时间: 2011-10-10 20:04
晕。原来是VALUE啊。我用的是PAGES的属性的ITEM。难怪试不出来啊。我看懂了,那第N页就是VALUE=N-1吧。非常感谢。 作者: Henry D. Sy 时间: 2011-10-10 22:22