PROGRESS BAR INVISIVEL

USUARIO.EXCLUIDOS 30/05/2007 10:59:04
#218847
pessoal tenho uma aplicacao em access(VBA), num formulario eu tenho um progress bar q qnd precisa ele fica visivel e fica mostrando o progresso (somente para dizeer q o sistema nao travou), so q ele nao fica visivel

essa eh a programacao do progress
Private Sub Form_Timer()

'CONTROL OF STATUS BAR
If bln_Status = True Then

pgbStatus.Visible = True

If pgbStatus = 100 Then
pgbStatus.Value = 0
End If
pgbStatus.Value = pgbStatus.Value + 10

Else

pgbStatus.Visible = False
pgbStatus.Value = 0

End If

End Sub


e quando quero q ela funcione eu faco isso no inicio do evento

bln_Status = True

mas ela nao fica visivel, faz todo o processo sem mostrar a progress...
USUARIO.EXCLUIDOS 30/05/2007 11:12:43
#218850
BGONCALVES,

O que é FORM_TIMER ?
é seu objeto Timer ?

Se for, qual valor vc colocou na propriedade .Interval ?

Como vc declarou a Variavel bln_Status (dim, private, etc)?

Pq eu fiz aqui, com Timer.interaval = 100, e funcionou certinho:

Private bln_Status As Boolean

[c]Private Sub Command1_Click()
    bln_Status = Not bln_Status
End Sub


Private Sub Timer1_Timer()

    'CONTROL OF STATUS BAR
    If bln_Status = True Then
        
        pgbStatus.Visible = True
        
        If pgbStatus = 100 Then
            pgbStatus.Value = 0
        End If
        pgbStatus.Value = pgbStatus.Value + 10
        
    Else
    
        pgbStatus.Visible = False
        pgbStatus.Value = 0
    
    End If
    
End Sub

[/c]
USUARIO.EXCLUIDOS 30/05/2007 11:16:12
#218851
eh q isso eh VBA, formulario do access e o timer fica no proprio form, por isso dentro desse evento: " Form_Timer() ", a variavel esta declarada como global no form...
USUARIO.EXCLUIDOS 30/05/2007 13:26:11
#218899
Tente colocar o doevents logo abaixo desta linha:

pgbStatus.Value = pgbStatus.Value + 10
doevents
USUARIO.EXCLUIDOS 30/05/2007 13:35:49
#218902
fiz isso e nada..!!!
Tópico encerrado , respostas não são mais permitidas
Voltar