|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Cancelando Processos Longos
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Quando você for trabalhar com processamentos longos (utilizando loops como Do...Loop, For...Next), procure criar um botão de cancelameno p/ este processo. Utilize SEMPRE também a função DoEvents, que permite que o usuário realize outras tarefas enquanto o processo é executado (clicar no botão "Cancelar", por exemplo), impedindo assim que o seu programa trave, ou trave seu computador.
É bastante simples de criar este botão de cancelamento. Veja:
'No Declarations:
Dim bParar As Boolean
'Na Rotina onde irá utilizar o Loop:
bParar = False
Do
DoEvents
'A linha a seguir força a saída do Loop
'quando o botão "Cancelar" for precionado:
If bParar = True Then Exit Do 'Ou Exit Sub
...
Outros comandos
...
Loop
'No botão Cancelar, mude o valor da variável
'bParar p/ True:
Private Sub Command1_Click()
bParar = True
End Sub
Então, por estar se usando o DoEvents, o usuário poderá clicar no botão "Cancelar" e, quando ele fizer isto, a variável bParar passara a ter o valor True, parando assim o processo.
|
|
|
|
|
