Hallo zusammen!

Ich habe in VS2005 VB6 Code migriert.
Dabei hat einiges nicht geklappt, aber konnte es manuell migrieren.

Nur bei diesem hier schaffe ich es nicht:

Code vb:

1 2	Screen.ActiveControl.SelStart = 0 Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)

Automatisch bekomme ich das :

Code vbnet:

1 2 3 4 5 6 7

VB6.GetActiveControl().SelStart = 0   'UPGRADE_ISSUE: Control SelLength konnte nicht gelöst werden; befindet sich innerhalb des generischen Namespace ActiveControl. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"''UPGRADE_ISSUE: Control Text konnte nicht gelöst werden; befindet sich innerhalb des generischen Namespace ActiveControl. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'             VB6.GetActiveControl().SelLength = Len(VB6.GetActiveControl().Text)

Bin neu in VB.NET und generell .NET und weiss daher nicht wie ich das noch anpassen kann.

Kann mir da jemand weiterhelfen?

Okay, das habe ich selbst rausgefunden. Geht so:

Code vbnet:

1 2 3 4 5 6 7 8 9

For i = 0 To My.Application.OpenForms.Count - 1             If My.Application.OpenForms.Item(i).ContainsFocus Then                 If TypeOf (My.Application.OpenForms.Item(i).ActiveControl) Is TextBox Then ' wenn es sich um eine TextBox handelt, was fokussiert ist, dann ..   'Was muss ich machen, damit ich nun von der Textbox den Text markieren will?                   End If             End If         Next

Was muss ich machen, damit ich nun von der Textbox den Text markieren will?
Denn My.Application.OpenForms.Item(i).ActiveControl stellt mir kein SelectAll zur Verfügung.