Implementación del código fuente de Photo vb
Esta es una función de comparación.
La función privada PicCom (m es una cadena, n es una cadena) es un valor booleano
Utilice a() como byte y b() como byte
Abrir m como binario Como 1
Redim a(LOF(1) - 1)
Obtener 1,, a
Cerrar 1
Para que el binario sea 1, abra n
redim b(LOF(1) - 1)
para obtener 1,,b
Cerrar 1
Si StrComp(a,b)<> Entonces 0
PicCom = False
Otro
PicCom = True
Terminará si...
Finalizar función
Subcomando privado 1_Click()
Llamar a SavePicture(Picture1(0), App. Ruta y Ruta. " \temp1.jpg ")
Llamar a Guardar Imagen(Imagen1(1), Ruta y Ruta de la Aplicación. " \temp2.jpg ")
Si PicCom( App.Path y ruta." \temp1.jpg ",App.Path y ruta." \temp2.jpg ")Luego
MsgBox "Igual"
Otro
p>MsgBox "diferente"
Terminará si...
Aplicación Instakill. Caminos y caminos. " \temp1.jpg "
Aplicación Second Kill. Caminos y caminos. " \temp2.jpg "
Conector final
Subform_Load privado()
Cambie la ruta de la imagen usted mismo.
Imagen1(0). Imagen = LoadPicture(App.Path y Path." \20.jpg ")
Imagen 1(1). Imagen = LoadPicture(App.Path y Path." \c06.jpg ")
Conector final