VB按钮重复点击问题,急急急急!!!!

2025-05-14 12:40:26
推荐回答(2个)
回答(1):

我认为你在画image1,2,3,4这几个控件的时候,一定是4最后画的,你先点下面的,则4将其余的都挡住了,所以不会变。其实这个很好解决,你把代码改为下面的就可以了
Private Sub Command1_Click()
Image2.Visible = True
Image3.Visible = false
Image4.Visible = false
Me.Caption = 1
End Sub
Private Sub Command2_Click()
Image3.Visible = True
Image2.Visible = false
Image4.Visible = false
Me.Caption = 2
End Sub
Private Sub Command3_Click()
Image4.Visible = True
Image3.Visible = false
Image2.Visible = false
Me.Caption = 3
End Sub

回答(2):

Private Sub Command1_Click()
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Me.Caption = 1
End Sub
Private Sub Command2_Click()
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Me.Caption = 2
End Sub
Private Sub Command3_Click()
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Me.Caption = 3
End Sub
估计你的2、3、4图片是重叠的。