USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página