Rb_final = Rb_entete & i ’Rb_final est initialisé à partir du résultat de la concaténation d’une string et d’un entier, comme ça ne peut pas faire un entier, c’est une string For Each Controle In TabPage1.Controls If TypeOf Rb_final Is RadioButton Then ’ce if ne sera jamais vrai puisque Rb_final est une string
foreach(AdvancedRadioButton buton in TabPage1.Controls.OffType<AdvancedRadioButton>().Where(c => c.Name.StartsWith("RB_0_")) { buton.Checked = true; }
Dim Index as Integer = 0 For Each Ctl as Control in TabPage1.Controls ' pour chaque Ctl vérifier que c'est un RadionButton avec le bon Index If TypeOf(Ctl ) Is RadioButton And Ctl.Name = "RB_0_" & Index.Tostring Then Ctl.Checked = True Index = Index + 1 End If Next Controle
foreach(AdvancedRadioButton button in TabPage1.Controls.OffType<AdvancedRadioButton>().Where(c => c.Name.StartsWith("RB_0_")) { button.Checked = true; }
For Each button As AdvancedRadioButton In TabPage1.Controls.OffType(Of AdvancedRadioButton).Where(Function(c) c.Name.StartsWith("RB_0_")) button.Checked = True Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Controle As Control Dim Rb_entete = "RB_0_" Dim Rb_final For i = 0 To 14 Rb_final = Rb_entete & i For Each Controle In TabPage1.Controls If TypeOf Rb_final Is RadioButton Then Rb_final.Checked = True End If Next Controle Next
Dim Truc As Control Dim Toto As RadioButton Dim i As Integer For Each Truc In TabPage1.Controls If TypeOf Truc Is RadioButton Then i = i + 1 Toto = CType(Truc, RadioButton) Toto.Text = "RB_0_" & i Toto.Checked = True End If Next Truc
Dim Controle Dim Filtre = "RB_0_" For Each RB As AdvancedRadioButton In TabPage1.Controls.OfType(Of AdvancedRadioButton).Where(Controle >= Controle.name.startswith(Filtre))) RB.Checked = True Next
'UTILISATION: ' -Tous les AdvancedRadioButtons: Bouton_Radio.Tous_A_RB(Controle, Filtre) ' -Tous les RadioButtons: Bouton_Radio.Tous_RB(Controle, Filtre) Public Class Bouton_Radio Public Shared Function Tous_A_RB(ByVal Controle As Control, ByVal Filtre As String) Try For Each RB As AdvancedRadioButton In Controle.Controls.OfType(Of AdvancedRadioButton).Where(Function(c) c.Name.StartsWith(Filtre)) RB.Checked = True Next Catch ex As Exception MsgBox("Erreur lors du traitement." & Chr(10) & Chr(13) & ex.Message) End Try End Function Public Shared Function Tous_RB(ByVal Controle As Control, ByVal Filtre As String) Try For Each RB As RadioButton In Controle.Controls.OfType(Of RadioButton).Where(Function(c) c.Name.StartsWith(Filtre)) RB.Checked = True Next Catch ex As Exception MsgBox("Erreur lors du traitement." & Chr(10) & Chr(13) & ex.Message) End Try End Function End Class