MouseDown Fehlermeldung

Question

Hallo zusammen,

ich bekomme folgende Meldung bei meinem Programm. Was bedeutet es speziell "Basis-class "Control" und sollte als "Shadows" deklarienen?

variable "mouseDown" verursacht einen Konflikt mit event "mouseDown" in Basis-class "Control" und sollte als "Shadows" deklariert werden.

Mein Code sieht wie folgt aus:

Private mouseDown As Boolean

    Private Sub Button22_MouseDown(sender As Object, e As MouseEventArgs) Handles Button22.MouseDown

        If mouseDown Then Return
        mouseDown = True
        Do While mouseDown
            System.Threading.Thread.Sleep(50) ' tue etwas
            _capture.VideoOverlay.ClearScreen()
            Dim Overlay As TextOverlay = New TextOverlay()
            txttextxpos.Text = -20 'SD
            Zeilenposition = Zeilenposition - 3
            txttextypos.Text = Zeilenposition 'SD (Public mit Startwert 30)
            Overlay.Text = "____________________________________________________________________________________________________________________________" 'txtoverlaytext.Text
            Overlay.Position = New Point(txttextxpos.Text, txttextypos.Text) 'New Point(txttextxpos.Text, txttextypos.Text)

            Overlay.FontName = FontDialog1.Font.FontFamily.Name
            Overlay.FontSize = Strichdicke  'Dicke Zeilenlineal '''FontDialog1.Font.Size Ist Public deklariert

            If FontDialog1.Font.Bold And FontDialog1.Font.Italic Then
                Overlay.FontStyle = FontStyleEnum.BoldItalic
            ElseIf FontDialog1.Font.Bold Then
                Overlay.FontStyle = FontStyleEnum.Bold
            ElseIf FontDialog1.Font.Italic Then
                Overlay.FontStyle = FontStyleEnum.Italic
            End If

            If FontDialog1.Font.Underline Then
                Overlay.Underline = True
            End If

            _colorOverlayText = Color.Yellow
            Overlay.ForegroundColor = _colorOverlayText

            If chktranbg.Checked Then
                Overlay.BackgroundColor = Color.Transparent
            Else
                Overlay.BackgroundColor = _colorOverlayBack
            End If

            Overlay.Opacity = trackBarTextOpacity.Value

            _capture.VideoOverlay.AddOverlay(Overlay)
            Application.DoEvents()
        Loop




    End Sub

---

Liebe Grüße Stefan

Answer 1

Hi Stefan,

du musst deine Variable "mouseDown" umbenennen, weil es ein Basis-Event der Klasse Control ist (steht aber auch eigentlich in der Meldung).

Auf der anderen Seit ist dein Code nicht wirklich "schön"! Sachen wie "Do While mouseDown" können nicht gut sein. Da hilft dann auch kein "System.Threading.Thread.Sleep(50) ' tue etwas" mehr. Vor allem "wer" soll etwas tun? Auch dein "Application.DoEvents()" ist ja nur eine Krücke.

Gruß

Stefan

---

Freiberufler im Bereich Softwareentwicklung Von der PLC und Robotik zu VB.NET & C#, vorrangig WPF und UWP

Answer 2

Hallo Stefan,

danke. Man googlet sich halt so durch als Hobbyist.

---

Liebe Grüße Stefan