→ MOONRAKER:你的n應該宣告在模組層次，在所有sub以外，程式最前面 05/02 20:43
→ MOONRAKER:不然每次在sub裡面得到的n都是新的 05/02 20:44
→ MOONRAKER:不然把dim改成static也可以，如static n as integer 05/02 20:50
→ chingmeow:改成static就解決了，感謝指導^^ 05/04 16:02
小妹目前在寫一個程式
需要做個按鈕，每按一次就會增加"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