vb编程中让窗体标题栏滚动的程序编写

2025-03-31 20:57:29

推荐回答（1个）

回答1：

第一个程序是可以执行的，只是必须把j设为全局变量或静态变量，下面是静态变量的方法：

Private Sub Timer1_Timer()
Static j As Integer
Form1.Caption = Space(20 - j) & "查找与替换例"
j = (j + 1) Mod 20
End Sub

你自己搞的那个从思路和语法上都是完全错了，而且错得非常离谱，错到姥姥家了！

仅从语法上来看，应该这么改：

Private Sub Timer1_Timer()
   If Me.ScaleLeft < 6000 Then
       Form1.Caption = " " + Form1.Caption
   ElseIf Me.ScaleLeft >= 6000 Then
       Form1.Caption = "查找与替换例"
   End If
End Sub

这样就没语法错误了，但正如我前面所述，由于思路错误，这段程序仍然是无法正常运行的。你究竟理解 Me.ScaleLeft 是什么意思么？