Print text according to the width of textboxes. And text source is database

Question

1.00/5 (2 votes)

See more:

Hi coders, I am printing some text with two textboxes I,e txtPayAgainst and txtpayee2 my moto is to print text according to the txtbox1 width and remaining text will be print into txtpayee2.

I tried with below method but its not working according to the scenario. Please help I will be really appreaciated.

C#

        Public Sub Addpayee2()

        'Dim names() As String = cboAccounts.Text.Split(" ")
        'If names.Count > 1 Then
        '    txtPayAgainst.Text = names(0)
        '    txtpayee2.Text = names(1) + names(2) + names(3) + names(4)
        'End If
      

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

            Dim g As Graphics = cboAccounts.CreateGraphics
            Dim pword As String, poneLine As String
            Dim ptest As String = "", ptest1 As String = ""
            Dim pwords() As String

            If g.MeasureString(payee2, cboAccounts.Font).Width >= cboAccounts.Width Then

                poneLine = payee2
                pwords = poneLine.Split(" ")
                For Each pword In pwords
                    ptest = ptest & pword
                    If g.MeasureString(ptest, cboAccounts.Font).Width >= cboAccounts.Width Then
                        txtPayAgainst.Text = ptest1
                        GoTo l1
                    Else
                        ptest = ptest & " "
                        ptest1 = ptest
                    End If
                Next


l1:             txtPayAgainst.Text = ptest1

                txtpayee2.Text = payee2.Substring(ptest1.Length)

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

            Else
                txtPayAgainst.Text = payee2
                txtpayee2.Text = ""
                'txtpayee2.Visible = True

            End If

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



    End Sub

Posted 15-Jun-15 20:51pm

Meer Wajeed Ali

Updated 15-Jun-15 21:23pm

v3

Add a Solution

Comments

Ralf Meier 16-Jun-15 3:34am

Why don't you have tested the solution I have posted in the last Thread from you with the same question ?

Meer Wajeed Ali 16-Jun-15 4:34am

Hi Ralf already I checked with last thread but yet I didn't get solution that why I re posted.

Ralf Meier 16-Jun-15 5:16am

So ... what is the Problem ?
My posted code (correct inserted) should solve your existing Problem.
The seen code is the same as in the beginning - you don't added the necessary changes in it.
If there are circumstances with the changes I made we could talk about (my opinion).

Greetings
Ralf

Maciej Los 16-Jun-15 16:10pm

Split on what condition?

Ralf Meier 17-Jun-15 0:44am

@Maciej:
He splits the input-string into it's containing words.
Now he checks with a Loop if the words are matching (length) inside the first TextBox. If this TextBox is filled he want to change to the 2nd one and write the missing Content to this TextBox.
For that I gave him a solution (by another Thread) which is still not implemented in his code ...

Maciej Los 17-Jun-15 11:35am

Ralf, thank you for explanation.

Meer Wajeed Ali 18-Jun-15 1:12am

thanks @Maciej Los

Ralf Meier 17-Jun-15 15:53pm

@Wajeed Ali:
Are you a step further now ?
Or is there still something which must by explained ?

Meer Wajeed Ali 18-Jun-15 1:11am

I apologize for not intimate about my issue, got the solution, thank alot.

Maciej Los 18-Jun-15 1:38am

So, share your solution or delete this answer.

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)

Meer Wajeed Ali · Accepted Answer · 2015-06-17T20:26:00

 Public Sub Addpayee2()

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

            Dim g As Graphics = cboAccounts.CreateGraphics
            Dim pword As String, poneLine As String
            Dim ptest As String = "", ptest1 As String = ""
            Dim pwords() As String

            If g.MeasureString(payee2, cboAccounts.Font).Width >= cboAccounts.Width Then

                poneLine = payee2
                pwords = poneLine.Split(" ")
                For Each pword In pwords
                    ptest = ptest & pword
                    If g.MeasureString(ptest, cboAccounts.Font).Width >= cboAccounts.Width Then
                        txtPayAgainst.Text = ptest1
                        GoTo l1
                    Else
                        ptest = ptest & " "
                        ptest1 = ptest
                    End If
                Next


l1:             txtPayAgainst.Text = ptest1
                txtpayee2.Visible = True
                txtpayee2.Text = payee2.Substring(ptest1.Length)

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

            Else
                txtPayAgainst.Text = payee2
                txtpayee2.Text = ""
                txtpayee2.Visible = False

            End If

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