积极答复者
实在不会做,会的请帮帮忙啊,,,急啊!

问题
答案
-
asiadata 写: Private Sub Command1_Click()
If Form1.BackColor = &H8000000F Then
Command1.Caption = "还原"
Form1.BackColor = &HFF&elseIf Form1.BackColor = ???? Then'其他背景色
Else
Form1.BackColor = &H8000000F
Command1.Caption = "变色"
End If
End SubPrivate Sub Command2_Click()
Unload Me
End Sub他已经帮你写出来了,关于IF语句具体的你多看下书,重要的还是自己理解
全部回复
-
asiadata 写: Private Sub Command1_Click()
If Form1.BackColor = &H8000000F Then
Command1.Caption = "还原"
Form1.BackColor = &HFF&elseIf Form1.BackColor = ???? Then'其他背景色
Else
Form1.BackColor = &H8000000F
Command1.Caption = "变色"
End If
End SubPrivate Sub Command2_Click()
Unload Me
End Sub他已经帮你写出来了,关于IF语句具体的你多看下书,重要的还是自己理解