那么用FORM的话,这个sub中的参数:X Y 就是鼠标的当前坐标值,让窗体跟着走就行了
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Form1.Move Me.Left + x, Me.Top + y, Form1.Width, Form1.Height
Form1.Show
End If
End Sub
那么用FORM的话,这个sub中的参数:X Y 就是鼠标的当前坐标值,让窗体跟着走就行了
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Form1.Move Me.Left + x, Me.Top + y, Form1.Width, Form1.Height
Form1.Show
End If
End Sub
菜单直接就可以弹出,不用列表模拟
打开界面,点击 menu editor,为这个界面添加菜单(一级菜单在这里是不显示的,在这个一级菜单下增加的子菜单将在菜单中显示)
下例:在form上单击鼠标右键完成时弹出菜单:
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu mnuNew
End If
End Sub
菜单会自动跟随鼠标点击出现,并在菜单被选择或者鼠标点其他地方时自动消失