USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Cancelando Processos Longos
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página