Zeichenbeschränkung für Formularsteuerungsknopfnamen

Question

Ich schreibe gerade eine Reihe von Makros für die Projektverfolgung. Eines dieser Makros generiert programmgesteuert Formularsteuerschaltflächen für jedes neu zu verfolgende Element. Um zu ermöglichen, dass die generierten Schaltflächen ein Formular mit den entsprechenden Daten starten, habe ich die zu benennenden Schaltflächen mit der minimalen Datenmenge entworfen, die für den Zugriff auf die entsprechenden Daten erforderlich ist.

Das Problem, das ich habe, ist, dass, wenn die Daten an den Namen übergeben zu lange ist, die Code-Fehler sagen: the specified value is out of range. Ich denke, dass ich nur mit einem alternativen Bezeichner kommen muss, um an die Schaltfläche zu gelangen, aber in der Zwischenzeit bin ich neugierig, ob es eine bestimmte Zeichenbeschränkung für die Namen der Formularsteuerelemente gibt und ob es welche gibt Möglichkeit, dieses Limit zu erhöhen oder zu ändern? Wenn nicht, was genau ist das Zeichenlimit?

Ich benutze den Namen der Taste, um identifizierende Daten zu speichern, da ich ein späteres Programm brauche, um zu wissen, auf welche Daten mit der Application.Caller zugegriffen werden soll, wenn die Taste gedrückt wird. Gibt es eine Alternative, um einen Button auf einen bestimmten Datensatz zu zeigen?

Answer 1

Sie könnten Chaos über mit der Taste, und einige Eigenschaften verwenden, so haben eine Klasse namens clsCustomButton

Public WithEvents btnCustomButton As MSForms.CommandButton 

Private strDataDetail1 As String 
Private strDataDetail2 As String 
Private strDataDetail3 As String 

Public Property Let DATA_DETAIL1(value As String) 
    strDataDetail1 = value 
End Property 
Public Property Let DATA_DETAIL2(value As String) 
    strDataDetail2 = value 
End Property 
Public Property Let DATA_DETAIL3(value As String) 
    strDataDetail3 = value 
End Property 

Public Function INITIALISE(btn As MSForms.CommandButton) 
    Set btnCustomButton = btn 
End Function 

Private Sub btnCustomButton_Click() 
    Module1.DATA = strDataDetail1 & "_" & strDataDetail2 & "_" & strDataDetail3 
End Sub