Deskripsi Form Latihan_14_36110039
Terdapat enam object yaitu :
1. Object Label
Terdapat delapan object label yang bertuliskan gaji
orang tua lebih dari, bukan kelas, tanggal lahir sebelum, dan nama memiliki
unsur (masing-masing dibikin 2 label).
2. Object TextBox
Terdapat dua belas textbox (enam status input; delapan
status read only dan hanya digunakan sebagai pengganti label). Status input
digunakan untuk memasukkan gaji orang tua lebih dari, bukan kelas, dan nama
memiliki unsur. Masing-masing 2 textbox. Status Read Only digunakan sebagai
pengganti label yang bertuliskan gaji ortu>=6000000, gaji ortu>=5000000,
gaji ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, selain
itu.
3. Object Button
Terdapat dua object button yang bertuliskan Filter dan
Atur Warna. Button filter digunakan untuk memfilter data tabel berdasarkan data
yang telah diinput di textbox. Button atur warna digunakan untuk memberikan
warna pada data yang ada dalam datagridview menurut besar gaji ortu.
4. Object RadioButton
Terdapat empat object radiobutton yang bertuliskan
stambuk, kelas (besar->kecil), kelas (kecil->besar); tanggal lahir
(kecil->besar), dan gaji orang tua (besar->kecil).
5. Object DateTimePicker
Terdapat dua object datetimepicker yang digunakan
dalam memfilter data tabel yang ada di datagridview.
6. Object DataGridView
Terdapat satu objeck datagridview yang digunakan untuk
menampilkan data tabel yang telah dibuat.
7. Object GroupBox
Terdapat empat objek GroupBox yang bertuliskan
urutkan berdasarkan, filter berdasarkan, filter dengan menggabungkan, dan
pengaturan warna.
Script Unique
Membuat DataTable
Dim tabel As New DataTable
MEMBUAT DATAVIEW
Dim TableView As New DataView
Menambahkan kolom pada DataTable
Table.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
menambahkan data baris pada table
Table.Rows.Add("36112016", "Andi
Jusma Nilam Sari", "P",
"09/02/1994", 10000000, "1A_D3")
Membuat DataSource
dgv_36110039.DataSource = TableView
Even
Latihan_14_36110039_Load
Stb_36110039_CheckedChanged
kelas1_36110039_CheckedChanged
kelas2_36110039_CheckedChanged
gaji_36110039_CheckedChanged
gaji1_36110039_TextChanged
bk1_36110039_TextChanged
dtp1_36110039_ValueChanged
nama1_36110039_TextChanged
filter_36110039_Click
atur_36110039_Click
Property
Property TextBox ==> ReadOnly=True
Prosedur menjalankan Latihan_14_36110039:
1.
Klik Start dan pilih Microsoft Visual Studio
2008.
2.
Klik menu file dan pilih New Project.
3.
Ketik nama dan pilih lokasi yang diinginkan pada
masing-masing tempat yang tersedia, klik Ok.
4.
Klik menu view dan pilih toolbox.
5. Kemudian
pilih object DataGridView dan buat sebanyak satu. Isi properti name menjadi
nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
6. Kemudian
pilih object groupbox dan buat sebanyak empat. Isi properti name menjadi nama
yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
7. Kemudian
pilih object radio button dan buat sebanyak empat. Isi properti name menjadi
nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
8. Kemudian
pilih object label dan buat sebanyak delapan.
9. Kemudian
pilih object textbox dan buat sebanyak dua belas (enam status input; delapan status
read only dan hanya digunakan sebagai pengganti label).
Isi properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir
nama tersebut.
10. Kemudian
pilih object button dan buat sebanyak dua. Isi properti name menjadi nama yang
anda inginkan dan nomor stambuk pada akhir nama tersebut.
11. Kemudian
pilih object datetimepicker dan buat sebanyak dua. Isi properti name menjadi
nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
12.
Setelah perintah diatas dilakukan maka
jadilah seperti kolom dibawah ini:
13. Berikut ini adalah rumus untuk
menjalankan form di atas:
Public Class
latihan_14_36110039
'Mendeklarasikan datatable
Dim Table As New DataTable
'Mendeklarasikan dataview
Dim TableView As New DataView
Private Sub
Latihan_14_36110039_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
'Perintah Menambahkan kolom pada table
Table.Columns.Add(New DataColumn("Stambuk", GetType(String)))
Table.Columns.Add(New DataColumn("Nama", GetType(String)))
Table.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
Table.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
Table.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
Table.Columns.Add(New DataColumn("Kelas", GetType(String)))
'Perintah menambahkan data baris pada table
Table.Rows.Add("36112016", "Andi
Jusma Nilam Sari", "P",
"09/02/1994", 10000000, "1A_D3")
Table.Rows.Add("36112006", "Izmi
Istiqamah", "P", "11/04/1994", 7000000, "1A_D3")
Table.Rows.Add("36112007", "Imran
Novrin Ruslim", "L", "11/21/1994", 1000000, "1A_D3")
Table.Rows.Add("36112003", "Fathin
Ammar Asidik", "L", "06/29/1994", 6800000, "1A_D3")
Table.Rows.Add("36112008", "Adbul
Malik", "L", "11/09/1993", 1200000, "1A_D3")
Table.Rows.Add("36112011", "Zulfitra
Qadar Yasin", "L", "03/10/1994", 10000000, "1A_D3")
Table.Rows.Add("36112020", "Bernard
Talebong", "P", "10/01/1994", 1000000, "1A_D3")
Table.Rows.Add("36112024", "Syahrul
Kamal", "L", "10/18/1994", 10000000, "1A_D3")
Table.Rows.Add("36112001", "Fitri",
"P", "10/20/1994",
5000000, "1A_D3")
Table.Rows.Add("36112010", "Yulianti",
"P", "09/28/1994",
1200000, "1A_D3")
Table.Rows.Add("36112012", "Sri
Aprianti", "P", "04/05/1994", 4000000, "1A_D3")
Table.Rows.Add("36112013", "Noviantri
Paembonan", "P", "11/19/1994", 6000000, "1A_D3")
Table.Rows.Add("36112018", "Kurniawati",
"P", "10/11/1994",
2000000, "1A_D3")
Table.Rows.Add("36112017", "Dana
Abrian", "L", "10/05/1994", 5000000, "1A_D3")
Table.Rows.Add("36112023", "Andi
Arhami Hamzah", "P", "06/28/1994", 10000000, "1A_D3")
Table.Rows.Add("36112059", "Ummul
Hayyul Qayyum", "P", "12/01/1993", 3500000, "1A_D3")
Table.Rows.Add("36112027", "Nurul
Rezki Susanti", "P", "09/24/1994", 5000000, "1A_D3")
Table.Rows.Add("36112005", "Mawar
Aztanti", "P", "06/01/1993", 4000000, "1A_D3")
Table.Rows.Add("36112022", "Rismawati",
"P", "09/07/1994",
900000, "1A_D3")
Table.Rows.Add("36112004", "Endah
Mariadi", "P", "11/07/1994", "7500000",
"1A_D3")
Table.Rows.Add("36112026", "Melinda
Rizkawati", "P", "05/07/1994", 2000000, "1A_D3")
Table.Rows.Add("36112025", "Ivana
Olivia Aser", "P", "01/14/1993", 6000000, "1A_D3")
Table.Rows.Add("36112021", "Sulaipah",
"P", "09/28/1994",
1000000, "1A_D3")
Table.Rows.Add("36112061", "Rahmat
Adi Pratama", "L", "04/21/1994", 10000000, "1A_D3")
Table.Rows.Add("36112060", "Nita",
"P", "01/04/1995",
2500000, "1A_D3")
Table.Rows.Add("36112019", "Kharisma
Yusuf", "P", "06/14/1994", 4000000, "1A_D3")
Table.Rows.Add("36112014", "A.
Rahmawaty", "P", "04/04/1994", 5000000, "1A_D3")
Table.Rows.Add("36112015", "Danela
Mangintek", "P", "11/06/1994", 3000000, "1A_D3")
Table.Rows.Add("36112009", "Rahmaniah",
"P", "01/19/1994",
1200000, "1A_D3")
Table.Rows.Add("46112003", "Nurawalia
M.", "P", "12/04/1994", 3000000, "1A_D4")
Table.Rows.Add("46112023", "Puspita
Susilawati Ridjal", "P",
"01/01/1994", 4000000, "1A_D4")
Table.Rows.Add("46112018", "Rose
Anne Tarida Situmorang", "P",
"12/14/1994", 5000000, "1A_D4")
Table.Rows.Add("46112004", "Siti
Khaerunnisa", "P", "03/28/1994", 1000000, "1A_D4")
Table.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1A_D4")
Table.Rows.Add("46112011", "Delsi
Tifani Lan", "P", "12/24/1994", 2000000, "1A_D4")
Table.Rows.Add("46112027", "Reny
Rita Waty Djafar", "P",
"07/26/1993", 3000000, "1A_D4")
Table.Rows.Add("46112002", "Dewi
Sartika", "P", "02/10/1994", 1000000, "1A_D4")
Table.Rows.Add("46112004", "Anita
Rahmah Muhtadin", "P",
"12/07/1994", 5000000, "1A_D4")
Table.Rows.Add("46112021", "Rafidah",
"P", "06/05/1994",
500000, "1A_D4")
Table.Rows.Add("46112009", "Eka
Yuli Astuti", "P", "08/07/1994", 2000000, "1A_D4")
Table.Rows.Add("46112025", "Fitri
Amalia Islamiati", "P",
"03/26/1995", 4000000, "1A_D4")
Table.Rows.Add("46112014", "Mariana.",
"P", "06/22/1994",
1000000, "1A_D4")
Table.Rows.Add("46112013", "A.
Muh. Lutfi Ahmad", "L",
"10/10/1993", 4000000, "1A_D4")
Table.Rows.Add("46112008", "Nanda
Ardilia Pratama", "L",
"08/01/1994", 1000000, "1A_D4")
Table.Rows.Add("46112022", "Liliani
Paelongan", "P", "05/25/1994", 3000000, "1A_D4")
Table.Rows.Add("46112007", "Andi
Rabiah", "L", "09/07/1994", 1000000, "1A_D4")
Table.Rows.Add("46112001", "Rizka
Awalia Mustakim", "P",
"10/07/1994", 3000000, "1A_D4")
Table.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1A_D4")
Table.Rows.Add("46112017", "Camelia
Indulgenssya Gundung", "P",
"09/14/1994", 2000000, "1A_D4")
Table.Rows.Add("46112028", "Nur
Salim Rusdi", "L", "04/12/1994", 1500000, "1A_D4")
Table.Rows.Add("46112026", "Muhammad
Khaidir", "L", "12/26/1993", 3000000, "1A_D4")
Table.Rows.Add("46112020", "Sukriani
Karunia Rahma", "P", "12/01/1994", 3000000, "1A_D4")
Table.Rows.Add("46112006", "Rezky
Tri Utami", "P", "07/03/1994", 3000000, "1A_D4")
Table.Rows.Add("46112029", "Azwar
Arfah", "L", "04/03/1994", 3000000, "1A_D4")
Table.Rows.Add("46112016", "Dyah
Sukma Anggraini", "P",
"05/10/1994", 3500000, "1A_D4")
Table.Rows.Add("46112010", "Nur
Indah Purnamasari", "P",
"07/22/1994", 2500000, "1A_D4")
Table.Rows.Add("46112012", "Nurul
Qadri Musra", "L", "08/24/1994", 3000000, "1A_D4")
Table.Rows.Add("36112028", "adri
prianto tukan", "L", "04/26/1994", 2000000, "1B_D3")
Table.Rows.Add("36112057", "Renaldy
Alchudri Azsagaf", "L",
"05/03/1994", 10000000, "1B_D3")
Table.Rows.Add("36112039", "Andi
Syahril", "L", "10/02/1994", 2000000, "1B_D3")
Table.Rows.Add("36112051", "Muhammad
Adhe Anugrah", "L", "08/31/1993", 5000000, "1B_D3")
Table.Rows.Add("36112042", "Sukmawati
Amir", "P", "04/13/1994", 6000000, "1B_D3")
Table.Rows.Add("36112040", "Dian
Eka Puteri", "P", "11/11/1993", 1000000, "1B_D3")
Table.Rows.Add("36112048", "Tri
Wahyuni", "P", "11/11/1994", 800000, "1B_D3")
Table.Rows.Add("36112047", "A.
Dian Pelita Waty", "P",
"05/05/1994", 3000000, "1B_D3")
Table.Rows.Add("36112043", "Mu'minat
Nur", "P", "05/17/1995", 5000000, "1B_D3")
Table.Rows.Add("36112050", "Andi
Anggi Fadliyah", "P", "08/15/1994", 1500000, "1B_D3")
Table.Rows.Add("36112033", "A.
Syasya Annisa Ausan", "P",
"08/08/1994", 7000000, "1B_D3")
Table.Rows.Add("36112044", "Muhammad
Fachri Sani", "L", "02/02/1994", 5000000, "1B_D3")
Table.Rows.Add("36112053", "Resky
Yonada Ahmad", "P", "03/22/1994", 1500000, "1B_D3")
Table.Rows.Add("36112029", "Trinayanti",
"P", "06/03/1992",
3000000, "1B_D3")
Table.Rows.Add("36112041", "Musyarafah
Asis", "L", "07/13/1994", 6000000, "1B_D3")
Table.Rows.Add("36112055", "Achmad
Rezky Satria Perdana", "L",
"12/17/1993", 3000000, "1B_D3")
Table.Rows.Add("36112034", "Fibra
Yoseph P.", "P", "03/27/1995", 6000000, "1B_D3")
Table.Rows.Add("36112045", "Ibnu
Affan Al-Mufar'id", "L",
"08/05/1994", 8000000, "1B_D3")
Table.Rows.Add("36112030", "Sri
Widya Ayu Wandini", "P",
"06/01/1994", 5000000, "1B_D3")
Table.Rows.Add("36112046", "Sri
Wahyuni Hafid", "P", "12/25/1994", 11000000, "1B_D3")
Table.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1B_D3")
Table.Rows.Add("36112052", "Sabri",
"L", "07/24/1993",
700000, "1B_D3")
Table.Rows.Add("36112049", "Alfin
Riani Bandaso", "P", "04/11/1994", 3000000, "1B_D3")
Table.Rows.Add("36112036", "Nurmilasari",
"P", "07/06/1993",
200000, "1B_D3")
Table.Rows.Add("36112035", "Tri
Arismunandar", "L", "12/09/1993", 1000000, "1B_D3")
Table.Rows.Add("36112031", "Nur
Indahsari Idris", "P",
"08/28/1994", 5000000, "1B_D3")
Table.Rows.Add("36112037", "Ismawati",
"P", "08/01/1994",
900000, "1B_D3")
Table.Rows.Add("36112034", "Rezky
Arianti", "P", "01/27/1994", 3000000, "1B_D3")
Table.Rows.Add("36112032", "Artis
Susan", "P", "10/29/1993", 5000000, "1B_D3")
Table.Rows.Add("36112054", "Ade
Apriathis Rantelino", "L",
"04/27/1994", 3000000, "1B_D3")
Table.Rows.Add("46112055", "Reni
Anggraeni", "P", "10/12/1994", 1500000, "1B_D4")
Table.Rows.Add("46112042", "Faradhiba
Zainal Putri", "P", "12/04/1993", 3000000, "1B_D4")
Table.Rows.Add("46112054", "Rahmi
Ani", "P", "11/30/1994", 2000000, "1B_D4")
Table.Rows.Add("46112043", "Remon
Agit Rimang", "L", "01/06/1995", 3000000, "1B_D4")
Table.Rows.Add("46112032", "Abd.
Rahman", "L", "10/08/1994", 1500000, "1B_D4")
Table.Rows.Add("46112057", "I
Ketut Yuda Sadpwa", "L",
"05/02/1993", 4500000, "1B_D4")
Table.Rows.Add("46112037", "Herianto",
"L", "12/08/1993",
3000000, "1B_D4")
Table.Rows.Add("46112058", "citra
amalia ramadhani", "L",
"02/16/1995", 3000000, "1B_D4")
Table.Rows.Add("46112050", "Andi
Akbar", "L", "11/26/1994", 2000000, "1B_D4")
Table.Rows.Add("46112034", "Gamaliel
Giovani Rafael Nong", "L",
"08/06/1993", 3700000, "1B_D4")
Table.Rows.Add("46112047", "Hasmawati",
"P", "11/22/1994",
5000000, "1B_D4")
Table.Rows.Add("46112038", "Viorensi
S", "P", "10/13/1994", 2000000, "1B_D4")
Table.Rows.Add("46112046", "Andini
Hayrunnisyah", "P", "06/27/1994", 1500000, "1B_D4")
Table.Rows.Add("46112031", "Irmayanti",
"P", "05/02/1994",
1000000, "1B_D4")
Table.Rows.Add("46112039", "Carissa
Evan Anthen", "P", "10/23/1994", 6000000, "1B_D4")
Table.Rows.Add("46112052", "Aprianto
Sandy", "L", "04/11/1993", 3000000, "1B_D4")
Table.Rows.Add("46112049", "Muhammad
Farid Syah", "L", "01/20/1995", 5000000, "1B_D4")
Table.Rows.Add("46112033", "Maulanan
Ibrahim", "L", "04/10/1994", 1000000, "1B_D4")
Table.Rows.Add("46112035", "Herpita
Tohura", "P", "10/24/1993", 700000, "1B_D4")
Table.Rows.Add("46112048", "Udin
Pranata", "L", "01/29/1993", 1000000, "1B_D4")
Table.Rows.Add("46112051", "Afrisca
Fraktiani Rante", "P",
"04/13/1995", 5000000, "1B_D4")
Table.Rows.Add("46112056", "Kartini
Widyasita", "P", "04/21/1993", 4650000, "1B_D4")
Table.Rows.Add("46112045", "Abdul
Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1B_D4")
Table.Rows.Add("46112040", "Tommy
Paunganan", "L", "02/22/1993", 2000000, "1B_D4")
Table.Rows.Add("46112053", "Khusnul
Khatimah A", "P", "08/27/1994", 3000000, "1B_D4")
Table.Rows.Add("46112041", "Nida
Hazimah Ulfah", "P", "09/24/1995", 5000000, "1B_D4")
Table.Rows.Add("46112044", "Ulfah
Nas", "P", "01/26/1994", 5000000, "1B_D4")
Table.Rows.Add("46112036", "Hasmiati
Hajar", "P", "05/17/1994", 5000000, "1B_D4")
'Perintah menapilkan data melalui data view
TableView =
Table.DefaultView
dgv_36110039.DataSource = TableView
'Perintah mengubah lebar kolom pada table
dgv_36110039.Columns("Stambuk").Width
= 60
dgv_36110039.Columns("Jenis
Kelamin").Width = 50
dgv_36110039.Columns("Tanggal
Lahir").Width = 70
dgv_36110039.Columns("Gaji Ortu").Width
= 60
dgv_36110039.Columns("Kelas").Width
= 40
dgv_36110039.Columns("Jenis
Kelamin").DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleCenter
dgv_36110039.Columns("Kelas").DefaultCellStyle.Alignment
= DataGridViewContentAlignment.MiddleCenter
End Sub
Private Sub
Stb_36110039_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Stb_36110039.CheckedChanged
'Perintah mengurutkan data berdasarkan stambuk
If Stb_36110039.Checked = True
Then
TableView.Sort = "Stambuk"
End If
End Sub
Private Sub
kelas1_36110039_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kelas1_36110039.CheckedChanged
'Perintah mengurutkan data berdasarkan kelas
If kelas1_36110039.Checked = True
Then
TableView.Sort = "[Kelas] desc"
End If
End Sub
Private Sub
kelas2_36110039_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kelas2_36110039.CheckedChanged
'Perintah mengurutkan data berdasarkan kelas dan tanggal
lahir
If kelas2_36110039.Checked = True
Then
TableView.Sort = "[Kelas], [Tanggal
Lahir]"
End If
End Sub
Private Sub
gaji_36110039_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
gaji_36110039.CheckedChanged
'Perintah mengurutkan data berdasarkan gaji ortu
If gaji_36110039.Checked = True
Then
TableView.Sort
= "[Gaji Ortu] desc"
End If
End Sub
Private Sub
gaji1_36110039_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
gaji1_36110039.TextChanged
'Perintah filter berdasarkan gaji ortu pada textbox
TableView.RowFilter = "[Gaji Ortu] >
" & Val(gaji1_36110039.Text)
End Sub
Private Sub
bk1_36110039_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
bk1_36110039.TextChanged
'Perintah filter berdasarkan kelas pada textbox
TableView.RowFilter = "[Kelas] <>
'" & bk1_36110039.Text & "'"
End Sub
Private Sub
dtp1_36110039_ValueChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
dtp1_36110039.ValueChanged
'Perintah filter berdasarkan tanggal lahir pada
datetimepicker
TableView.RowFilter = "[Tanggal Lahir]
< #" & dtp1_36110039.Value.Month & "/" & dtp1_36110039.Value.Day & "/" & dtp1_36110039.Value.Year &
"#"
End Sub
Private Sub
nama1_36110039_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
nama1_36110039.TextChanged
'Perintah filter berdasarkan nama yang mengandung unsur
pada textbox
TableView.RowFilter = "[Nama] like
'%" & nama1_36110039.Text & "%'"
End Sub
Private Sub
filter_36110039_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
filter_36110039.Click
Dim tgl As String
tgl = "#" & dtp2_36110039.Value.Month
& "/" &
dtp2_36110039.Value.Day & "/"
& dtp2_36110039.Value.Year & "#"
TableView.RowFilter = "[Gaji ortu]
>" & Val(gaji2_36110039.Text) & "
and Kelas <>" & "'"
& kelas2_36110039.Text & "'"
& " and [Tanggal Lahir] <"
& tgl & " and Nama like"
& "'%" &
nama2_36110039.Text & "%'"
End Sub
Private Sub
atur_36110039_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
atur_36110039.Click
'Perintah mengubah warna baris sesuai dengan beberapa
kriteria
For Each BarisX As DataGridViewRow In
dgv_36110039.Rows
If BarisX.Cells("Gaji
Ortu").Value >= 6000000 Then
BarisX.DefaultCellStyle.BackColor = Color.Red
ElseIf BarisX.Cells("Gaji
Ortu").Value >= 5000000 Then
BarisX.DefaultCellStyle.BackColor = Color.Crimson
ElseIf BarisX.Cells("Gaji
Ortu").Value >= 4000000 Then
BarisX.DefaultCellStyle.BackColor = Color.Bisque
ElseIf BarisX.Cells("Gaji
Ortu").Value >= 3000000 Then
BarisX.DefaultCellStyle.BackColor = Color.Blue
ElseIf BarisX.Cells("Gaji
Ortu").Value >= 2000000 Then
BarisX.DefaultCellStyle.BackColor = Color.FloralWhite
Else
BarisX.DefaultCellStyle.BackColor = Color.YellowGreen
End If
Next
End Sub
Private Sub
GroupBox4_Enter(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
GroupBox4.Enter
End Sub
End Class
14. Untuk
melihat apakah program yang anda telah buat sudah benar atau belum tepat maka
klik icon Start Debugging.
Tidak ada komentar:
Posting Komentar