VB问题：如何 Set RichTextBox ？

来源：百度知道 编辑：UC知道 时间：2024/06/25 16:00:58
Set RichTextBox1 = Controls.Add("VB.RichTextBox", "RichTextBox1")错误。如何Set RichTextBox呢？

最好有点对left、top、rtfCenter、rtfVertical、rtfText、rtfFlat等解释如何创建的，谢谢。
还有如果将一篇文章放进去？

你好，newkedison - 江湖少侠 六级
Set RichTextBox1 = Controls.Add("RichText.RichTextCtr1.1", "RichTextBox1")错误。

1,引用"Windows Rich TextBox Control"
2.菜单中选择"工程"->"工程1 属性"->选择"生成"->最下面一个勾"删除有关未使用的ActiveX控件的信息"不要勾
3.代码如下
Option Explicit
Dim WithEvents RichTextBox1 As RichTextBox

Private Sub Form_Load()
  Set RichTextBox1 = Controls.Add("RichText.RichTextCtrl.1", "RichTextBox1")
  RichTextBox1.Visible = True
  RichTextBox1.Left = 100
  RichTextBox1.Top = 100
  RichTextBox1.LoadFile "c:\1.c"'加载一个文件
End Sub

你可以直接在旁边的属性窗口里修改。或者一般为了维护的需要都是直接写的代码，比如你要添加文字，richtextbox1.text=“什么什么什么”
是否可以修改box的内容 richtextbox1.enable=true or false
是这种形式的写入，而不是你的那种语言格式