How do I assign one text box value to two textboxes.

Question

1.89/5 (3 votes)

See more:

I am developing cheque printing software, so some banks have payee row in line1 and payee line2 in row2. I am trying to put payee text into both text boxes from dropdown control selected payee to I,e txtpayee1 and txtpayee2.

[EDIT OP code from comment]
Below is the method that I am trying, what is my motto is combobox selected text display into two textboxes I,e in first textbox will print only 10 characters remaining display into 2textbox.

VB

Public Sub Addpayee2()
    Try
       Dim payee2 As String = ""
       payee2 = cboAccounts.Text.ToString()

       Dim g As Graphics = cboAccounts.CreateGraphics
       Dim payee2word As String, oneLine As String
       Dim test As String = "", test1 As String = ""
       Dim p2words() As String

       If g.MeasureString(payee2, txtPayAgainst.Font).Width >= txtPayAgainst.Width Then
           oneLine = payee2
           p2words = oneLine.Split(" ")
           For Each word In p2words
               test = test & word
               If g.MeasureString(test, txtPayAgainst.Font).Width >= txtPayAgainst.Width Then
                   txtPayAgainst.Text = test1
                   GoTo l1
               Else
                   test = test & " "
                   test1 = test
               End If
           Next
l1:        txtPayAgainst.Text = test1
           txtpayee2.Text = payee2.Substring(test1.Length)
       Else
           txtPayAgainst.Text = payee2
           txtpayee2.Text = ""
       End If

    Catch ex As Exception
        MsgBox(ex.Message, , "Cheque Print")
    End Try

 End Sub

Posted 8-Jun-15 21:24pm

Meer Wajeed Ali

Updated 9-Jun-15 0:09am

CHill60

v2

Add a Solution

Comments

CHill60 9-Jun-15 3:46am

You've told us what you are trying to do, but not how you are doing it, nor what is going wrong.
Share the code you have tried so far and explain what the problem is

Meer Wajeed Ali 9-Jun-15 6:05am

Below is the method that I am trying, what is my motto is combobox selected text display into two textboxes I,e in first textbox will print only 10 characters remaining display into 2textbox.
Public Sub Addpayee2()
Try
Dim payee2 As String = ""
payee2 = cboAccounts.Text.ToString()

Dim g As Graphics = cboAccounts.CreateGraphics
Dim payee2word As String, oneLine As String
Dim test As String = "", test1 As String = ""
Dim p2words() As String

If g.MeasureString(payee2, txtPayAgainst.Font).Width >= txtPayAgainst.Width Then
oneLine = payee2
p2words = oneLine.Split(" ")
For Each word In p2words
test = test & word
If g.MeasureString(test, txtPayAgainst.Font).Width >= txtPayAgainst.Width Then
txtPayAgainst.Text = test1
GoTo l1
Else
test = test & " "
test1 = test
End If
Next

l1: txtPayAgainst.Text = test1
txtpayee2.Text = payee2.Substring(test1.Length)
Else
txtPayAgainst.Text = payee2
txtpayee2.Text = ""
End If

Catch ex As Exception
MsgBox(ex.Message, , "Cheque Print")
End Try

End Sub

CHill60 9-Jun-15 6:16am

This essentially works, except that it is calculating whether or not it can display each word in the width of the textbox, rather than truncating at 10 characters (which is strange requirement anyway).
Word of advice - get rid of that GoTo l1 and replace it with Exit For

Ralf Meier 9-Jun-15 3:47am

I don't understand what you mean.
Perhaps you give an example for what you have and what you want to get ...

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Bernhard Hiller · Answer 1 · 2015-06-09T01:52:00

Your starting line si almost right,

VB

Dim payee2 As String = cboAccounts.Text

Then use the Length property, it shows you the number of characters in the string (do not use the MeasureString functions - they are used to get the number of pixels for the string with a given font etc.).
If it's too long, make use of the SubString function:

VB

txtPayAgainst.Text = payee2.Substring(0, 10)
txtpayee2.Text = payee2.Substring(10)