VB.NET窗体如何实现抖动效果

2009-04-02 08:23:31 220 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

上位机开发实战指南：从C#到Modbus，实现职场涨薪在工业自动化与智能制造领域，上位机作为人机交互与设备控制的核心枢纽，承担着数据采集、指令下发与状态监控的关键职责。其技术原理依托串口、Modbus、TCP/IP等通信协议，实现与PLC、传感器等下位机的稳定对话。掌握C#编程、多线程处理与数据库交互，能够高效构建可靠的上位机应用，显著提升产线运行效率。上位机开发广泛应用于自动化设备、产线监控、工业物联网等场景，兼具技术深度与职业广度。相比纯软件或底层硬件方向，其学习曲线平缓，人才缺口巨大，是工程师实现技能增值与薪资跃迁的高性价比路径。本文围绕上位机核心技术栈阅读详情

如题

最好请给出代码。答对了接结贴给分

...全文

VS2010 实用功能深度解析：缩略图预览与 IntelliSense 原理 Visual Studio 2010 虽为旧版 IDE，但其核心机制仍具工程参考价值。它基于 .NET Framework 4.0 构建，深度适配 Windows 7 及嵌入式环境，在遗留系统维护、工业控制、医疗设备等强稳定性场景中不可替代。其缩略图预览功能依托 DWM API 实现窗口快速切换，虽被 UI 隐藏却可通过注册表激活；IntelliSense 则采用 PascalCase 分词与大小写语义图谱算法，实现子字符串位置感知匹配，该设计思想直至 VS2019 才被复现。这些能力并非过时特性，而是面向阅读详情

wenjunsu

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

Forrest23 2009-04-13

打赏
举报



        Dim st As New Point

        Dim st1 As New Point

        Dim st2 As New Point

        st = Me.Location

        st1 = New Point(st.X + 2, st.Y + 2)

        st2 = New Point(st.X - 2, st.Y - 2)

        Dim i As Integer = 0

        While i <= 4

            Me.Location = st1

            System.Threading.Thread.Sleep(60)

            Me.Location = st2

            System.Threading.Thread.Sleep(60)

            i = i + 1

        End While

        Me.Location = st

wenjunsu 2009-04-13

打赏
举报

O(∩_∩)O哈哈~。。不好意思啊。。。。分平均下来有点少啊。。。

但是本着答了就给分的原则所以就这样了。。

谢谢各位了。。

wenjunsu 2009-04-13

打赏
举报

呵呵。。五楼很幽默啊。。。

O(∩_∩)O哈哈~

Bullatus 2009-04-12

打赏
举报

Timer抖动+随机变量

chyyyin 2009-04-12

打赏
举报

同意一楼的做法，思路基本上就是这样！
用定时器，不过我觉得一个定时器可能效果比较单一，
假如用两个或者三个定时器，再加上算法，可能会抖动出很漂亮的效果！
LZ加油啊，呵呵~

a854468521 2009-04-12

打赏
举报

想做QQ抖动的效果？

gui0605 2009-04-12

打赏
举报

给你一个C#版本的：



        /// <summary>

        /// 产生闪屏振动效果

         /// </summary>

        private void Nudge()

        {

            if (notifyIcon1.Visible == true)

            {

                return;

            }

            if (this.WindowState == FormWindowState.Minimized)

            {

                this.WindowState = FormWindowState.Normal;

            }

            int i = 0;

            Point _old = this.Location;

            Point _new1 = new Point(_old.X + 2, _old.Y + 2);

            Point _new2 = new Point(_old.X - 2, _old.Y - 2);

            //_sp2.Play();

            while (i < 4)

            {

                this.Location = _new1;

                Thread.Sleep(60);

                this.Location = _new2;

                Thread.Sleep(60);

                i++;

            }

            this.Location = _old;

        }

清晨曦月元老 2009-04-12

打赏
举报

啥么嘛！根本无需代码

把窗体放进冰箱里即可

jieon 2009-04-02

打赏
举报

感觉主要是频率问题~

wenjunsu 2009-04-02

打赏
举报

这也行？看来只要能实现效果，就可以发挥我们的现象力了。。

bw555 2009-04-02

打赏
举报

用个时钟触发器
一个全局变量i as integer

timer.tick事件中

i=i+1
if i 是奇数
me.left=me.left+5
me.top=me.top+5
else
me.left=me.left+5
me.top=me.top+5
end if

VB.NET窗体如何实现抖动效果

相关推荐