[VB.NET] Hướng dẫn tạo hiệu ứng chữ chạy và thay đổi màu nền trên Label
Bài viết này, mình xin hướng dẫn cho các bạn mới làm quen với lập trình bằng ngôn ngữ VB.NET, bằng cách tạo hiệu ứng cho text chạy qua lại và thay đổi màu nền LABEL giống quảng cáo, làm nỗi bật tiêu đề mình cần nói đến.
Rất đơn giản, chúng ta chỉ cần sử dụng 1 timer để thay đổi text theo vị trí và màu chữ.
Dưới đây, là giao diện demo ứng dụng:
Source code VB.NET
Imports vb = Microsoft.VisualBasic.Strings
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim X, Y As String
X = vb.Left(LblWelcome.Text, 1)
Y = vb.Right(LblWelcome.Text, Len(LblWelcome.Text) - 1)
LblWelcome.Text = Y + X
Dim rand As New Random()
Dim A As Integer = rand.[Next](0, 255)
Dim R As Integer = rand.[Next](0, 255)
Dim G As Integer = rand.[Next](0, 255)
Dim B As Integer = rand.[Next](0, 255)
LblWelcome.ForeColor = Color.FromArgb(A, R, G, B)
End Sub
End Class
CHÚC CÁC BẠN THÀNH CÔNG!