[VB] Come caricare l' immaggine?

[jabjoint]

Scusate per l' ignoranza ma non riesco nel mio intento.
Cio' che voglio fare è sicuramente una banalità per voi.
Sto facendo un gioco che deve caricare da le immaggini da una cartella. Il mio problema è che non so come fare a caricarle.
Poi che oggetto devo utilizzare?? "PictureBox" o "Image" ???
Grazie a tutti !

[jabjoint]

Cosi: LoadPicture ("percorso_immaggine") non fa nulla. Bho.!!!

[jabjoint]

Mi visualizza un quadrato nero:
Set x = LoadPicture("\Documenti\immagini\eli.bmp")
Picture1.PaintPicture x, 50, 50, 300, 300, 50, 50, 300, 300, 0

[steno12]

fai così:
incolla questo codice in nuovo progetto:

interfaccia grafica:
nel form immetti una label1, 2 pulsanti e un controllo image1
e il componente commondialog, per avere il componente nel tuo progetto
clicca sul menu progetto e poi su componenti e spunta la voce Microsoft common dialog control e poi clicca su applica e poi su OK

'--------taglia da quì-------------
Private Sub Command1_Click()
With CommonDialog1
Label1.Caption = ""
Image1.Picture = LoadPicture("")
.Filter = "File BMP|*.bmp" _
& "|" & "File GIF|*.gif" _
& "|" & "File JPG|*.jpg" _
& "|" & "File ICO|*.ico" _
& "|" & "File CUR|*.cur" _
& "|" & "File WMF|*.wmf" _
& "|" & "Tutti i file|*.*"
.DialogTitle = "Apri"
.ShowOpen
If .FileName <> "" Then
Image1.Picture = LoadPicture(.FileName)
Label1.Caption = .FileName
Command2.Enabled = True
Else
Image1.Picture = LoadPicture("")
Label1.Caption = ""
Command2.Enabled = False
End If
End With
End Sub

Private Sub Command2_Click()
If Label1.Caption = "" Then
Else
Image1.Picture = LoadPicture("")
Label1.Caption = ""
Command2.Enabled = False
End If
End Sub
'-------a quì----------------------

studia il listato e adattalo come vuoi:
di okait60@katamail.com
freeware

link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

buon lavoro

[Nico]

Personalmente uso le image, mi piacciono di più :-)
Steno non so cosa ha scritto di preciso ma forse si è complicato la vita....
Ad un evento basta che associ:

Set Img1.Picture = LoadPicture(App.Path & "\nomefoto.jpg")

Naturalmente se ci sono delle foto numerate puoi mettere qualcosa tipo

Set Img1.Picture = LoadPicture(App.Path & "\nomefoto" & Variabile & ".jpg")

[jabjoint]

Che stupidata !!!!! Grazie mille ad entrambi.