VB6.0 调用系统菜单的制作实例源码源代码实例

在这里小编给大家提供VB6.0 调用系统菜单的制作实例源码源代码实例下载，都是比较常用和简单的。有需要学习相关编程的可以下载回去研究一下。
VB6.0 调用系统菜单的制作实例源码，在窗口上单击鼠标右键，可看到调用的windows系统菜单，和Windows中的窗口的标题栏处的右键菜单一模一样，VB6.0源码，欢迎学习参考。
　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
　　 x As Single, y As Single)
　　 Dim Pt As POINTAPI '鼠标指针坐标结构
　　 GetCursorPos Pt '获取鼠标指针坐标
　　 If Button = 2 Then '鼠标右键
　　 TrackPopupMenu GetSystemMenu(Me.hwnd, False), _
　　 TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0& '弹出系统菜单
　　 End If
　　End Sub

关键词：菜单实例