关于用VB做文字动画效果的几个问题！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:05:31
1.用label做移动效果（如向下循环移动）时，过程中会出现闪动，这怎么避免。可以用其他的方法实现移动效果吗？
2.怎样用VB实现文字的百叶窗、棱形展开等效果？
二楼的哥们，请你把问题看清楚点，不要瞎灌水，拜托。

拖尾效果
Private Sub Form_Load()
Picture1.Picture = Me.Icon
End Sub

'指定颜色的字符拖尾效果
Private Sub Command3_Click()
With Picture2
.Font.Name = "黑体"
.Font.Italic = True
.FontTransparent = False '带有背景
End With

For i = 1 To 72
stepp = i * 10
Picture2.CurrentX = stepp '调整坐标
Picture2.CurrentY = stepp
Picture2.Font.Size = i '调整字号
Picture2.ForeColor = RGB(i * 3, 0, i * 3) '颜色变化
Picture2.Print "字AB"
x = Picture2.TextWidth("字AB") '取字符串长度
y = Picture2.TextHeight("字AB") '取字符串高度
Picture2.Line (stepp, stepp)-(stepp, stepp + y), RGB(80, 80, 80)
Picture2.Line (stepp, stepp)-(stepp + x + i * 3, stepp), RGB(150, 150, 150)
DoEvents
Next i

Picture2.Cls '清除拖尾
Picture2.CurrentX