dim mybyte() as Byte ‘创建一个二进制的数据 mybyte = Strconv(Richtextbox1.TextRTF, vbUnicode) '转换成二进制 保存到数据库 取出 Richtextbox2.TextRTF = Strconv(mybyte,vbFromUnicode)
用put语句 例:Open App.Path & "\d.txt" For Binary Access Write As #1 Put #1, , &H1234 put #1,,&H4265 Close 详细信息参MSDN
RichTextbox 有一个 TextRTF 属性，它的格式是 String ，你可以把它存到一个Memo(备注型)字段中。TextRTF 属性是可读可写的。
InsertCommand="INSERT INTO [Regist] ([编号], [Name], [Card], [Tel], [Email], [Sce], [ManNum]) VALUES (?编号, ?Name, ?Card, ?Tel, ?Email, ?Sce, ?ManNum)"> 在SPT中，使用?后面附加变量名来引用Parameters中的元素
'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个' 3) 在SQL Server2000中创建数据库,新建表"用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定 4) ...
RichTextBox 控件能以 rtf 格式和普通 ASCII 文本格式这两种形式打开和保存文件。可以使用控件的方法（LoadFile 和 SaveFile）直接读写文件，或使用与 Visual Basic 文件输入/输出语句联结的、诸如 SelRTF 和 TextRTF 之类的控件属性打开和保存文件。通过使用 OLEObjects 集合，RichTextBox 控件支持对象的...
最简洁的方式是绑定这个数据库字段到RichTextBox的Rtf属性
根据补充信息，修改如下：楼上几位的方法都会使Richtextbox格式发生变化。我的做法是通过API来实现：一、把下面代码放入模块中：Option Explicit Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam ...
RichTextBox1.Text=loadfile("文件路径\文件名.txt")这样就行了
一次以二进制形式读读512字节，放窗体或RichTextBox以16进制字符显示：Option Explicit Dim a As Byte Dim aa As String Dim bb As String Dim i As Integer Dim nw As Long Private Sub Command1_Click()CommonDialog1.ShowOpen End Sub Private Sub Command2_Click()Dim a(255) As Byte Dim...