模擬QQ抖動窗口

最近閒來無事，打開了發黴的QQ，查看了一些信息與空間，在打開某個聊天窗口的時候，不經意間點到了抖動窗體按鈕，突然有個小想法，Access也可以做一個類似QQ抖動的功能，原理很簡單，我們只需要來改變窗口的位置，來回的移動窗口，移的快一點不就可以了嘛。
先來看一下效果：

第一步：建窗體

具體的控件屬性如下表

控件類型 控件名稱 其它屬性 其它說明
屬性名 屬性值
組合框 list_Table 行來源類型 值列表 標籤標題名：設置抖動頻率
行來源 10;15;20;30;50;100
文本框 txtTime 默認值 200 標籤標題名：設置抖動次數
按鈕 btnShake 標題 抖動

第二步：添加按鈕的單擊事件

Private Sub btnShake_Click()
    Dim i As Long
    If Not IsNull(Me.FetchDefaults) Then
        For i = 1 To Me.txtTime
     
            Me.Form.Move Me.WindowLeft + Me.txtFrequency, Me.WindowTop + Me.txtFrequency
            Me.Form.Move Me.WindowLeft - Me.txtFrequency, Me.WindowTop - Me.txtFrequency
            
            Me.Form.Move Me.WindowLeft - Me.txtFrequency, Me.WindowTop - Me.txtFrequency
            Me.Form.Move Me.WindowLeft + Me.txtFrequency, Me.WindowTop + Me.txtFrequency
        Next
    End If

End Sub

第三步：運行測試

好了到這裏一個示例就做好了，大家都去試一下吧

示例用到的知識點：
a. 窗體的Move方法
b. 窗體的WindowLeft與WindowTop兩個屬性