下载地址

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

常用软件:压缩软件迅雷合集 》播放软件
资源大小:1.83K 更新时间:2019-10-03
资源类型:绿色安全 授权方式:免费下载
资源分类:VB源码 资源人气:1111
适用平台:WinAll 推荐等级:
一键分享: 一键分享
() ()

内容简介

在这里小编给大家提供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

关键词:菜单实例

相关截图