如何实现如此的richtextbox的段落样式(附图) http://www.crcly.com/zzl.jpg还有。这个程序当鼠标点击此段落任何一个位置就能选中此段落。不知如何实现 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '--------------------------------------' 一个由RichTextBox实现的文本编辑器'--------------------------------------' 洪恩在线 求知无限'--------------------------------------'------名称-------------作用------------' Form1 主窗体' CmdOpen 通用对话框' RichTextBox1 RichTextBox' mnuNew “新建”菜单项' mnuOpen “打开”菜单项' mnuSave “保存”菜单项' mnuExit “退出”菜单项' mnuFont “字体”菜单项' mnuPrint “打印”菜单项' mnuFind “查找”菜单项' mnuNext “查找下一个”菜单项'------变量-------------作用-------------' sFind 待查找的字符串'---------------------------------------Option ExplicitPublic sFind As StringPrivate Sub Form_Resize()'如果窗体不处于最小化RichTextBox1状态,改变RichTextBox1大小以适应窗体大小变化If Form1.WindowState <> 1 ThenRichTextBox1.Width = Form1.Width - 135If Form1.Height < 1200 Then Form1.Height = 1200End IfRichTextBox1.Height = Form1.Height - 675End IfEnd Sub'当“退出”菜单项被点击时Private Sub mnuExit_Click()Unload MeEndEnd Sub'当“查找”菜单项被点击时Private Sub mnuFind_Click()'InputBox("弹出的输入框的标题",[默认值], [返回的值])'语法:InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])sFind = InputBox("Find what?", , sFind)'RichTextBox1.Find 是一个方法,根据给定的字符串,在 RichTextBox 控件中搜索文本RichTextBox1.Find sFindEnd Sub'当“字体”菜单项被点击时Private Sub mnuFont_Click()'显示“字体”对话框'使用指定的方法,CommonDialog 控件能够显示下列对话。'----------------------------------------'方法 所显示的对话框'----------------------------------------'ShowOpen 显示“打开”对话框'ShowSave 显示“另存为”对话框'ShowColor 显示“颜色”对话框'ShowFont 显示“字体”对话框'ShowPrinter 显示“打印”或“打印选项”对话框'ShowHelp 调用 Windows 帮助引擎'----------------------------------------CmdOpen.Flags = cdlCFBoth + cdlCFEffectsCmdOpen.ShowFont'将RichTextBox1的属性根据“字体”对话框的变化作相应设置'----------------------------------------'要改变 RichTextBox 控件中的字体特性,可以使用'SelFontName、SelFontSize 和 SelFontColor 属性。'----------------------------------------With RichTextBox1 .SelFontName = CmdOpen.FontName .SelFontSize = CmdOpen.FontSize .SelBold = CmdOpen.FontBold .SelItalic = CmdOpen.FontItalic .SelStrikeThru = CmdOpen.FontStrikethru .SelUnderline = CmdOpen.FontUnderlineEnd WithEnd Sub'当“新建”菜单项被点击时,设置为空Private Sub mnuNew_Click()RichTextBox1.Text = ""End Sub'当“查找下一个”菜单项被点击时Private Sub mnuNext_Click()'SelStart属性-返回或设置所选择的文本的起始点;如果没有文本被选中,则指出插入点的位置。RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1'object.Find(string, start, end, options)'------------------------------------------'Find 方法的语法包含下面部分:'部分 描述'-----------------------------------------'object 必需的。对象表达式,其值是“应用于”列表中的一个对象。'string 必需的。要在控件中查找的字符串表达式。'start 可选的。决定从哪儿开始搜索的整数字符索引。控件中的每一个字符都有一个可唯一标识的整数索引。控件中文本的第一个字符的索引是 0。'end 可选的。决定在哪儿结束搜索的整数字符索引。'options 可选的。用来指定一个或多个可选功能常数的和。所指定的功能如“设置值”中所述。'-----------------------------------------RichTextBox1.Find sFind, , Len(RichTextBox1)End Sub'当“打开”菜单项被点击时Private Sub mnuOpen_Click()'参看上面CommonDialog方法CmdOpen.ShowOpen'RichTextBox的LoadFile方法RichTextBox1.LoadFile (CmdOpen.FileName)End Sub'当“打印”菜单项被点击时Private Sub mnuPrint_Click()CmdOpen.Flags = cdlPDReturnDC + cdlPDNoPageNumsIf RichTextBox1.SelLength = 0 Then CmdOpen.Flags = CmdOpen.Flags + cdlPDAllPagesElse CmdOpen.Flags = CmdOpen.Flags + cdlPDSelectionEnd If'参看上面CommonDialog方法CmdOpen.ShowPrinter'将 RichTextBox 控件中格式化文本发送给设备进行打印。'语法'object.SelPrint (hDC)'SelPrint 方法的语法包含下面部分:'部分 描述'-----------------------------------------------'object 对象表达式,其值是“应用于”列表中的一个对象。'hdc 设备描述体,是准备用来打印控件内容的设备。'-----------------------------------------------RichTextBox1.SelPrint CmdOpen.hDCEnd Sub'当“保存”菜单项被点击时Private Sub mnuSave_Click()CmdOpen.ShowSave'RichTextBox的SaveFile方法,保存文本RichTextBox1.SaveFile (CmdOpen.FileName)End Sub 源文件:http://www.e68668.com/uploadfile/2004110135317152.zip 正确方法为设置SelHangingIndent已经解决。此答案无此解决方式不予结帖 在此帖提出其他问题。问如何把在编程中用到的OCX控件的调用文件集成在可执行程序内部?可行给分 //在此帖提出其他问题。问如何把在编程中用到的OCX控件的调用文件集成在可执行程序内部?可行给分参考:http://dev.csdn.net/develop/article/23/23062.shtm VB环境下可怕的错误,帮忙看下! 各位大虾,请教如何控制记录集的修改? 二进制文件访问问题 vb里能用矩阵吗?用控件? 简单的问题,可我不会:打开数据库,按照字段名将相应的变量值写入数据库 请问请用vb6的错误代码表 怎样使vb写的程序在前台程序处于全屏模式下,也能正确响应所设置的热键 请问在VB6中有什么好用的工具 考一考各位,数学算法问题,开始动脑筋呵 用vb修改文件关联 非常急!!如何在form1框架里面添加exe程序。 请高手出马,急
' 一个由RichTextBox实现的文本编辑器
'--------------------------------------
' 洪恩在线 求知无限
'--------------------------------------
'------名称-------------作用------------
' Form1 主窗体
' CmdOpen 通用对话框
' RichTextBox1 RichTextBox
' mnuNew “新建”菜单项
' mnuOpen “打开”菜单项
' mnuSave “保存”菜单项
' mnuExit “退出”菜单项
' mnuFont “字体”菜单项
' mnuPrint “打印”菜单项
' mnuFind “查找”菜单项
' mnuNext “查找下一个”菜单项
'------变量-------------作用-------------
' sFind 待查找的字符串
'---------------------------------------
Option Explicit
Public sFind As StringPrivate Sub Form_Resize()'如果窗体不处于最小化RichTextBox1状态,改变RichTextBox1大小以适应窗体大小变化
If Form1.WindowState <> 1 Then
RichTextBox1.Width = Form1.Width - 135
If Form1.Height < 1200 Then
Form1.Height = 1200
End If
RichTextBox1.Height = Form1.Height - 675
End If
End Sub'当“退出”菜单项被点击时
Private Sub mnuExit_Click()
Unload Me
End
End Sub'当“查找”菜单项被点击时
Private Sub mnuFind_Click()
'InputBox("弹出的输入框的标题",[默认值], [返回的值])
'语法:InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
sFind = InputBox("Find what?", , sFind)
'RichTextBox1.Find 是一个方法,根据给定的字符串,在 RichTextBox 控件中搜索文本
RichTextBox1.Find sFind
End Sub'当“字体”菜单项被点击时
Private Sub mnuFont_Click()
'显示“字体”对话框
'使用指定的方法,CommonDialog 控件能够显示下列对话。
'----------------------------------------
'方法 所显示的对话框
'----------------------------------------
'ShowOpen 显示“打开”对话框
'ShowSave 显示“另存为”对话框
'ShowColor 显示“颜色”对话框
'ShowFont 显示“字体”对话框
'ShowPrinter 显示“打印”或“打印选项”对话框
'ShowHelp 调用 Windows 帮助引擎
'----------------------------------------
CmdOpen.Flags = cdlCFBoth + cdlCFEffects
CmdOpen.ShowFont
'将RichTextBox1的属性根据“字体”对话框的变化作相应设置
'----------------------------------------
'要改变 RichTextBox 控件中的字体特性,可以使用
'SelFontName、SelFontSize 和 SelFontColor 属性。
'----------------------------------------
With RichTextBox1
.SelFontName = CmdOpen.FontName
.SelFontSize = CmdOpen.FontSize
.SelBold = CmdOpen.FontBold
.SelItalic = CmdOpen.FontItalic
.SelStrikeThru = CmdOpen.FontStrikethru
.SelUnderline = CmdOpen.FontUnderline
End With
End Sub'当“新建”菜单项被点击时,设置为空
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
End Sub'当“查找下一个”菜单项被点击时
Private Sub mnuNext_Click()
'SelStart属性-返回或设置所选择的文本的起始点;如果没有文本被选中,则指出插入点的位置。
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
'object.Find(string, start, end, options)
'------------------------------------------
'Find 方法的语法包含下面部分:
'部分 描述
'-----------------------------------------
'object 必需的。对象表达式,其值是“应用于”列表中的一个对象。
'string 必需的。要在控件中查找的字符串表达式。
'start 可选的。决定从哪儿开始搜索的整数字符索引。控件中的每一个字符都有一个可唯一标识的整数索引。控件中文本的第一个字符的索引是 0。
'end 可选的。决定在哪儿结束搜索的整数字符索引。
'options 可选的。用来指定一个或多个可选功能常数的和。所指定的功能如“设置值”中所述。
'-----------------------------------------
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub'当“打开”菜单项被点击时
Private Sub mnuOpen_Click()
'参看上面CommonDialog方法
CmdOpen.ShowOpen
'RichTextBox的LoadFile方法
RichTextBox1.LoadFile (CmdOpen.FileName)
End Sub'当“打印”菜单项被点击时
Private Sub mnuPrint_Click()
CmdOpen.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CmdOpen.Flags = CmdOpen.Flags + cdlPDAllPages
Else
CmdOpen.Flags = CmdOpen.Flags + cdlPDSelection
End If
'参看上面CommonDialog方法
CmdOpen.ShowPrinter
'将 RichTextBox 控件中格式化文本发送给设备进行打印。
'语法
'object.SelPrint (hDC)
'SelPrint 方法的语法包含下面部分:
'部分 描述
'-----------------------------------------------
'object 对象表达式,其值是“应用于”列表中的一个对象。
'hdc 设备描述体,是准备用来打印控件内容的设备。
'-----------------------------------------------
RichTextBox1.SelPrint CmdOpen.hDC
End Sub'当“保存”菜单项被点击时
Private Sub mnuSave_Click()
CmdOpen.ShowSave
'RichTextBox的SaveFile方法,保存文本
RichTextBox1.SaveFile (CmdOpen.FileName)
End Sub
已经解决。此答案无此解决方式
不予结帖
可行给分
可行给分参考:http://dev.csdn.net/develop/article/23/23062.shtm