我要实现这样的效果：textbox 的 height 逐渐加大，只到指定大小为止，也就是要看出动漫效果的，能成？

Question

击某个按钮，就使textbox逐渐地出来了，帮忙啊

Answer 1

做for循环来改变height的大小，不过效果可能不是很好，因为我想你的textbox变化范围不会太大吧

Answer 2

将textbox的大小属性设置逐渐增大,当然,里面的字体也得随之增大.

Answer 3

当然啦，用 timer控件咯，多少毫秒就放大多少尺寸你自己在实际中体会一下就行了，很容易的咯！Private Sub Timer1_Timer()
    With Text1
        If .Width = Me.Width - 200 Then '到何种地步停，自己的需要而写
            Timer1.Enabled = False
        Else
            .Move .Left - 10, .Top - 10, .Width + 20, .Height + 20 
            '怎么放大，自己需要而改
        End If
    End With
End Sub这里 Timer1.Interval = 10 10毫秒进行一次放大操作

Answer 4

Private Sub Command1_Click()
For i = Text1.Width To 500 (最后大小)
For j = 0 To 10000 (设置时间间隔)
Next j
Text1.Width = Text1.Width + 10(宽度增大)
text1.height=text1.height + 1
Next i
End Sub

Answer 5

Timer1.Interval = 10 ?
呵呵，恐怕不行吧？！用个延时函数就行了。

Answer 6

up
VB代码计算器 3.7.4 欢迎下载试用下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm