很不顺畅 有没有什么 控件可以代替Timer控件 来让其他控件或窗体流畅的移动的 ??
请高手指点
我意思说 除了Timer 控件以外 还有什么空间 可以让 Form Or 其他控件 顺畅的移动
比如 Timer=100
Private Sub Timer1_Timer
Form1.Left = Form1.Left - 10
End Sub
这样 窗体就会从右到左移动 移动过程中不是很流畅
即使是 Timer=1
Private Sub Timer1_Timer
Form1.Left = Form1.Left - 1
End Sub
这样也不成
我意思是 窗体从从右到左高速移动 并且很顺畅
可以作循环阿!
dim lngLeft as long
Do While(Form1.Left>lngLeft)
Form1.Left = Form1.Left - 10
Loop
这个lngLeft可以根据你的需要任意设定一个值。
这样就可以了阿!
下面是一个简单的例子:
Private Sub cmdTest_Click()
Dim intI As Long
Dim strErrDesc As String
On Error GoTo Error_Handler
RightToLeft:
Do While (frmTest.Left > 2)
intI = 0
frmTest.Left = frmTest.Left - 1
Do While (intI < 100)
intI = intI + 1
DoEvents
Loop
DoEvents
Loop
If frmTest.Left <= 2 Then
GoTo LeftToRight
End If
LeftToRight:
Do While (frmTest.Left < 13620)
intI = 0
frmTest.Left = frmTest.Left + 1
Do While (intI < 100)
intI = intI + 1
DoEvents
Loop
DoEvents
Loop
If frmTest.Left >= 13620 Then
GoTo RightToLeft
End If
Exit Sub
Error_Handler:
Err.Raise 1000 + vbObjectError, , "[(" & 1051 + vbObjectError & ")(" & App.Title & ")(cmdTest_Click)]" & Err.Description
End Sub
[此贴子已经被作者于2007-2-2 14:09:04编辑过]