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

好学

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

tmtony

Richtextbox 控件
注意此控制支持Access 2000 Xp 2007  , 2003使用时需要使用其它一些变相的办法来解决

好学

站长有例子吗?麻烦您给个例子好吗?

好学

原帖由 tmtony 于 2007-12-21 22:44 发表
Richtextbox 控件
注意此控制支持Access 2000 Xp 2007  , 2003使用时需要使用其它一些变相的办法来解决

能说祥细点吗?

tmtony

richtextbox控件在VB下的例子很多,但在Access相对很少,而且在Access2003下使用有些问题 我建议你使用Access2007,它本身就自带了Richtext的功能,只需将字段类型设为富文本richtext就可以了

好学

不行啊,我原程序是在2003开发的,怕转到2007出问题,因现在已经在使用了,请站长指点!

tz-chf

用word不是更好？？？

好学

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

你不明白,是在软件中的一部分,如果可以直接用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

hi-wzj

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