各们网友们，请问高手们，用VB制作窗口跳动有没有原码，麻烦大家，谢谢
[size=6]最好是打开自动跳动，其它的窗口也一起跳动[/size]

[[it] 本帖最后由 ytsm0526 于 2008-9-7 16:26 编辑 [/it]]

Move方法

给你一个源码,不知如意否?
Private Sub Command1_Click()
Dim i as Integer
Dim ty as integer
ty=50'这是一个抖动的范围
For i = 1 To 200 ' 这个200 是控制抖动的次数
Me.Top = Me.Top + ty
Me.Left = Me.Left + ty
Me.Top = Me.Top - ty
Me.Left = Me.Left - ty
Next
End Sub

如果把分别修改属性换成Move方法就更好了

学习了！！！！

Public i As Integer

Private Sub Timer1_Timer()
i = i + 100
End Sub

Private Sub Timer2_Timer()
Form1.Move 10 + i, 10 + i, 4000 + i, 3000 + i
Form1.Refresh
End Sub

这个是现学先用，窗口每秒不断增大的代码，需要2个TIMER

为什么要2个timer……

呵呵，个人习惯（如果有别的变量同时变，一个TIMER放随时间变动的全部变量），其实一个就行了

既然是跳动 可以把运动方程也用上,这样的效果更逼真

'找到一段代码
'添加一个Timer,三个Option放在一个Frame里
Private Sub Timer1_Timer()
If Form1.WindowState = 0 Then
'^The form can't be moved in Max. or Min. mode^
    If Option1.Value = True Then
    '^If the horizontal bouncing is enabled then...^
    Form1.Left = (Screen.Height - Form1.Left) / 2
    '^try to visualize this because it can't be explained...
    'you can also draw it on a paper to help you
    'understand what it actually is. +_+
    ElseIf Option2.Value = True Then
    '^if the vertical bouncing is enabled then...^
    Form1.Top = (Screen.Width - Form1.Top) / 2
    '^try to visualize om your own.^
    ElseIf Option3.Value = True Then
    '^if the horizontal and vertical bouncing are enabled then...^
    Form1.Left = (Screen.Height - Form1.Left) / 2
    Form1.Top = (Screen.Width - Form1.Top) / 2
    '^same as above. Try to visualize.^
    End If
End If

'------------------------------------------------------------------
'------------------------------------------------------------------
'------------------------------------------------------------------
End Sub