在窗体上放一个 Timer控件,设置Timer1的Interval属性为300000,然后双击Timer1进入编程界面,拷贝以下代码: Private Sub Timer1_Timer() Open App.Path & "\notes.txt" For Output As #1 Seek #1, 1 Print #1, Text1.Text Close #1 End Sub...
加timer控件 双击编写代码Private Sub Form_Load()timer1.Interval=300000End SubPrivate Sub Timer1_Timer() Open App.Path & "\notes.txt" For Output As #1 Seek #1, 1 Print #1, T...