可是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设置为...