none
CAMBIAR IMAGENES EN UN PICTUREBOX CON UN BOTON " SIGUIENTE IMAGEN" RRS feed

  • Pregunta

  • Amigos, si puede alguien enseñarme, como puedo usar un PictureBox para ver varias imágenes presionando un botón "Siguiente Imagen"

    las imágenes estarían cargadas en una Carpeta establecida, no en una base de datos.

    Las imágenes no tienen un nombre establecido,  podrían estar con cualquier nombre....

    puede ser que necesite ver una, dos, o más imágenes, nunca más de 20 imágenes por ejemplo...

    Les agradezco de corazón vuestra ayuda

    :)


    consegui el siguiente código,  pero actua con imágenes guardadas en el archivo My.Resources

    y yo necesito cargar imágenes desde una carpeta de archivos de imagenes

    Codigo:

    Imports

    System.Resources



    Public

    ClassForm1

    Privateimg AsNewList(OfBitmap)

    Private imgNum AsInteger

    PrivateSubForm1_Load(sender AsSystem.Object, e AsSystem.EventArgs) HandlesMyBase.Load

    DimResourSet AsResourceSet= My.Resources.ResourceManager.GetResourceSet(Application.CurrentCulture, True, True)

    For Each item AsDictionaryEntryInResourSet

    If item.Value.GetType = GetType(Bitmap) Then

                    img.Add(

    CType(item.Value, Bitmap))

    End If

    Next

            imgNum = 0

            PictureBox1.Image = img(imgNum)

    EndSub

    PrivateSubButton1_Click(sender AsSystem.Object, e AsSystem.EventArgs)HandlesButton1.Click

    If imgNum > 0 Then

                imgNum -= 1

                PictureBox1.Image = img(imgNum)

    EndIf

    EndSub

    PrivateSubButton2_Click(sender AsSystem.Object, e AsSystem.EventArgs) handlesButton2.Click

    If imgNum < img.Count - 1 Then

               imgNum += 1

                PictureBox1.Image = img(imgNum)

    End If

    EndSub

    End Class


    jueves, 6 de agosto de 2015 19:54