Marker alt

Jeg har en textbox hvor jeg, når brugeren trykker på en knap, skal have alt teksten markeret. Hvordan???

Denne funktion markerer AL TEKST i en TextBox:

<pre>Public Sub HiLightAll(ByVal argTextBox as TextBox)
argTextBox.SelStart=0 ' should be 1 or zero??? Experiment!!!
argTextBox.SelLength = Len(argTextBox.Text)
End Sub</pre>

Hvis du vil have funktionen til at køre, når du trykker på Knap1-knappen, så smid følgende kode ind i programmet:

<pre>Private Sub Knap1_Click()
HiLightAll txtMinTekstBoks
End Sub</pre>

Det antages, at den textbox, du arbejder me, hedder "txtMinTekstBoks" -- hvis din box hedder noget andet (og det gør den sikkert), så brug navnet på din tekstboks i stedet for "txtMinTekstBoks".

Det sku' vist være det.


Software is here and now but rock and roll is forever.

Jeg har en textbox hvor jeg, når brugeren trykker på en knap, skal have alt teksten markeret. Hvordan???

JT

Jeg forstår ikke rigtig hvad du skal bruge det til du kan jo bare høre klikke når du er i teksfeltet og vælge select all nå men det er jo ikke mit problem men her har du koden.

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "^({END})", True
SendKeys "+({HOME})", True
End Sub

Eller med denne code: Denne code er mere sikker

Private sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
end sub[Redigeret d. 06/07-02 17:05:29 af Jan Toft]

Jeg har en textbox hvor jeg, når brugeren trykker på en knap, skal have alt teksten markeret. Hvordan???


Denne funktion markerer AL TEKST i en TextBox:

<pre>Public Sub HiLightAll(ByVal argTextBox as TextBox)
argTextBox.SelStart=0 ' should be 1 or zero??? Experiment!!!
argTextBox.SelLength = Len(argTextBox.Text)
End Sub</pre>

Hvis du vil have funktionen til at køre, når du trykker på Knap1-knappen, så smid følgende kode ind i programmet:

<pre>Private Sub Knap1_Click()
HiLightAll txtMinTekstBoks
End Sub</pre>

Det antages, at den textbox, du arbejder me, hedder "txtMinTekstBoks" -- hvis din box hedder noget andet (og det gør den sikkert), så brug navnet på din tekstboks i stedet for "txtMinTekstBoks".

Det sku' vist være det.


Software is here and now but rock and roll is forever.

JT


Du har vist glemt at afprøve din rutine, din rutine bruges vis tekstboxen har focus og da man ikke kan trykke på en knap og samtidig have en anden kontrol i focus virker den ikke.

så enten tilføj argTextBox.setfocus

eller

Private Sub txtMinTekstBok_GotFocus()
HiLightAll txtMinTekstBok
End Sub
[Redigeret d. 06/07-02 21:30:44 af Jan Toft]