Assalamualaikum warahmatullahi wabarakatu Apa kabar reader semua pasti ngk sabar kan nunggu blog ane lagi kan?hayooo ngaku aja deh gosah malu malu kucing gituuu jadi gemessh kaaaannn.
Oke this time saya akan membahas tentang messagebox,nahhh sekarang tau ngak message box itu apa? Mungkin sebagian udah tau lah ya,tapi yamg belum tau baca ni biar tau.
Jadi messagebox itu sebuah pesan(bukan sms yah) yang muncul agar kita memberikan pilihan diantara 2 tanggapan yang ada.misalnya tu yes/no,okcancel,dan masih banyak lagi yang lain.
Nah untuk lebih jelasnya baca deh yang dibawah ini sampe abis yah jangan bosen.......
👇👇👇👇👇
👉 MsgBox membuat jendela dialog dengan dengan pesan agar pengguna memberikan tanggapan dengan mengklik salah satu tombol yang ada. Format penulisan : MsgBox(prompt[, Kode_Tombol]][, title][, helpfile, context])
👉Tujuan
Memberikan
pemahaman tentang penggunaan MessageBox.
👉MsgBox
(Kotak Pesan)
Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.
👉Bentuk Perintah
MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)
Tuh banyak kan ,kita bisa menggunakan text/angka pada form(sesuai ingatan sih :D)
Sekadang kita masuk ke contoh.
🌼Contoh 1:
⃕Membuat Form Login dengan tampilan sbb:
⃕Alur
Program:
- Input Password.
- Klik Proses
- Jika Password benar maka akan tampil kotak
pesan (MessageBox) dengan tampilan sbb:
·Isi
pesan : Password yang Anda Masukkan Benar
·Judul
Pesan : Info
Login
·MsgBoxStyle : Tombol
OK dengan gambar icon Information.
- Jika Password salah maka akan tampil kotak
pesan (MessageBox) dengan tampilan sbb:
·Isi
pesan : Password yang Anda Masukkan Salah”
·Judul
Pesan : Info
Login
·MsgBoxStyle : Tombol
OK dengan gambar icon Critical.
⃕Kode Program:
Kode
program diketik pada Objek BtnProses (Tombol Proses) sbb:
Private Sub BtnProses_Click(ByVal sender As System.Object, ... If TxtPas.Text = "rahasia" Then MsgBox("Password yang Anda Masukkan Benar", MsgBoxStyle.Information, "Info Login") Else MsgBox("Password yang Anda Masukkan Salah", 16, "Info") End If End Sub
Contoh 2:
Tambah tombol Tutup pada form Login, sehingga tampilan
form menjadi seperti berikut:
Buat Perintah untuk Tombol Tutup menggunakan MessageBox
dengan tampilan sbb:
- Isi Pesan : “Apakah
Anda ingin menutup Form Login ini?“
- MsgBoxStyle : Yes dan No dengan icon Question.
- Judul : “Tutup
Form Login“
√Alur Program:
Jika diklik tombol Yes, maka Program akan ditutup. Jika
diklik tombol No, maka Program tidak akan ditutup.
√Perintah Program:
Perintah Program:
Private Sub BtnTutup_Click(ByVal sender As System.Object, ... Dim pesan As String pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32, "Tutup Program") If pesan = vbYes Then End Else Exit Sub End if
End sub
Gimana ?ngak sulit kan?yang jelas kalau kita mau berusaha,belajar dan terus mencoba.karena usaha tidak akan mengkhianati hasil.
Jadi teruslah berusaha dan jangan pernah menyerah
That's enough blog ane sampe sini aja ya reader next time kita buat lagi yang lebih menarik 😍😍😍so don't forget like,comment and share
Maafin mimin kalo blog nya belepotan(macam anak kecil makan coklat😁😁😁)
Tunggu terus blog kita selanjutnya okaaayyyy seee yooouuu👋👋👋
Apa kabar reader semua pasti ngk sabar kan nunggu blog ane lagi kan?hayooo ngaku aja deh gosah malu malu kucing gituuu jadi gemessh kaaaannn.
Oke this time saya akan membahas tentang messagebox,nahhh sekarang tau ngak message box itu apa? Mungkin sebagian udah tau lah ya,tapi yamg belum tau baca ni biar tau.
Jadi messagebox itu sebuah pesan(bukan sms yah) yang muncul agar kita memberikan pilihan diantara 2 tanggapan yang ada.misalnya tu yes/no,okcancel,dan masih banyak lagi yang lain.
Nah untuk lebih jelasnya baca deh yang dibawah ini sampe abis yah jangan bosen.......
👇👇👇👇👇
👉 MsgBox membuat jendela dialog dengan dengan pesan agar pengguna memberikan tanggapan dengan mengklik salah satu tombol yang ada.
Format penulisan : MsgBox(prompt[, Kode_Tombol]][, title][, helpfile, context])
👉Tujuan
👉MsgBox (Kotak Pesan)
Sekadang kita masuk ke contoh.
If TxtPas.Text = "rahasia" Then
MsgBox("Password yang Anda Masukkan Benar",
MsgBoxStyle.Information, "Info Login")
Else
MsgBox("Password yang Anda Masukkan Salah", 16, "Info")
End If
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ...
Dim pesan As String
pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32, "Tutup Program")
If pesan = vbYes Then
End
Else
Exit Sub
End if
End sub
Gimana ?ngak sulit kan?yang jelas kalau kita mau berusaha,belajar dan terus mencoba.karena usaha tidak akan mengkhianati hasil.
Jadi teruslah berusaha dan jangan pernah menyerah
That's enough blog ane sampe sini aja ya reader next time kita buat lagi yang lebih menarik 😍😍😍so don't forget like,comment and share
Maafin mimin kalo blog nya belepotan(macam anak kecil makan coklat😁😁😁)
Tunggu terus blog kita selanjutnya okaaayyyy seee yooouuu👋👋👋