marker alt ???

Private Sub btn1_Click()
  Text1.SelStart=0
  Text1.SelLength=Len(Text1.Text)
End Sub

Public Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Long, lParam As Any) As Long

Public Const LB_SETSEL = &H185
...
Private Sub cmdMarker_Click()
    SendMessage lstBox.hwnd, LB_SETSEL, True, ByVal True
End Sub

Ups
Jeg svarede på listbox

Private Sub Command1_Click()
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
  Text1.SetFocus
End Sub

Bemærk at teksten er markeret uanset om du benytter SetFocus eller ej. Det kan bare ikke ses før textbox'en får fokus.

Jeg plejer at markére alt, når tekst-boksen får focus...

Private Sub Text1_GotFocus()
  Text1.SelStart=0
  Text1.SelLength=Len(Text1.Text)
End Sub

Men det er så HVER gang tekstboksen får focus, at der markéres... og altså ikke afhængigt af en knap.

ehmm lige et lille spm. fra sidelinien...
Hvor sætter man
Private Sub Command1_Click()
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
  Text1.SetFocus
End Sub

ind henne i textarea ?!?

/Lee

takker :)