Comment Créer un Événement pour le Contrôle Dynamique de la Matrice de dans VB.NET

Je suis en train de créer un tableau de cases de façon dynamique et vous voulez également mettre de l'événement de ces cases. Comment puis-je faire cela?

Par exemple:

J'ai un tableau de cases - de Chk1, Chk2.

Je veux qu'il fonctionne de cette façon: Lorsque je vérifie Chk1, je veux désactiver Chk2, et quand Chk1 est pas cochée, Chk2 est activer, et vice versa.

Votre entrée est greately apprécié.

Merci,

P. S.: Le code est dans VB.NET. Merci.

Merci à vous tous pour les entrées. J'ai vraiment apprécié. Peut-être que je n'ai pas été très clair sur mes explications plus haut.

Disons, j'ai un tableau de 6 cases à cocher, et je veux qu'ils se comportent en groupe comme ceci:

  • Lors de la Chk1 est cochée, Chk2 est désactivé (en gris), et lorsque nous décocher Chk1, Chk2 est activé, et Vice Versa.

  • Quand Chk3 est cochée, Chk4 est désactivé, et quand nous décocher Chk3, Chk4 est activé, et Vice Versa.

et ainsi de suite....

Donc c'est comme si chaque paire de cases à cocher dans le tableau d'effectuer la CheckChanged des événements les uns sur les autres, mais pas sur n'importe quelle autre paire. Donc, je pense que OptionButton n'est pas le cas dans cette situation.

Merci pour toutes les suggestions.

  • Qu'est-ce que vous avez essayé jusqu'à présent? Où avez vous des problèmes concrètement? Que voulez-vous dire avec un tableau de Cases à cocher, combien, est-il créé de façon dynamique ou statique, comment sont-ils reliés entre eux?? Voulez-vous dire ASP.Net ou Winforms?
  • Vous devriez commentaire de nos réponses que vous avez essayé jusqu'à présent et où vous avez des problèmes avec. Je peux ne parler que de ma réponse, cela devrait fonctionner exactement comme vous le souhaitez. Je suis d'identifier les paires via leurs Identifiants(chk1 appartient à chk2, chk3 à chk4 et ainsi de suite). Regardez: stackoverflow.com/questions/4199370/... Btw, n'oubliez pas de upvote des réponses qui sont moins utiles(flèche haut) ou/et pour marquer la meilleure réponse que la réponse(la case).
InformationsquelleAutor Heang S. | 2010-11-16
  1. 0

    En supposant que c'est ASP.Net, jetez un oeil à cette "étrange" exemple pour voir comment il fonctionne(prenez votre tableau au lieu de mes statique de la création):

    Private Sub WebForm1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
    For number As Int32 = 1 To 100
        Dim chk As New CheckBox
        chk.ID = "chk" & number
        chk.Text = chk.ID
        chk.AutoPostBack = True
        AddHandler chk.CheckedChanged, AddressOf onCheckedChanged
        Me.MyChkPanel.Controls.Add(chk)
    Next
End Sub

Private Sub onCheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim chk As CheckBox = DirectCast(sender, CheckBox)
    Dim number As Int32 = Int32.Parse(chk.ID.Substring("chk".Length))
    Dim otherChk As CheckBox
    If number Mod 2 = 0 Then
        otherChk = DirectCast(Me.MyChkPanel.FindControl("chk" & (number - 1)), CheckBox)
    Else
        otherChk = DirectCast(Me.MyChkPanel.FindControl("chk" & (number + 1)), CheckBox)
    End If
    otherChk.Enabled = Not chk.Checked
End Sub

    En dehors de cela, je peux vous abonner Hans suggestion pour l'utilisation de composants radiobutton ou au moins un CheckBoxList.

    • Vous êtes un génie, Tim! Il fonctionne comme prévu. Merci beaucoup!
    InformationsquelleAutor Tim Schmelter
  2. 0

    Un RadioButton permettrait de faire cela automatiquement et est plus conventionnelle. Pour un tableau de cases à cocher, vous pouvez utiliser un seul gestionnaire pour l'ensemble de la matrice:

    Private Sub _CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim i As Integer
If sender.checked Then
  For i = 0 To UBound(chk)
    If chk(i) IsNot sender Then chk(i).Checked = False
  Next i
End If
End Sub

    Gardez à l'esprit, si vous apportez des modifications à ce gestionnaire, qu'elle est appelée récursivement lorsque vous définissez chk(i).vérifié pour de faux. Il n'a pas d'importance dans ce cas, car il ignore tout, quand l'expéditeur.vérifié, c'est faux.

    Dans le cas où vous en avez besoin, voici un moyen de configurer le tableau. (L'index de la propriété dans le concepteur a disparu dans la mise à niveau à partir de vb6 vers .net, de sorte que vous avez à faire un tableau de contrôles dans le code maintenant.)

    Public Class Form1
Dim chk(4) As CheckBox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i, k As Integer
k = 20
For i = 0 To UBound(chk)
  chk(i) = New CheckBox
  Me.Controls.Add(chk(i))
  chk(i).Location = New Point(20, k)
  k = k + chk(0).Height * 1.5 ' or some location
  chk(i).Text = "Checkbox " & i ' some appropriate text
  AddHandler chk(i).CheckedChanged, AddressOf _CheckedChanged
Next i

End Sub
    InformationsquelleAutor xpda