Hej!

Jag har ett formulär med ett antal textrutor. Jag vill få innehållet i dessa textrutor att markeras när de får fokus, precis som textrutorna i formulären i Office 2000 automatiskt blir.
Jag har prövat att implementera dessa textrutor från Microsoft Forms (fm20.dll) i VB men då blir de inte automatiskt markerade när de får fokus, konstigt nog.

Är det någon som har någon lösning på detta?

Mvh
/Staffan

Hej
Testa denna princip

Private Sub Text1_GotFocus()
Dim sLen As Long
sLen = Len(Text1.Text)
Text1.SelStart = 0
Text1.SelLength = sLen
End Sub

mvh
Sven

Jepp, SvenPon rular fett. Kan mycket den killen... :O)

Fär att förenkla implementering kan man ju kapsla anropet i en subrutin:
<code>
Option Explicit

Public Sub SelectAll(TextBox As TextBox)
TextBox.SelStart = 0
TextBox.SelLength = Len(TextBox.Text)
End Sub


Private Sub Text1_GotFocus()
SelectAll Text1
End Sub

Private Sub Text2_GotFocus()
SelectAll Text2
End Sub

Private Sub Text3_GotFocus()
SelectAll Text3
End Sub
</code>

I Login templaten fins oxå förslaget som använder SendKeys:
<code>
Private Sub Text4_GotFocus()
SendKeys "{Home}+{End}"
End Sub
Private Sub Text5_GotFocus()
SendKeys "{Home}+{End}"
End Sub
Private Sub Text6_GotFocus()
SendKeys "{Home}+{End}"
End Sub
</code>

Men är personligen emot att emulera tangentryckningar för att utföra något som kan göra programmatiskt...

Tack så mycket, båda två.
Jag testkörde SvenPons exempel och det funkar bra...

Mvh
/Staffan