![]() ![]() Me.Label5.Text = "Downloading: " & Me.txtFileName.Text Public Sub ChangeTexts(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double) MessageBox.Show("Successfully downloaded!", "All OK", MessageBoxButtons.OK, MessageBoxIcon.Information) ![]() MessageBox.Show("Download aborted", "Aborted", MessageBoxButtons.OK, MessageBoxIcon.Information) Public Sub DownloadComplete(ByVal cancelled As Boolean) i haven't tried it yet Imports System.Netĭim whereToSave As String 'Where the program save the fileĭelegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)ĭelegate Sub DownloadCompleteSafe(ByVal cancelled As Boolean)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
June 2023
Categories |