-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathucDwnLst.ctl
160 lines (152 loc) · 4.21 KB
/
ucDwnLst.ctl
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
VERSION 5.00
Begin VB.UserControl ucDwnLst
BackColor = &H00EBEBEB&
ClientHeight = 5670
ClientLeft = 0
ClientTop = 0
ClientWidth = 4830
ScaleHeight = 5670
ScaleWidth = 4830
Begin VB.VScrollBar sroDwn
Height = 4455
LargeChange = 100
Left = 4560
Max = 100
SmallChange = 10
TabIndex = 2
Top = 1200
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox picDLst
BackColor = &H00EBEBEB&
BorderStyle = 0 'None
Height = 3135
Left = 0
ScaleHeight = 3135
ScaleWidth = 4815
TabIndex = 1
Top = 1200
Width = 4815
Begin MagDown.ucDownload Dwner
Height = 975
Index = 0
Left = 0
TabIndex = 3
Top = 0
Visible = 0 'False
Width = 4815
_ExtentX = 8493
_ExtentY = 1720
End
End
Begin VB.PictureBox picDwn
BackColor = &H00EBEBEB&
BorderStyle = 0 'None
Height = 1215
Left = 0
ScaleHeight = 1215
ScaleWidth = 4815
TabIndex = 0
Top = 0
Width = 4815
Begin VB.Label lblClear
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "헌왕죗깊"
BeginProperty Font
Name = "菓흡錤붚"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 405
Left = 3480
TabIndex = 4
Top = 720
Width = 1200
End
Begin VB.Image imgDwIco
Height = 1065
Left = 120
Picture = "ucDwnLst.ctx":0000
Top = 120
Width = 1200
End
End
End
Attribute VB_Name = "ucDwnLst"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Dwner_DwnRemoved(Index As Integer)
Unload Dwner(Index)
ReAvg
End Sub
Private Sub lblClear_Click()
If Dwner.Count = 1 Then Exit Sub
If MsgBox("횅땍狼헌왕苟潼죗깊찐？", 32 + vbYesNo, "헌왕") = vbNo Then Exit Sub
On Error GoTo errRe
Dim i As Long
For i = 1 To Dwner.UBound
Dwner(i).StopDownload
Unload Dwner(i)
Next i
Exit Sub
errRe:
i = i + 1
Resume
End Sub
Private Sub sroDwn_Change()
picDLst.Top = picDwn.Height - sroDwn.Value
End Sub
Private Sub sroDwn_Scroll()
sroDwn_Change
End Sub
Private Sub UserControl_Resize()
UserControl.Width = 4830
UserControl.Height = 5670
End Sub
Sub AddNewDwn(sUrl As String, sPath As String)
Load Dwner(Dwner.UBound + 1)
With Dwner(Dwner.UBound)
.Move 0, Dwner(0).Height * (Dwner.Count - 2)
.Visible = True
picDLst.Height = (Dwner.Count - 1) * Dwner(0).Height
If picDLst.Height > UserControl.Height - picDwn.Height Then
sroDwn.LargeChange = Dwner(0).Height * 2
sroDwn.SmallChange = Dwner(0).Height
sroDwn.Visible = True
Else
sroDwn.Visible = False
End If
.NewDownload sUrl, sPath
End With
End Sub
Private Sub ReAvg()
On Error GoTo errRe
Dim i As Long, lTop As Long
lTop = 0
For i = 1 To Dwner.UBound
Dwner(i).Top = lTop
lTop = lTop + Dwner(0).Height
Next i
picDLst.Height = (Dwner.Count - 1) * Dwner(0).Height
If picDLst.Height > UserControl.Height - picDwn.Height Then
sroDwn.LargeChange = Dwner(0).Height * 2
sroDwn.SmallChange = Dwner(0).Height
sroDwn.Visible = True
Else
sroDwn.Visible = False
End If
Exit Sub
errRe:
i = i + 1
Resume
End Sub