[VB6 ] 按鈕的次數累計
小妹目前在寫一個程式
需要做個按鈕，每按一次就會增加"1" 然後寫進一個文字檔裡面
Private Sub Command1_Click()
Dim file_name, file_num
Dim n As Integer
file_num = FreeFile
file_name = App.Path & "\ppp.TXT"
n = n + 1
Text1.Text = n
Open file_name For Append As #file_num
Print #file_num, "i=" & Text1.Text
Close #file_num
End Sub
目前是可以寫入文字檔，可是不管按幾次都只顯示"1"
無法再累加上去
請問該如何修正？
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.76.201
→
05/02 20:43, , 1F
05/02 20:43, 1F
→
05/02 20:44, , 2F
05/02 20:44, 2F
→
05/02 20:50, , 3F
05/02 20:50, 3F
→
05/04 16:02, , 4F
05/04 16:02, 4F