home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Picture_Do171687362004.psc / Downloader.ctl < prev    next >
Text File  |  2004-03-06  |  2KB  |  58 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Downloader 
  3.    ClientHeight    =   540
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   510
  7.    Picture         =   "Downloader.ctx":0000
  8.    ScaleHeight     =   540
  9.    ScaleWidth      =   510
  10. End
  11. Attribute VB_Name = "Downloader"
  12. Attribute VB_GlobalNameSpace = False
  13. Attribute VB_Creatable = True
  14. Attribute VB_PredeclaredId = False
  15. Attribute VB_Exposed = False
  16. Option Explicit
  17. Private mstrPictureFromURL As String
  18. Event Change(Download)
  19. Event Maxim(Maxi)
  20. Event Vallue(Valu)
  21. 'Event Stat(Statist)
  22.            
  23. Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
  24. On Error Resume Next
  25.    Select Case AsyncProp.PropertyName
  26.       Case "PictureFromURL"
  27.     RaiseEvent Vallue(AsyncProp.Value)
  28.    End Select
  29. Exit Sub
  30. End Sub
  31.  
  32. Public Property Get PictureFromURL() As String
  33.    PictureFromURL = mstrPictureFromURL
  34. End Property
  35.  
  36. Public Property Let PictureFromURL(ByVal NewString As String)
  37. On Error Resume Next
  38.    ' (Code to validate path or URL omitted.)
  39.    mstrPictureFromURL = NewString
  40.    If (Ambient.UserMode = True) And (NewString <> "") Then
  41.       ' If program is in run mode, and the URL string
  42.       ' is not empty, begin the download.
  43.       AsyncRead NewString, vbAsyncTypePicture, "PictureFromURL"
  44.    End If
  45.    PropertyChanged "PictureFromURL"
  46. End Property
  47.  
  48. Public Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
  49.     RaiseEvent Maxim(AsyncProp.BytesMax)
  50.     RaiseEvent Change(AsyncProp.BytesRead)
  51.     'RaiseEvent Stat(AsyncProp.Status)
  52. End Sub
  53.  
  54. Private Sub UserControl_Resize()
  55. UserControl.Size 480, 480
  56. End Sub
  57.  
  58.