AJUDA COM TIMER VB6

GUGUSINBANSAI 18/08/2011 21:26:07
#382032
Eu tenho o seguinte código:
sFilename = Dir(App.Path & [Ô]\Acompanhamento de Clientes\[Ô])
Do While sFilename > [Ô][Ô]
Wsplit = Split(sFilename, [Ô].[Ô])
Nomes.AddItem Wsplit(0)
sFilename = Dir()
Loop
Eu queria por ele em um timer só que com o timer ele fica adicionando sem parar.
Queria que atualizasse somente.
Obrigado, desde já agradeço.
MMMX 19/08/2011 08:06:27
#382051
Se for dentro do timer então não precisa de laço de repetição. Tenta assim:

sFilename = Dir(App.Path & [Ô]\Acompanhamento de Clientes\[Ô])

Wsplit = Split(sFilename, [Ô].[Ô])
Nomes.AddItem Wsplit(0)
sFilename = Dir()
FILMAN 19/08/2011 11:43:03
#382067 
sFilename = Dir(App.Path & [Ô]\Acompanhamento de Clientes\[Ô])

Wsplit = Split(sFilename, [Ô].[Ô])
    Compara = Nomes
    Nomes.AddItem Wsplit(0)
    sFilename = Dir()
    if Comapra <> Nomes then Timer1.Enabled = False
GUGUSINBANSAI 19/08/2011 14:21:10
#382078
Ainda não consegui . Explicando denovo:
O meu comando adiciona todos os arquivos de uma pasta na combobox.
Intão eu queria que essa lista atualizasse sosinha, pois quando eu deleto um cliente eu tenho que abrir o form novamente para a lista atualizar.
Por favor me ajudem!!
Obrigado a todo mundo :D.
MARCELO.TREZE 19/08/2011 14:58:56
#382085 Resposta escolhida
Olha só colega, crie uma sub para preencher a combo

Sub PrrencheCombo()
Nomes.Clear
sFilename = Dir(App.Path & [Ô]\Acompanhamento de Clientes\[Ô])
Do While sFilename > [Ô][Ô]
    Wsplit = Split(sFilename, [Ô].[Ô])
    Nomes.AddItem Wsplit(0)
    sFilename = Dir()
Loop
End Sub



no load do form coloque

Call PreencheCombo


quando excluir

Call PreencheCombo

quando Incluir

Call PreencheCombo
GUGUSINBANSAI 19/08/2011 15:08:16
#382090
Nossa valeu MARCELO-TREZE agora consegui . Muito obrigado mesmo cara .
Tópico encerrado , respostas não são mais permitidas
Voltar