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
