Gagal praktek di lapangan min,,, ijin minta tolong koreksikan code loading berikut :
-
3 tahun lalu
-
anda harus tahu dengan pasti kapan proses makro akan berakhir untuk membuat progres bar seperti itu. dengan tidak adanya proses looping maka tidak akan diketahui kapan prosesnya berakhir sehingga penggunaan progres bar seperti contoh yang saya berikan tidak bisa dilakukan.
namun, ada cara lain selain dengan looping, yaitu dengan meletakan tanda disuatu tempat di proses makro anda yang akan memberitahu bahwa proses makro sudah sampai dimana. untuk lebih jelasnya silahkan cek file terlampir.
-
Luar biasa,,,, Terimakasih banyak min atas bantuannya, sudah mulai paham sedikit namun
Bisa jelaskan maksud kode berikut ini kah ; ? biar lebih paham,,,Sub Main(ByVal a As Integer)
With prgsBar
.MyBar.Width = a * (300 / 100)
.Caption = "Memproses Data... " & a & "%"
End With
DoEvents
End Sub -
@bandikukar Luar biasa,,,, Terimakasih banyak min atas bantuannya, sudah mulai paham sedikit namun
Bisa jelaskan maksud kode berikut ini kah ; ? biar lebih paham,,,Sub Main(ByVal a As Integer)
With prgsBar
.MyBar.Width = a * (300 / 100)
.Caption = "Memproses Data... " & a & "%"
End With
DoEvents
End Suba = nilai persentasenya
300 = width dari barnya
100= 100 %kalau nilai a = 40 maka akan dihasilkan lebar bar :
lebar = 40 * (300/100) lebar = 120
jadi saat tanda progressnya dipanggil dengan perintahcall Main(40), maka lebar bar akan menjadi 120demikian
-
Alhamdulilah ... Makasih banyak min,,,
-
Assalamualaikum,,, gan ketemu lagi, semoga sehat slalu,,, ijin nanya gan, kalo membuat progress seperti contoh diatas namun kondisinya adalah : satu form yg isinya ada 3 atau lebih progress,,, seperti tabel ... makasih sebelumnya