Office中国论坛/Access中国论坛

标题: [超炫菜单]自动隐藏菜单[源码程序已公布] [新]无需ActiveX的treeview示例 [打印本页]

作者: qlm 时间: 2006-3-17 06:36
标题: [超炫菜单]自动隐藏菜单[源码程序已公布] [新]无需ActiveX的treeview示例
[attach]16596[/attach]

[此贴子已经被作者于2006-3-23 20:12:13编辑过]

作者: xjliyuehua 时间: 2006-3-17 17:13
我顶

作者: kevindeng 时间: 2006-3-17 17:34
可不可以给个2000版的啊

作者: laiguiyou 时间: 2006-3-17 18:10
感兴趣

作者: tafegaoyu 时间: 2006-3-17 18:27
我也顶

作者: qlm 时间: 2006-3-17 19:59
[attach]16464[/attach]
看来还是有人有兴趣!

我上传源码了!是2000版的。大家给点意见

这个用列表框还可以设计成无控件的treeview,不知大家有没有兴趣知道?[em07]

[此贴子已经被作者于2006-3-17 11:59:45编辑过]

作者: binzhouxc721521 时间: 2006-3-17 20:55
当然有

作者: sgrshh29 时间: 2006-3-17 21:05
鼠标有 MouseDown、MouseUp、MouseMove事件。但是没有 MouseExit事件。要捕捉 MouseExit事件，必须用 API 函数。
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As Long
然后可以在控件MouseMove 事件上加上代码来实现MouseExit事件。

作者: qlm 时间: 2006-3-17 21:27
多谢,但我不懂API,那里有可参考的例子?

作者: sgrshh29 时间: 2006-3-17 21:56
http://www.office-cn.net/forum.php?mod=viewthread&tid=29065&replyID=143592&skin=1

作者: qlm 时间: 2006-3-18 02:30
那个例子暂时看得不太懂,不过修改一下应该可以用,先试试!

谢谢sgrshh29!

作者: willial-wang 时间: 2006-3-18 09:04
顶

作者: qlm 时间: 2006-3-20 01:57
   我用下面的代码判断鼠标是否在列表框内,一开始可以正常使用,但后来就不行了,不知道是什么原因。本来我做了备份,但是现在备份的那一个数据库也不能正常使用，而其它的功能正常。重新启动电脑也没有用。

调用方法是: if_Mouse_over Listbox

然后根据 Mouse_Over变量的值来判断是否出界。

Option Compare Database
Public Mouse_Over As Boolean

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long)
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Type POINTAPI
      X As Long
      Y As Long
End Type

Public RetValue As Long

Public Sub If_Mouse_Over(ClipObject As ListBox)
Dim CurrentPoint As POINTAPI

If IsNull(ClipObject) Then Exit Sub

Mouse_Over = False
With CurrentPoint
      .X = 0
      .Y = 0
End With
RetValue = ClientToScreen(ClipObject, CurrentPoint)
If CurrentPoint.X > ClipObject.Left + ClipObject.Width Or CurrentPoint.X < ClipObject.Left Or CurrentPoint.Y < ClipObject.Top Or CurrentPoint.Y > ClipObject.Top + ClipObject.Height Then Mouse_Over = True
End Sub

作者: ym123 时间: 2006-3-29 01:45
正需要

作者: ym123 时间: 2006-3-29 01:59
有excel的吗

作者: qlm 时间: 2006-3-30 06:06
没学过EXCEL的

作者: jxyu1217 时间: 2006-3-30 06:11
我顶我顶我顶顶顶

作者: K仔 时间: 2006-3-30 18:40
例子中有部份代碼未公開吧?

作者: qlm 时间: 2006-4-3 05:40
是我软件的其它部分,没有公开.

作者: zhycfb2004 时间: 2006-4-3 20:15
hao!

作者: zhycfb2004 时间: 2006-4-3 20:15
taihao le

作者: hbe 时间: 2006-6-1 00:02
好吧

作者: hbe 时间: 2006-6-1 00:03
不知怎么样!

作者: hbe 时间: 2006-6-1 00:03
行吗?

作者: videochat 时间: 2006-6-1 18:57
漂亮啊谢谢,不过如何点菜单里的内容切换啊?

作者: randy 时间: 2006-6-1 19:06
顶一个!

作者: supperboy 时间: 2006-6-1 19:37
好东东收藏了，学习IN

作者: zcj 时间: 2006-8-7 18:41
这个问题困扰我半年了，谢谢qlm。

作者: zcj 时间: 2006-8-7 18:42
下载不来？

作者: zcj 时间: 2006-8-7 18:44
顶啊

作者: 飞吧飞吧 时间: 2006-8-7 19:04
标题: 不错哦
好东西好东西好东西好东西好东西

作者: 飞吧飞吧 时间: 2006-8-7 19:05
标题: 好东西
好东西好东西好东西好东西好东西好东西好东西好东西好东西好东西好东西好东西好东西好东西好东西

作者: 好学 时间: 2006-8-7 19:38
我在去年就在论坛求这个东西了,想不到今天qlm把它给大家分享,真的太谢谢了!!!!!!!!!!!!!!

[em17][em17][em17][em21][em21][em21][em20][em20][em20]

http://www.office-cn.net/forum.php?mod=viewthread&tid=34505&replyID=&skin=1

[此贴子已经被作者于2006-8-7 11:56:25编辑过]

作者: 蓝色刀锋 时间: 2006-8-8 07:39
顶上了,好东西

作者: huangqinyong 时间: 2006-8-9 23:51
thanks

作者: fangkinght 时间: 2006-10-21 16:32
不错

作者: acessnew 时间: 2006-10-21 16:50
向高手学习

作者: billppc 时间: 2006-10-21 18:27
顶好例子

作者: dyfeng2002 时间: 2006-10-21 19:06
dingyixia..........

作者: fy518 时间: 2006-10-21 19:16
好东西收藏ING........

作者: keith06 时间: 2006-10-21 23:13
谢谢分享

作者: vxtnt 时间: 2006-10-23 03:44
好

作者: 哭泣的瓶子 时间: 2007-5-25 01:52
楼主，辛苦了！谢谢！

作者: summer_jt 时间: 2007-7-25 23:48
看在你请求的份上,顶你一下。

作者: fannky 时间: 2007-10-16 11:18

作者: wwwwellioncn 时间: 2007-10-23 11:17
标题: 学习
学习学习。。

作者: wwwwellioncn 时间: 2007-10-23 11:18
标题: 下载不了，，，，，
下载不了，，，，，，，，

作者: wuxiaoyn 时间: 2008-1-1 22:03
标题: Access爱好者
菜单做得不错，非常值得学习

作者: huangxiuwen 时间: 2008-1-19 13:24
顶你。顶你。顶你。顶你。

作者: ppyh 时间: 2008-3-11 16:11
标题: 顶
谢谢楼主能把好东东拿出来分享

作者: ppyh 时间: 2008-3-18 14:28
标题: 好
好东西啊

作者: fangkinght 时间: 2008-3-28 14:40
[:33] [:33]

作者: gaofei186 时间: 2008-3-28 14:45
kkkkkkkkkkkkkkkkkkkkkkkk

作者: guoanxiang 时间: 2008-4-14 12:32
[:50] [:50] [:50]

作者: ABCaccess 时间: 2008-6-1 01:35
谢谢你与大众分享

作者: cyjiaaa 时间: 2009-1-20 16:02
[:50]

作者: cyjiaaa 时间: 2009-1-20 16:02
看一下

作者: cyjiaaa 时间: 2009-1-20 16:07
好!好

作者: yangzhan1978 时间: 2009-1-23 11:58
真好啊

作者: jingyu 时间: 2009-1-23 16:17
谢谢分享

作者: 7777777 时间: 2009-2-5 17:29
多谢,但我不懂API,那里有可参考的例子?

作者: 021230ww 时间: 2009-2-17 20:13
可不可以给个2000版的啊

作者: chaojianan 时间: 2009-2-17 21:01
谢谢，收藏了。

作者: jnyuan 时间: 2009-4-20 16:59
kan kan le

作者: jisk1129 时间: 2009-5-12 10:27
haohaohao

作者: jisk1129 时间: 2009-5-12 10:28
hoahahao

作者: jisk1129 时间: 2009-5-12 10:28
haohaohao

作者: submit732 时间: 2009-5-25 16:21

不错不错

作者: 朱同学 时间: 2009-5-25 20:19
非常喜欢，谢谢分享

作者: sun.gd 时间: 2009-5-25 21:15
1# qlm

真的要看看

作者: 风啸啸 时间: 2009-7-4 23:00
学习

作者: 13555609005 时间: 2009-7-6 11:09
感兴趣

作者: Sundy1250 时间: 2009-7-8 16:10
兴趣大得很,就是不怎么会

作者: DDBB2 时间: 2009-11-5 12:08
学习。。。。。。。。。。。。

作者: cyiceicelove 时间: 2009-11-14 20:34
经典!~

作者: cnffmso 时间: 2009-11-17 21:09
谢谢楼主的分享，收藏了

作者: XMX64311 时间: 2013-4-8 12:50
看看，学习一下！

作者: swkmm 时间: 2013-4-9 13:10
学习下，谢谢

作者: xlb004 时间: 2016-6-4 14:28
222222222222222222

作者: yhl091122 时间: 2016-8-3 13:16
顶！！！！

作者: p51218 时间: 2016-9-11 19:38
好好好阿红阿訇啊好啊红啊号后

作者: p51218 时间: 2016-9-11 19:39
好好好阿红阿訇啊好啊红啊号后

作者: qbtan85 时间: 2017-2-19 23:42
权志龙

作者: xlb004 时间: 2017-2-26 07:51
。。。

作者: xlb004 时间: 2017-2-26 07:52
，，，，，，，，，，

作者: xlb004 时间: 2017-2-26 07:52
Bbbbbbb

作者: xlb004 时间: 2017-2-26 07:53
ggyyyyyyyyyy

作者: wh133@163.com 时间: 2017-12-30 18:42
我顶

作者: boon 时间: 2019-3-27 13:09
楼主威武，多谢分享

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