UC知道vb 中如何实现折叠窗口啊，就是按一个按钮后，隐藏的内容慢慢出现
来源：百度知道 编辑：UC知道 时间：2024/05/17 23:35:07
我用这样的方法实现不了
例如右边有个label1，我像一点它，它就缓慢地移动到左边，
private sub label1_click()
dim x
x=1
do while x<1000
label1.left=label1.left-x
x=x+1
loop
end sub
这样写的话根本看不到移动过程，一下就过去了
试着把x=x+1改成x=x+0.0001后 看到向左的过程了 但是就死机了
晕哦
Private Sub Label1_Click()
Dim x
x = 3000
Do While x > 0
Label1.Left = x
x = x - 0.01
Loop
End Sub
自己解决了
例如右边有个label1，我像一点它，它就缓慢地移动到左边，
private sub label1_click()
dim x
x=1
do while x<1000
label1.left=label1.left-x
x=x+1
loop
end sub
这样写的话根本看不到移动过程，一下就过去了
试着把x=x+1改成x=x+0.0001后 看到向左的过程了 但是就死机了
晕哦
Private Sub Label1_Click()
Dim x
x = 3000
Do While x > 0
Label1.Left = x
x = x - 0.01
Loop
End Sub
自己解决了
Dim x
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
x = Label1.Left
End Sub
Private Sub Label1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 100
'If Label1.Left <= 0 Then
'Timer1.Enabled = False
'Label1.Left = x
'End If
End Sub
你可以去http://bbs.con-o.cn/forum-49-1.html看看
有关编程的