SMS GENERATOR

Commentaire de Renfield le 14/04/2009 05:42:37 administrateur CS

Pas de gestion des groupes de controles, Jack

faut dire que c'est telle procédure qui gère le click de chacun de tes boutons
c'est bien plus souple, au final

et si tu dois jouer avec tes controles, comme un tableau, alors insères les dans un tableau^^

Commentaire de bouv le 14/04/2009 10:38:50

Pour raccourcir nos codes en VB6 on pouvait faire :

For i = 0 to Ubound(MonGroupe)
   MonGroupe(i).Enabled = True
Next i

Voici la solution que j'ai trouvée pour le reproduire en .Net :

Nomme tes boutons MonGroupe1, MonGroupe2, ..., MonGroupe5

'En tête de module
Private MonGroupe(5) As Windows.Forms.Button

'Dans MyBase.Load
For Each oCtl As Control In Me.Controls
    If oCtl.Name.StartsWith("MonGroupe") Then
        Dim i As Integer = oCtl.Name.Substring(oCtl.Name.Length - 1, 1)
        MonGroupe(i) = oCtl
    ElseIf oCtl.Name.StartsWith("UnAutreGroupe") Then
        Dim i As Integer = oCtl.Name.Substring(oCtl.Name.Length - 1, 1)
        UnAutreGroupe(i) = oCtl
    End If
Next oCtl

'Pour récupérer les évenements dans une même procédure :
Private Sub MonGroupe_Click_Mais_en_fait_je_la_nomme_comme_je_veux(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonGroupe1.Click, MonGroupe2.Click, MonGroupe3.Click, MonGroupe4.Click, MonGroupe5.Click

'Récupère le nom du control
Dim ControlName As String = sender.name

'Récupère l'index du control
Dim Index As Integer = CInt(ControlName.Substring(ControlName.Length - 1, 1))

MonGroupe(Index) est ensuite disponible dans la procédure

Commentaire de EBArtSoft le 14/04/2009 10:54:36 administrateur CS

Yeah Jack se mets au .Net !

Vivent les MVP :p

Commentaire de Galain le 14/04/2009 23:02:10

Salut Jack
Bienvenue dans l'univers VB Net
Un site formidable : http://plasserre.developpez.com/vsommair.htm (à visiter pour se familiariser avec VB Net)
A+ et bonne prog