German EditText beim antippen alles selektieren

[so27]

Hallo zusammen,

ich möchte, dass wenn eine Edittext-Box von meinem Anwender angetippt wird und sich die Tastatur aufklappt, gleich der schon im Feld stehende Text markiert wird.

Mit

EditText1.SelectAll

markiere ich den Inhalt. Das ist klar, aber wie stelle ich es an, dass der Text beim Antippen des Textfeldes direkt markiert wird?

LG, so27

 

[pjo12345]

Da musst du abfragen, ob EditText1 den Focus hat.

 

[so27]

Okay, und wo genau stelle ich die Abfrage? In welcher Sub?

 

[so27]

Mit dem Code kann ich den Focus abfragen, aber wo muss ich den wohl einsetzen?

If EditText1.RequestFocus= True Then EditText1.SelectAll

 

[pjo12345]

Ungefähr so.

Sub EditText1_FocusChanged(Hasfocus As Boolean)
  If Hasfocus = True Then
    EditText1.SelectAll
  End if
End sub

Ungetestet. Probiere es mal.

 

[so27]

Nee, das haut leider noch nicht ganz hin.

 

[pjo12345]

Du musst die ganze Sub in deinen Code einfügen. Und wenn dein EditText1 den Focus erhält oder verliert dann wird diese Sub ausgeführt. Nun musst du nur abfragen, ob dein EditText1 den Focus bekommt oder verliert. Und das macht der Code innerhalb der Sub.

 

[so27]

Ja, danke jetzt passt es.