我知道 要使空键或窗体移动 要用到Timer 控件 但是这个控件有个缺点就是会不断的刷新 看起来
很不顺畅 有没有什么 控件可以代替Timer控件 来让其他控件或窗体流畅的移动的 ？？
请高手指点

这好像于Timer无关,只要窗体改变了位置或者大小就会自己重画

能不能做一个自己的“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编辑过]

我试试 看 谢谢指点

为什么 Privatr Sub Command1_Cilck()
Do While Form1>Form1.Left - Fomr1.Width
Form1.Left = Form1.Left - 10
Loop
End Sub
我次次这样代码运行 就会卡机 ？效果可以看到 但是次次F5之后就不可以 退出 要Alt + F4 ....

我没有加unloadme当然会了阿.
你自己写一个退出的代码加上就可以了阿!
加一个Button

[此贴子已经被作者于2007-2-3 16:36:15编辑过]

可以去这里看看：http://www.soudie.net/top_1375_cat_2/