vb编程中突破64k的文本显示限制

vb6的文本框输入大于64k文本的方法

方法1:

rem 设置文本

textbox1.text=""

doevents

textbox1.seltext=".....................我是1m大小文本"

rem 获取文本

str1=textbox1.text 

方法2:

使用系统消息

Rem 常量
Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD

Rem 获取或设置控件文本
Public Property Get HwndText(Hwnd As Long) As String
       Dim Str1 As String, Len1 As Long, ret As Long
       Len1 = SendMessage(Hwnd, WM_GETTEXTLENGTH, ByVal CLng(0), ByVal CLng(0)) + 1
       Str1 = Space(Len1)
       Len1 = Len(Str1)
       ret = SendMessage(Hwnd, WM_GETTEXT, ByVal Len1, ByVal Str1)
       HwndText = Left(Str1, ret)
End Property
Public Property Let HwndText(Hwnd As Long, ByVal Str1 As String)
       SendMessage Hwnd, WM_SETTEXT, 0, ByVal Str1
End Property

hwndtext(textbox1.hwnd)="--------我是1m文本"

str1 = hwndtext(textbox1.hwnd)