I need to place a progressbar inside a panel of a statusbar....
How do I do that ???
Printable View
I need to place a progressbar inside a panel of a statusbar....
How do I do that ???
Put this on Paint event of the form:
Just substitute the StatusBar1 and ProgressBar1 with the appropriate names.Code:Private Sub Form_Paint()
Dim sngBorderWidth As Single
'Determine Border Width - May need to be adjusted if a different border style is used
sngBorderWidth = (Width - ScaleWidth) / 4
ProgressBar1.Move StatusBar1.Panels(1).Left, StatusBar1.Top + sngBorderWidth, StatusBar1.Panels(1).Width, StatusBar1.Height - sngBorderWidth
End Sub
Also, subsitute the Panel number to the appropriate one.
Regards,
------------------
Serge
Software Developer
[email protected]
[email protected]
ICQ#: 51055819
Works like a charm...
Help me out here.... I cdon't get the sngBorderWidth part....