How to auto copy selected text

[dotslashshawn]

This is very simple to do. I decided to post this here due to the e-mails I've been getting about it.
(PUT THIS CODE INTO A MENU ITEM)

Dim temp as String
Text1.SetFocus
If Text1.Text = "" Then
Msg ("There was nothing to select.")
Else
temp = Len(Text1.Text)
Text1.SelStart = 0
Text1.SelLength = temp
Clipboard.SetText Text1.SelText
Text1.SelStart = 0
Text1.SelLength = 0
Msg ("All of the Text Has Been Copied...")
End If


I used this in my menu for an auto select/copy in one.
the Msg("text") you see is because I put in my programs A blank form that you can put info in for confirmation a way to do this is to make a form then put a label in the middle and leave it blank. then go into a module of whereever you want and put this in.


Function Msg(txt As String)
msgform.Label1.Caption = txt
msgform.Show 1
End Function


Now I'm going to show you how to auto copy on select
In my program X-Base there is a check box in options and if the value is checked then autocopy is turned on. here's how you do it.
(PUT THIS IN THE MOUSE UP PLACE)

Dim leng As String
leng = Len(Text1.SelText)
If Text1.SelText = "" Then
Else
If options.Check1.Value = 1 Then
Clipboard.Clear
Clipboard.SetText Text1.SelText
End If
End If


I hope this helps post and let me know what you think or if you can improve on the code. :)

www.dotslashproductions.tk