VB设计一程序七个小球在七个同心圆上运动速度由滚动条value值决定

求各位大神给个解释 实在是卡住了 谢谢各位了

1、加个timer 控件,value 值控制timer 的interva值,从而控制速度,timer 的来控制
滚动,(timer 的每一时间间隔,小球位置在同心圆上发生变化,从而实现滚动效果)追问

可是timer这个控件我不懂。。。。

追答

timer----时间控件,比如:interva=100.就是0.1秒就触发一次事件
如你在interva=100,,好么,每0.1秒小球位置就变化一次,给人感觉就是小球在动,位置变化方程放在中间就行

Private Sub Timer1_Timer() ’如interva=1000
a=a+1
if a>1000 then a=0
Label1.Caption=a

‘ 就是Label1变化,从1到1000的变化,

End Sub

追问

谢啦 我试试

温馨提示:内容为网友见解,仅供参考
无其他回答

设计一个vb程序含有五种不同控件五个不同的事件
Private Sub HScroll1_Change()'左快右慢 Timer1.Interval = HScroll1.Value * 10 End Sub Private Sub Timer1_Timer()'(X,Y)圆上的点运动轨迹 Dim X, Y As Single '(A,B)块上的点运动轨迹 Dim A, B As Single frmDemo.Cls frmDemo.Circle (100, 100), 2, vbBlue X = 10...

关于VB编程的一些小问题 设计一个程序实现字体的自动放大,并用垂直滚动...
Label1.FontSize = Label1.FontSize + 0.5 '即字体每次增加0.5,每次增大量自己设置 End If Label2.Caption = " 当前字体大小是:" & Label1.FontSize End Sub Private Sub VScroll1_Change()Timer1.Interval = VScroll1.Value End Sub 如图 ...

...现在的程序查询后在窗口只显示那个绿色的1,求修改以后显示9551​四...
请修改一下程序,现在的程序查询后在窗口只显示那个绿色的1,求修改以后显示9551​四个数字。急急急 DimstrAsString,str2AsStringnumber1=Cells(1,10).Valuen1=Cells(2,10).Valuenumber2=Cells(3,10).Valuenumber3=Cells(4,10).Valuen2=Cells(5,10).Valuecol=Cells(10,10).ValueCount=... Dim str As...

VB中如何让选择的多个复选框在一个文本框中分行显示?
1、打开VB软件,在窗体上面添加一个文本框。2、点击文本框,在右侧的属性窗口中,设置名称和数值,将文本内容清空。3、在窗体上面,再添加一个水平滚动条。4、点击水平滚动条,设置名称和数值,将Min设置为0,Max设置为100。(文本框中的输入的数范围为0-100)。将largechange设置为5,Smallchange设置为...

相似回答
大家正在搜