|
本帖最后由 红尘如烟 于 2009-2-11 17:49 编辑
-
- Dim intA As Integer
- Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- If intA <> 25 Then
- Me!Label25.BackColor = 2097305
- Me!Label25.ForeColor = 62207
- intA = 25
- End If
- End Sub
- Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- If intA <> 0 Then
- Me!Label25.BackColor = 3543489
- Me!Label25.ForeColor = 16777215
- intA = 0
- End If
- End Sub
复制代码 除了以上之外,使用图片做为背景时也会很容易造成闪烁,这个属于ACCESS本身的不足,没办法
下面这个是站长以前写的一个类似效果的通用模块,你可以参考一下
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|