Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
AlisherUser
0 / 0 / 0
Регистрация: 25.02.2016
Сообщений: 189
1

Реализовать кнопку для паузы в Загрузчике (Downloader)

13.10.2017, 16:16. Просмотров 104. Ответов 0
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста реализовать кнопку паузы для моего Загрузчика.
Спасибо!
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Imports System.Net
Imports System.IO
 
Public Class Form1
    Public WithEvents download As WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim url As String = TextBox1.Text
        Dim sfd As New SaveFileDialog
        sfd.ShowDialog()
        If sfd.FileName = "" Then
            Exit Sub
        End If
        Dim savefolder As String = sfd.FileName
        download = New WebClient
        If CheckBox1.Checked = True Then
            Dim port As Integer = TextBox4.Text
            download.Proxy = New WebProxy(TextBox3.Text, port)
            download.Headers.Add("Proxy-Connection", "keep-alive")
        End If
        download.Headers.Add("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.143 Safari/537.36")
        download.Headers.Add("Accept", "*/*")
        download.Headers.Add("Accept-Encoding", "identity")
        download.Headers.Add("Accept-Language", "ru-RU")
        download.Headers.Add("Accept-Charset", "*")
        download.DownloadFileAsync(New Uri(url), savefolder)
        Button1.Enabled = False
        Button2.Enabled = True
    End Sub
    Private Sub download_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
 
        ProgressBar1.Maximum = e.TotalBytesToReceive
        Label4.Text = Math.Round(e.TotalBytesToReceive / 1024 / 1024, 2) & " MB"
        ProgressBar1.Value = e.BytesReceived
        Label6.Text = Math.Round(e.BytesReceived / 1024 / 1024, 2) & " MB"
        Dim procent As Double = Math.Round((e.BytesReceived * 100) / e.TotalBytesToReceive, 2)
        Label7.Text = procent & " %"
        
        If e.TotalBytesToReceive = e.BytesReceived Then
            ProgressBar1.Value = 0
            Button1.Enabled = True
            Button2.Enabled = False
            Label6.Text = "0 MB"
            Label4.Text = "0 MB"
            Label7.Text = "0 %"
 
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        download.CancelAsync()
        ProgressBar1.Value = 0
        Label6.Text = "0 MB"
        Label4.Text = "0 MB"
        Label7.Text = "0 %"
        Button1.Enabled = True
        Button2.Enabled = False
    End Sub
End Class
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.10.2017, 16:16
Ответы с готовыми решениями:

Таймер формата h:m:s с функцией паузы
Есть ли в vb какие-то средства, чтобы выводить таймер в формате h:m:s? Нужно...

Помогите реализовать меню паузы в игре
Доброго времени суток! Прошу помочь мне реализовать меню паузы в игре. Меню...

Windows и Linux в одном загрузчике
Извините, не могли бы вы помочь с моим случаем . Установил сначала виндовс...

OpenSuse и Windows 8 в одном загрузчике
Здравствуйте. Мне хотелось бы чтобы из загрузчика OpenSuse 13.1, можно было...

Как отобразить кирилицу в загрузчике?
КАК ОТОБРАЗИТЬ РУССКИЕ СИМВОЛЫ ВО ВТОРИЧНОМ ЗАГРУЗЧИКЕ??? Я че то нашел в роде...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.10.2017, 16:16

Переход в нереальный режим в загрузчике
Требуется написать загрузчик ОС Windows c подсчётом контрольной суммы ROM BIOS....

Установка Windows при удаленном загрузчике
Всех приветствую. Ноутбук Dell N5110. Стояла Win8.1. После очередной...

Две windows 8 в загрузчике после переустановки
Доброго времени суток! Ситуация следующая. На разных разделах стояли win7 и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru