✔ In Bildern durch Koordinaten Abstände messen

[Terminator2]

Habe das Ganze erstmal von Hand gemacht und dann waren da noch 1 oder 2 Fehler drin. Aber der Source von dir klappt super. Da sind nur 2 Warnungen drin, die aber keinen was interessieren ^^.

Kann man die nicht auch noch wegbekommen?

Warnung 1 Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated. C:\Dokumente und Einstellungen\David\Desktop\PaintLineDemo_2\PaintLineDemo\MyCustomOwnerDrawnControl.vb 43 28 PaintLineDemo

Warnung 2 Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated. C:\Dokumente und Einstellungen\David\Desktop\PaintLineDemo_2\PaintLineDemo\MyCustomOwnerDrawnControl.vb 57 28 PaintLineDemo

mfg

 

[Christian Kusmanow]

Ich hoffe ich habe jetzt alles so ändern können, dass es sich nun ohne Probleme in VB.NET 2.0 konvertieren lässt.

 

[Terminator2]

HI,

Danke für deine Hilfe. Habe noch zwei Befehle *stolz* eigenhändig mit Hilfe meiner VB Kenntnisse ersetzt. Jetzt klappts alles sehr gut. Da mein Projekt wieder 22kB zu groß fürs Forum ist, hier den Befehl, den ich an zwei Stellen ersetzt habe. (Falls es jemanden interessieren sollte)

        Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
            'If (e.Button.Equals(MouseButtons.Left)) Then
            If e.Button = Windows.Forms.MouseButtons.Left Then
                Me.m_point.X = e.X
                Me.m_point.Y = e.Y
                Me.m_pen = New Pen(Color.Black)
            End If
            MyBase.OnMouseDown(e)
        End Sub

und hier:

        Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
            'If (e.Button.Equals(MouseButtons.Left)) Then
            If e.Button = Windows.Forms.MouseButtons.Left Then
                Me.m_point = Point.Empty
                Me.m_pen.Dispose()
                Me.m_pen = Nothing
            End If
            MyBase.OnMouseUp(e)
        End Sub

Das wärs.

mfg!

 

[Christian Kusmanow]

Aber vorher standen die Zeilen genau so da. Und laut deiner Fehlermeldung waren es diese Zeilen.

Egal, Hauptsache Du kannst damit arbeiten. Wenn Du jetzt das Thema als erledigt markieren könntest...

Hier noch was informatives, für deinen Einstieg/Umstieg in/zu VB.NET. [thread=251564]Großer Anfänger Thread - Thread[/thread]
Hier findest weitere Links zu den grundlegenden Dingen von VB.NET: [thread=260892].NET Tutorials - Stikie[/thread]

Schau Dir aber auch mal C# mit an. Vielleicht gefällt es Dir ja... Viel Erfolg!