Keskustelu: Ohjelmointikysymykset: VB6: GIF tai JPG Visual Basic 3:lla

Mulla on käytössä Visual Basic 3.00 PROFESSIONAL. Onko sillä mahdollsta avata GIF tai JPG -kuvatiedosto? Jos pystyisi avaamaan GIF-muotoisen animaation, pystyykö sitä animaatiota katsomaan siinä?

Ja sitten: Miten voi ajaa jonkun toisen ohjelman nappia painamalla (VB)?

Jos oikein tajusin niin ohjelma ajetaan nappia painamalla näin:

Private Sub Command1_Click()
Shell "missä\tiedosto\sijaitsee.exe"
End Sub

Muista en sitten tiedä, ja en muista että toimiko tuo kolmosella

Kyllä Shell-käsky on ollut mukana ihan alusta asti.
Mitä tulee GIF ja JPEG-kuviin, VB5:stä lähtien Visual Basic on osannut avata niitä ihan natiivina ilman tarvetta millekään DLL:ille tms. GIF-animaatioita uudemmatkaan eivät muistaakseni kuitenkaan hanskaa.
Toki kuvien avaaminen mahdollista on.. katsele Googlesta jos löytyisi jotain. Suosittelisin kuitenkin uudempaan VB:hen vaihtamista suosiolla.. helpottaisi varmasti elämääsi kummasti.

Shell ei muistaakseni toimi VB3:ssa ihan noin, koska se on siinä vain funktio. Oikea tapa on kutsua sitä jotenkin seuraavasti (tuosta Integeristä en kyllä ole ihan varma):

Dim ohjelma As Integer
ohjelma = Shell("c:\ohjelma.exe")

Lisäksi funktiolle voi antaa toisena parametrinä tavan, jolla ohjelmaikkuna näytetään.

Ainakin VB 6:ssa kuvan saa auki koodista jotenkin näin:

Image1.Picture = LoadPicture("C:\kuva.jpg")

Olkaa hyvät ja käyttäkää suhteellista polkua eli tallennatte kuvat samaan kansioon kuin ohjelma itse ja käytätte App.Path määrittelyä kuvan edessä:
esim:

Image1.Picture = LoadPicture(App.Path & "\kuva.jpg")

Joo toi Antin juttu on parempi, ja jos siihen haluu laittaa tarkistuksen et löytyykö tiedosto ni sitten tälleen:

    If Dir(App.Path & "\kuva.jpg") = "" Then
    MsgBox "Virhe! Kuvaa 'kuva.jpg' ei löytynyt.", 16, "Virhe"
    Exit Sub
    End If
Image1.Picture = LoadPicture(App.Path & "\kuva.jpg")