PARAR EXECUCAO DE UMA PICTUREBOX
Tenho uma picturebox, que fica fazendo desenhos padronizados após o clique no botão, até ai tudo bem, o que eu queria é que quando eu clicar novamente no botão desenhar ele mudasse a padronização do desenho.
As coordenadas dos desenhos eu ja fiz, o problema é q fica executando em um loop infinito, que só vai parar se eu clicar no botão desenhar. Quando clico no botão ele trava.
Tem algum jeito de resolver esse problema?
As coordenadas dos desenhos eu ja fiz, o problema é q fica executando em um loop infinito, que só vai parar se eu clicar no botão desenhar. Quando clico no botão ele trava.
Tem algum jeito de resolver esse problema?
bom será impossÃvel de saber se voce não postar seu código
Tem como resolver sim meu amigo!!!
Como nosso amigo marcelo disse, com o seu código, ou parte dele ficaria mais facil de lhe ajudar,
Veja este exemplo que eu vou lhe dar, para encerrar um loop infinito
Option Explicit
Private Declare Function GetInputState Lib [Ô]user32[Ô] () As Long
Private Sub Command1_Click()
Dim lngCounter As Long
[ô] Qualquer loop longo que possa precisar ser interrompido.
For lngCounter = 0 To 10000000
If lngCounter Mod 100 = 0 Then
[ô] Entra aqui somente de 100 em 100 iterações.
If GetInputState() <> 0& Then
[ô] Um evento do mouse ou keyboard está na fila de
[ô] mensagens, então, chamamos o DoEvents para que
[ô] a mensagem seja processada.
DoEvents
If MsgBox([Ô]Voce tem certeza que deseja encerrar o laço For ?[Ô], vbQuestion + vbYesNo) = vbYes Then
Exit For
End If
End If
End If
Next lngCounter
End Sub
Se tiver alguma dúvida, poste aqui para nós, estamos aqui para ajudar
Um Grande abraço e fique com Deus
Mário
Como nosso amigo marcelo disse, com o seu código, ou parte dele ficaria mais facil de lhe ajudar,
Veja este exemplo que eu vou lhe dar, para encerrar um loop infinito
Option Explicit
Private Declare Function GetInputState Lib [Ô]user32[Ô] () As Long
Private Sub Command1_Click()
Dim lngCounter As Long
[ô] Qualquer loop longo que possa precisar ser interrompido.
For lngCounter = 0 To 10000000
If lngCounter Mod 100 = 0 Then
[ô] Entra aqui somente de 100 em 100 iterações.
If GetInputState() <> 0& Then
[ô] Um evento do mouse ou keyboard está na fila de
[ô] mensagens, então, chamamos o DoEvents para que
[ô] a mensagem seja processada.
DoEvents
If MsgBox([Ô]Voce tem certeza que deseja encerrar o laço For ?[Ô], vbQuestion + vbYesNo) = vbYes Then
Exit For
End If
End If
End If
Next lngCounter
End Sub
Se tiver alguma dúvida, poste aqui para nós, estamos aqui para ajudar
Um Grande abraço e fique com Deus
Mário
Mario, muito obrigado, funcionou muito bem.
Abraços e fique com ele também.
Abraços e fique com ele também.
Tópico encerrado , respostas não são mais permitidas