用VB实现电影字幕向上滚动的效果,做法与疑惑
用VB实现电影字幕向上滚动的效果,做法与疑惑 我自己用LABEL做了一个,感觉不是太好: 1.无法换行 2.无法进行自动上下滚屏,(循环) 我做的这个非常的菜,但希望能和大家交流一下,希望大家能给出意见和自己的做法 附: Private Sub Command1_Click() Do Label1.Top = Label1.Top - 10 If Label1.Top < 0 Then Exit Do For i = 1 To 5000 DoEvents Next i Loop End Sub
Private Sub Form_Load() a$ = "成龙 Jackie Chan " b$ = "金喜善 Hee-seon Kim " c$ = " 梁家辉 Tony Leung Ka Fai " Label1.Caption = "" & a$ + b$ + c$ End Sub
[此贴子已经被作者于2005-10-23 12:09:42编辑过]
