[分享并请教]很美观的仿OUTLOOK菜单[鼠标光标新问题请教已解决]

qlm · 发表于 2006-10-14 04:17:00

终于用窗体做了个仿OUTLOOK菜单，目前遇到的问题是：

我用文本框作为菜单，但鼠标光标遇到文本框就会变成闪烁的光标？

有谁能帮我把它变回箭头？

另外有什么办法可以使菜单永远放在程序最左边？

多谢!

已解决鼠标指针问题:

[此贴子已经被作者于2006-10-18 22:07:21编辑过]

qlm · 发表于 2006-10-14 04:24:00

用法是把菜单作为子窗体放入主窗体。

然后另外在主窗体增加一个空白的子窗体，该子窗体的源对象随菜单的选择而改变。

当然也可作为单独的窗体存放。

andymark · 发表于 2006-10-14 04:42:00

Private Sub 菜单内容_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Screen.MousePointer = 1
End Sub

qlm · 发表于 2006-10-14 06:36:00

太高兴了!!!

非常感谢andymark,帮我解决了这个问题!

andymark真是非常热心的朋友!而且解决问题很有办法!

敬佩!!

qlm · 发表于 2006-10-19 02:40:00

但设Screen.MousePointer = 1后,其它输入框也无法出现闪烁光标了,用起来很不习惯,请知道的朋友解决一下!

andymark · 发表于 2006-10-19 05:01:00

当离开菜单内容时,移动到主体,页眉页脚等控件时还原鼠标属性

Screen.MousePointer = 0

qlm · 发表于 2006-10-19 06:01:00

谢谢,解决了!

longergh · 发表于 2006-10-28 18:29:00

简单的用切换面板管理器不仅能达到你的效果,还能达到QQ面板的效果,我现在用的数据库主窗体就是仿QQ的,只是没有像QQ面板在光标移动时的游走效果,哪位高手能否帮忙一二,告知QQ面板在光标移动时的游走效果的代码

[此贴子已经被作者于2006-10-28 10:38:32编辑过]

c101 · 发表于 2009-10-11 11:32:38

謝謝分享

goto2008 · 发表于 2009-10-11 12:04:21

学习一下

帐号		自动登录	找回密码
密码			注册

[其它] [分享并请教]很美观的仿OUTLOOK菜单[鼠标光标新问题请教已解决]

群介绍
主题无相 (随机显示版	同地区群块其他地区)