★★★★★★好久没来问问题了。关于Mid子窗体的问题!!★★★★★★

yunok 2003-09-30 04:00:47
有好几个子窗体窗体。要求只能有一个是在最上边的,而且其它子窗体都不相应任何鼠标键盘事件,包括父窗体上的TreeView都不再相应。该怎样做呢?:)
...全文
46 点赞 收藏 16
写回复
16 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
甴曱 2003-10-02
再为你顶吧。
回复
yunok 2003-09-30
yunfeng007(一水寒) ,这样不符合我的要求。我要求鼠标还能动的。而不是限制。谢谢。

luolovegui(东方不败),SetWindowPos是用来是窗口在最上方的。也不符合我的要求。请您看清我的要求OK?
回复
luolovegui 2003-09-30
不错的想法,你可以试试SetWindowPos()不知道行不行,有时间的话我帮你写写。
回复
yunfeng007 2003-09-30
把鼠标限制在你的这个窗体内!并且屏蔽键盘,不响应键盘操作!^_^
回复
yunok 2003-09-30
关键是我不想用Timer。太占资源了啊
回复
海牛 2003-09-30
唉!
你只需要把其它其它子窗体.Enabled = False,再加上TreeView.Enabled = False不就行了!
回复
海牛 2003-09-30
用一个Timer控件再结合wea1978(川) 的方法,应该能行!
回复
yunok 2003-09-30
恩。。。。。。。办法都不是太好啊!
回复
pigpag 2003-09-30
子类处理比较好。
回复
pandengzhe 2003-09-30
同意。
如果不择手段的话,应有多种方法
回复
wea1978 2003-09-30
你在子窗体的的mouse事件里面,做个判断,如果超出本窗体范围,则让其它窗体的enabled为false,当此窗体关闭的时候再回复.如:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > Me.Width Or Y < Me.Height Then
其它窗体.Enabled = False
End If
End Sub
回复
无言的苦衷 2003-09-30
不好意思,我没试过。也考虑这个问题,只是没有在意(有些对付了)。
不过,帮你UUPP!!!
回复
yunok 2003-09-30
Thanks!
回复
cnhgj 2003-09-30
UPUP
回复
甴曱 2003-09-30
友情up
回复
benlee 2003-09-30
顶!
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告