Question

VB6.0 里面怎么实现开关功能？如图，能不能通过单击line实现？

新手入门，望能指导

Answer 1

Private Sub Label1_Click()
Static b As Boolean
If b Then
Line2.Y2 = Line3.Y1
Line2.X2 = Line3.X1
Else
Line2.Y2 = 1440
Line2.X2 = 2040
End If
b = Not b
End Sub

追问

您好，谢谢您的回答，那个b 我应该怎么写？

追答

b不用写啊 只是判断点击的

追问

嗯我晓得了，谢谢您