vba代码执行过程中如何生成图形的运动效果

hhjjpp · 发表于 2016-12-6 16:03

本帖最后由 hhjjpp 于 2016-12-6 20:39 编辑

下图代码希望通过圆点位置的变动来获得圆点不断移动的效果，但下列代码在程序过程看不到任何圆点，只有程序运行完毕才能看到两个毫无“生机”的圆点！

hhjjpp · 发表于 2016-12-6 16:05

本帖最后由 hhjjpp 于 2016-12-6 16:13 编辑

奇怪的是，代码运行过程中，静止不动的红色圆点也不可见！
延长sleep的时间没有任何效果！

microyip · 发表于 2016-12-6 16:07

你都不能解决的问题，我先打酱油下载一下，学习一番再说，哈哈

microyip · 发表于 2016-12-6 16:10

先提个建议，能不能建立几个圆点，把轨迹都显示出来，然后到一定个数以后开始清除原来的圆点呢？

hhjjpp · 发表于 2016-12-6 16:13

另一个工作表是让直线不断延长的动态效果：其实循环过程当中不断生成变长的直线，新的直线一生成，才把旧的稍短直线删除，也就是说确保总有一根直线存在！
这样才成功得到直线的动态效果！
vba代码运行过程中，图形的显示效果究竟是何机理，Application.ScreenUpdating = True已经得到了保证呀！

hhjjpp · 发表于 2016-12-6 16:15

microyip 发表于 2016-12-6 16:10
先提个建议，能不能建立几个圆点，把轨迹都显示出来，然后到一定个数以后开始清除原来的圆点呢？

这里的圆点是没有清除的，只是IncrementLeft左侧重定位！

microyip · 发表于 2016-12-6 16:16

Application.ScreenUpdating = True好像只控制表单的刷新，不对控件进行刷新控制

microyip · 发表于 2016-12-6 16:17

hhjjpp 发表于 2016-12-6 16:15
这里的圆点是没有清除的，只是IncrementLeft左侧重定位！

我的意思是，旧点不清除，也不移动，新建一个点来实现

hhjjpp · 发表于 2016-12-6 16:28

microyip 发表于 2016-12-6 16:17
我的意思是，旧点不清除，也不移动，新建一个点来实现

毫无起色：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()
Dim s As Shape, t As Shape
Application.ScreenUpdating = True
For i = 1 To 100 ' Step 5
With Me.Shapes.AddShape(msoShapeOval, i, 100, 15, 5)
.Fill.ForeColor.SchemeColor = 31
.Line.Visible = msoFalse
End With
Sleep 100
Next
End Sub

复制代码

stillfish00 · 发表于 2016-12-6 17:12

加DoEvents

		自动登录	找回密码
密码			免费注册

[已解决] vba代码执行过程中如何生成图形的运动效果

评分

评分