¿Cómo utilizar VB para que el programa se guarde automáticamente?
Atenuar i mientras, x mientras
Sub privado Form_Load()
Timer1.Interval = 1000
Sub final
Sub privado Timer1_Timer()
i = i 1
Si i gt; = 120 entonces
i = 0
x = x 1
Abrir "d:\temp\" amp; Fecha amp; ".txt" para anexar como n.° 1
Imprimir n.° 1, x " " amp; p>
Cerrar #1
Finalizar si
Finalizar sub
================== = ====
Tu propio código
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub p>
Subcomando privado2_Click()
Fin
Fin Sub
Subtemporizador privado1_Timer()
Text1.Text = Time()
End Sub
¿Ha configurado el control del temporizador Timer1.Interval = intervalo de 1000? Si no, ¿cómo se asigna la hora del sistema al control text1?
Si tienes alguna otra pregunta, agrégame a Baidu HI.
Si tienes alguna otra pregunta, agrégame a Baidu HI.