我有这样一个需求:
在窗体form2上有个文本框text3和一个button2,我想要在button2里面写代码,让text3从form2的最左边移到最右边,移动的步数是固定的,例如移动6步从左边到右边,移动时有时间间隔,同时在每移动一步的时候,text3的大小就会变大。 如果用一个for 循环来实现上面的需求,请问应该怎么写代码?我的难点是不知道怎么让text3移动以及让text3变大!
例如,如果是3步移动,那么我想到的雏形代码如下:
for i=0 to 2 step 1
if i=0 then
me.text3.labelX=???
me.text3.Size=???
if i=1 then
me.text3.labelX=???
me.text3.Size=???
if i=2 then
me.text3.labelX=???
me.text3.Size=???
next i请问,有没有更好些的方法,实现我的需求??
在窗体form2上有个文本框text3和一个button2,我想要在button2里面写代码,让text3从form2的最左边移到最右边,移动的步数是固定的,例如移动6步从左边到右边,移动时有时间间隔,同时在每移动一步的时候,text3的大小就会变大。 如果用一个for 循环来实现上面的需求,请问应该怎么写代码?我的难点是不知道怎么让text3移动以及让text3变大!
例如,如果是3步移动,那么我想到的雏形代码如下:
for i=0 to 2 step 1
if i=0 then
me.text3.labelX=???
me.text3.Size=???
if i=1 then
me.text3.labelX=???
me.text3.Size=???
if i=2 then
me.text3.labelX=???
me.text3.Size=???
next i请问,有没有更好些的方法,实现我的需求??
麻烦说详细点,最好举个例子,怎么用move啊?
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Static i As Long
Text1.Move Text1.Left - 200, Text1.Top, Text1.Width + 100, Text1.Height + 100
Text1.FontSize = Text1.FontSize + 2
i = i + 1
If i > 6 Then Timer1.Enabled = False
End Sub