Question

在vb中，当不断按下command时，如何让窗体上的内容不断地随之变化？

Answer 1

假定程序目录有8个文本文件，分别是 1.txt 2.txt 3.txt ... 8.txt
窗体上放入一个Command1、一个Label1

Private Sub Command1_Click()
Static x As Integer
x = (x Mod 8) + 1
Open App.Path & "\" & x & ".txt" For Binary As #1
Label1.Caption = Input(LOF(1), #1)
Close #1
End Sub

追问

在vb中，当不断按下command时，如何让每一次的数值累加？

追答

可以用全局变量或静态变量实现。

全局变量例：
Dim x As Long

Private Sub Command1_Click()
x = x + 1
Label1.Caption = x
End Sub

静态变量例：
Private Sub Command1_Click()
Static x As Integer
x = x + 1
Label1.Caption = x
End Sub

Answer 2

'比如没按一 次读取文本文件一行
 
Option Explicit
Const Filename = "水浒传.txt"
Dim strLine As String
Private Sub Command1_Click()
    If Not EOF(1) Then
        Line Input #1, strLine
        Text1.Text = strLine
    Else
        MsgBox "已到文件尾"
        Close #1 '文件读到尾时关闭文件
    End If
End Sub
Private Sub Form_Load()
    Open App.Path & "\" & Filename For Input As #1
End Sub
'还顺便送你一本小说
'还要不要没按一次显示一副图片之类？

 

Answer 3

根据按下的累计数不同更换不同图片？