How to copy selected text

hi everybody
I am writing a function which will display the details of a keyword
which is selected from particular textbox by double clicking on the
text box.

My problem is, when i try to use the SelText property, it returns a
blank string. I have observed that when i double click on the text
box on particular word, it gets selected automatically but i can't
process that text in dblClick event of the text box(as i mentioned,
Seltext returns "").
How can i copy the selected text somewhere?
Please help!!

Is the 'selected' text user selected, or is it always fixed in the TextBox.
________
AROMED VAPORIZERS

Try:

VB Code:

Option Explicit
Dim sTemp As String
 
Private Sub Text1_LostFocus()
    sTemp = Text1.SelText
End Sub
 
Private Sub Text2_DblClick()
    Text2.Text = sTemp
End Sub

________
WildCATblond

Quote:

---

Originally posted by Bruce Fox
Is the 'selected' text user selected, or is it always fixed in the TextBox.

---

No. Selected text is not the text selected by user. It is the text
which gets selected when user double clicks on any text.(Try it on
any text on this page.)
i want the word which gets selected by double clicking.
And it is not fixed also.

Quote:

---

Originally posted by Bruce Fox
Try:

VB Code:

Option Explicit
Dim sTemp As String
 
Private Sub Text1_LostFocus()
    sTemp = Text1.SelText
End Sub
 
Private Sub Text2_DblClick()
    Text2.Text = sTemp
End Sub

---

No bruce Fox,
I dont want this.
i want it done while the focus is in the textbox only.

Hmmm, is there an API?
________
Silversurfer reviews

I think I may have... hang on

Use this:


Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then me.Caption = Text1.SelText
End Sub

Is this what you wanted?

VB Code:

Private Sub Text1_DblClick()
  lblText.Caption = Text1.SelText
End Sub

Quote:

---

Originally posted by Harddisk
Is this what you wanted?

VB Code:

Private Sub Text1_DblClick()
  lblText.Caption = Text1.SelText
End Sub

---

Yes this is what i want. And this works with normal textbox.
Unfortunately it seems that is doesn't work with Microsoft Forms 2.0 textbox
I am using it to display japanese characters
Thanks for the help!

I know this has the same effect as Text1.SelText, however,
in your case will this return the char string ur after?

VB Code:

Private Sub Text1_DblClick()
Dim sText As String
 
    sText = Mid$(Text1.Text, Text1.SelStart, Text1.SelLength + 1)
 
    MsgBox sText
 
End Sub

________
Housewives live

Hi Bruce Fox
In method you have suggested, i am getting SelLength = 0.
It seems that the text gets selected after double click.

Hmmmm,

Thats interesting, It works fine on a Form with aText1 for me.
I guess MSForms 2.0 may be different!

edit: - Just tested and your right.

MS Forms 2.0 TextBox1 won't work the same way :(

Bruce.
________
01SmilyBlonde

That is why you should use the mouse up event..


Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then me.Caption = Text1.SelText
End Sub

Leather, did you test that in an MS Forms 2.0 TextBox1?
________
Washington Dispensaries

Sorry Leather,

It test out fine on a MS Forms 2.0 TextBox1 :) :)
________
LIVE SEX WEBSHOWS

No worries..;)

Yeh, those bloody "MS Forms TextBox's" must 'fire' differently to
the good ol Text1.

Bruce.
________
XSexyKittenX

Hi Leather
Method you suggested fires 2 times for a double click.(MouseUp)
For MS Forms 2.0 textbox, text gets selected but I could not
display it using your method.
If you know 'Microsoft Bookshelf Basics' (it comes with Office 97),
it has this capability to display Japanese text and also display the details of selected word.
Well...let me know if you come up with something
Thanks for the help anyway.