none
Déplacez un bouton automatiquement RRS feed

  • Discussion générale

  • bonjour

    je suis debutant sous vb.net 2010 et je sollicite votre aide

    j'ai suis en train de faire un programme du style de  boogle 

    mon problème ,je voudrais qu’après d'avoir fait mon mot ,effacer les buttons contenant les lettres aléatoires choisie et que les buttons du dessus( sil y a) descende a la place des autres pour former toujours un bloc de lettres 

    merci de votre aide

    j'espere que mon explication a ete claire

    cordialement

    mercredi 9 mars 2011 18:18

Toutes les réponses

  • Bonsoir bydom,

    Vous pouvez supprimer un contrôle en utilisant l'instruction suivante :  Me.Controls.Remove(nom du bouton a retirer)

    Pour le cacher seulement et le ré-afficher ultérieurement il suffit de mettre la propriété Visible à False : BoutonConcerné.Visible = False

    Enfin, pour déplacer un bouton, il suffit d'utiliser la propriété Location : BoutonConcerné.Location = New Point(x, y) ou x et y sont les coordonnées respectivement horizontale et verticale par rapport au coin supérieur gauche de son conteneur (le Form ulaire ou une GroupBox par exemple).

    Si vous avez des soucis pour exploiter tout cela, fournissez-nous une ébauche de code, et on se basera dessus afin de produire un résultat concret.

     

     

     


    N'hésitez pas à poser des questions si un problème subsiste ou quelque chose n'est pas clair. Dans l'autre cas, veuillez indiquer que le problème est résolu. Cordialement. - Best Regards.
    mercredi 9 mars 2011 19:35
  • bonjour michel k,

    merci de tes reponses,mais tous ce que tu me mentionne je le connais.

    Je voudrais que les buttons qui reste visible dans mon groupebox se reorganisse automatiquement pour prendre la place de ceux que j'ai effacer,pour toujours former

    un groupe de lettres pour continuer a creer d'autres mot,haut,bas,gauche,droite,diagonale.

    j’espère que ma réponse et claire,sinon je fournirai une ébauche de code.

     

    jeudi 10 mars 2011 16:21
  • Bonjour,

     

    Je crois qu’un exemple de code et une capture d’écran de votre projet seront utiles pour mieux comprendre votre scenario.

     

    Cordialement,

    Alex

    ________________

    Publiez un article sur MSDN !

    Windows Phone 7

    Astuces pour Visual Studio 2010

    XNA – Développement jeux vidéo

    Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Silverlight, Workflow Foundation, SharePoint, WPF

    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

     

     


    Suivez MSDN sur Twitter 

    vendredi 11 mars 2011 12:33
  • <br/>
    
    <br/>
    
    <br/>
    
    bonjour
    
    je vous joint mon code source,ce n'est qu'une ébauche,peu optimiser mais bon je suis débutant
    
    mais je ne sais pas comment insérer ma capture d’écran ?
    
    cordialement
    
    bydom
    
    Imports System.Runtime.InteropServices
    Imports Microsoft.Office.Interop
    Public Class Form1
    
      Private lblsuivant As Integer = 0
      Private cible As Byte
      Private label(8) As Label
      Private bt(24) As Button
      Private z, x As Integer
    
    
    
    
    
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.BackColor = Color.White Then
          Button1.BackColor = Color.Red
          label(lblsuivant).Text = Button1.Text
    
          lblsuivant = lblsuivant + 1
    
          Button1.Enabled = False
        Else
          Button1.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
    
    
    
      End Sub
    
      Private Sub Button1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.DoubleClick
    
      End Sub
    
      Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
    
    
      End Sub
    
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.BackColor = Color.White Then
          Button2.BackColor = Color.Red
          label(lblsuivant).Text = Button2.Text
          lblsuivant = lblsuivant + 1
          Button2.Enabled = False
        Else
    
          Button2.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
    
      End Sub
    
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        label(0) = lb1
        label(1) = lb2
        label(2) = lb3
        label(3) = lb4
        label(4) = lb5
        label(5) = lb6
        label(6) = lb7
        label(7) = lb8
        label(8) = lb9
        
    
        'Dim bt(24) As Button
        bt(0) = Button1
        bt(1) = Button2
        bt(2) = Button3
        bt(3) = Button4
        bt(4) = Button5
        bt(5) = Button6
        bt(6) = Button7
        bt(7) = Button8
        bt(8) = Button9
        bt(9) = Button10
        bt(10) = Button11
        bt(11) = Button12
        bt(12) = Button13
        bt(13) = Button14
        bt(14) = Button15
        bt(15) = Button16
        bt(16) = Button17
        bt(17) = Button18
        bt(18) = Button19
        bt(19) = Button20
        bt(20) = Button21
        bt(21) = Button22
        bt(22) = Button23
        bt(23) = Button24
        bt(24) = Button25
    
    
        Randomize()
        For a = 0 To 26
          cible = Int((26 * Rnd()) + 1)
    
          bt(a).Text = (Chr(cible + 64))
    
    
    
        Next
      End Sub
    
    
    
    
    
    
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.BackColor = Color.White Then
          Button3.BackColor = Color.Red
          label(lblsuivant).Text = Button3.Text
          lblsuivant = lblsuivant + 1
          Button3.Enabled = False
        Else
    
          Button3.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.BackColor = Color.White Then
          Button4.BackColor = Color.Red
          label(lblsuivant).Text = Button4.Text
          lblsuivant = lblsuivant + 1
          Button4.Enabled = False
    
        Else
    
    
    
          Button4.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
      Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.BackColor = Color.White Then
          Button5.BackColor = Color.Red
          label(lblsuivant).Text = Button5.Text
          lblsuivant = lblsuivant + 1
    
          Button5.Enabled = False
        Else
    
          Button5.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
     
      Private Sub Button26_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        'tableau de caractere qui va permettre le stockage des lettres chosis
        Dim tabmot(9) As Char
        'variable d'incrementation
        Dim i As Integer
        'permettra de stocker le mot taper
        Dim lemot As String = ""
        tabmot(0) = lb1.Text
        tabmot(1) = lb2.Text
        tabmot(2) = lb3.Text
        tabmot(3) = lb4.Text
        tabmot(4) = lb5.Text
        tabmot(5) = lb6.Text
        tabmot(6) = lb7.Text
        tabmot(7) = lb8.Text
        tabmot(8) = lb9.Text
        tabmot(9) = "?"
    
    
        'boucle concatenet les lettres du tableau dans lemot
        While tabmot(i) <> "?"
          lemot = lemot & tabmot(i)
          i = i + 1
    
        End While
        'affiche le mot valide le nombre de lettre
        lblresultat.Text = "votre mot : " & lemot.ToString & vbCrLf & "Nombre de lettres :" & lemot.Length
        resultat.Text = lemot.ToString
    
        If ll1.Text = "" Then
          ll1.Text = resultat.Text
    
        Else
    
    
          If ll2.Text = "" Then
            ll2.Text = resultat.Text
    
          Else
    
    
            If ll3.Text = "" Then
              ll3.Text = resultat.Text
            Else
              If ll4.Text = "" Then
                ll4.Text = resultat.Text
              Else
                If ll5.Text = "" Then
                  ll5.Text = resultat.Text
                Else
                  If ll6.Text = "" Then
                    ll6.Text = resultat.Text
                  Else
                    If ll7.Text = "" Then
                      ll7.Text = resultat.Text
                    Else
                      If ll8.Text = "" Then
    
                        ll8.Text = resultat.Text
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
        For a = 0 To 24
          If bt(a).Enabled = False Then
    
            bt(a).Visible = False
    
    
          End If
        Next
    
        ' efface.Visible = False
        While lblsuivant > 0
          lblsuivant = lblsuivant - 1
          label(lblsuivant).Text = "?"
    
    
    
        End While
    
    
      End Sub
    
      Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub lb1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb1.Click
    
      End Sub
    
      Private Sub efface_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles efface.Click
        'Initialise les buttons sélectionnées, remet le backcolor d'origine et réactive les buttons enfonces
        While lblsuivant > 0
          lblsuivant = lblsuivant - 1
          label(lblsuivant).Text = "?"
    
        End While
    
        For a = 0 To 24
          bt(a).BackColor = Color.White
          bt(a).Enabled = True
        Next
    
      End Sub
    
      
    
      Private Sub vide_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub pleine_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        'verification avec correcteur Word
        Dim App As New Word.Application()
        If resultat.Text <> "" Then
    
          'on rend invisible Word
          App.Visible = False
          'on va créer un document
          Dim doc As Word.Document = App.Documents.Add(, , , True)
          'on y place le texte à vérifier
          doc.Words.First.InsertBefore(resultat.Text)
    
          'on lance le correcteur
          Dim spellErrorsColl As Word.ProofreadingErrors = doc.SpellingErrors
          doc.CheckSpelling()
    
          'on remet le texte
    
          '  resultat.Text = doc.Range(0, doc.Characters.Count - 1).Text()
          If doc.Range(0, doc.Characters.Count - 1).Text() <> resultat.Text Then
            TextBox1.Text = doc.Range(0, doc.Characters.Count - 1).Text()
            TextBox1.ForeColor = Color.Red
          End If
    
        End If
        App.Quit(False)
      End Sub
    
      Private Sub resultat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultat.TextChanged
    
      End Sub
    End Class
    
     Imports System.Runtime.InteropServices
    Imports Microsoft.Office.Interop
    Public Class Form1
    
      Private lblsuivant As Integer = 0
      Private cible As Byte
      Private label(8) As Label
      Private bt(24) As Button
      Private z, x As Integer
    
    
    
    
    
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.BackColor = Color.White Then
          Button1.BackColor = Color.Red
          label(lblsuivant).Text = Button1.Text
    
          lblsuivant = lblsuivant + 1
    
          Button1.Enabled = False
        Else
          Button1.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
    
    
    
      End Sub
    
      Private Sub Button1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.DoubleClick
    
      End Sub
    
      Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
    
    
      End Sub
    
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.BackColor = Color.White Then
          Button2.BackColor = Color.Red
          label(lblsuivant).Text = Button2.Text
          lblsuivant = lblsuivant + 1
          Button2.Enabled = False
        Else
    
          Button2.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
    
      End Sub
    
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        label(0) = lb1
        label(1) = lb2
        label(2) = lb3
        label(3) = lb4
        label(4) = lb5
        label(5) = lb6
        label(6) = lb7
        label(7) = lb8
        label(8) = lb9
        
    
        'Dim bt(24) As Button
        bt(0) = Button1
        bt(1) = Button2
        bt(2) = Button3
        bt(3) = Button4
        bt(4) = Button5
        bt(5) = Button6
        bt(6) = Button7
        bt(7) = Button8
        bt(8) = Button9
        bt(9) = Button10
        bt(10) = Button11
        bt(11) = Button12
        bt(12) = Button13
        bt(13) = Button14
        bt(14) = Button15
        bt(15) = Button16
        bt(16) = Button17
        bt(17) = Button18
        bt(18) = Button19
        bt(19) = Button20
        bt(20) = Button21
        bt(21) = Button22
        bt(22) = Button23
        bt(23) = Button24
        bt(24) = Button25
    
    
        Randomize()
        For a = 0 To 26
          cible = Int((26 * Rnd()) + 1)
    
          bt(a).Text = (Chr(cible + 64))
    
    
    
        Next
      End Sub
    
    
    
    
    
    
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.BackColor = Color.White Then
          Button3.BackColor = Color.Red
          label(lblsuivant).Text = Button3.Text
          lblsuivant = lblsuivant + 1
          Button3.Enabled = False
        Else
    
          Button3.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.BackColor = Color.White Then
          Button4.BackColor = Color.Red
          label(lblsuivant).Text = Button4.Text
          lblsuivant = lblsuivant + 1
          Button4.Enabled = False
    
        Else
    
    
    
          Button4.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
      Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.BackColor = Color.White Then
          Button5.BackColor = Color.Red
          label(lblsuivant).Text = Button5.Text
          lblsuivant = lblsuivant + 1
    
          Button5.Enabled = False
        Else
    
          Button5.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
      Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Button9.BackColor = Color.White Then
          Button9.BackColor = Color.Red
          label(lblsuivant).Text = Button9.Text
          lblsuivant = lblsuivant + 1
    
          Button9.Enabled = False
        Else
          Button9.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Button10.BackColor = Color.White Then
          Button10.BackColor = Color.Red
          label(lblsuivant).Text = Button10.Text
          lblsuivant = lblsuivant + 1
    
          Button10.Enabled = False
        Else
          Button1.BackColor = Color.White
          label(lblsuivant).Text = ""
        End If
      End Sub
    
      Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Button6.BackColor = Color.White Then
          Button6.BackColor = Color.Red
          label(lblsuivant).Text = Button6.Text
          lblsuivant = lblsuivant + 1
    
          Button6.Enabled = False
        Else
          Button6.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button8.BackColor = Color.White Then
          Button8.BackColor = Color.Red
          label(lblsuivant).Text = Button8.Text
          lblsuivant = lblsuivant + 1
    
          Button8.Enabled = False
        Else
          Button8.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button7.BackColor = Color.White Then
          Button7.BackColor = Color.Red
          label(lblsuivant).Text = Button7.Text
          lblsuivant = lblsuivant + 1
    
          Button7.Enabled = False
        Else
          Button7.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        If Button24.BackColor = Color.White Then
          Button24.BackColor = Color.Red
          label(lblsuivant).Text = Button24.Text
          lblsuivant = lblsuivant + 1
    
          Button24.Enabled = False
        Else
          Button24.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        If Button25.BackColor = Color.White Then
          Button25.BackColor = Color.Red
          label(lblsuivant).Text = Button25.Text
          lblsuivant = lblsuivant + 1
    
          Button25.Enabled = False
        Else
          Button25.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        If Button20.BackColor = Color.White Then
          Button20.BackColor = Color.Red
          label(lblsuivant).Text = Button20.Text
          lblsuivant = lblsuivant + 1
    
          Button20.Enabled = False
        Else
          Button20.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        If Button19.BackColor = Color.White Then
          Button19.BackColor = Color.Red
          label(lblsuivant).Text = Button19.Text
          lblsuivant = lblsuivant + 1
    
          Button19.Enabled = False
        Else
          Button19.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If Button14.BackColor = Color.White Then
          Button14.BackColor = Color.Red
          label(lblsuivant).Text = Button14.Text
          lblsuivant = lblsuivant + 1
    
          Button14.Enabled = False
        Else
          Button14.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Button12.BackColor = Color.White Then
          Button12.BackColor = Color.Red
          label(lblsuivant).Text = Button12.Text
          lblsuivant = lblsuivant + 1
    
          Button12.Enabled = False
        Else
          Button12.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Button11.BackColor = Color.White Then
          Button11.BackColor = Color.Red
          label(lblsuivant).Text = Button11.Text
          lblsuivant = lblsuivant + 1
    
          Button11.Enabled = False
        Else
          Button11.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If Button13.BackColor = Color.White Then
          Button13.BackColor = Color.Red
          label(lblsuivant).Text = Button13.Text
          lblsuivant = lblsuivant + 1
    
          Button13.Enabled = False
        Else
          Button13.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        If Button23.BackColor = Color.White Then
          Button23.BackColor = Color.Red
          label(lblsuivant).Text = Button23.Text
          lblsuivant = lblsuivant + 1
    
          Button23.Enabled = False
        Else
          Button23.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If Button22.BackColor = Color.White Then
          Button22.BackColor = Color.Red
          label(lblsuivant).Text = Button22.Text
          lblsuivant = lblsuivant + 1
    
          Button22.Enabled = False
        Else
          Button22.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If Button17.BackColor = Color.White Then
          Button17.BackColor = Color.Red
          label(lblsuivant).Text = Button17.Text
          lblsuivant = lblsuivant + 1
    
          Button17.Enabled = False
        Else
          Button17.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If Button18.BackColor = Color.White Then
          Button18.BackColor = Color.Red
          label(lblsuivant).Text = Button18.Text
          lblsuivant = lblsuivant + 1
    
          Button18.Enabled = False
        Else
          Button18.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If Button16.BackColor = Color.White Then
          Button16.BackColor = Color.Red
          label(lblsuivant).Text = Button16.Text
          lblsuivant = lblsuivant + 1
    
          Button16.Enabled = False
        Else
          Button16.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        If Button21.BackColor = Color.White Then
          Button21.BackColor = Color.Red
          label(lblsuivant).Text = Button21.Text
          lblsuivant = lblsuivant + 1
    
          Button21.Enabled = False
        Else
          Button21.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If Button15.BackColor = Color.White Then
          Button15.BackColor = Color.Red
          label(lblsuivant).Text = Button15.Text
          lblsuivant = lblsuivant + 1
    
          Button15.Enabled = False
        Else
          Button15.BackColor = Color.White
          label(lblsuivant).Text = ""
    
        End If
      End Sub
    
      Private Sub Button26_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub Button26_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        'tableau de caractere qui va permettre le stockage des lettres chosis
        Dim tabmot(9) As Char
        'variable d'incrementation
        Dim i As Integer
        'permettra de stocker le mot taper
        Dim lemot As String = ""
        tabmot(0) = lb1.Text
        tabmot(1) = lb2.Text
        tabmot(2) = lb3.Text
        tabmot(3) = lb4.Text
        tabmot(4) = lb5.Text
        tabmot(5) = lb6.Text
        tabmot(6) = lb7.Text
        tabmot(7) = lb8.Text
        tabmot(8) = lb9.Text
        tabmot(9) = "?"
    
    
        'boucle concatenet les lettres du tableau dans lemot
        While tabmot(i) <> "?"
          lemot = lemot & tabmot(i)
          i = i + 1
    
        End While
        'affiche le mot valide le nombre de lettre
        lblresultat.Text = "votre mot : " & lemot.ToString & vbCrLf & "Nombre de lettres :" & lemot.Length
        resultat.Text = lemot.ToString
    
        If ll1.Text = "" Then
          ll1.Text = resultat.Text
    
        Else
    
    
          If ll2.Text = "" Then
            ll2.Text = resultat.Text
    
          Else
    
    
            If ll3.Text = "" Then
              ll3.Text = resultat.Text
            Else
              If ll4.Text = "" Then
                ll4.Text = resultat.Text
              Else
                If ll5.Text = "" Then
                  ll5.Text = resultat.Text
                Else
                  If ll6.Text = "" Then
                    ll6.Text = resultat.Text
                  Else
                    If ll7.Text = "" Then
                      ll7.Text = resultat.Text
                    Else
                      If ll8.Text = "" Then
    
                        ll8.Text = resultat.Text
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
        For a = 0 To 24
          If bt(a).Enabled = False Then
    
            bt(a).Visible = False
    
    
          End If
        Next
    
        ' efface.Visible = False
        While lblsuivant > 0
          lblsuivant = lblsuivant - 1
          label(lblsuivant).Text = "?"
    
    
    
        End While
    
    
      End Sub
    
      Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub lb1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb1.Click
    
      End Sub
    
      Private Sub efface_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles efface.Click
        'Initialise les buttons sélectionnées, remet le backcolor d'origine et réactive les buttons enfonces
        While lblsuivant > 0
          lblsuivant = lblsuivant - 1
          label(lblsuivant).Text = "?"
    
        End While
    
        For a = 0 To 24
          bt(a).BackColor = Color.White
          bt(a).Enabled = True
        Next
    
      End Sub
    
      
    
      Private Sub vide_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub pleine_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
      End Sub
    
      Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        'verification avec correcteur Word
        Dim App As New Word.Application()
        If resultat.Text <> "" Then
    
          'on rend invisible Word
          App.Visible = False
          'on va créer un document
          Dim doc As Word.Document = App.Documents.Add(, , , True)
          'on y place le texte à vérifier
          doc.Words.First.InsertBefore(resultat.Text)
    
          'on lance le correcteur
          Dim spellErrorsColl As Word.ProofreadingErrors = doc.SpellingErrors
          doc.CheckSpelling()
    
          'on remet le texte
    
          '  resultat.Text = doc.Range(0, doc.Characters.Count - 1).Text()
          If doc.Range(0, doc.Characters.Count - 1).Text() <> resultat.Text Then
            TextBox1.Text = doc.Range(0, doc.Characters.Count - 1).Text()
            TextBox1.ForeColor = Color.Red
          End If
    
        End If
        App.Quit(False)
      End Sub
    
      Private Sub resultat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultat.TextChanged
    
      End Sub
    End Class
    
     
    
    
    
    vendredi 11 mars 2011 15:50
  • Bonjour,

     

    Est-ce que je peux voir une capture d’écran et peut-être un schéma avec les façons dont vous voulez déplacer ces boutons ? J’avoue que votre code est très long et je ne suis pas sûr s’il relevé le problème.

     

    Cordialement,

    Alex

    ________________

    Publiez un article sur MSDN !

    Windows Phone 7

    Astuces pour Visual Studio 2010

    XNA – Développement jeux vidéo

    Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Silverlight, Workflow Foundation, SharePoint, WPF

    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

     

     


    Suivez MSDN sur Twitter 

    mercredi 16 mars 2011 13:19
  • Plutôt que de les mettre dans un groupBox essaie un TableLayOutPanel qui organise automatiquement les controles qu'il contient. (J'ai pas essayé donc à voir si tu supprimes tes boutons inférieurs ceux qui étaient au-dessus descendront seuls ?)
    Cordialement
    Pascal
    http://www.scalpa.info
    jeudi 17 mars 2011 19:04