怎么使VB的按钮每次按下去都不同

来源:百度知道 编辑:UC知道 时间:2024/05/29 23:06:47
怎么使VB的按钮每次按下去都不同???请给出代码,谢谢!
每次点击所得的效果都不同

是要按下去的时候和没按的时候不同
还是要一次按和下一次按不同

第一种可以用代码
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
command1.picture="..."
End Sub

第二种要在后台设个计数器

我设计了一段编码实现按钮背景色的渐变:
先将按钮的“Style”属性值改为1
Private Sub Command1_Click()
Static k As Integer
k = k + 1
If k <= 8 Then
Command1.BackColor = RGB(10 * k, 20 * k, 30 * k)
Else
k = 0
Command1.BackColor = RGB(10 * k, 20 * k, 30 * k)
End If
End Sub

由于你没有说明白什么不同,所以很难帮到你

怎么个不同??