Progress Bar em Splash

[ricardo.frias 0]

Galera, estou fazendo uma tela de Splash e gostaria de por uma PROGRESS BAR nela, se alguém puder me ajudar eu agradeceria muito...

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate() Screen.MousePointer = 11 DoEvents frmMenu.Show 'TEMPO DO SPLASH Sleep (5000) Unload Me Screen.MousePointer = 0End Sub

ObrigadoFrias

[luiz humberto 0]

Coloque um laço de repetição para carregar a progress bar, ou seja, pode ser o tempo que definiu no sleep.Utilize a propriedade Value e Max.

[Edicleo 0]

Edicléo de Souza

Um bem simples, mas que mudará a cara do seu software:

Adicione: 1 progressbar e um time

Em propriedades mude o intervalo para 40 ou menor ou maior

 

declare

Dim tempo As String

 

No load do form digite

tempo = 0

 

Timer1_time()

tempo = tempo + 1

ProgressBar1.Value = tempo

 

Espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[ricardo.frias 0]

Valeu galera, funcionou... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

[]´s