如何动态加载multiline的text控件

80酷酷网    80kuku.com

  动态|加载|控件我刚开始在csdn的vb论坛里看到这个帖子的时候,想了很久都没有找到解决方法。后来看zy910写到“由于Edit控件的设定(只能在创建窗口时设置风格,创建后不能修改)

所以TextBox的MultiLine屬性实现原理是:先清除原有的Edit,再创建一个新的Edit

这在设计时是可行的。但在运行时,会导致文本框相关数据的丢失,甚至会因不安全的代码导致非法操作,所以M$将TextBox的MultiLine屬性设置成运行时只读”,那么通过直接使用textbox控件是无法满足要求的了。

其实我们可以找到一个替代的方法,微软给我们提供了一组无窗口控件库。所谓“无窗口控件”是见名知义,是没有无窗口,因而没有hwnd属性。这个库在主要语言的参考文档中没有提到,它必须手工从common\Tools\vb\Winless目录下安装。安装的方法是将这个目录复制到硬盘上,用regsvr32或vb中对它进行注册,然后双击Mswless.reg,它创建使activex控件对vb环境可用的注册关键字。注册完毕后,从按Ctrl+T从可用的Active控件列表中选取Microsoft Windowless Control 6来把函数库加载到IDE中。

使用windowless函数库的好处是在运行时没有内部控件的限制,事实上所有的属性都可以在运行时改变。这个库中包括TextBox的无窗口版—MSWLess.WLText。也就说我们可以通过动态加载这个控件,来实现动态添加multiline属性的text控件。

Dim WithEvents TxtEditor As MSWLess.WLText

Private Sub Command1_Click()



Set TxtEditor = Controls.Add("MSLess.WLText", "txtEdit")

TxtEditor.MultiLine = True

TxtEditor.ScrollBars = wlBoth

TxtEditor.Move 0, 0, ScaleWidth, ScaleHeight

TxtEditor.Visible = True



End Sub

注意:“工程属性”中“删除有关未使用的active控件的信息”的复选框不要选。

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: