Sebelum next tambahkan DoEvents :p On 09/06/07, cahyo kusworo <[EMAIL PROTECTED]> wrote: > > teman2 vbers yth, > > saya ga tau subject email saya bener apa nggak, tapi maksud saya > gini: > > saya membuat program yang membaca file2 txt di suatu folder, > kemudian mengambil sebagian isi file2 txt tsb yang selanjutnya saya > masukkan ke dalam file txt baru. > jumlah file txt dlm folder tsb kira2 9000 file. > proses yg dilakukan cukup lama, sehingga utk memberi tanda bahwa > proses masih dilakukan, saya mengganti gambar pointer mouse menjadi > vbhourglass. > saya ingin mempercantik tampilan dengan menggunakan progress bar, cm > yg jadi masalah ketika proses pembacaan & penulisan file txt, > progres bar yg saya set visible=true tetap tidak kelihatan. > ini kodingnya : > > ProgBarXP1.Visible = True > Open File1.Path + "\2007.txt" For Output As #2 > For li = 0 To File1.ListCount - 1 > Open File1.Path + "\" + File1.List(li) For Input As #1 > Line Input #1, InputData > IsiFile = InputData > Close #1 > > Mulai = 0 > For i = 1 To Len(IsiFile) > If Asc(Mid(IsiFile, i, 1)) = 10 Then > If Mulai <> 0 Then > bla bla bla bla ........ > End If > Mulai = i > End If > Next > > Next > Close #2 > ProgBarXP1.Visible = False > > > > mohon pencerahan dari teman2 supaya ProgBarXP1 saya bisa kelihatan > dan menunjukkan bahwa program sedang mengerjakan sesuatu. > > trims sebelumnya, > > > > cahyo > > > > Untuk berhenti berlangganan kirim email kosong ke : > [EMAIL PROTECTED] > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke [EMAIL PROTECTED], kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > > >
-- Best Regard, [zZzz] [Non-text portions of this message have been removed]
