SELECTEUR ALPHANUMERIQUE (VB.NET 2010

Commentaire de Adn56 le 18/06/2012 08:10:05

oui d'accord, c'est donc une création dynamique de control.
Astuces et questions :

AddHandler x.Click, AddressOf ClickMesLettres
1- X n'est pas clair, préfère plutôt un style LblChar ou autre.
2- Tu peux préférer x.Mousedown qui te permet de connaitre le bouton cliqué, la molette, parfois c'est utile ;)

ce qui m'amène à te demander pourquoi placer les labels dans une collection ? qu'elle est l'intérêt ?

Merci de ta lecture et bonne prog.

Commentaire de Adn56 le 24/06/2012 19:35:51

salut, Nhenry.
J'ai déja posté des sources qui traite des controls dynamique, à ce propos une prochaine arrive bientôt.
Cependant je ne les place pas dans une collection ou list (of T) car je ne vois pas l'intérêt à part remplir la mémoire (qui est déja bien rempli avec VB.NET ! 25Mo pour une simple form qui place des boutons en dynamique ça mal aux fesses ! En plus elle ne cesse de monter ! il faut minimiser la fenetre pour retrouver une valeur "nomrale" de 1 ou 2M de ram.
Peux tu m'éclairer stp. cdlt ADN
Je commence à me demander si programmer en C++ ou C# ne serait pas plus performant que le VB, ais-je tors ? cela viens t'il du management du .NET ? @ te lire.

Commentaire de Adn56 le 25/06/2012 08:12:44

Merci pour la réponse, en fait ma "vrai" question était plutôt la suivante.
Que vaut il mieux ?
Prendre une zone mémoire pour y placer les contrôles créés ou les rechercher dans le container.controls avec ce code :
For Each ctrl As Control In Controls 'pour chaque control sur la form
            'cache tous les boutons qui n'ont pas le tag toujours visible
            If TypeOf ctrl Is Button AndAlso Not ctrl.Tag Is "tjvisible" Then ctrl.Visible = False

J'arrive à 8Mo aprés minimize de la form, cela devient un peu plus résonable pour laisser le programme tourner en tache de fond.
kenavo

Commentaire de NHenry le 02/07/2012 20:45:30 administrateur CS

Bonsoir,

Si la consommation mémoire est ta priorité, .NET n'est pas le plus approprié.

Faire une 2ième liste ne coutera pas tellement plus en RAM, car seul les références vers les objets seront faites.
Mais coté performance (vitesse), ce n'en sera que mieux.

Commentaire de Adn56 le 07/07/2012 20:14:09

Aprés lecture et travail sur ce code proposé, je dois avertir qu'il est rempli de liaison tardive.
Ex : DAns la sub clikmesletres : If .Name = sender.name Then... léve une erreur par exemple.
placer la balise strict à on pour la voir.
je cherche une façon de faire autre que le cast du sender, qui rendrait utile la list of
De plus le AddHandler n'autorise qu'un object pour le sender, donc je ne vois d'autre solution que le caster en label.
@ suivre donc ;)

Commentaire de Adn56 le 07/07/2012 20:42:07

en effet Henry, mais dans son cas (la source si dessus) je repose donc le cas de la list of label. je m'explique par code.
Si je fais :
' ici avec des boutons pour faire un calendrier (mon prochain dépot de source pour VBfrance)
Private Sub CreerBpMois()
        ' création dynamique des controls BP et des zones de tags.
        ' sur 5 lignes et 7 colones
        For semaines As Integer = 1 To 6

            For jours As Integer = 1 To 7 ' 0=dimanche, 6=samedi et 7=re dimanche
                Dim Bp As New Button
                With Bp
                    .Tag = NomJours(jours) & "_" & semaines.ToString & ":" & (7 * (semaines - 1) + jours).ToString
                    .Size = New Size(60, 24)
                    .Location = New Point((jours - 1) * (.Size.Width + 1), 20 + semaines * (.Size.Height + 1))
                    .Name = ""
                    '.Text = .Tag.ToString 'pour débugage
                    .Visible = False
                    .ImageAlign = ContentAlignment.MiddleLeft
                    .TextImageRelation = TextImageRelation.Overlay
                    .Font = New Drawing.Font("arial", 8)
                    .FlatStyle = FlatStyle.Flat
                    .FlatAppearance.BorderSize = 2
                    .Cursor = Cursors.Hand
                    ' active le menucontextuel "menu1" à chaque bouton
                    .ContextMenuStrip = Menu1
                End With

                ' ajoute les évenements
                'ici l'événement clik "bouton gauche" (attention le choix du bouton cliqué ne se fait que sur mouse.down pas sur click !)
                AddHandler Bp.Click, AddressOf bp_click

                'ajoute ces controls à la form
                Controls.Add(Bp)
                'ajoute ces controls à la liste en mémoire
                listeBpJours.Add(Bp)
            Next
        Next
    End Sub 'création des bp invisibles sur 5 lignes et 7 colones

j'archive les références de ces boutons dans la list of T, ok
mais à quoi peut elle bien servir puisque je suis obligé de caster le sender en bouton !

  Private Sub bp_click(ByVal sender As Object, ByVal e As System.EventArgs)
        For i = 0 To listeBpJours.Count - 1
            With listeBpJours(i)
                If .Name = sender.Name Then
' cette ligne ci dessus léve une liaison tardive !!!!!!!!!!!!!!!!!!!
                End If
            End With
        Next

    End Sub 'clic souris sur un bouton du calendrier actif

Donc si je dois caster autant le faire qu'une fois ! non ?
et donc autant écrire :
  Private Sub bp_click(ByVal sender As Object, ByVal e As System.EventArgs) 'Handles listeBpJours(sender).click
         Dim Ce_Bp As Button = CType(sender, Button) 'cast le sender en bp
       MessageBox.Show(Ce_Bp.Name)
      
End Sub 'clic souris sur un bouton du calendrier actif

Tu vois ou je veux en venir ?
Pourquoi faire une liste des control créer dynamiquement ?
j'ai reussi à passer à bp_click un button au lieu d'un object, mais il me manque le e.sytemEventArgs, grrrrrrr

comme ceci :

    Private Sub bp_click(ByVal sender As Button, ByVal e As System.EventArgs) 'Handles listeBpJours(sender).click
        ' Dim Ce_Bp As Button = CType(sender, Button) 'cast le sender en bp
        ' MessageBox.Show(Ce_Bp.Name)
        For i = 0 To listeBpJours.Count - 1
            With listeBpJours(i)
                If .Name = sender.Name Then

                End If
            End With
        Next

    End Sub 'clic souris sur un bouton du calendrier actif
cela pourrait marcher sauf que :
AddHandler Bp.Click, AddressOf bp_click 'léve une erreur de convertion implicite ! la boucle est bouclé ?
non pas encore j'ai donc essayé cela :
AddHandler Bp.Click, AddressOf bp_click(Bp, ?????) et là je bloque :/

@ te lire et merci pour tes lectures de mes romans lol