Office中国论坛/Access中国论坛

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

作者: qlm 时间: 2006-10-14 04:17
标题: [分享并请教]很美观的仿OUTLOOK菜单[鼠标光标新问题请教已解决]
终于用窗体做了个仿OUTLOOK菜单，目前遇到的问题是：

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

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

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

多谢!

已解决鼠标指针问题:
[attach]20890[/attach]

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

作者: qlm 时间: 2006-10-14 04:24
用法是把菜单作为子窗体放入主窗体。

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

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

作者: andymark 时间: 2006-10-14 04:42
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
太高兴了!!!

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

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

敬佩!!

作者: qlm 时间: 2006-10-19 02:40

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

作者: andymark 时间: 2006-10-19 05:01
当离开菜单内容时,移动到主体,页眉页脚等控件时还原鼠标属性

Screen.MousePointer = 0

作者: qlm 时间: 2006-10-19 06:01
谢谢,解决了!

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

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

作者: c101 时间: 2009-10-11 11:32
謝謝分享

作者: goto2008 时间: 2009-10-11 12:04
学习一下

作者: xlb004 时间: 2016-8-31 19:07
tttttttttttt

作者: niculas 时间: 2016-9-2 17:41
我看了下，效果可以，但是兄弟啊，你这配色的技术要提高啊。。。。你这颜色搭配太没感觉了。。。

作者: boon 时间: 2019-5-18 14:33
謝謝分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)