展开全部
用二个按钮:
Private Sub Command1_Click()
Image1.Visible = False
End Sub
Private Sub Command2_Click()
Image1.Visible = True
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
Command2.Caption = "显示"
End Sub
用一个按钮:
Private Sub Command1_Click()
If Command1.Caption = "隐藏" Then
Image1.Visible = False
Command1.Caption = "显示"
Else
Image1.Visible = True
Command1.Caption = "隐藏"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
End Sub
Private Sub Command1_Click()
Image1.Visible = False
End Sub
Private Sub Command2_Click()
Image1.Visible = True
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
Command2.Caption = "显示"
End Sub
用一个按钮:
Private Sub Command1_Click()
If Command1.Caption = "隐藏" Then
Image1.Visible = False
Command1.Caption = "显示"
Else
Image1.Visible = True
Command1.Caption = "隐藏"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询