RE: Tạo dòng chữ chạy trên thanh tiêu đề form?
khải nguyên > 15-05-13, 12:07 PM
Trong thuộc tính : ...Timer... của Form thay số 0 mặc định =150. hoặc 200
Trong Caption của Form Viết tiêu đề muốn hiển thị ví dụ như : Công Ty Maixuanthu - chúng tôi xin kính chào quý khách đã ghé thăm ...xin chân thành cảm ơn Khải Nguyên Đã Help me !.Và nếu có ủng hộ Dolla hay Heroin... gì gì đó thì hãy chuyển vào tài khoản ....Vietcombank cho Khải Nguyên theo số TK:12345678...... há !" Xin cám ơn ! , nhớ dùng phím Spa... tạo khoảng 20...>50 khoảng trắng để khi khởi động Form thì dòng chữ bắt đầu chạy từ xa tới như kiểu chạy Maratong từ bên ngoài chạy vào sẽ đẹp hơn .
Private Sub Form_Timer()
Dim S As String
S = Me.Caption
S = Right(S, Len(S) - 1) & Left(S, 1)
Me.Caption = S
End Sub
'Kết thúc biến cố
Chúc thành công
Khải Nguyên !