作者chingmeow (Ching)
看板Visual_Basic
标题[VB6 ] 按钮的次数累计
时间Fri May 2 18:55:48 2008
小妹目前在写一个程式
需要做个按钮，每按一次就会增加"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
1F：→ MOONRAKER:你的n应该宣告在模组层次，在所有sub以外，程式最前面 05/02 20:43
2F：→ MOONRAKER:不然每次在sub里面得到的n都是新的 05/02 20:44
3F：→ MOONRAKER:不然把dim改成static也可以，如static n as integer 05/02 20:50
4F：→ chingmeow:改成static就解决了，感谢指导^^ 05/04 16:02