Mausklick abfragen, dann klicken oder nicht!

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Morrison.

    Mausklick abfragen, dann klicken oder nicht!

    Hallo!

    Wie ist es möglich entscheiden zu lassen ob ein Mausklick ausgeführt wird oder nicht??

    Quellcode

    1. CType(Browser, System.Windows.Forms.Control).Enabled = False


    Das deaktiviert sämtliche Mauseingaben auf meinem Browser-Control..
    ..ich möchte aber entscheiden ob eine Mausaktion durchgeführt wird oder nicht..wie kann man das machen?!?

    Um das Klicken innerhalb des Browsers auf Flächen zu verhinder?

    Wenn das Abfragen des Browser Klick Events nicht reicht, dann musst du wohl mit WndProc ran, also Windows-Nachrichten abfragen.
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    OK, habs fast...

    VB.NET-Quellcode

    1. Private Const WM_LBUTTONDOWN As Integer = &H201
    2. Private Const WM_PARENTNOTIFY As Integer = &H210
    4. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    5. Select Case m.Msg
    6. Case WM_PARENTNOTIFY
    7. If m.WParam.ToInt32 = WM_LBUTTONDOWN Then
    8. Debug.WriteLine("WM_LBUTTONDOWN")
    9. End If
    10. End Select
    11. MyBase.WndProc(m) 'Message weitergeben
    12. End Sub


    Wo muss denn das "MyBase.WndProc(m)" hin wenn ich den Mausklick nicht weitergeben will???
    Wenn ich das da wegnehme schmeisst er ´ne Exception...

    Oder muss ich da mit "IMessageFilter.PreFilterMessage" beigehen??

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Morrison“ ()

    :/
    So wie das oben steht wirds ja immer weitergeleitet..
    ..und wenn ich das nur unter "Case Else" schreib schmeisst er ne Exeption..und unter "Else" auch..
    ..hach..isch gukke.. :whistling:

    nain! Bekommst nich hin..hab was mit "IMessageFilter.PreFilterMessage" zugefügt! Jetzt wird zumindest der Klick schonmal nichtmehr weitergeleitet..nu muss ich das noch hübsch verschachteln..

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
    2. Select Case m.Msg
    3. Case LButtonDown ', LButtonUp, LButtonDoubleClick
    4. If bPointerClicked = False Then
    5. Return False
    6. Else
    7. Return True
    8. End If
    9. Case Else
    10. Return False
    11. End Select
    12. End Function

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Morrison“ ()

    Habs jetzt so:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Runtime.InteropServices
    5. Public Class Form1
    6. Implements IMessageFilter
    8. Dim htmlDoc As HtmlDocument
    9. Dim scrollY As Integer
    10. Dim scrollX As Integer
    11. Dim oldHTML As HtmlElement
    13. Private Const WM_LBUTTONDOWN As Integer = &H201
    14. Private Const WM_PARENTNOTIFY As Integer = &H210
    15. Private Const LButtonDown As Integer = &H201
    16. Private Const LButtonUp As Integer = &H202
    17. Private Const LButtonDoubleClick As Integer = &H203
    19. Private Sub BackButton_Click(sender As Object, e As System.EventArgs) Handles BackButton.Click
    20. Browser.GoBack()
    21. End Sub
    22. Private Sub ForwardButton_Click(sender As Object, e As System.EventArgs) Handles ForwardButton.Click
    23. Browser.GoForward()
    24. End Sub
    25. Private Sub StopButton_Click(sender As Object, e As System.EventArgs) Handles StopButton.Click
    26. Browser.[Stop]()
    27. End Sub
    28. Private Sub RefershButton_Click(sender As Object, e As System.EventArgs) Handles RefershButton.Click
    29. Browser.Refresh()
    30. End Sub
    31. Private Sub Go_Click(sender As Object, e As System.EventArgs) Handles Go.Click
    32. Browser.Navigate(AddressText.Text)
    33. End Sub
    34. Private Sub MouseMoveHandler(ByVal sender As Object, e As HtmlElementEventArgs)
    35. Dim o As HtmlElement = Browser.Document.GetElementFromPoint(e.ClientMousePosition)
    36. If o Is Nothing Then
    37. Exit Sub
    38. End If
    39. If oldHTML <> o Then
    40. oldHTML = o
    41. Else
    42. Exit Sub
    43. End If
    45. Form2.Refresh()
    47. htmlDoc = Browser.Document
    48. scrollY = htmlDoc.GetElementsByTagName("HTML")(0).ScrollTop
    49. scrollX = htmlDoc.GetElementsByTagName("HTML")(0).ScrollLeft
    51. PropGrid.SelectedObject = Browser.Document.GetElementFromPoint(e.ClientMousePosition)
    53. Dim increment As Integer
    54. Using g As Graphics = Form2.CreateGraphics
    55. If Me.WindowState = FormWindowState.Maximized Then
    56. increment = SystemInformation.ToolWindowCaptionHeight + SplitContainer1.SplitterDistance + (SplitContainer1.SplitterIncrement * 6)
    57. Else
    58. increment = SplitContainer1.SplitterDistance + (SplitContainer1.SplitterIncrement * 3)
    59. End If
    60. g.DrawRectangle(Pens.Red, GetLeft(o) - scrollX, GetTop(o) + increment - scrollY, o.ClientRectangle.Width, o.ClientRectangle.Height)
    61. End Using
    62. End Sub
    63. Private Function GetTop(ByVal element As HtmlElement) As Integer
    64. Dim value As Integer
    65. Do While Not element.OffsetParent Is Nothing
    66. value += element.OffsetRectangle.Top
    67. element = element.OffsetParent
    68. Loop
    69. Return value
    70. End Function
    71. Private Function GetLeft(ByVal element As HtmlElement) As Integer
    72. Dim value As Integer
    73. Do While Not element.OffsetParent Is Nothing
    74. value += element.OffsetRectangle.Left
    75. element = element.OffsetParent
    76. Loop
    77. Return value
    78. End Function
    79. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    80. AddressText.Text = "www.google.de"
    81. Browser.Navigate(AddressText.Text)
    82. While Browser.ReadyState <> WebBrowserReadyState.Complete
    83. Application.DoEvents()
    84. End While
    86. AddHandler Browser.Document.MouseMove, AddressOf MouseMoveHandler
    88. Browser.Document.Window.AttachEventHandler("onscroll", AddressOf htmlScroll)
    90. MoveForm2()
    92. Form2.Show(Me)
    94. Application.AddMessageFilter(Me)
    96. End Sub
    97. Private Sub MoveForm2()
    98. Dim crpos As Point = Me.PointToClient(Me.DesktopLocation)
    99. With Form2
    100. .WindowState = Me.WindowState
    101. .Size = Me.ClientSize
    102. .DesktopLocation = New Point(Me.DesktopLocation.X - crpos.X, Me.DesktopLocation.Y - crpos.Y)
    103. End With
    104. End Sub
    105. Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize, MyBase.Move, MyBase.Shown
    106. SplitContainer1.SplitterDistance = 32
    107. MoveForm2()
    108. End Sub
    109. Private Sub htmlScroll(sender As Object, e As EventArgs)
    110. Form2.Refresh()
    111. End Sub
    113. Dim bPointerClicked As Boolean = False
    114. Private Sub Pointer_Click(sender As Object, e As EventArgs) Handles bPointer.Click
    115. If bPointerClicked = False Then
    116. bPointer.FlatStyle = FlatStyle.Flat
    117. bPointerClicked = True
    118. Else
    119. bPointer.FlatStyle = FlatStyle.Standard
    120. bPointerClicked = False
    121. End If
    122. End Sub
    124. Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
    125. Select Case m.Msg
    126. Case LButtonDown, LButtonUp, LButtonDoubleClick
    127. If bPointerClicked = False Then
    128. Return False
    129. Else
    130. Dim ctl As Control = FindControlAtCursor(Me)
    131. If ctl IsNot Nothing Then
    132. If ctl.Name = "bPointer" Then
    133. bPointer.FlatStyle = FlatStyle.Standard
    134. bPointerClicked = False
    135. End If
    136. End If
    137. Return True
    138. End If
    139. Case Else
    140. Return False
    141. End Select
    142. End Function
    144. Public Shared Function FindControlAtPoint(container As Control, pos As Point) As Control
    145. Dim child As Control
    146. For Each c As Control In container.Controls
    147. If c.Visible AndAlso c.Bounds.Contains(pos) Then
    148. child = FindControlAtPoint(c, New Point(pos.X - c.Left, pos.Y - c.Top))
    149. If child Is Nothing Then
    150. Return c
    151. Else
    152. Return child
    153. End If
    154. End If
    155. Next
    156. Return Nothing
    157. End Function
    159. Public Shared Function FindControlAtCursor(form As Form) As Control
    160. Dim pos As Point = Cursor.Position
    161. If form.Bounds.Contains(pos) Then
    162. Return FindControlAtPoint(form, form.PointToClient(Cursor.Position))
    163. End If
    164. Return Nothing
    165. End Function
    167. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    168. Application.RemoveMessageFilter(Me)
    169. End Sub
    170. End Class
    172. Public Class Form2
    173. <DllImport("user32.dll", EntryPoint:="GetWindowLong")> Public Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer
    174. End Function
    175. <DllImport("user32.dll", EntryPoint:="SetWindowLong")> Public Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    176. End Function
    178. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    179. Me.BackColor = Color.Pink
    180. Me.TransparencyKey = Color.Pink
    181. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    182. Dim InitialStyle As Integer
    183. InitialStyle = GetWindowLong(Me.Handle, -20)
    184. SetWindowLong(Me.Handle, -20, InitialStyle Or &H80000 Or &H20) 'Makes the window "click-throughable"
    185. Me.Size = New Size(Form1.Browser.Width, Form1.Browser.Height)
    186. Me.ShowInTaskbar = False
    187. End Sub
    189. End Class


    Zeile 124 !!

    ..und weiter..huh :D

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Morrison“ ()

    Forum-Bug!

    Iss immer so wenn ich was einfüge sind da immer Leerzeilen zwischen..manchmal bearbeite ich das nochmal aber nu habbich einfach C&P!

    K, habs jetzt mitm Notepad geöffnet und C&P! Nu siehts bissl besser aus! :rolleyes:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Morrison“ ()

Facebook
Telefonspende