Nungut, ich werde Dir das heute Mittag mal in VB.NET 1.1 überstzen. Im Moment habe ich noch was zu erledigen...
Wenn Du es dann im VS 2005 öffnest, wird Dir das VS es dann in VB.NET 2.0 konvertieren.

Hi,

OK, vielen Dank. Ich habe inzwischen mal etwas programmiert:

So mache ich das, nur da das VB6.0 ist und nicht so Multimedia tauglich wie .NET versuche ich es trotzdem mal mit Visual Studio.

Nur jeder wird zugeben, dass VB6.0 irgendwie in diesem Fall einfacher ist, oder etwa nicht?

mfg

Edit: Da die Datei 7kB zu groß ist musste ich den Code weglassen, der kommt jetzt hier nach:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Line1.X1 = X + 120 Line1.Y1 = Y + 120 Line1.Visible = True End Sub   Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Line1.X2 = X + 120 Line1.Y2 = Y + 120 End Sub   Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Line1.Visible = False End Sub

Sorry, ich hatte leider keine Zeit dafür finden können. Werde heute auch sicher nicht mehr dazu kommen.

Du kannst Dir das Projekt, wie in den einem geposteten Stickie beschrieben, mit der Eclipse IDE in VB.NET konvertieren.

Oder Du schappst Dir das Disassembler Plugin für den Reflecor. Das solltest sicher hinbekommen.
Reflector.FileDisassembler - DenisBauer.com

och mann, danke für deine hilfe, aber ich komm da mit gar nix mehr kla. Das funktioniert alles nicht. Immer irgendwelche komischen Fehler, die keiner kennt. Und ich dachte das gibts nur bei Delphi. Warum ist immer alles falsch bei .NET. Das gibts doch nicht. Ich warte erstmal, bis du das Programm in VB fertig hast, dann kann ich mich da mal in Ruhe reinarbeiten. Das hat auch noch einen Tag Zeit. Heute muss ich noch ein VB6.0 Programm testen gehn, und danach ist VS an der Reihe.

Warum gibt es nicht in VB.NET auch so ein Tool Line wie in VB6.0. Das war doch wirklich einfach und gut. Warum muss man das denn jetzt selber programmieren?

mfg

War doch nicht so einfach wie ich erst dachte. Das geht anscheinend nur bei C# problemlos.

Mal eine kleine Anleitung für den Reflector:

1. Plugin downloaden und in den Reflector-Programmordner kopieren. -> Reflector öffnen
2. Menu -> View -> Add ins... -> Add... -> Plugin auswählen
3. File -> Open... -> PaintLineDemo.exe auswählen
4. Toolbar->VisualBasic auswählen
5. PaintLineDemo Node im TreeView auswählen
6. Menu->Tools -> File Disassembler -> Project Type: Windows Application auswählen -> Auf Generate klicken
7. Projekt öffnen
8. In der AssemblyInfo.vb Imports System.Reflection hinzufügen.
9. In der OnPaint Methode folgende Zeile
   
   Code vbnet:

   1	If ((Me.m_point <> Point.Empty) AndAlso (Not Me.m_pen Is Nothing)) Then

   gegen
   
   Code vbnet:

   1	If ((Not Me.m_point.Equals(Point.Empty) AndAlso (Not Me.m_pen Is Nothing))) Then

   austauschen
10. Main Methode Public machen.
11. In den Project Propertys das Startup Object: Sub Main auswählen.

Fertig.

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

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

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)

Code :

1 2 3 4 5 6 7 8 9

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:

Code :

1 2 3 4 5 6 7 8 9

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!

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. Großer Anfänger Thread - Thread
Hier findest weitere Links zu den grundlegenden Dingen von VB.NET: .NET Tutorials - Stikie

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