Dalam membangun sebuah aplikasi diperlukan tampilan yang menarik agar terkesan tidak kaku dan monoton. Ketika aplikasi membaca baris data, kita bisa memanfaatkan kombinasi antara objek Label dan Progress Bar untuk mengetahui proses pembacaan data. Adapun Label berfungsi untuk menampilkan isi data, sedangkan Progress Bar digunakan untuk membaca progres jumlah data yang diproses. Buatlah sebuah project dengan nama LabelProgressBar dan desain tampilan form seperti ini
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Dim cnnDB As New OleDbConnection(My.Settings.Koneksi)
cnnDB.Open()
Dim adp As New OleDbDataAdapter(
"Select od.OrderID,pd.ProductName From [Order Details] od " & _
"Left Join Products pd On pd.ProductId=od.ProductId " & _
"Order By od.OrderID", cnnDB)
Dim dt As New DataTable
adp.Fill(dt)
Me.prgBar.Value = 0
Me.prgBar.Maximum = dt.Rows.Count - 1
For i As Integer = 0 To dt.Rows.Count - 1
Me.lblProses.Text = dt.Rows(i)("ProductName")
Me.lblProses.Update()
Me.lblRecord.Text = i.ToString & " Record."
Me.lblRecord.Update()
Me.prgBar.Value = i
Next
End Sub
Setelah project dijalankan terlihat hasilnya seperti dibawah ini
Bener² cakep dah... Ini yang tak cari² dari dulu... Maturtengkyu om 🙏🙏🙏
BalasHapusBiasanya kebanyakan tutorial contohnya cuma pake timer...