tableau vb.net pour le bouton diaporama

Question

Salut à tous, je suis au milieu d'essayer de savoir comment s'y prendre ...

J'ai une forme que je l'appelle comme ceci:

call frmSlideShow.showWhat("1,4,8,9,11,22") 

Chacun des nombres représente une diapositive d'image différente (slide1.png, slide4.png, etc.). Le problème que j'ai est d'essayer de créer un bouton "précédent" et "suivant" pour les parcourir tous. Essayer de comprendre le nombre de l'utilisateur et de partir de là et voir quels numéros sont encore à gauche de la liste ci-dessus qui a été envoyé, etc

Si quelqu'un a une idée de comment je ferais cela, alors ce serait sois génial! :)

MISE À JOUR

est le code ici ..

Public Sub showWhat(ByVal theNumbers As String) 
    Dim theNums As String() = theNumbers.Split(New Char() {","c}) 
    Dim theCurNum As String 

    For Each theCurNum In theNums 
     Debug.Print(theCurNum) 
    Next 
End Sub 

David

Answer 1

de tableau de chaînes de theNums Mettez un niveau dans votre code avec une variable entière qui permet de suivre la position actuelle dans le tableau. Ensuite, votre bouton suivant vérifierait les bornes supérieures du tableau Numer pour s'assurer que vous n'étiez pas sur le dernier. Si vous ne l'étiez pas, cela augmenterait la variable entière d'une unité, et vous pourriez alors utiliser theNums (intTracker).

Public Class Form1 
    Dim theNums As String() 
    Dim intTracker As Integer = 0 
    Public Sub showWhat(ByVal theNumbers As String) 
     theNums = theNumbers.Split(New Char() {","c}) 
     intTracker = 0 
     MsgBox("Currently showing " & theNums(intTracker)) 
     If theNums.GetUpperBound(0) < 1 Then 
      btnNext.Enabled = False 'Only one number was passed, so disable the next button 
     End If 
    End Sub 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     Call showWhat("1,2,3") 
    End Sub 
    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click 
     btnNext.Enabled = True 
     intTracker -= 1 
     MsgBox("Now on " & theNums(intTracker)) 
     If intTracker = 0 Then 
      btnLast.Enabled = False 'Disable the button because you're at the beginning 
     End If 
    End Sub 

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click 
     btnLast.Enabled = True 
     intTracker += 1 
     MsgBox("Now on " & theNums(intTracker)) 
     If theNums.GetUpperBound(0) = intTracker Then 
      btnNext.Enabled = False 'On the last slide, so disable the next button 
     End If 
    End Sub 
End Class