Text markieren
13.02.2008 01:07:29
BerndR
durch meinen Code erscheint der Text "Eingabe" beim Start markiert.
Nach einer Falscheingabe (nicht "geheim") soll genau wie zu Beginn wieder "Eingabe" erscheinen u.zw. markiert. Wie kann ich das erreichen?
Private Sub CommandButton1_Click()
Dim Mldg
If TextBox1.Text = "geheim" Then
Mldg = " Stimmt"
MsgBox (Mldg)
Unload Me
Else
Mldg = " War wohl nix"
MsgBox (Mldg)
End If
End Sub
Private Sub TextBox1_Enter()
TextBox1.Text = "Eingabe"
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Gruß
BerndR
Anzeige