StrUtil.MeasureMultilineTextHeight

[omoba]

Hi ,

My code loads a text file and dipays. Then I use a seekbar to change font size. I need the "ht" in code below to change proportionally to the change in font size. Code below. Code below does not work perfectly ht changes but not proportionally.


Sub SetText
lblText.Text = txt
ht = StrUtil.MeasureMultilineTextHeight(lblText, txt)
scvText.Panel.Height = ht
lblText.Height = ht
scvText.ScrollPosition = 0
DoEvents
End Sub

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
lblText.Text = SeekBar.Value
ht = StrUtil.MeasureMultilineTextHeight(lblText, txt)
ht = ht + (I need a value here to make the ht proportional increase with the font change)
scvText.Panel.Height = ht
lblText.Height = ht
End Sub


Pls any suggestions?

 

[klaus]

What are you changing with the SeekBar ?
If it's the TextSize you should try this code:

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
    lblText.TextSize = Value
    SetText
End Sub

Best regards.

 

[mangojack]

It was also suggested to set the Seekbar Min / Max values to appropriate font sizes if you have not already done so. suggestion only .. Min = 14 , Max = 50

Cheers mj

 

[omoba]

Thanks Klaus that works great

Who would have thought?

MangoJack thanks for the reminder too.

 

[omoba]

I have "lblText" but it does not exist in the layout designer.

How do I change the horizontal and vertical orientation of the text in "lblText"

 

[klaus]

How do you handle the orientation of the ScrollView ?
When you add lblText onto the ScrollView you should set:

lblText.Width = scvText.Panel.Width

Best regards.