Question

VB 中想做出这样的效果 命令按钮设置两张不同背景 单击一次换一张如何完成？

运行程序显示开始 单击后显示下一题 注意是在命令按钮上显示





Answer 1

'设置Command1.Style = 1
'假设“开始按钮图片”"路径为程序目录下的 0.jpg 文件,“下一题按钮图片”路径为程序目录下的 1.jpg 文件
'请参考程序:
Dim a As Integer
Private Sub Form_Load()
 Command1.Caption = ""
 Command1.Picture = LoadPicture(App.Path & "\" & a & ".jpg")   '开始按钮图片
End Sub
Private Sub Command1_Click()
 If a = 0 Then
    a = 1
    Command1.Picture = LoadPicture(App.Path & "\" & a & ".jpg")  '下一题按钮图片
 End If
End Sub

Answer 2

现在command1的caption上输入开始然后如下
Private Sub Command1_Click()
Command1.Caption = "下一题"
End Sub

Answer 3

按钮的style属性设为1
Private Sub Command1_Click()
Command1.Picture = LoadPicture(App.Path & "\next.gif")
End Sub

Private Sub Form_Load()
Command1.Picture = LoadPicture(App.Path & "\start.gif")
End Sub