|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Como colocar um PROGRESSBAR dentro do STATUSBAR
|
 |
|
|
|
Postada em 5/12/2003 por X-Crow
'insira pelo menos tres panels no StatusBar
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
ProgressBar1.Value = 0
For i = 1 To 100
Sleep (100)
ProgressBar1.Value = i
Next
End Sub
Private Sub Form_Load()
StatusBar1.Panels(2).Alignment = sbrCenter
ScaleMode = vbPixels
With ProgressBar1
.Height = StatusBar1.Height - 2
.Appearance = ccFlat
.ZOrder vbBringToFront
End With
' leva em consideração q sejam dois panels na status bar.
End Sub
Private Sub Form_Resize()
With StatusBar1
ProgressBar1.Move .Panels(2).Left, .Top + 2, .Panels(2).Width
End With
End Sub
|
|
|
|
|
