Esto se puede hacer??
Publicado por Santiago Leyendeker (23 intervenciones) el 24/09/2003 09:16:17
hola, lo que yo quiero hacer es cargar unas fotos en una matriz tipo picture y despues guardarla en archivo para no necesitar mas lo .jpg !
no se si me explico, aca va el programita que hice para generar estos archivitos, pero me tira error !! esto se puede hacer
Private Sub Form_Load()
Dim X(15) As Picture
Set X(0) = LoadPicture("c:\fotos\Blanco.jpg")
Set X(1) = LoadPicture("c:\fotos\Beso_2_1.jpg")
Set X(2) = LoadPicture("c:\fotos\Beso_3_1.jpg")
Set X(3) = LoadPicture("c:\fotos\Beso_4_1.jpg")
Set X(4) = LoadPicture("c:\fotos\Beso_1_2.jpg")
Set X(5) = LoadPicture("c:\fotos\Beso_2_2.jpg")
Set X(6) = LoadPicture("c:\fotos\Beso_3_2.jpg")
Set X(7) = LoadPicture("c:\fotos\Beso_4_2.jpg")
Set X(8) = LoadPicture("c:\fotos\Beso_1_3.jpg")
Set X(9) = LoadPicture("c:\fotos\Beso_2_3.jpg")
Set X(10) = LoadPicture("c:\fotos\Beso_3_3.jpg")
Set X(11) = LoadPicture("c:\fotos\Beso_4_3.jpg")
Set X(12) = LoadPicture("c:\fotos\Beso_1_4.jpg")
Set X(13) = LoadPicture("c:\fotos\Beso_2_4.jpg")
Set X(14) = LoadPicture("c:\fotos\Beso_3_4.jpg")
Set X(15) = LoadPicture("c:\fotos\Beso_4_4.jpg")
FileNum = FreeFile
Open "C:\Beso.Pic" For Input As FileNum
For n = 0 To 15
Print #FileNum, X(n)
Next n
Close #FileNum
End Sub
no se si me explico, aca va el programita que hice para generar estos archivitos, pero me tira error !! esto se puede hacer
Private Sub Form_Load()
Dim X(15) As Picture
Set X(0) = LoadPicture("c:\fotos\Blanco.jpg")
Set X(1) = LoadPicture("c:\fotos\Beso_2_1.jpg")
Set X(2) = LoadPicture("c:\fotos\Beso_3_1.jpg")
Set X(3) = LoadPicture("c:\fotos\Beso_4_1.jpg")
Set X(4) = LoadPicture("c:\fotos\Beso_1_2.jpg")
Set X(5) = LoadPicture("c:\fotos\Beso_2_2.jpg")
Set X(6) = LoadPicture("c:\fotos\Beso_3_2.jpg")
Set X(7) = LoadPicture("c:\fotos\Beso_4_2.jpg")
Set X(8) = LoadPicture("c:\fotos\Beso_1_3.jpg")
Set X(9) = LoadPicture("c:\fotos\Beso_2_3.jpg")
Set X(10) = LoadPicture("c:\fotos\Beso_3_3.jpg")
Set X(11) = LoadPicture("c:\fotos\Beso_4_3.jpg")
Set X(12) = LoadPicture("c:\fotos\Beso_1_4.jpg")
Set X(13) = LoadPicture("c:\fotos\Beso_2_4.jpg")
Set X(14) = LoadPicture("c:\fotos\Beso_3_4.jpg")
Set X(15) = LoadPicture("c:\fotos\Beso_4_4.jpg")
FileNum = FreeFile
Open "C:\Beso.Pic" For Input As FileNum
For n = 0 To 15
Print #FileNum, X(n)
Next n
Close #FileNum
End Sub
Valora esta pregunta
0