Timer Sera que Ajuda?

[rodrigotnoma]

Tenho em meu form, um botao onde possui o seguinte codigo:

Private Sub Command1_Click()

Dim hPrinter As Long, lNeeded As Long, lReturned As Long

Dim lJobCount As Long

OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&

EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned

If lNeeded > 0 Then

ReDim byteJobsBuffer(lNeeded - 1) As Byte

EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned

If lReturned > 0 Then

lJobCount = lReturned

Else

lJobCount = 0

End If

Else

lJobCount = 0

End If

ClosePrinter hPrinter

Text1.Text = CStr(lJobCount)

If Text1.Text = 1 Then

Form2.Show

End If

End Sub

So que para verificar se a condição existe tenho ficar pressionando o button, como posso fazer para que a cada 1 seg o meu sistema verificar sozinho ou seja, como se ele ficasse monitorando essa condição.

Sera que a melhor opção é com o timer? Se for vai consumir muito processamento do meu pc?

Obrigado pela ajuda.

Rodrigo

[###Diogo-Iniciante###]

'Use

Do

DoEvents

' Verifique

Loop

'vai ficar executando sempre

[rodrigotnoma]

Fiz dessa forma, mas o form2 não apareceu quando mandei imprimir

Private Sub Form_Load()

Dim hPrinter As Long, lNeeded As Long, lReturned As Long

Dim lJobCount As Long

OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&

EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned

Do

DoEvents

If lNeeded > 0 Then

ReDim byteJobsBuffer(lNeeded - 1) As Byte

EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned

If lReturned > 0 Then

lJobCount = lReturned

Else

lJobCount = 0

End If

Else

lJobCount = 0

End If

ClosePrinter hPrinter

If CStr(lJobCount) = 1 Then

Form2.Show

End If

Loop

End Sub

Fiz alguma coisa de errado?

Obrigado

[kuroi]

o melhor mesmo é o usar o timer

[rodrigotnoma]

você pode me ajudar Kuroi? Como faço isso?

Obrigado

Rodrigo

[kuroi]

veja se ajuda:

http://scriptbrasil.com.br/forum/index.php...47&hl=timer

http://scriptbrasil.com.br/forum/index.php...19&hl=timer

http://scriptbrasil.com.br/forum/index.php...82&hl=timer

qualquer coisa poste

[###Diogo-Iniciante###]

Use

Me.Show

de Tudo

[rodrigotnoma]

Desculpe não entendi você Diogo.....

Obrigado

[rodrigotnoma]

Kuroi

Tentei fazer com Timer mas não consegui fazer com que o codigo fosse executado a cada 1s por exemplo, você pode me dar uma mão?

Obrigado

[kuroi]

ponha o timer e na propriedade Interval dele digite 1000 (1000 milissegundos = 1 segundo).

ai ponha o seu codigo no evento Timer do Timer:

Private Sub Timer1_Timer
Dim hPrinter As Long, lNeeded As Long, lReturned As Long
Dim lJobCount As Long
OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
If lNeeded > 0 Then
ReDim byteJobsBuffer(lNeeded - 1) As Byte
EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned
If lReturned > 0 Then
lJobCount = lReturned
Else
lJobCount = 0
End If
Else
lJobCount = 0
End If
ClosePrinter hPrinter
Text1.Text = CStr(lJobCount)
If Text1.Text = 1 Then
Form2.Show
End If
End Sub[/code]

[rodrigotnoma]

Deu certo, obrigado Kuroi.

Rodrigo