注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

专修培训

——专业计算机培训机构

 
 
 

日志

 
 

vb保存Richtextbox选中内容到access(图文混合)  

2011-05-07 11:36:52|  分类: 学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

一、图文混合的选择

使用richtextbox的RTF方法,textRTF以RTF格式返回全部,selRTF返回选中部分。注意点有以下:

1、用len函数求textRTF长度,如果包含了图片会是一个很大的数值。

2、但是在text方法(属性)的返回值中,任何尺寸的图片只占一个len长度单位。

二、将选中的内容转换成二进制格式

dim mybyte() as Byte ‘创建一个二进制的数据

mybyte = Strconv(Richtextbox1.selRTF, vbUnicode) '转换成二进制

如果是反转,则参数为vbFromUnicode

dim mystr as string

dim mybyte() as Byte

'从数据库中调出数据,赋值mybyte,下面反转

mystr = Strconv(mybyte,vbFromUnicode)

三、创建数据库存储项

选定存储项目栏数据格式为ole,填充二进制数据。

————————以下为相关部分——————

一、从现有的RTF文档中读入数据

    方法1、使用open方法打开RTF文件,再用Input方法写入

            Open "myrtf.rtf" For Input As 1

            RichTextBox1.TextRTF = Input$(LOF(1), 1)

    方法2、用loadfile方法加载文件

    RichTextBox1.LoadFile App.Path & "\myrtf.rtf"

二、写入RTF文档

1、直接保存RichTextBox内容,生成RTF文档

Me.RichTextBox1.SaveFile App.Path & "\temp.rtf"

2、向已有的RTF文档中写入选中的数据

Open "temp.rtf" for output as 1

Print #1, RichTextBox1.selRTF

close 1


  评论这张
 
阅读(839)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017