7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
viena 2005-05-10
- 打赏
- 举报
如果程序中没有使用静态的RichTextBox，
工程-属性-生成，
取消选项
删除有关未使用的ActiveX控件的信息
工程-属性-生成，
取消选项
删除有关未使用的ActiveX控件的信息
viena 2005-05-10
- 打赏
- 举报
'添加
Private Sub Command1_Click()
Form1.Controls.Add "RICHTEXT.RichtextCtrl", "rtb1"
With Form1!rtb1
.Visible = True
.Width = 2000
.Text = "动态加载的Richtext"
End With
End Sub
'删除
Private Sub Command2_Click()
Form1.Controls.Remove "rtb1"
End Sub
Private Sub Command1_Click()
Form1.Controls.Add "RICHTEXT.RichtextCtrl", "rtb1"
With Form1!rtb1
.Visible = True
.Width = 2000
.Text = "动态加载的Richtext"
End With
End Sub
'删除
Private Sub Command2_Click()
Form1.Controls.Remove "rtb1"
End Sub
