不断单击按钮,窗体标题不断改变的vb编程

Question

不断单击按钮,窗体标题不断改变的vb编程

Answer 1

很简单，就是对单击事件的计数，如下：

Dim timer As Integer

Private Sub Command1_Click()
timer = timer + 1
If timer = 1 Then
Form1.Caption = "标题1"
ElseIf timer = 2 Then
Form1.Caption = "标题2"
ElseIf timer = 3 Then
Form1.Caption = "标题3"
ElseIf timer = 4 Then
Form1.Caption = "标题继续变"
End If
End Sub