STATUSBAR - MUDAR FONTE DE PAINEL E PISCAR

WEBIER 25/11/2010 11:50:33
#358201
tenho uma statusbar e um timer, no timer eu coloquei o seguinte código:

Private Sub trmEstoque_Timer()
Call ABRIR_BD_SEM_DATA1
SQL = [Ô]Select QUANT_ESTOQUE, QUANT_MIN from PRODUTOS WHERE QUANT_ESTOQUE < QUANT_MIN ORDER BY Codigo [Ô]
Set RS = BD.OpenRecordset(SQL)

If RS.EOF And RS.BOF Then
    StatusBar1.Panels(3).Text = [Ô][Ô]
Else
    StatusBar1.Panels(3).Text = [Ô]ESTOQUE MÍNIMO[Ô]
End If
End Sub


esse código vai verificar de 1 em 1 minuto se algum produto chegou no estoque minimo, se sim, ele colocar no painel3 o tempo ESTOQUE MINIMO.

ESTÁ FUNCIONANDO NORMAL.

agora gostaria de dar um foco maior a isso, ou seja, gostaria q ficasse piscando o texto ESTOQUE MINIMO no painel3 e a fonte fosse vermelha... os demais paineis da statusbar continuariam normais (fonte preta e estaticos).
LUIZCOMINO 25/11/2010 11:59:11
#358203 Resposta escolhida
amigo adicone mais um timer ex:

Private Sub trmEstoque_Timer()
Call ABRIR_BD_SEM_DATA1
SQL = [Ô]Select QUANT_ESTOQUE, QUANT_MIN from PRODUTOS WHERE QUANT_ESTOQUE < QUANT_MIN ORDER BY Codigo [Ô]
Set RS = BD.OpenRecordset(SQL)

If RS.EOF And RS.BOF Then
StatusBar1.Panels(3).Text = [Ô][Ô]
Else
trmEstoque_Timer2=true
End If
End Sub

Private Sub trmEstoque_Timer2()

StatusBar1.Panels(3).Text = [Ô]ESTOQUE MÍNIMO[Ô]
StatusBar1.Panels(3).Text = [Ô][Ô]
StatusBar1.Panels(3).Text = [Ô][Ô]
end sub

abraço!
LUIZCOMINO 25/11/2010 12:01:46
#358204
obs deixa o 2ºtimer com Enabled=false :
e depois do if verificado vc ativa com

corrigindo:
trmEstoque_Timer2.enabled=true
WEBIER 25/11/2010 12:56:09
#358206
Duas perguntas:

-E para mudar a fonte somente do painel3 ?
-Objetos timer pesa a aplicação?
LUIZCOMINO 25/11/2010 13:05:30
#358207
hum para mudar a fonte eu tenho que pesquisar, mas pelo que eu saiba não pesa não, ele apenas repete o código no intervalo que vc definir , e só para quando a propriedade.enabled for falsa
WEBIER 25/11/2010 14:26:42
#358212
e a questão de mudar a fonte do painel3 ?
LUIZCOMINO 25/11/2010 15:38:35
#358221
olh aamigo para mudar eu n achei, mas achei para deixar a fonte como bold ou não ai vc faz assim


Private Sub trmEstoque_Timer2()

StatusBar1.Panels(3).Text = [Ô]ESTOQUE MÍNIMO[Ô]
StatusBar1.Panels(3).Text = [Ô][Ô]
StatusBar1.Panels(3).Text = [Ô][Ô]

StatusBar1.Panels.Item(1).Style = sbrText
StatusBar1.Font.Bold = True

end sub

abraço!



Tópico encerrado , respostas não são mais permitidas
Voltar