Am stuck with the problem here.Can any1 please help me out...
Text1.FontSize = HScroll1.Value
This statement in the program is giving me a problem.Do i have to set any properties of Hscollbar..The rest code is working fine..
Printable View
Am stuck with the problem here.Can any1 please help me out...
Text1.FontSize = HScroll1.Value
This statement in the program is giving me a problem.Do i have to set any properties of Hscollbar..The rest code is working fine..
Try some thing as simple as this:
However, sample above is incomplete - what you need also is resize textbox itself (I left this part for you to figure).Code:Option Explicit
Private Const MAX_SIZE As Long = 72
Private Const MIN_SIZE As Long = 6
Private Sub Form_Load()
HScroll1.Min = MIN_SIZE
HScroll1.Max = MAX_SIZE
HScroll1.SmallChange = 2
HScroll1.LargeChange = 6
HScroll1.Value = Text1.Font.Size
End Sub
Private Sub HScroll1_Change()
Text1.Font.Size = HScroll1.Value
End Sub
Thank u:)