'使用UpDown控件即可 '引用 microsoft windows common controls-2 5.0 (sp2) '窗体上放一个文本框,放一个updown控件,updown控件放到文本框右侧 '代码如下'下面就是你想要的效果 Private Sub Form_Load() Text1.Text = "1" Text1.Locked = True End SubPrivate Sub UpDown1_DownClick() Text1.Text = Text1.Text + 1 End SubPrivate Sub UpDown1_UpClick() Text1.Text = Text1.Text + 1 End Sub
'引用 microsoft windows common controls-2 5.0 (sp2)
'窗体上放一个文本框,放一个updown控件,updown控件放到文本框右侧
'代码如下'下面就是你想要的效果
Private Sub Form_Load()
Text1.Text = "1"
Text1.Locked = True
End SubPrivate Sub UpDown1_DownClick()
Text1.Text = Text1.Text + 1
End SubPrivate Sub UpDown1_UpClick()
Text1.Text = Text1.Text + 1
End Sub
问题是:我保存题时总是覆盖前面的?
print #1,"A"
close #1使用Append 就是在文本文件末尾添加记录,不会覆盖前面的