<<< 返回 access911.net 编程静态资料库索引页

如何用弹出窗体代替快捷菜单?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2005-12-19  浏览人次:1131


专题地址:http://access911.net/fixhtm/72FAB11E16DCEDF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何用弹出窗体代替快捷菜单?《窗体》

 


问题:

如何用弹出窗体代替快捷菜单?

 

回答:

原理非常简单,鼠标点击某个窗体主体或者某个控件时,接收鼠标的 MouseDown 事件的BUTTON 参数,如果是 2 就打开一个预先设计好的弹出模式窗体,新弹出的窗体去掉边框控制栏弄得像一个快捷菜单一样就可以了。

其实有关技巧在本站的其他文章中已经详细论述过,这里再做个示例给大家

以下是窗体部分的代码
Option Compare Database

'************ 代码开始 **********
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

'fSetAccessWindow (SW_HIDE)

Function fSetAccessWindow(nCmdShow As Long)

.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB11E16DCEDF3.htm

 


上一篇:字段默认值设定为NOW为什么查不到明明存在的2005-11-30的值?

下一篇:关于access911回答问题方式的质疑?为什么不直接回答我的问题却要我“参考...”

2017年2月22日生成静态资料