单击右键,快捷菜单总是不在鼠标单击处弹出,是什么原因?
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
With frmmouseIf Button = 2 Then
.Left = X
.Top = Y
.Show
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
With frmmouseIf Button = 2 Then
.Left = X
.Top = Y
.Show
如果是在FRMMOUSE中右击的话。
。LEFT=X+ME。LEFT
。TOP=Y+ME。TOP