[VB.NET] Migrations von Screen (VB6) in VB.NET

desaster0505

Erfahrenes Mitglied
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:
Visual Basic:
Screen.ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)

Automatisch bekomme ich das :

Code:
  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?
 

desaster0505

Erfahrenes Mitglied
Okay, das habe ich selbst rausgefunden. Geht so:

Code:
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.