50 lines
836 B
Text
50 lines
836 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
|