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

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

13.10.2017, 16:16. Просмотров 94. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Реализовать кнопку для паузы в Загрузчике (Downloader) (Visual Basic .NET):

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

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

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

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

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

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

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

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

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

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

Реализовать класс для матриц. В этом классе реализовать интерфейс, содержащий методы для выполнения операций
Реализовать класс для матриц. В этом классе реализовать интерфейс, содержащий...


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

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

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