Me.Controls("RadioButton" & I).Tag = "XYZ"

Me.Controls("RadioButton" & I).Checked = True

RadioButton2.Checked = True

CType(Me.Controls("RadioButton" & I), RadioButton).Checked

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

   For Each c As Control In Me.Controls
            If TypeOf c Is Label Then c.Visible = True
            If TypeOf c Is Button Then c.Visible = True
            If TypeOf c Is ComboBox Then c.Visible = True
            If TypeOf c Is ListBox Then c.Visible = True
            If TypeOf c Is TextBox Then c.Visible = True
            If TypeOf c Is RichTextBox Then c.Visible = True
        Next

Gruss Caddy

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

 
Dim lst As New List(Of RadioButton)
with lst
    .Add(RadioButton1)
    .Add(RadioButton2)
    .Add(RadioButton3)
 
    .Item(1).Checked = True
 
end with

lst.Item(0).Checked = True
lst.Item(0).Visible = False
lst.Item(1).Visible = False

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

        Dim Versuche As Integer
        Dim Ip As String
 
        For RadioObjectCount = 1 To 9
 
            Select Case RadioObjectCount
                Case 1
                    Ip = "192.168.1.1"
                Case 2
                    Ip = "192.168.1.111"
                Case 3
                    Ip = "192.168.2.1"
                Case 4
                    Ip = "192.168.2.112"
                Case 5
                    Ip = "192.168.71.136"
                Case 6
                    Ip = "192.168.2.254"
                Case 7
                    Ip = "192.168.71.1"
                Case 8
                    Ip = "192.168.30.40"
                Case 9
                    Ip = "192.168.0.254"
            End Select
 
            For Versuche = 1 To 3
                If My.Computer.Network.Ping(Ip) Then
                    If CType(Me.Controls("RadioButton" & RadioObjectCount), _
  RadioButton).Checked() = False Then
                        If Val(Me.Controls("RadioButton" & _
                        RadioObjectCount).Tag) > 3 Then Fehlertext$ = _
                        Fehlertext$ & Date.Now & "  -  " & Me.Controls( _
                        "RadioButton" & RadioObjectCount).Text & " wieder" & _
                        "verfügbar" & vbCrLf
                    End If
                    CType(Me.Controls("RadioButton" & RadioObjectCount), _
                      RadioButton).Checked() = True
                    Me.Controls("RadioButton" & RadioObjectCount).Tag = "0"
                    Versuche = 3
                Else
                    If Versuche = 3 Then
                        CType(Me.Controls("RadioButton" & RadioObjectCount), _
                          RadioButton).Checked() = False
                        Me.Controls("RadioButton" & RadioObjectCount).Tag = Val( _
                        Me.Controls("RadioButton" & RadioObjectCount).Tag) + 1
                    End If
                End If
            Next
            ProgressBar1.Value = RadioObjectCount : Application.DoEvents()
        Next

    Public Structure RBData
        Public Property RB As RadioButton
        Public Property IP As String
        Public Property Versuche As Integer
        Public Sub New(ByVal RB As RadioButton, ByVal IP As String)
            Me.RB = RB
            Me.IP = IP
        End Sub
    End Structure
 
    Public RBS As New List(Of RBData)
 
    Private Sub Test()
        RBS.Add(New RBData(RadioButton1, "192.168.10.1"))
        ' ...
 
        RBS(i).RB.Checked = True
        Ping(RBS(i).IP)
        RBS(i).Versuche += 1
 
        ' usw
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    For RadioObjectCount = 0 To RBS.Count - 1
        For Versuche = 1 To 3
            If My.Computer.Network.Ping(RBS(RadioObjectCount).IP) Then
                If Not RBS(RadioObjectCount).RB.Checked Then
                    If RBS(RadioObjectCount).Versuche > 3 Then Fehlertext = _
                      Fehlertext & _
                      Date.Now & "  -  " & RBS(RadioObjectCount).RB.Text & _
                      " wieder verfügbar" & vbCrLf
                End If
                RBS(RadioObjectCount).RB.Checked = True
                RBS(RadioObjectCount).Versuche = 0
            ' ....       
        Next
        ' ...
    Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

DB_FreeSpace(ObjectCount).NetDriveAlert = Val(DB_FreeSpace( _
  ObjectCount).Txt_NetSpaceAlert.Text)

        Dim mystruct As theStruct = DB_FreeSpace(ObjectCount)
        mystruct.NetDriveAlert = 123
        DB_FreeSpace(ObjectCount) = mystruct

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist