Löst! Behövde lägga till följande efter "MOUSEEVENTF_LEFTUP":
Application.DoEvents()
Varför kan jag inte acceptera min egen post som lösning? Hmm...
3 svar · 383 visningar · startad av Webslave
Hej allihopa! Jag sitter och försöker pilla ihop en liten knodsnutt som gör så att när en användare högerklickar på en DataGridView så ska den cellen som användaren högerklickar i markeras och sedan ska en en meny med lite alternativ dyka upp (beroende på värdet i den markerade cellen). Jag får de båda att fungera separat men jag får det inte att fungera ihop... har någon en idé vad jag gör för fel?
Visual studio 2005
Private Sub Rotation_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Rotation.MouseUp
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim mousePos As Point = Me.MousePosition
Dim mousePosX As Integer = Me.MousePosition.X
Dim mousePosY As Integer = Me.MousePosition.Y
mouse_event(MOUSEEVENTF_LEFTDOWN, mousePosX, mousePosY, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, mousePosX, mousePosY, 0, 0)
Me.rotationRight.Show(Me.Rotation, New Point(e.X, e.Y))
MsgBox(Me.Rotation.CurrentCell.Value.ToString)
End If
End Sub
' Skickar musklick
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Löst! Behövde lägga till följande efter "MOUSEEVENTF_LEFTUP":
Application.DoEvents()
Varför kan jag inte acceptera min egen post som lösning? Hmm...
Webslave skrev:
Varför kan jag inte acceptera min egen post som lösning? Hmm...
Ladda om sidan så går det! :)