[求助]如何使按钮可以变换颜色！？

WTM1

我做了一个按钮用两个不同颜色做的，使用鼠标移动代码如下：

Private Sub windowskkkkkk_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case windows
    Case 0
        Me.kkkkkk1.Visible = True
        Me.kkkkkk2.Visible = False
        Abutton = 1
    End Select
   
    Select Case vvvvv
    Case 1
        Me.vvvvv2.Visible = False
        Me.vvvvv1.Visible = True
        Bbutton = 0
    End Select
End Sub



可是总是做不出来！

虽有这样的事例给我一个好吗？


我看过几个朋友的例子，设计都不一样，可是不能仿制，很遗憾！请帮忙嘛！

谢谢！

楚狐

是XP效果吗？

zzcjp

建立模块：
Public Function move(a As CommandButton)
a.SetFocus
a.ForeColor = vbRed '可以设定其他颜色
End Function

Public Function lost(b As CommandButton)
b.ForeColor = vbBlack '可以设定其他颜色
End Function

然后在控件属性“鼠标移动”里输入：=move([命令n])
在“获得焦点”里输入：=lost([命令n])  
既可调用改变按钮文字颜色的模块。

WTM1

谢谢！
是xp效果的！
zzcjp：
谢谢！你的代码。是改变文字颜色！

我要的是改变按钮的颜色！

按钮由两个图片累加而成的！要求鼠标移动的时候，改变颜色！
我能够改变按钮的颜色但当鼠标移开按钮的时候，不会自动变会原颜色！


请问有没有做好的例子供我参考！！谢谢！！

yahai

多谢zzcjp，这个例子对我很有用

zdhsw

zzcjp，能给我这样一个例子吗,谢谢

teddibear

试一试在detail_mousemove里把颜色改回来

WTM1

还是不可以解决！！

没有人，有例子吗？？