窗口抖动源码

窗口抖动源码
这次让喜欢COPY源码的童鞋过过瘾….
分享一个刚写的窗口抖动源码,从决定开始写到基本完工贴出来用了六个小时左右.还算比较快了.一开始的思路错了,推翻了很多代码.后来慢慢成型了….希望各位可以从中学取知识….代码有什么可以改进的地方也欢迎提出来. 技术源于分享,分享沟通你我
Imports System.Threading
Public Class clsShakeWindow
‘转载请保留以下信息
‘—————————————————————
‘窗口抖动代码,采用独立线程,可同时处理多个窗体抖动互不影响
‘可调节抖动幅度,速度,次数
‘作者SC,个人博客
‘—————————————————————
Protected WithEvents tmrShack As New Timers.Timer ‘用于执行抖动的Timer
‘描述每次抖动位置偏移的数组
Public arrPos() As Point = {New Point(0, -5), New Point(-5, -5), New Point(-5, 0), New Point(-5, 5), New Point(0, 5), New Point(5, 5), New Point(5, 0), New Point(5, -5), New Point(0, -5), New Point(0, 0)} Protected _ShakeLevelFactor As Single = 1 ‘抖动偏移量因子,用于调整抖动幅度
Protected ShakeTimes As Int32 = 3 ‘抖动次数
Protec ted _proShakeSpeed As Int32 = 10 ‘每次修改偏移的时间间隔”’ <summary>
”’ 获取或设置每次修改偏移的时间间隔
”’ </summary>
”’ <value></value>
”’ <returns></returns>
”’ <remarks></remarks>
Protected Property proShakeSpeed() As Int32
Get
Return _proShakeSpeed
End Get
Set(ByVal value As Int32)
_proShakeSpeed = value
tmrShack.Interval = value
End Set
End Property
”’ <summary>
”’ 获取或设置抖动次数
”’ </summary>
”’ <remarks></remarks>
Protected Property proShakeTimes() As Int32
Get
Return ShakeTimes
End Get
Set(ByVal value As Int32)
ShakeTimes = value
End Set
End Property
Protected dicShakeStepAndInitialPos As New Dictionary(Of Form, ShakeWnd) ‘抖动窗口队列字典,包含所有处于抖动周期中的窗口信息
Protected Delegate Sub dlgShake(ByVal Wnd As Form, ShakeStep As ShakeWnd) ‘定义执行抖动时额委托
Dim mydlgShake As New dlgShake(AddressOf SafeShake) ‘实例化委托”’ <summary>
”’ 处于抖动周期中的窗口信息类
”’ </summa ry>
”’ <remarks></remarks>
Protected Class ShakeWnd
Public ShakeStep As Int32 = 0
Public InitialPos As New Point(0, 0)
Public Sub New(CurrentPos As Point)
InitialPos = CurrentPos
End Sub
End Class
”’ <summary>
”’ 实例化抖动窗口类
”’ </summary>
”’ <param name=”ShakeLevelFactor”>抖动幅度因子,默认为1.该值决定抖动的幅度大小</param>
”’ <param name=”ShakeSpeed”>抖动速度,每次位置偏移的时间间隔,单位为毫秒</param>
”’ <param name=”ShakeTimes”>抖动次数,执行抖动周期的次数,默认为4</param>
”’ <remarks></remarks>
Public Sub New(Optional ByVal ShakeSpeed As Int32 = 10, Optional ByVal ShakeTimes As Int32 = 3, Optional ByVal ShakeLevelFactor As Int32 = 1) tmrShack.Enabled = False
proShakeSpeed = ShakeSpeed
proShakeTimes = ShakeTimes
_ShakeLevelFactor = ShakeLevelFactor
End Sub
”’ <summary>
”’ 抖动一个窗体
”’ </summary>
”’ <param name=”Window”>要抖动的窗口</param>
”’ <remarks></remarks>
Public Sub ShakeWindow(ByVal Window As Form)
dicShakeStepAndInitialPos.Add(Window, New
ShakeWnd(Window.Location))
tmrShack.Enabled = True
End Sub
‘执行抖动的委托函数
Protected Sub SafeShake(ByVal Wnd As Form, ShakeWndInfo As ShakeWnd) Dim tempPt As Point
tempPt = arrPos(IIf(ShakeWndInfo.ShakeStep > (arrPos.Length –1), ShakeWndInfo.ShakeStep Mod (arrPos.Length),
ShakeWndInfo.ShakeStep))
tempPt.X *= _ShakeLevelFactor : tempPt.Y *= _ShakeLevelFactor tempPt = Point.Add(ShakeWndInfo.InitialPos, tempPt)
Wnd.Location = Point.Round(New Point(tempPt.X, tempPt.Y))
ShakeWndInfo.ShakeStep += 1
End Sub
‘处理抖动队列的定时器
Private Sub tmrShack_Elapsed(sender As Object, e As
System.Timers.ElapsedEventArgs) Handles tmrShack.Elapsed
Try
If dicShakeStepAndInitialPos.Count = 0 Then
tmrShack.Enabled = False
For Each d In dicShakeStepAndInitialPos
If d.Value.ShakeStep = arrPos.Length * ShakeTimes Then dicShakeStepAndInitialPos.Remove(d.Key)
Else
d.Key.Invoke(mydlgShake, {d.Key, d.Value})
End If
Next
Catch ex As Exception
If ex.Message <> “集合已修改；可能无法执行枚举操作。

” Then MsgBox(ex.Message)
End If
End Try
End Sub
End Class。