模拟QQ抖动窗口

最新推荐文章于 2022-04-16 19:15:00 发布

原创最新推荐文章于 2022-04-16 19:15:00 发布 · 403 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#抖动 #模拟 #窗口 #access #access开发

Access开发同时被 2 个专栏收录

106 篇文章

订阅专栏

Access基础

66 篇文章

订阅专栏

博主受QQ窗口抖动功能启发，用Access开发类似功能。先建窗体，设置组合框、文本框、按钮等控件属性，再添加按钮单击事件，最后运行测试。示例运用了窗体的Move方法及WindowLeft与WindowTop属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近闲来无事，打开了发霉的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两个属性

在这里插入图片描述