设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2557|回复: 7
打印 上一主题 下一主题

[窗体] 如何消除光标闪烁

[复制链接]
跳转到指定楼层
1#
发表于 2011-1-1 21:10:39 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我的意思是当光标到达标签时标签背景变色,移去时背景为透明,写入相关代码后鼠标移动时光标闪烁很厉害,请问,有什么办法消除光标闪烁?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2011-1-2 09:53:33 | 只看该作者
本帖最后由 ycxchen 于 2011-1-2 09:53 编辑

在例子中有如下代码,还请教一个问题:
按钮与标签同为ACCESS内置的控件,为何在主体鼠标移动事件中会默认按钮声明变量类型的?标签要声明变量类型吗?如要,变量类型是什么?
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.Label4.BackStyle = 0
   Me.Label5.BackStyle = 0
   Me.Label6.BackStyle = 0
End Sub
3#
发表于 2011-1-2 10:44:23 | 只看该作者
本帖最后由 todaynew 于 2011-1-2 10:45 编辑

一、原因分析:
光标每次移动均进行了标签BackStyle 值的设置,因此便会出现闪烁。

二、处理思路:
使光标在落入标签后仅进行一次BackStyle设置。

三、处理方法:
设两个逻辑型公共变量B1、B2,然后分四种情况处理:
1、光标不在三个标签范围内,B1=Fasle ,B2=False,即B1 and B2=Fasle ,三个标签不变化;
2、光标第一次进入某个标签范围内,B1=True,B2=True,即B1 and B2=True,三个标签进行一次变化;
3、光标在所进入的标签内移动,B1=True,B2=Fasle,即B1 and B2=Fasle ,三个标签不变化;
4、光标离开某个标签,则B1=Fasle ,B2=False,即B1 and B2=Fasle ,三个标签不变化。

四、代码实现:
请按以上思路及方法自行设计代码
4#
 楼主| 发表于 2011-1-2 11:01:48 | 只看该作者
十分多谢版主的指教!2楼的问题能解答吗?
5#
发表于 2011-1-2 11:07:47 | 只看该作者
本帖最后由 todaynew 于 2011-1-2 11:10 编辑
ycxchen 发表于 2011-1-2 11:01
十分多谢版主的指教!2楼的问题能解答吗?


Button    按下 (MouseDown) 或释放 (MouseUp) 以触发事件的按钮。如果需要测试 Button 参数,则可以使用以下固有常量之一作为位掩码:
常量说明
acLeftButton 鼠标左键的位掩码。
acRightButton 鼠标右键的位掩码。
acMiddleButton 鼠标中间键的位掩码。
6#
 楼主| 发表于 2011-1-2 12:30:40 | 只看该作者
本帖最后由 ycxchen 于 2011-1-2 12:32 编辑

谢谢!我的意思是在下面的代码中,Label4、Label5、Label6均是控件名,不要声明变量类型吧?
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.Label4.BackStyle = 0
   Me.Label5.BackStyle = 0
   Me.Label6.BackStyle = 0
End Sub
7#
发表于 2011-1-2 13:17:49 | 只看该作者
本帖最后由 todaynew 于 2011-1-2 13:26 编辑
ycxchen 发表于 2011-1-2 12:30
谢谢!我的意思是在下面的代码中,Label4、Label5、Label6均是控件名,不要声明变量类型吧?
Private Sub  ...


不需要。用 me.控件名称 这样的写法时,VBA能自动判断控件类型,并在写其属性时,自动给出属性列表。

你可参见《 鱼翔浅底》一文,和你的问题类似。


8#
 楼主| 发表于 2011-1-2 14:30:44 | 只看该作者
十分感谢版主的无私指教!你的崇高品质值得我等学习。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-8 20:40 , Processed in 0.098563 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表