LETREIRO COM .EXE VB6 E CONTEUDO TXT

BRUNOJUL 29/05/2011 09:38:21
#375243
Olá ,

Podem ajudar ?

Tenho este codigo para um letreiro atraves de um executavel do VB6 e preciso executar continuamente a atualização do conteudo das mensagens do .txt .

Podem auxiliar que que esta rotina seja executada continuamente sem a necessidade de fechar e abrir novamente o executavel ?

Dim Title As String

Private Sub Form_Load()
Call import
End Sub

Private Sub Timer1_Timer()
Title = Mid(Title, 2) & Left(Title, 1)
Text1.Text = Title
End Sub

Sub import()
Dim nFile As String
nFile = [Ô]c:    este.txt[Ô]

[ô]O textbox devem esta com MultLine ativo
Open nFile For Input As 1#
msgs = Input(LOF(1), #1)
Close

Title = String(30, [Ô] [Ô]) + msgs

End Subgrato;

Bruno.
MARCELO.TREZE 29/05/2011 10:12:01
#375246 Resposta escolhida
Não entendi direito tente ser mais especifico
BRUNOJUL 29/05/2011 10:39:19
#375247
Preciso atualizar as mensagens contidas no txt e a rotina precisar fazer a leitura novamente a cada 10 minutos , desta forma posso editar a qualquer momento o txt .
MARCELO.TREZE 29/05/2011 21:46:12
#375262
Chame a sub import dentro de outro Timer, que vc poderá programar para cada 10 minutos

ou seja coloque um novo timer, e mude a propriedade interval para 60000 (01 minuto).

no general do form declare

Dim Cont As Integer


e dentro do timer

Private Sub Timer2_Timer()
Cont  = Cont + 1
If Cont = 10 Then
Call import
Cont = 0
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar