UC知道请问我代码怎么错了？
来源：百度知道 编辑：UC知道 时间：2024/05/26 15:35:16
Private Sub Form_Load()
Text1.Text = App.Path + "\" + App.EXEName + ".exe"
End Sub
Private Sub Text2_Change()
Shell (Text1.Text)
End Sub
Private Sub Timer1_Timer()
Dim a As String
a = Left
Left = a + 100
If a > Screen.Width Then
Left = -3000
End If
End Sub
Text1.Text = App.Path + "\" + App.EXEName + ".exe"
End Sub
Private Sub Text2_Change()
Shell (Text1.Text)
End Sub
Private Sub Timer1_Timer()
Dim a As String
a = Left
Left = a + 100
If a > Screen.Width Then
Left = -3000
End If
End Sub
把\改成\\
你的代码没有问题，
你改变Text2文本框的内容，就可以了，不过要在应用程序目录下，先生成当前工程的 exe 文件
如果窗体不动的话，在Form_Load()中设置
Me.Timer1.Interval = 100 '100毫秒执行一次Sub Timer1_Timer()
Me.Timer1.Enabled = True
应该就可以了