51 lines
823 B
Text
51 lines
823 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Private $hDownload As WebDownload
|
||
|
|
|
||
|
|
Public Sub Init(hDownload As WebDownload)
|
||
|
|
|
||
|
|
$hDownload = hDownload
|
||
|
|
Redraw
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub Redraw()
|
||
|
|
|
||
|
|
Dim sTitle As String
|
||
|
|
Dim sStatus As String
|
||
|
|
|
||
|
|
If Not $hDownload Then Return
|
||
|
|
|
||
|
|
With $hDownload
|
||
|
|
|
||
|
|
sTitle = .Url
|
||
|
|
If .Status = .Cancelled Then
|
||
|
|
sStatus = "Cancelled"
|
||
|
|
Else If .Status = .Finished Then
|
||
|
|
sStatus = "Finished"
|
||
|
|
Else If .Status = .Error Then
|
||
|
|
sStatus = "Error: " & .ErrorText
|
||
|
|
Else
|
||
|
|
sStatus = "Downloading..."
|
||
|
|
Endif
|
||
|
|
lblTitle.Text = sTitle
|
||
|
|
lblStatus.Text = sStatus
|
||
|
|
|
||
|
|
pgbDownload.Value = .Progress
|
||
|
|
|
||
|
|
End With
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnAbort_Click()
|
||
|
|
|
||
|
|
If $hDownload.Status = WebDownload.Downloading Then
|
||
|
|
$hDownload.Cancel
|
||
|
|
Else
|
||
|
|
$hDownload.Delete
|
||
|
|
Me.Delete
|
||
|
|
Endif
|
||
|
|
|
||
|
|
End
|