& CStr(lastId)) tb.Width = 591 tb.Visible = True Next 'Delete the button that caused the error and set toolbar name realMax: btn.Delete tb.Name = ("Faces " & CStr(firstId) & " to " _ & CStr(i - 1)) tb.Width = 591 tb.Visible = True End Sub 注释 内置菜单pop-up(弹出)控件的ID编号在30002到30426之间。记住,这些ID编号返回的内置菜单副本为空。
|