请问用什么控件实现WORD的文字编辑功能?

好学

请问用什么控件实现WORD的文字编辑功能?

goto2008

下载不了哦？

好学

谢谢了andymark！

andymark

http://www.office-cn.net/Soft/Class3/Class43/200508/269.html

好学

请问站长如何调出字体选择框?

好学

原帖由 hi-wzj 于 2007-12-24 09:22 发表
您也可以在表中设置old字段，然后插入word文件，要编辑时激活即可编辑。

可以做个例子吗?不是很明白.

hi-wzj

您也可以在表中设置old字段，然后插入word文件，要编辑时激活即可编辑。

tmtony

如tz-chf所说, word也是一个好的选择, 我现在的文档管理产品就是使用Word来做的.
如果你要使用Richtextbox,可按照下面的方法

在窗体上增加一个richtextbox控件, 然后设置它的text 或textrtf属性,也可直接从文件加载
基本的设置字体和格式的代码如下(代码是以前做的VB程序,但在Access中类似):


Private Function FormatBold()
    With rtbCurrent
        If (IsNull(.SelBold) = True) Or (.SelBold = False) Then
            '若所选的文本为加粗的或混合的就设置为加粗
            .SelBold = True
        ElseIf .SelBold = True Then
            '若所选的文本为加粗的就设置取消加粗格式
            .SelBold = False
        End If
        .SetFocus
    End With
End Function
Private Function FormatItalic()
    With rtbCurrent
        If (IsNull(.SelItalic) = True) Or (.SelItalic = False) Then
            '若所选的文本为倾斜的或混合的就设置为倾斜
            .SelItalic = True
        ElseIf .SelItalic = True Then
            '若所选的文本为倾斜的就设置取消倾斜格式
            .SelItalic = False
        End If
'        .SetFocus
    End With
End Function

Private Function FormatUnderline()
    With rtbCurrent
        If (IsNull(.SelUnderline) = True) Or (.SelUnderline = False) Then
            '若所选的文本为下划线的或混合的就设置为下划线
            .SelUnderline = True
        ElseIf .SelUnderline = True Then
            '若所选的文本为下划线的就设置取消下划线格式
            .SelUnderline = False
        End If
'        .SetFocus
    End With
End Function

'Private Function FormatColor(tool As ActiveBar2LibraryCtl.tool)
'    Dim lClr As Long
'    lClr = CLng(tool.TagVariant)
'    rtbCurrent.SelColor = lClr
'End Function

Private Function FormatAlign(intIndex As Integer)
    Select Case intIndex
        Case 0 '左对齐
            '设置对齐方式
            rtbCurrent.SelAlignment = rtfLeft
        Case 1 '居中
            '设置对齐方式
            rtbCurrent.SelAlignment = rtfCenter
        Case 2 '右对齐
            '设置图片
            '设置对齐方式
            rtbCurrent.SelAlignment = rtfRight
    End Select
End Function

好学

原帖由 tz-chf 于 2007-12-23 11:23 发表
用word不是更好？？？

你不明白,是在软件中的一部分,如果可以直接用WORD就不用说了.

tz-chf

用word不是更好？？？