Wie Sie auf die Beschriftung eines Steuerelements im code

@Astander hat die richtige Antwort, aber Bedenken Sie, dass nicht alle Steuerelemente haben die gleiche Art von Kontrollen Sammlungen.

TextBoxes, ComboBoxes, ListBoxes, Checkboxen maximal 1 Element in Ihre controls-Auflistung (die beigefügten Etikett), aber wenn das label nicht angebracht, Sie gar nicht, dass so .Controls(0), wird ein Fehler ausgelöst.

Option Gruppe hat mehrere Steuerelemente, die Beschriftung und die option-Taste oder die Tasten in den Rahmen. Wenn Sie drop eine Optionsgruppe in einem Formular aus der Formular-Symbolleiste Werkzeuge, der Rahmen ist geschaffen, mit einem beigefügten Etikett, so wird es das control mit dem index 0. Aber wenn, zum Beispiel, löschen Sie die Standard-label, fügen Sie die option Tasten, und dann fügen Sie wieder ein label, es wird nicht mit dem index 0, aber die index .Controls.Graf - 1.

So, für die Beschriftung der Optionsfelder der Gruppe-Aufkleber, die Sie entweder wollen, vorsichtig zu sein, dass, wenn Sie löschen Sie die Standard-label, löschen Sie auch die Steuerelemente innerhalb des Rahmens, nachdem Sie die Beschriftung hinzufügen zurück. Wenn das nicht der Fall, müssen Sie die Namen der label und nennen es beim Namen, denn die Etiketten für die option/toggle-buttons sind Teil der option Gruppe der Controls-Auflistung (das hat mich überrascht-ich erwartete Sie werden nur in der Controls-Auflistung des option/Schaltfläche zum Umschalten, zu denen Sie befestigt waren).

Um dieses problem zu vermeiden, kann ich mir vorstellen, gewundenen code, wo Sie Durchlaufen die option Gruppe der Controls-Auflistung suchen für die Etiketten die option/toggle-buttons, und dann geloopt über die option Gruppe der Controls-Auflistung ein zweites mal, dieses mal auf der Suche nur auf den Etiketten. So etwas wie dieses:

  Public Function FindOptionGroupLabel(ctlOptionGroup As Control) As Control
    Dim ctl As Control
    Dim strOptionToggleLabels As String

    If ctlOptionGroup.ControlType <> acOptionGroup Then
       MsgBox ctlOptionGroup.Name & " is not an option group!", _
         vbExclamation, "Not an option group"
       Exit Function
    End If
    For Each ctl In ctlOptionGroup.Controls
      Select Case ctl.ControlType
        Case acOptionButton, acToggleButton
          If ctl.Controls.Count = 1 Then
             strOptionToggleLabels = strOptionToggleLabels & " " & ctl.Controls(0).Name
          End If
      End Select
    Next ctl
    strOptionToggleLabels = strOptionToggleLabels & " "
    For Each ctl In ctlOptionGroup.Controls
      Select Case ctl.ControlType
        Case acLabel
          If InStr(" " & strOptionToggleLabels & " ", ctl.Name) = 0 Then
             Set FindOptionGroupLabel = ctl
          End If
      End Select
    Next ctl
    Set ctl = Nothing
  End Function

Nun, diese Pausen wenn es keinen Aufkleber, so dass es wahrscheinlich mehr Sinn machen für Sie, um zurückzukehren, den label-Namen, anstatt die control Referenz:

  Public Function FindOptionGroupLabel(ctlOptionGroup As Control) As String
    Dim ctl As Control
    Dim strOptionToggleLabels As String

    If ctlOptionGroup.ControlType <> acOptionGroup Then
       MsgBox ctlOptionGroup.Name & " is not an option group!", _
         vbExclamation, "Not an option group"
       Exit Function
    End If
    For Each ctl In ctlOptionGroup.Controls
      Select Case ctl.ControlType
        Case acOptionButton, acToggleButton
          If ctl.Controls.Count = 1 Then
             strOptionToggleLabels = strOptionToggleLabels & " " & ctl.Controls(0).Name
          End If
      End Select
    Next ctl
    strOptionToggleLabels = strOptionToggleLabels & " "
    For Each ctl In ctlOptionGroup.Controls
      Select Case ctl.ControlType
        Case acLabel
          If InStr(" " & strOptionToggleLabels & " ", ctl.Name) = 0 Then
             FindOptionGroupLabel = ctl.Name
          End If
      End Select
    Next ctl
    Set ctl = Nothing
  End Function

Könnte dies wohl durch eine einzelne Schleife über die option Gruppe der Controls-Auflistung, aber es ist spät! Was es scheint ziemlich nah an Kugel-Beweis, nicht dass es jemand gibt, der eine Ratte in den Arsch, natürlich! 🙂

Hier ist etwas code, den ich geschrieben habe: umbenennen der Bezeichnungen im Zusammenhang mit Optionsfeldern. Ein label hat eine parent-Eigenschaft, dass Punkte auf die Kontrolle der Etiketten. Die Funktion ist ziemlich allgemein, während das Unterprogramm wird writtenn für Optionsfeldern. Dieser code sollte für die meisten nichts außer, dass, wenn das label nicht verbunden, ich habe keine recovery.

Public Function paNameControlLabel(FormName As String, ControlName As String) As String
Dim frm As Form
Dim ctl As Control
Dim ctlLabel Als Kontrolle
Dim ctlParent Als Kontrolle

Set frm = Forms(FormName)
For Each ctl In frm.Controls
    Select Case ctl.ControlType
        Case acLabel
            If ctl.Parent.Name = ControlName Then
                Debug.Print "Label " & ctl.Name & " Renamed to lbl" & ControlName
                ctl.Name = "lbl" & ControlName
                paNameControlLabel = ctl.Name
            End If
    End Select
Next ctl

End Function
Public Sub paNameOptionButtonLabels(FormName As String)
Dim frm As Form
Dim ctl As Control

Set frm = Forms(FormName)
For Each ctl In frm.Controls
    If ctl.ControlType = acOptionButton Then
        Debug.Print paNameControlLabel(FormName, ctl.Name)
    End If
Next ctl
Set frm = Nothing

End Sub