VB6.0的 我想知道怎样布置Option按钮
。。。。。。PrivateSubCommand2_click()Text9.Text=qq:Text1="":Text2="":Text3="":Text4="":Tex...
。。。。。。
Private Sub Command2_click()
Text9.Text = qq: Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = ""
Text5.SetFocus
Option1(0).Value = True: Option1(1).Value = False: Option2(0).Value = True: Option2(1).Value = False
Option3(0).Value = True: Option3(1).Value = False: Picture1.Cls: Picture2.Cls
End Sub
。。。。。。
Private Sub Option1_click(index As Integer)
Select Case index
Case 0
e = e * (-1)
Case 1
e = e
End Select
End Sub
Private Sub Option2_click(index As Integer)
Select Case index
Case 0
k = -1
Case 1
k = 1
End Select
End Sub 展开
Private Sub Command2_click()
Text9.Text = qq: Text1 = "": Text2 = "": Text3 = "": Text4 = "": Text5 = "": Text6 = "": Text7 = "": Text8 = ""
Text5.SetFocus
Option1(0).Value = True: Option1(1).Value = False: Option2(0).Value = True: Option2(1).Value = False
Option3(0).Value = True: Option3(1).Value = False: Picture1.Cls: Picture2.Cls
End Sub
。。。。。。
Private Sub Option1_click(index As Integer)
Select Case index
Case 0
e = e * (-1)
Case 1
e = e
End Select
End Sub
Private Sub Option2_click(index As Integer)
Select Case index
Case 0
k = -1
Case 1
k = 1
End Select
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询