Hôm nay chúng ta lại tiếp tục làm với VB6 nhé. Sau khi làm xong thì sẽ được như hình bên dưới
Chữ chạy trong vb6
Làm chữ chạy trong label cũng là cái hay trong vb6 đúng không nhỉ ^^
Để làm được bài này chúng ta chỉ cần biết về hàm right, left và cách dùng timer là được.
Để duy trì blog nên mình có làm aff cho 1 số bên hosting. Nhưng dù aff mình cũng chọn 1 số nhà cung cấp uy tín về chất lượng và support nên các bạn cứ yên tâm nhé.
Nếu có mua hosting mà có trong list dưới đây các bạn click vào link trước khi mua để ủng hộ mình nhé. Mình cảm ơn nhiều
- Azdigi: Giá rẻ thì dùng gói Pro Gold Hosting còn chất lượng hơn thì em khuyên dùng Business Hosting. Có điều kiện thì lên VPS nhé
- Tino hosting
- iNet
- Nước ngoài thì Vultr
CODE:
Private Sub Form_Load() Label1.Caption = "https://levantoan.com" Timer1.Enabled = True Timer1.Interval = 1000 ' thoi gian chay 1000 = 1s End Sub Private Sub Timer1_Timer() Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1) End Sub
Bây giờ chúng ta sẽ đi tìm hiểu từng dòng Code nha
– Label1.Caption = “https://levantoan.com” : để thiết lập chữ cho label là https://levantoan.com
– Timer1.Enabled = True : Cho phép timer hoạt động
– Timer1.Interval = 1000: Thời gian mà timer1 hoạt động, nghĩa là cứ 1s sẽ thực hiện 1 lần (1000 = 1s)
– Right(Label1.Caption, Len(Label1.Caption) – 1) & Left(Label1.Caption, 1): Trích bên phải của chuỗi trong label1 từ phần tử thứ 2 đến hết, trích bên 1 phần tử bên trái và cho phần tử bên trái về đằng sau. Như vậy sau lần dịch thứ nhất chuỗi sẽ có dạng “ttp://levantoan.comh” … và cứ thế cho đến khi dịch hết
Chúc các bạn thành công ^^
- Bình luận
