vb调用系统控制菜单

来源:百度知道 编辑:UC知道 时间:2024/06/16 09:08:03
我自己用image做了个界面,我想让它在单击imagetitle(是image控件)时调用系统控制菜单.就是有最大化,最小化,和关闭的那个
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/boyqiang520/pic/item/c5ac1f44290a2843500ffec6.jpg
我说的是”调用系统控制菜单”不是用按钮!!看一下上面的图片连接~
再补充说明一下:我的这个界面是作成了ocx控件了的.
知道的能把代码发在下面吗?或者我的邮箱也可以
boyqiang520@yahoo.com.cn

用API,GetSystemMenu取得系统菜单句柄,然后用TrackPopupMenu弹出
这里有个例子是修改系统菜单条目的,可以参考

http冒号//www.tesoftware.net/code/form/200.htm

同意楼上意见,单为调用系统菜单而写上一大堆的API,实在有些得不偿失

Private Sub Command1_Click()
Me.WindowState = 2
End Sub
Private Sub Command2_Click()
Me.WindowState = 1
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "最大化"
Command2.Caption = "最小化"

Command3.Caption = "关闭"
End Sub
==============================
或者在VB中按Ctrl+E 自定义一个