vb datagrid 某一格子的点击事件_动态 | 用VB编程制作的动态变化程序

点击关注获得更多VB精彩内容！

往期 精彩干货总结 | VB编程语言基础知识点总结
技巧 | VB编程实现的语音自动朗读程序
数据库 | VB开发的超市收银串口通信支付软件

VB编程功能强大、易学实用。

今天，我们就共同来学习如何用VB编程制作动态变化程序。

用到的主要知识有：

窗体属性、颜色函数、时钟控件、图形方法。

首先，我们需要在VB中新建一个exe工程，然后在窗体上添加一个Timer(时钟)控件，添加完毕后，即可进入代码窗口编写代码来实现我们今天的程序了。

程序实现代码如下：

Const PI As Single = 3.1415926 '定义常量圆周率PI

Private Sub myPaint()  '自定义绘制图形曲线过程

    Dim i, j, x, y

    Scale (-300, 300)-(300, -300)

    Cls

    For i = 0 To 200 Step 20 '双重For循环

        For j = 0 To 2 * PI + 0.1 Step PI / 32

            x = i * Cos(j) ^ 3

            y = i * Sin(j) ^ 3

            Line -(x, y)

        Next j

    Next

End Sub

Private Sub Form_Load() '窗体载入时，设置时间间隔为500ms

    Timer1.Interval = 500

End Sub

Private Sub Timer1_Timer() '时钟Timer事件指定动态前景色、背景色

    Me.BackColor = QBColor(Rnd * 12)

    Me.ForeColor = QBColor(Rnd * 12)

Call myPaint

End Sub

点击下面视频，查看程序完整运行变化。

如果你有VB学习或者程序开发中的问题，可以添加老师微信号：vbyjk521 ,随时在线交流解答。

现有VB从基础入门到精通以及VB综合开发讲解的视频教程录制完毕，含源代码，可以快速帮助掌握VB编程。

---

长按上图，添加老师微信

更多VB编程干货，尽在跟我学VB