La imagen sigue al archivo ejecutable en VB

Puede satisfacer fácilmente sus necesidades utilizando el control ImageList que viene con VB.

Escribí un programa simple para su referencia. El método es el siguiente: en VB, seleccione el menú "Proyecto" - "Partes", seleccione "Controles comunes de Microsoft Windows" y luego agregue el control ImageList1. en Formulario1. Haga clic derecho en el control ImageList1, seleccione Propiedades-Imágenes-Insertar imagen y luego seleccione varios archivos de imagen. Agregue dos controles CommandButton y un control Imagen, cambie el título del control Command1 a "<<" y cambie el título del control Command2 a ">>". ".Finalmente, simplemente agregue el siguiente código.

Opción explícita

Dim iCount As Integer ' El número total de imágenes en ImageList

Dim iIndex As Integer ' Lo que se llama ahora es la primera imagen en ImageList

Private Sub Command1_Click()

If iIndex > 1 Then

iIndex = iIndex - 1

Llamar a XianShiTuPian

Finalizar si

Fin de sub

Subcomando privado2_Click()

Si iIndex <iCount Entonces

iIndex = iIndex + 1

Llamar a XianShiTuPian

Finalizar si

End Sub

Sub privado Form_Load( )

iCount = ImageList1.Enabled = iIndex <> 1

Command2.Enabled = iIndex <> iCount

End Sub

Tú También puedes descargar este programa (VB_ImageList.7z) haciendo clic en el siguiente enlace:

/files/c30508e52a0c477bae395086fd689c5c.gbp