Select All

[kinjalgp]

How to select all the text in a text box? Can anyon please give me code for cut, copy and paste.


Kinjal

[dimava]

here you go:

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

To copy text:

Private Sub Command1_Click()
Clipboard.Clear 
Clipboard.SetText Text1.text
End Sub

To copy the selected text:

Private Sub Command1_Click()
Clipboard.Clear
If Text1.SelText <> "" Then
Clipboard.SetText Text1.SelText
Else
End If
End Sub

To paste text:

Private Sub Command2_Click()
Text1.text = ClipBoard.GetText()
End Sub

To cut text:

Private Sub Command1_Click()
Clipboard.Clear 
Clipboard.SetText Text1.text
Text1.Text = ""
End Sub

[/quote]

To cut selection:

Private Sub Command1_Click()
Clipboard.Clear
If Text1.SelText <> "" Then
Clipboard.SetText Text1.SelText
Text1.SelText = ""
Else
End If
End Sub

Cut and Copy are basically the same thing, except that when you cut, the text is cleared afterwards, whereas if you copy, than no text is cleared.

I know that, if you look at my code, you will discover that I do know that.

[kinjalgp]

Thanks a lot!

Kinjal