Private Property Get TextBox(ByVal Index As Variant) As TextBox Set TextBox = Me.Controls("TextBox" & Trim(Index)) End Property
Private Property Get Label(ByVal Index As Variant) As Label Set Label = Me.Controls("Label" & Trim(Index)) End Property
提示我无法找到指定对象,窍门在哪里?请指点
|