[VB2005]ProgressBar ???

[dias]

Các Bác cho hỏi :
em viết code khi bấm vào nút là nó down nhưng em mún thêm cả progressbar vào để biết down dc bao nhiu phần trăm thì Viết Code thế nào ạ em đang sài Vb 2005

[Uzumaki Naruto]

Cái này hình như anh PTS có viết trên diễn đàn cũ. Hồi trước mình có dùng để làm Form cập nhật nên bây giờ còn giữ

Code: Select all

Dim WithEvents wc As New Net.WebClientDim sCheck, ChVer, DBVer As String Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted        On Error Resume Next        If PB.Value >= PB.Maximum Then            DBDate.Text = DBVer            SaveSetting(Application.ProductName, "DBDate", "DBDate", DBDate.Text)            Status.Text = "Cập nhật CSDL thành công"            MsgBox("Bạn phải khởi động lại chương trình để hoàn tất việc cập nhật", MsgBoxStyle.OkOnly + 64 + 0, "Cập nhật thành công")            Kill(Application.StartupPath & "\CSDL\Data.mdb")            FileCopy(Application.StartupPath & "\Data.mdb", Application.StartupPath & "\CSDL\Data.mdb")            Kill(Application.StartupPath & "\Data.mdb")        End IfEnd Sub Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged        Status.Text = "Đã tải về " & (e.BytesReceived \ 1000) & "/" & (e.TotalBytesToReceive \ 1000) & "KB" 'Đây là TextBox Status để hiển thị dung lượng đã load trên tổng dung lượng.        PB.Value = e.BytesReceived * 100 \ e.TotalBytesToReceive 'PB là ProgressBar hiển thị dung lượng đã loadEnd Sub

Để tạo Download một File thì bạn dùng code như sau:

Code: Select all

wc.DownloadFileAsync(New System.Uri("http://hlongsoft.googlepages.com/Data.mdb"), Application.StartupPath & "\Data.mdb")

Để huỷ bỏ tiến trình download bạn dùng:

Code: Select all

wc.CancelAsync()

Bạn cố sửa lại nha, cái này là mình code cho chương trình mình nên có lẽ nhiều cái sẽ thừa, loại bỏ nó đi.
Còn cả cái PB.Maximum thì gán cho nó bằng 100 (100%)

[dias]

Anh Có thể nói rõ hoàn chỉnh hay cho demo dc hem em mới học

[dias]

wc là gì thế ạ sao nó báo lỗi có toàn là wc

[Uzumaki Naruto]

Bạn đã đặt dòng

Code: Select all

Dim WithEvents wc As New Net.WebClientDim sCheck, ChVer, DBVer As String

Ở ngay dưới phần Public Class... chưa (Khai báo biến toàn cục)
Mà mình nghĩ là bạn mới học thì cũng không nên tìm hiểu về code này nhiều.

[dias]

Sao bác kô nói sớm add Y!M shinigamicuong@yahoo.com đi ta sẽ nói chuyện cho nhanh

[dias]

Mà có phải tạo ra một button xong thêm đoạn này
wc.DownloadFileAsync(New System.Uri("http://hlongsoft.googlepages.com/Data.mdb"), Application.StartupPath & "\Data.mdb")

vào đúng kô ?
bấm vô nút đơ lun

[truongphu]

Nếu không có gì bí mật
xin hỏi
Password của file http://hlongsoft.googlepages.com/Data.mdb là gì thế?
Nếu có được
Tôi cố thử dùng ADODB test thử ...
Cảm ơn Uzumaki Naruto

[Uzumaki Naruto]

Dạ đây, cháu Up luôn Source của cái chương trình cũ này, chú xem trong phần kết nối Database nhé
Còn dias thì bạn xem phần Download trong Form FrmUpdate
viewtopic.php?f=61&t=6794

[dias]

Mấy Bác Gà Quá nếu kô mún người ta tò mò mình đổi định dạng thành dll code trong VB cũng đổi lun là dc

[minhhath]

kiến thức là vô tận bác học còn học đừng nên dùng từ Gà trong học tập