Office中国论坛/Access中国论坛

标题: [求助]如何使按钮可以变换颜色！？ [打印本页]

作者: WTM1 时间: 2002-11-6 17:41
标题: [求助]如何使按钮可以变换颜色！？
我做了一个按钮用两个不同颜色做的，使用鼠标移动代码如下：

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

可是总是做不出来！

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

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

谢谢！

作者: 楚狐 时间: 2002-11-6 19:07
是XP效果吗？

作者: zzcjp 时间: 2002-11-6 19:36
建立模块：
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 时间: 2002-11-6 21:41
谢谢！
是xp效果的！
zzcjp：
谢谢！你的代码。是改变文字颜色！

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

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

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

作者: yahai 时间: 2002-11-6 22:28
多谢zzcjp，这个例子对我很有用

作者: zdhsw 时间: 2002-11-7 17:47
zzcjp，能给我这样一个例子吗,谢谢

作者: teddibear 时间: 2002-11-9 13:54
试一试在detail_mousemove里把颜色改回来

作者: WTM1 时间: 2002-11-11 21:00
还是不可以解决！！

没有人，有例子吗？？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)