我在一个窗体中弹出菜单（Popmenu)在此菜单的Click事件下编写程序Show出第二个窗体frm2，但是当我在frm2上使用popupMenu方法弹出frm2中的另外一个菜单的时候，代码执行过去了，就是不显示菜单。[1条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

·为什么用datagridd和datalist等设好的长度，内容不能自动换行呀 »显示摘要«

摘要：为什么用datagridd和datalist等设好的长度，内容不能自动换行呀！中文可以，但英文和数字不行，大家帮帮心忙呀！ ......

·vb中如何用mo做。。。分数不够在加 »显示摘要«

摘要：完成功能为当按下鼠标左键，并拉出一个矩形框是，显示此框内的图形；按下右键，将缩小图形。按钮为漫游是，执行图形漫游。 ......

那位高手能解决这个极难的弹出菜单问题

我在一个窗体中弹出菜单

在Form2中用API来显示菜单就可以了。

Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As RECT) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
Left As Long
As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim rc As RECT
Dim pt As POINTAPI
pt.x = x / Screen.TwipsPerPixelX
pt.y = y / Screen.TwipsPerPixelX
ClientToScreen Me.hwnd, pt
TrackPopupMenu GetSubMenu(GetMenu(Me.hwnd), 0), 0, pt.x, pt.y, 0, Me.hwnd, rc
End Sub

·谁能给出一个vb实现的给一段数据数字签名的代码 »显示摘要«

摘要：多谢！ ......

» 本期热门文章：