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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
| Public Class Form1
Dim WithEvents WebC_ As New Net.WebClient
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim OFфD As New SaveFileDialog With {.Title = "Выберай Ё", .Filter = "All files(*.*)|*.*", .FileName = OFD.SafeFileName}
If OFфD.ShowDialog = Windows.Forms.DialogResult.Cancel Then Return
TextBox2.Text = OFфD.FileName
End Sub
Private Sub TextBox2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.MouseEnter
ToolTip1.SetToolTip(sender, TryCast(sender, TextBox).Text)
End Sub
Private Sub TextBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
ToolTip1.Show(DirectCast(sender, TextBox).Text, sender)
'ToolTip1.SetToolTip(sender, TryCast(sender, TextBox).Text)
End Sub
Dim ex_ As Boolean = False
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ex_ = True
WebC_.CancelAsync()
MsgBox("Operation Suspend" & StrDup(16, CChar(" ")), MsgBoxStyle.Critical)
End Sub
Dim ewq As New Stopwatch
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GroupBox1.Visible = False
GroupBox2.Location = New Point(8, 16)
GroupBox2.Visible = True
ewq.Start()
WebC_.DownloadFileAsync(New Uri(TextBox1.Text.Trim), TextBox2.Text)
Timer1.Start()
End Sub
Private Sub WebC__DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebC_.DownloadFileCompleted
ProgressBar1.Value = 0
: ProgressBar2.Value = 0
If ex_ Then Return
'MsgBox("Status SuccessFully File" & StrDup(8, CChar(" ")), MsgBoxStyle.Information)
ewq.Stop()
Me.Text = ewq.Elapsed.TotalMilliseconds
End Sub
Private Sub WebC__DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebC_.DownloadProgressChanged
Label3.Text = String.Concat("Скаченно ", Convert.ToByte(e.BytesReceived / 1024 / 1024), " MB", " из ", icxod, " MB")
Label3.Refresh()
ProgressBar1.Value = e.ProgressPercentage
End Sub
Dim icxod As UInteger
Dim OFD As New OpenFileDialog With {.Title = "Выберай Ё", .Filter = "All files(*.*)|*.*"}
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If OFD.ShowDialog = Windows.Forms.DialogResult.Cancel Then Return
TextBox1.Text = OFD.FileName
Button3.Enabled = True
fINFO_ = New IO.FileInfo(OFD.FileName)
Max_ = fINFO_.Length
icxod = Max_ / 1024 / 1024
ProgressBar2.Maximum = icxod
End Sub
Dim fINFO_ As IO.FileInfo
Dim Max_ As Integer
Dim intRazm As Integer
Dim fINFO__ As IO.FileInfo
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
fINFO__ = New IO.FileInfo(TextBox2.Text.ToString)
intRazm = fINFO__.Length
ProgressBar2.Value = CInt(intRazm / 1024 / 1024)
Label4.Text = String.Concat("Скаченно ", Convert.ToInt16(intRazm / 1024 / 1024), " MB", " из ", icxod, " MB") ' / 1024 / 1024), " MB") '(intRazm / 1024 / 1024) & "" ' / CInt(Max_) * 100
Label5.Text = String.Concat("Всего ", Convert.ToUInt16(intRazm / 1024 / 1024) / icxod * 100, " %")
'Label6.Text = String.Concat("Осталось ", 100 - CObj((intRazm / 1024 / 1024) / icxod * 100), " %")
Label4.Refresh()
If intRazm >= Max_ Then sender.Stop()
Application.DoEvents()
End Sub
End Class |
(
