DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

=" =" "

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Aug 2009

Posts: 30

Reputation: drabsch is an unknown quantity at this point

Solved Threads: 0

drabsch

Offline

Light Poster

=" =" "

Nov 2nd, 2009

I need to copy text form a text box

for example:

My text box has

temperature="18.5"

in it and i want to copy the text 18.5 i already have it selected i just need to copy it or put it into a var

Last edited by drabsch; Nov 2nd, 2009 at 5:48 am.

•

Join Date: Jul 2008

Posts: 486

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

Nov 2nd, 2009

for copy

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Clipboard.Clear
Clipboard.SetText text1.SelText
Clipboard.Clear
Clipboard.SetText text1.SelText

for paste in other textbox

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
text2.SelText = Clipboard.GetText()
text2.SelText = Clipboard.GetText()

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 255

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 37

AndreRet

Offline

Posting Whiz in Training

Nov 2nd, 2009

First of all, var (variance takes up unneccesary space or memory. Declare your text as an integer. i.e.

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
dim x as Integer
x = Text1.Text
dim x as Integer
x = Text1.Text

The next question is? - Where do you want to copy the the temperature Integer? Into a database or just for calculation. There is different options to what you want to do...

Please mark questions as answered when done.

Be the ONE!!!

•

Join Date: Aug 2009

Posts: 30

Reputation: drabsch is an unknown quantity at this point

Solved Threads: 0

drabsch

Offline

Light Poster

Nov 3rd, 2009

i found some info and i am using the code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Function find(first, second)
pos = InStr(1, Text1.Text, first, vbTextCompare)
pos2 = InStr(1, Text1.Text, second, vbTextCompare)
start = pos + Len(first)
length = pos2 - start
Text1.SelStart = start
Text1.SelLength = length - 2
End Function
Private Function find(first, second)
pos = InStr(1, Text1.Text, first, vbTextCompare)
pos2 = InStr(1, Text1.Text, second, vbTextCompare)
start = pos + Len(first)
length = pos2 - start
Text1.SelStart = start
Text1.SelLength = length - 2
End Function

to find and select the text.

•

Join Date: Jan 2008

Posts: 255

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 37

AndreRet

Offline

Posting Whiz in Training

Nov 3rd, 2009

Now I understand. You wanted to search a text box when certain criteria is passed. You can also do the same with the following -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Option Explicit
Private Declare Function SendMessage Lib "User32" _
        Alias "SendMessageA" (byval _
        hWnd as Long, _
        byval wMsg as Integer, _
        byval wParam as string, _
        lParam as Any) as Long
 
Const LB_FINDSTRING = &H18F
 
Private Sub Form_Load()
 
    With List1
        .Clear
        .AddItem "18.5" 'or whatever you would like to add, whether from a file or database...
        End With
 
End Sub
 
Private Sub Text1_Change()
    List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, _
                      Text1, byval Text1.Text)
End Sub
Option Explicit
Private Declare Function SendMessage Lib "User32" _
        Alias "SendMessageA" (byval _
        hWnd as Long, _
        byval wMsg as Integer, _
        byval wParam as string, _
        lParam as Any) as Long

Const LB_FINDSTRING = &H18F

Private Sub Form_Load()

    With List1
        .Clear
        .AddItem "18.5" 'or whatever you would like to add, whether from a file or database...
        End With

End Sub

Private Sub Text1_Change()
    List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, _
                      Text1, byval Text1.Text)
End Sub