Memanipulasi Kontrol Label di Form dengan Visual Basic.Net (VB.NET)

Kali ini Admin akan mencoba memanipulasi tampilan Label yang ada di VB.NET dengan kode-kode yang sederhana, tujuannya adalah supaya tampilan aplikasi yang kita buat tidak kaku dan monoton serta membosankan, sehingga penampilannya lebih interaktif dan profesional.

Dari sekian banyak cara memanifulasi Label yang ada, Admin akan memberikan kode manipulasi Label yang sederhana diantaranya :

1. Label berkedip
2. Label Berjalan
3. Label berubah warna

Kenapa Manipulasi Label Itu Penting?

Label biasanya digunakan untuk menampilkan teks statis. Tapi kalau dimanipulasi dengan benar, label bisa berfungsi lebih dari sekadar teks biasa, misalnya:

• Menarik perhatian pengguna
• Menampilkan notifikasi atau peringatan
• Memberi kesan dinamis pada aplikasi

Prinsip Dasar

Sebelum memulai membuatnya pastikan sudah membuat Project Windows Forms-nya

Kemudian menambahkan Control Label dan Timer

Atur Timer1 dengan interval:1000

Berikut adalah cara pemasangan kodenya :

A. Label Berkedip

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Interval = 100

    End Sub

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        'Label berkedip

        Label1.Visible = Not Label1.Visible

    End Sub

End Class

B. Label Berjalan

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Interval = 100

        'Posisi awal label berjalan

        Label2.Left = Me.Width

        Label2.Top = 50

    End Sub

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        ' Label berjalan ke dari kanan ke kiri

        Label2.Left -= 5

        If Label2.Right < 0 Then

            Label2.Left = Me.Width

        End If   

    End Sub

End Class

C. Label berubah warna

Public Class Form1

    'Label berubag warna

    Dim warnaMerah As Boolean = True

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Interval = 1000

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        'Label berubah Warna

        If warnaMerah Then

            Label3.ForeColor = Color.Red

        Else

            Label3.ForeColor = Color.Blue

        End If

        warnaMerah = Not warnaMerah

    End Sub

End Class

Tips Tambahan Manipulasi Label

Beberapa tips agar manipulasi label tetap efektif:

• Jangan gunakan terlalu banyak efek dalam satu form
• Sesuaikan interval Timer agar tidak terlalu cepat
• Gunakan warna yang nyaman di mata
• Dengan begitu, manipulasi label tidak hanya keren tapi juga fungsional.

Demikianlah artikel kali ini tentang Memanipulasi Label di Visual Basic.Net (VB.NET), semoga bermanfaat buat kita semua.Amin.