Function savebigfile(byfilename As String, t1 As RichTextBox) As Boolean
'需要:scriting runtime引用
'On Error GoTo err
Dim fsoTextTemp As TextStream
Dim fsoFile As New FileSystemObject
'关闭原来的文件,并建立一个同名的新的文件,将更新的文件流写入到新文件中
'fsoTextStream.Close
Set fsoTextTemp = fsoFile.CreateTextFile(byfilename, True)
fsoTextTemp.write t1.Text 'downpage_frm.t1.text
fsoTextTemp.Close
Set fsoTextTemp = Nothing
Exit Function
err:
savebigfile = False
End Function
'需要:scriting runtime引用
'On Error GoTo err
Dim fsoTextTemp As TextStream
Dim fsoFile As New FileSystemObject
'关闭原来的文件,并建立一个同名的新的文件,将更新的文件流写入到新文件中
'fsoTextStream.Close
Set fsoTextTemp = fsoFile.CreateTextFile(byfilename, True)
fsoTextTemp.write t1.Text 'downpage_frm.t1.text
fsoTextTemp.Close
Set fsoTextTemp = Nothing
Exit Function
err:
savebigfile = False
End Function
解决方案 »
- vb中加一个label??
- 请教个比较外行的问题
- 求:对一个试题库的处理
- 谁有水晶报表9.0的注册码??
- 在线等,在ACCESS中做了一个模糊查询,数据库中没有问题,在VB里调用时查不到记录,急!!
- 请教回文数算法和一个文本框操作问题
- 在程序里查询和在SQL里查询的结果怎不相同???急急急!!!请你帮忙!!
- 请问,如何用SQL实现向一个已有的表的第一个和第二个字段中插入一个字段,用ALTER ADD 只能添加在最后呀
- 怎样屏蔽窗体中鼠标左键单击的事件
- 关于程序不在 Ctrl+Alt+Del 弹出的对话框内(App.TaskVisible = False )不行
- 关于VBA写SQL数据库的编码问题
- 水晶报表多表查询出了问题,急!!!!!!
但由于Textbox的容量有限制(最多32K), 如果文本框的內容要超過此限制, 只好用RichTextBox了
要不你调用API操作!
其实就是大于64k的string字符串变成二进制然后保存,如何做呢?