【求助】标题栏上的菜单是怎么实现的？如图：

loverosebay 发表于 2009-7-1 21:37:10

<img src="http://pb.images22.51img1.com/6000/loverosebay/bd069d3411b4415263f4ce7bd72d968a.jpg"/>
 
如图:像这样（红色部分）的菜单是怎么制作的？ 
单击程序图标或是最小化时单击鼠标右键会弹出这样的菜单，怎样在里面加入自己的菜单项？

马大哈 发表于 2009-7-1 23:37:08

先取得系统菜单的句柄,再用AppendMenu添加即可.
 
    SysMenuHwnd = GetSystemMenu(Me.hWnd, False)         '取得系统自带菜单句柄
    Call AppendMenu(SysMenuHwnd, MF_SEPARATOR, 2000, vbNullString)      '添加个分隔条     Call AppendMenu(SysMenuHwnd, MF_STRING, 2001, "关于本程序(&A)")     '添加个字符串项,并指定ID,响应时需要用到.

loverosebay 发表于 2009-7-1 23:50:40

谢谢! 今天刚发现这个论坛,从下午到现在把论坛里几乎所有的贴子都看了一遍,获益不少啊,呵呵..

马大哈 发表于 2009-7-2 00:05:14

论坛里的帖子基本上都是这四五年来积累的,很少有站外转帖.
 
所以量不多,但我觉得这样挺好.

loverosebay 发表于 2009-7-2 00:21:51

是啊. 很多外面看不到的东西...
我自学VB也才差不多一年,而且初中毕业的水平,学起来比较吃力..
常期一个VB6.0的窗口,一个MSDN,一个金山快译.边写边查边试..
到目前为止写得最多的还是数据库操作类的程序.(只用过ACCESS.MSSQL.SQL桌面版(MSDE))
以后有问题,搜索引擎找不到答案就有地方可以问了.呵呵.. 多与大家交流吧..

马大哈 发表于 2009-7-2 00:59:38

欢迎交流!
 
数据库方面的东西我是接触得比较少,可能还需要大家带带我!

menfly 发表于 2009-7-25 20:47:42

谢谢老马了，很不错，有点头绪了

马大哈 发表于 2009-7-24 20:29:56

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用menfly在23/07/2009 20:17:43的发言： 
想学习api，有几个问题一直没搞懂，请教下老马
你的程序里
Private Const MF_SEPARATOR As Long = &H800& Private Const MF_STRING As Long = &H0& Private Const WM_SYSCOMMAND As Long = &H112
 
这几个定义是哪个api函数要用的？
后面那个值如：&H800& 是固定的吗，还是根据需要自己设置的？
如何知道调用api函数时要定义这几个long型值呢？
 
这几个问题在网上一直没看到解释，能不能简单讲下呢，或者推荐个能解决这些问题的教程也行，谢谢了 </div>
 
像Const WM_SYSCOMMAND As Long = &H112这样的内容叫"常量",其值是微软定义的,取了一个如WM_SYSCOMMAND一样的字符串名字,只是为了让程序员在写程序时,代码的可读性较好.
 
具体某个API实现某些功能时所需要使用到的常量值,在MSDN上是可以查到的,比如你要用GetWindowLong得到某句柄的扩展样式,就需要配合GWL_EXSTYLE常量,MSDN中是这么说的:
<div class="msgheader">QUOTE:</div><div class="msgborder">以下引用至MSDN： 
 
<h1><a name="_win32_getwindowlong"></a>GetWindowLong</h1>
The GetWindowLong function retrieves information about the specified window. The function also retrieves the 32-bit (long) value at the specified offset into the extra window memory of a window. <pre><code>LONG GetWindowLong(
HWND hWnd,// handle of window
int nIndex// offset of value to retrieve
);
</code></pre>
<h4>Parameters</h4>
<dl>
<dt>hWnd
<dd>Handle to the window and, indirectly, the class to which the window belongs.
<dt>nIndex
<dd>Specifies the zero-based offset to the value to be retrieved. Valid values are in the range zero through the number of bytes of extra window memory, minus four; for example, if you specified 12 or more bytes of extra memory, a value of 8 would be an index to the third 32-bit integer. To retrieve any other value, specify one of the following values:
<table cellspacing="4" cols="2">
<tbody>
<tr valign="top">
<th align="left" width="36%">Value</th>
<th align="left" width="64%">Action</th></tr>
<tr valign="top">
<td width="36%">GWL_EXSTYLE</td>
<td width="64%">Retrieves the extended window styles.</td></tr>
<tr valign="top">
<td width="36%">GWL_STYLE</td>
<td width="64%">Retrieves the window styles.</td></tr>
<tr valign="top">
<td width="36%">GWL_WNDPROC</td>
<td width="64%">Retrieves the address of the window procedure, or a handle representing the address of the window procedure. You must use the CallWindowProc function to call the window procedure.</td></tr>
<tr valign="top">
<td width="36%">GWL_HINSTANCE</td>
<td width="64%">Retrieves the handle of the application instance.</td></tr>
<tr valign="top">
<td width="36%">GWL_HWNDPARENT</td>
<td width="64%">Retrieves the handle of the parent window, if any.</td></tr>
<tr valign="top">
<td width="36%">GWL_ID</td>
<td width="64%">Retrieves the identifier of the window.</td></tr>
<tr valign="top">
<td width="36%">GWL_USERDATA</td>
<td width="64%">Retrieves the 32-bit value associated with the window. Each window has a corresponding 32-bit value intended for use by the application that created the window.</td></tr></tbody></table> 
The following values are also available when the hWnd parameter identifies a dialog box:
<table cellspacing="4" cols="2">
<tbody>
<tr valign="top">
<th align="left" width="33%">Value</th>
<th align="left" width="67%">Action</th></tr>
<tr valign="top">
<td width="33%">DWL_DLGPROC</td>
<td width="67%">Retrieves the address of the dialog box procedure, or a handle representing the address of the dialog box procedure. You must use the CallWindowProc function to call the dialog box procedure.</td></tr>
<tr valign="top">
<td width="33%">DWL_MSGRESULT</td>
<td width="67%">Retrieves the return value of a message processed in the dialog box procedure.</td></tr>
<tr valign="top">
<td width="33%">DWL_USER</td>
<td width="67%">Retrieves extra information private to the application, such as handles or pointers.</td></tr></tbody></table> </dd></dl>
<h4>Return Values</h4>
If the function succeeds, the return value is the requested 32-bit value.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
  </div>
 
至于常量,API浏览器里面可以查到,不过我推荐你使用API VIEWER2004,相当的全.
[此贴子已经被作者于2009-7-24 20:34:34编辑过]

jixu2008 发表于 2009-7-16 23:15:14

站长是好人，鉴定完毕。

menfly 发表于 2009-7-23 20:17:43

想学习api，有几个问题一直没搞懂，请教下老马
你的程序里
Private Const MF_SEPARATOR As Long = &H800& Private Const MF_STRING As Long = &H0& Private Const WM_SYSCOMMAND As Long = &H112
 
这几个定义是哪个api函数要用的？
后面那个值如：&H800& 是固定的吗，还是根据需要自己设置的？
如何知道调用api函数时要定义这几个long型值呢？
 
这几个问题在网上一直没看到解释，能不能简单讲下呢，或者推荐个能解决这些问题的教程也行，谢谢了

页: [1]

紫水晶编程技术论坛 - 努力打造成全国最好的编程论坛's Archiver

【求助】标题栏上的菜单是怎么实现的？如图：