用richtextbox做文本编辑器时遇到的问题...
用richtextbox做了个文本编辑器...但是有几个问题...
1.如何实现对文本的排版...选中的文本左对齐右对齐还有居中...(10分)
2.如何实现查找替换...弹出格窗体有查找替换的相关操作...怎样从另外的窗体对richtextbox中的文本信息进行查找呢...要用什么代码连接一下么...(10分)
3.打开一个只读文件...编辑完保存的时候如何让他提示文件只读无法保存呢...或者一开始就无法编辑...(5分)
4.一个下拉菜单里怎么加横线以区分各个选项的种类...(5分)
5.怎样实现撤消和重复...(10分)
6.richtextbox中好像是无法编辑表格的把...那能不能变通下...在另外的窗体中用另外的控件编辑好表格再插入呢...具体是要怎么搞啊...(10分)
这个东西做了有几天了...现在把问题会集一下...希望有人指导下...最好能给出实现的代码...orz
[解决办法]
//1.如何实现对文本的排版...选中的文本左对齐右对齐还有居中...(10分)
Private Sub Option1_Click(Index As Integer)
If RichTextBox1.SelLength > 0 Then
RichTextBox1.SelAlignment = Index
End If
End Sub
//4.一个下拉菜单里怎么加横线以区分各个选项的种类...(5分)
设计菜单时将菜单的标题设为 "- ",显示时就出现分隔横线
[解决办法]
2.如何实现查找替换...弹出格窗体有查找替换的相关操作...怎样从另外的窗体对richtextbox中的文本信息进行查找呢...要用什么代码连接一下么...(10分)
给你个思路，具体自己写代码
查找：
1、RichTextBox1.Find 查找的字符, 开始位置
2、记住第一次查找后的位置
3、用循环再 RichTextBox1.Find 查找的字符, 开始位置2 ，直到历遍textbox
替换: RichTextBox1.SelText = 要代替的字符
3.打开一个只读文件...编辑完保存的时候如何让他提示文件只读无法保存呢...或者一开始就无法编辑...(5分)
一开始无法编辑： richtextbox1.Locked=true
编辑完提示文件只读无法保存: 直接用msgbox 提示就行了，然后不管按那个健都不进行保存操作
[解决办法]
获取文件的属性：
Public Declare Function GetFileAttributes Lib "kernel32 " Alias "GetFileAttributesA " (ByVal lpFileName As String) As Long
设置文件的属性：
Public Declare Function SetFileAttributes Lib "kernel32 " Alias "SetFileAttributesA " (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
具体参阅相应的API用法
[解决办法]
获取文件的属性:直接=GetAttr(FileName)
[解决办法]
//5.怎样实现撤消和重复...(10分)
第一次撤销,第二次重复
Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA " (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_UNDO = &HC7
Private Sub Command1_Click()
Dim i As Integer
i = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
End Sub
[解决办法]
//6.richtextbox中好像是无法编辑表格的把
RichTextBox1.OLEObjects.Add , , "C:\1.xls "
