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

yunok 2003-09-30 04:00:47

有好几个子窗体窗体。要求只能有一个是在最上边的，而且其它子窗体都不相应任何鼠标键盘事件，包括父窗体上的TreeView都不再相应。该怎样做呢？：）

...全文

82 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

甴曱 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