How to Assign combo box text into textbox.

Question

0.00/5 (No votes)

See more:

Hi, I am trying to assign combo box text which like 100 characters. and I am having two textboxes so in each textbox should display 50,50 characters respectfully.

below is my function..where I need to change kindly help...I am new for vb.net

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
               Exit Sub
               'txtpayee2.Text = payee2.Substring(test1.Length)

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

           Else
               txtPayAgainst.Text = payee2
               txtpayee2.Text = ""
           End If

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

   End Sub

Posted 9-Jun-15 20:48pm

Meer Wajeed Ali

Add a Solution

Comments

Ralf Meier 10-Jun-15 3:39am

Your code is not complete clear for me.
Your Text-source is 'cboAccounts' - OK ...
But why 'cboAccounts.text' ? This must be changed to 'cboAccounts.selectedItem.toString'
But now my question :
to where should the 2 divided strings be written / assigned ?

Meer Wajeed Ali 10-Jun-15 4:10am

In textbox Payee2

Ralf Meier 11-Jun-15 8:57am

Have you seen my posted Solution ?
If Yes - does it work like you want ?

Meer Wajeed Ali 14-Jun-15 2:49am

Yes it works for me...thanx

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)

Ralf Meier · Accepted Answer · 2015-06-09T22:43:00

I would do the inner part of your code like this :

VB

Dim myItem As String = cboAccounts.SelectedItem.ToString()
Dim p2words As String() = myItem.Split(" ")

Dim testText As String = ""
Dim partText1 As String = ""
Dim partText2 As String = ""

For Each word As String In p2words
    testText += " " + word
    If g.MeasureString(testText.Trim, txtPayAgainst.Font).Width >= txtPayAgainst.Width Then
        partText1 += " " + word
    Else
        partText2 += " " + word
    End If
Next

txtPayAgainst.Text = partText1.Trim
txtpayee2.Text = partText2.Trim

Please try it ...