+- Creare Videogiochi - Game Developer (https://www.making-videogames.net/giochi)
+-- Forum: Programmazione (https://www.making-videogames.net/giochi/Forum-Programmazione)
+--- Forum: Visual Basic, Visual Basic.Net (https://www.making-videogames.net/giochi/Forum-Visual-Basic-Visual-Basic-Net)
+--- Discussione: Una specie di container a scorrimento (/thread-Una-specie-di-container-a-scorrimento)
Una specie di container a scorrimento - Alche - 10-12-2010
Un container dove cliccando le freccie scorra la lista dei programmi chiedo troppo?
In poche parole deve esserci picturebox e bottoni
|-------------------------------------------------------------------------|
|
|
|
|<-(freccietta a scorrimento)varie picture box e button..che scorrono al tocco della freccia ->
|
|
|
|
|-------------------------------------------------------------------------|
RE: Una specie di container a scorrimento - steve - 10-12-2010
Codice:
Public Class Form1
Dim immagini(3) As String 'cambia il numero per mettere più immagini
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
immagini(0) = "1.jpg"
immagini(1) = "2.jpg"
immagini(2) = "3.jpg" 'percorso immagini (non serve se l'immagine è nella stessa cartella dell'eseguibile)
x = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If x > 0 Then
x -= 1
Else
x = 2 'il numero dipende dalla quantità di immagini ( NumeroDaMettere = NumeroImmagini - 1 )
End If
PictureBox1.Image = Image.FromFile(immagini(x))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If x < 2 Then 'il numero dipende dalla quantità di immagini (come sopra)
x += 1
Else
x = 0
End If
PictureBox1.Image = Image.FromFile(immagini(x))
End Sub
End ClassRE: Una specie di container a scorrimento - Alche - 11-12-2010
Grazie mille!