代码如下
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
For a = 3 To 5 Step 1
Shell "IEXPLORE.EXE" & "http;//www.baidu.com"
Next
End Sub
form mousemove
Borderstyle 0-none
...全文
1527打赏收藏
实时错误53 文件未找到
代码如下 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Integer For a = 3 To 5 Step 1 Shell "IEXPLORE.EXE" & "http;//www.baidu.com" Next End Sub form mousemove Borderstyle 0-none
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a%
For a = 3 To 5
Shell "C:\Program Files\TheWorld 2.0\TheWorld.exe " & "http://www.baidu.com"
Next
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
For a = 3 To 5 Step 1
Shell "IEXPLORE.EXE " & "http;//www.baidu.com"
Next
End Sub