Text Box manipulation

[KMMATH]

I want to select all charaters previously typed into a text box (as if you double click inside the box) so the next key stroke overwirtes what was there.

How?
While you are at it, how to make sucessive presses of the left arrow key erase the last character in a text box and leave the cursor there.

[peet]

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

[peet]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyLeft Then
        KeyCode = 0
        SendKeys "{BACKSPACE}"
    End If
End Sub

[MrGTI]

I have made a DLL that does all that for you. You can grab it and use it for free. It does tons more as well.

CommonCode DLL

[da_silvy]

but he only wants to do 2 things, which he has achieved.

why add a dll if you can do it in 5 lines of code?

[MrGTI]

Excellent point.

The answer is he could probably find many of the other features of the DLL useful. And since it is a free DLL, and he is more than welcome to distribute it freely without royalty or credit to me, the chance that it will become a useful tool in building his app are greater.

Did you look at the list of things it does? The name CommonCode says it all.

(and yes, i did generate some of the code in there with the help you all the great folks on this forum. i'm just happy i can share it with you all)

[KMMATH]

I just ended a class in Visual Basic, just scratched the surface of what can be done.

Concerning the DLL, if I only knew what a dll is and how to use it...

I suppose in time I will learn.

[MrGTI]

Hahhaa.

Don't worry KMMATH, i provide a complete sample application with the DLL so you can easily just look at the code.

Failing that, you can always ask me or the folks here in this forum.

[da_silvy]

hmmm

not bad

is it "open" soruce?

i wouldn't mind seeing how u handle the restriction of entry into a text box....

like, how you apply it to a textbox

[MrGTI]

No. Sorry da_silvy. It's not an open source DLL.

BUT - none of the code in there is top secret. It's all simple code i have learned over the last few years, as well as a few special functions that i had help with from people here in this forum.

Like i said .... it's a free DLL. There is no charge for it, and no need to give me credit if you use it in a project. I just got sick of always adding the same code into every new project, so i decided to make it simplier by packaging all those functions into a single file.

[da_silvy]

hehehe

i didn't ask if it was open source, i just asked if i could see it

That's fine. i just wanted to see how u would set the format of the textbox from an external dll...

[MrGTI]

Well, .... in YOUR program, you would have this code:

Private Sub txtHighlight_GotFocus()
    Call CC.HighlightEntireSelection(txtHighlight)
End Sub

That is done quite simply in my DLL by doing this:

Public Sub HighlightEntireSelection(ByRef objTextArea As Object)
'Highlights the entire selection
    On Error Resume Next
    If TypeOf objTextArea Is ComboBox Or TypeOf objTextArea Is TextBox Then
        objTextArea.SelStart = 0
        objTextArea.SelLength = Len(objTextArea.Text)
    End If
End Sub

See. Nothing special. Just code that well all understand. I just packaged it all up into a really easy to use DLL. It's made all my projects smaller.