none
Actualiser une form RRS feed

  • Question

  • Bonjour, j'aimerai savoir comment on fait pour actualiser une form. Je m'explique, j'ai un petit programme qui ressemble a ce ceci : 

    http://www.hostingpics.net/viewer.php?id=272276Sanstitre.png

    Voici mon code : 

    Public Class Form1
    
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'variables globlales
        Dim carte(5, 5) As Integer 'position de départ (2,3)
        Dim abscisse As Integer = 2
        Dim ordonnee As Integer = 3
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            TextBox1.Text = abscisse
            TextBox2.Text = ordonnee
        End Sub
    
        Private Sub Haut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Haut.Click
            ordonnee = ordonnee + 1
        End Sub
    
        Private Sub Droite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Droite.Click
            abscisse = abscisse + 1
        End Sub
    
        Private Sub Bas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bas.Click
            ordonnee = ordonnee - 1
        End Sub
    
        Private Sub Gauche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gauche.Click
            abscisse = abscisse - 1
        End Sub
    End Class
    
    Donc quand j'appuie sur haut, j'aimerai que la valeur qui apparaissent dans y soit 4 et non, pour cela il faudrait que la form s'actualise, or je ne sais pas quelle méthode utilisé.


    Cordialement, maxkun ;)

    vendredi 1 juin 2012 09:15

Réponses

  • Mais vous avez bien mis à jour la propriété text ?

    Private Sub Haut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Haut.Click
     ordonnee = ordonnee + 1
     TextBox2.Text = ordonnee
     TextBox2.Invalidate()
    End Sub

    • Marqué comme réponse maxkun vendredi 1 juin 2012 10:00
    vendredi 1 juin 2012 09:51
    Modérateur

Toutes les réponses