B4A - Mengganti Warna Label menggunakan CheckBox

1. Buatlah sebuah Project baru
2. Buatlah satu Layout dan Save dengan nama Main
3. Dalam Layout tersebut, tambahkan satu Label dan tiga CheckBox
3. Ketik kode berikut kedalam Main

Sub Globals
    Private Label1 As Label
    Private CheckBox1 As CheckBox
    Private CheckBox2 As CheckBox
    Private CheckBox3 As CheckBox
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    Label1.TextSize = 25
    CheckBox1.Text = "Merah"
    CheckBox2.Text = "Kuning"
    CheckBox3.Text = "Hijau"
End Sub

Sub CheckBox1_CheckedChange(Checked As Boolean)
    If CheckBox1.Checked = True Then
        Label1.Text    = "Label ini berwarna merah"
        Label1.TextColor = Colors.Red
        CheckBox2.Checked = False
        CheckBox3.Checked = False
    End If
End Sub

Sub CheckBox2_CheckedChange(Checked As Boolean)
    If CheckBox2.Checked = True Then
        Label1.Text    = "Label ini berwarna kuning"
        Label1.TextColor = Colors.Yellow
        CheckBox1.Checked = False
        CheckBox3.Checked = False
    End If
End Sub

Sub CheckBox3_CheckedChange(Checked As Boolean)
    If CheckBox3.Checked = True Then
        Label1.Text    = "Label ini berwarna hijau"
        Label1.TextColor = Colors.Green
        CheckBox1.Checked = False
        CheckBox2.Checked = False
    End If
End Sub

4. Jalankan aplikasinya atau tekan F5 di keyboard
5. Berikut adalah hasilnya