TabControl tabs text alignment issue

[pourkascheff]

Hi all. o/

There's a tab control object in a windows form which its tab names change repeatedly. The only problem is, they hold their previous text start position. For instance, here used "Untitled" before running the program. When it changed, suddenly 1 WBT starts from beginning of the line. Not as same as "Alarms" tab which is fixed all the time.


How to fix this?
Is there any command to do such thing?

What I tried:
- Refreshing form. ( Form.Refresh() )
- Refreshing tab control text (useless due to unavailability to select an index) ( TabControl1.ResetText() )

[jmcilhinney]

To be clear, you're saying that both tabs look right when you display the form but, if you change the Text of one at run time, it gets rendered further to the left? It looks lkike you have turned off visual styles, so maybe that is part of it. Please provide a FULL and CLEAR explanation of the problem, which would include a set of steps that we can follow to reproduce the issue. You should also have tested with visual styles on, to confirm whether or not that is a factor, given that the vast majority of users will have it on.

[pourkascheff]

To be clear, you're saying that both tabs look right when you display the form but, if you change the Text of one at run time, it gets rendered further to the left? It looks lkike you have turned off visual styles, so maybe that is part of it. Please provide a FULL and CLEAR explanation of the problem, which would include a set of steps that we can follow to reproduce the issue. You should also have tested with visual styles on, to confirm whether or not that is a factor, given that the vast majority of users will have it on.

Mate! hi, is there any templates for creating a thread? English is my second language and I am in a bit inconvenience.

Anyways. I will try to be more specific and clear next time and yes. XP visual styles is checked in "My project" application settings.

[Delaney]

Mate! hi, is there any templates for creating a thread?

Well, it happens that there is : https://www.vbforums.com/showthread....our-hovercraft

[Poppa Mintin]

Hi Pourkascheff,

I do this to centralise text string in a control. Please note: the string length must be at least 2 characters.
1. Measure the text length.
2. Compare the length with the width of the control.
3. Keep adding one space character after the 1st character of the text until the text no longer fits into the control,
4. Then we just add half the number of added spaces in front of the required text.

    Public Function Gap(ByVal ctrl As Control, ByVal msg As String) As Integer
        Dim num, spac As Integer
        num = 0 : spac = 0      ' Keep Intellisence happy... initialise these variables.
        While spac < ctrl.Width
            msg = msg.Insert(1, " ")
            num += 1
            Using gr As Graphics = ctrl.CreateGraphics
                spac = CInt(gr.MeasureString(msg, ctrl.Font).Width)
            End Using
        End While
        num \= 2  ' Note the integer 'Divide by'.
        Return num
    End Function

When I get 'num' returned I use it like this:
(For example, Centralise a heading part way down a long instruction in a TextBox, or use it in a control which doesn't have a TextAlign option)

    Dim txt As String = "NOTE!"
    TextBox1.Text &= Space(Gap(TextBox1, txt)) & txt

Poppa


PS. I just realised that I could add two space characters at a time, then I wouldn't have to divide by two !

Pop

[.paul.]

Hi Pourkascheff,

I do this to centralise text string in a control. Please note: the string length must be at least 2 characters.
1. Measure the text length.
2. Compare the length with the width of the control.
3. Keep adding one space character after the 1st character of the text until the text no longer fits into the control,
4. Then we just add half the number of added spaces in front of the required text.

    Public Function Gap(ByVal ctrl As Control, ByVal msg As String) As Integer
        Dim num, spac As Integer
        num = 0 : spac = 0      ' Keep Intellisence happy... initialise these variables.
        While spac < ctrl.Width
            msg = msg.Insert(1, " ")
            num += 1
            Using gr As Graphics = ctrl.CreateGraphics
                spac = CInt(gr.MeasureString(msg, ctrl.Font).Width)
            End Using
        End While
        num \= 2  ' Note the integer 'Divide by'.
        Return num
    End Function

When I get 'num' returned I use it like this:
(For example, Centralise a heading part way down a long instruction in a TextBox, or use it in a control which doesn't have a TextAlign option)

    Dim txt As String = "NOTE!"
    TextBox1.Text &= Space(Gap(TextBox1, txt)) & txt

Poppa


PS. I just realised that I could add two space characters at a time, then I wouldn't have to divide by two !

Pop

It's a hack, but it'll probably work There really should be a simpler way...

[Poppa Mintin]

It's a hack, but it'll probably work There really should be a simpler way...

It might be a hack, but I've used it for several years now.
It does work, provided there are at least two characters in the string, and that the string does not contain leading or trailing space characters, (i.e. txt.Trim ). It seems that 'Measure String' ignores leading and trailing space characters.


Poppa

[Poppa Mintin]

Here is an example of my little hack working. Everything between the heading and the two controls at the bottom is within just one TextBox.

Attachment 181162

Poppa