Select All

[king_willy]

G'day

i couldnt find any topic on this but it would be sweet if someone could help me


how the crap can i get select all to work in a text box?

simple question, but it seems it sone that noone has thwe answer too.

like beaing able to use ctrl + a

cheers for any help,

Will

[Arc]

Use a "Rich Text Box" instead. Then use the SelStart property.

[BuggyProgrammer]

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus

[king_willy]

hey cheers guys,

it sure does select all,

but is there no way to tie that to Ctrl + A

sure i tied it to F8 for the time being, but the combo of butons is.... perplexing..


Cheers
Will

[BuggyProgrammer]

i don't know how to prevent it from beeping

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = Asc("A") And Shift = vbKeyControl Then
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
 
        Text1.SetFocus
    End If
End Sub

[Madboy]

Just a quickshot guess.

Will this work to prevenet beeping?

Beep = False

[BuggyProgrammer]

Originally posted by Madboy
Just a quickshot guess.

Will this work to prevenet beeping?

Beep = False

......
well first of all you should have tried it.

and it won't work since BEEP is a function, not a variable whatever.


and there IS a way to stop it from beeping, but it's too complicated..... involves subclassing.

[Madboy]

Geez, sorry! First of all i didnt even have access to VB when i replied!

[king_willy]

You know, i couklndt get that code working :S

buggered if i know why

i tried lotsa things including keypreview, but alas, no stinkin luck

any ideas on wht the crap it dun werk??

have any of you tried it?


Cheers,
Will

[Arc]

This will select text in a text box whent CTRL+A is pressed

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
Text1.SelStart = 0
Text1.SelLength = 5
End If
End Sub

[king_willy]

phwor, great stuf man

Cheers muchly!

-Will