Keskustelu: Koodit: VB6: kuvan lataaminen netistä

Option Explicit

Private Sub Command1_Click()
Dim bytes() As Byte
Dim fnum As Integer
    'lukitsee näppäimet ja teksti-lootat
    Command1.Enabled = False
    Text2.Enabled = False
    Text1.Enabled = False
    Picture1.Picture = Nothing
    Screen.MousePointer = vbHourglass
    DoEvents

    On Error GoTo 10
    'haetaankuva internetistä
    bytes() = Inet1.OpenURL(Text1.Text, icByteArray)

    fnum = FreeFile 'Tallennetaan kuva
    Open Text2.Text For Binary Access Write As #fnum
    Put #fnum, , bytes()
    Close #fnum

    'Ladataan kuva
    Picture1.Picture = LoadPicture(Text2.Text)
    If ScaleHeight < Picture1.Top + Picture1.Height + 120 Then
        Height = Picture1.Top + Picture1.Height + 120 + Height - ScaleHeight
    End If
    GoTo 20
10
    MsgBox "Virhe!"
    End
20
    'Näppäimet ja teksti-lootat toimimaan
    Command1.Enabled = True
    Text2.Enabled = True
    Text1.Enabled = True
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Load()
Dim dir_name As String
     Command1.caption = "Lataa kuva"
    'Ladattava kuvan osoite
    Text1.Text = "https://www.ohjelmointiputka.net/img/banneri.jpg"

    dir_name = App.Path
    If Right$(dir_name, 1) <> "\" Then dir_name = dir_name & "\"
    Text2.Text = dir_name & "Test.jpg"
End Sub