SCROLL WORDS trong VB

Để test thử bạn tạo một command button vào một form và sử dụng code sau dưới một timer object:

Public Sub ScrollWords(ByVal StringToScroll$, ByVal TargetObjectCaption As Object)

Static S%

On Error GoTo ErrorHandler:

If S <>Then

TargetObjectCaption.Caption = TargetObjectCaption.Caption & Mid(StringToScroll, S + 1, 1)

S = S + 1

Else

TargetObjectCaption.Caption = ''''

S = 0

End If

Exit Sub

ErrorHandler:

MsgBox ''Error: '' & Err.Description, vbCritical + vbOKOnly, ''Error '' & Err.Number & '' in ScrollWords!''

End Sub
Theo : Diễn đàn tin học
Nguồn bài viết : SCROLL WORDS trong VB


Posted in: Ngôn ngữ lập trình VB, Tự học lập trình visual basic