Pada artikel kali ini saya kan membaikan sebuah kode untuk membuat form yang dapat menganktifkan modus malam dengan menggunakan visual basic 6.0.
 |
| Modus Malam |
Berikut adalah langkah-langkah dalam pembuatannya :
1. Tambahkan 1 buah Label, 1 buah TextBox dan 1 Commandbutton
2. Desainlah form seperti gambar dibawah ini :
 |
| Form Desain |
3. Kemudian ketik kode dibawah ini :
Option Explicit
Private Sub Command1_Click()
' Aktifkan atau nonaktifkan modus malam saat tombol diklik
If Command1.Caption = "Aktifkan modus Malam" Then
Command1.Caption = "NonAktifkan Modus Malam"
Command1.ToolTipText = "NonAktifkan Modus Malam"
SetNightMode True
Else
Command1.Caption = "Aktifkan modus Malam"
Command1.ToolTipText = "Aktifkan modus Malam"
SetNightMode False
End If
End Sub
Private Sub SetNightMode(ByVal enable As Boolean)
' Mengatur tema atau warna latar belakang form dan kontrol sesuai dengan modus malam
If enable Then
' Mode malam diaktifkan
Me.BackColor = vbBlack ' Atur latar belakang form menjadi hitam
Me.ForeColor = vbWhite ' Atur warna teks form menjadi putih
Label1.BackColor = vbBlack
Label1.ForeColor = vbWhite
Text1.BackColor = vbButtonFace
Command1.BackColor = vbYellow
Text1.Text = "Modus Malam"
' Anda juga dapat mengubah warna latar belakang dan teks kontrol lainnya sesuai kebutuhan
Else
' Mode malam dinonaktifkan
Me.BackColor = vbWhite ' Kembalikan latar belakang form ke warna default
Me.ForeColor = vbBlack ' Kembalikan warna teks form ke warna default
Label1.BackColor = vbWhite
Label1.ForeColor = vbBlack
Text1.BackColor = vbWhite
Text1.Text = "Modus Terang"
Command1.BackColor = vbButtonFace
' Kembalikan warna latar belakang dan teks kontrol lainnya ke warna default
End If
End Sub
Private Sub Form_Load()
Me.BackColor = vbWhite ' warna form saat di Load
Label1.BackColor = vbWhite
Text1.Text = "Modus Terang"
Command1.BackColor = vbButtonFace
End Sub
4. Jalankan project anda dan klik tombol "Aktifkan modus Malam" maka latar belakang form akan menjadi hitan dan teks menjadi putih.
Catatan :
Untuk menambahkan label lainnya pada Form yang sesuai keinginan, jangan lupa untuk mengubah warna latar belakang label yang Anda tambahkan
Demikian artikel singkat hari ini tentang Cara Membuat Modus FormMalam Menggunakan VB6.
Semoga artikel ini bermanfaat buat kita semua, Amin.
Selamat mencoba semoga berhasil.
No comments:
Post a Comment