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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  pergunta simples sobre thread e vb 6
patricio
não registrado
ENUNCIADA !
Postada em 26/05/2006 18:27 hs   
tem thread em vb 6? em dot net e jah sei q tem. 
   
Sidnei X-Crow
Pontos: 2843
VITÓRIA
ES - BRASIL
ENUNCIADA !
Postada em 26/05/2006 21:09 hs         
O conceito de thread não é muito bem trabalhado em vb5/6. é possivel fazé-lo passando um adressof no método que vc deseje q rode de forma assincrona.
Exemplo simples:
---------------------------------------------------
Em um form:
Private Sub cmdTesteThread_Click()
    hTarefa = CreateThread(ByVal 0& , ByVal 0& , AddressOf gSubTarefa, ByVal 0&, ByVal 0&, hTarefaCod)
    CloseHandle hTarefa
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'If the thread is still running, close it
    If hThread <> 0 Then TerminateThread hThread, 0
End Sub

Em um módulo:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public hTarefa As Long, hTarefaCod As Long
Public Sub gSubTarefa()
    ' Rode alguma coisa aqui um loop ou qualquer outra coisa q possua um doevents   'pelo menos para evitar um crash
    hThread = 0
End Sub

-------------------------------------------------------------------------

Bem vou sugerir um artigo e um exemplo sobre multi-threading em vb6. São eles:

1-Exemplo:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=14479&lngWId=1

2-Artigo(Exemplo incluso):
http://www.freevbcode.com/ShowCode.Asp?ID=4029

Obs.: Multi tarefa é muito propenso a bugs...não recomendo pelo menos naum em vb6 sem intensos testes com o intuito de avaliar o impacto que os benefícios trariam em detrimento da execução do software.

Espero ter ajudado...
Abraços, Sidnei
   
patricio
não registrado
Postada em 31/05/2006 16:42 hs   
obrigado amigo
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 31/05/2006 17:49 hs         
Sidnei, esse exemplo do PSC eu testei e é bem instável. Tem outro bem melhor:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=26900&lngWId=1
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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