☆本期内容概要☆ 动态插入控件参数:1、控件类型;2、控件Name,注意不是Caption。 动态插入命令按钮(CommandButton): Dim dynamicButton As Control Set dynamicButton = Me.Controls.Add("Forms.CommandButton.1", "dynamicButton")
动态插入复选框(CheckBox): Dim dynamicCheckBox As Control Set dynamicCheckBox = Me.Controls.Add("Forms.CheckBox.1", "dynamicCheckBox")
动态插入选项按钮(OptionButton): Dim dynamicOptionButton As Control Set dynamicOptionButton = Me.Controls.Add("Forms.OptionButton.1", "dynamicOptionButton")
动态插入文本框(TextBox): Dim dynamicTextBox As Control Set dynamicTextBox = Me.Controls.Add("Forms.TextBox.1", "dynamicTextBox")
动态插入标签(Label): Dim dynamicLabel As Control Set dynamicLabel = Me.Controls.Add("Forms.Label.1", "dynamicLabel")
动态插入下拉列表框(ComboBox): Dim dynamicComboBox As Control Set dynamicComboBox = Me.Controls.Add("Forms.ComboBox.1", "dynamicComboBox")
注:代码参考AI生成内容,略作修改。
|