Office中国论坛/Access中国论坛

标题: 请问用什么控件实现WORD的文字编辑功能? [打印本页]

作者: 好学 时间: 2007-12-21 21:54
标题: 请问用什么控件实现WORD的文字编辑功能?
请问用什么控件实现WORD的文字编辑功能?

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

作者: 好学 时间: 2007-12-22 13:09
站长有例子吗?麻烦您给个例子好吗?

作者: 好学 时间: 2007-12-23 10:06

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

能说祥细点吗?

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

作者: 好学 时间: 2007-12-23 11:18
不行啊,我原程序是在2003开发的,怕转到2007出问题,因现在已经在使用了,请站长指点!

作者: tz-chf 时间: 2007-12-23 11:23
用word不是更好？？？

作者: 好学 时间: 2007-12-23 11:29

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

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

作者: tmtony 时间: 2007-12-23 11:30
如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 时间: 2007-12-24 09:22
您也可以在表中设置old字段，然后插入word文件，要编辑时激活即可编辑。

作者: 好学 时间: 2007-12-25 00:35

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

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

作者: 好学 时间: 2007-12-25 00:36
请问站长如何调出字体选择框?

作者: andymark 时间: 2007-12-25 22:47
http://www.office-cn.net/Soft/Class3/Class43/200508/269.html

作者: 好学 时间: 2007-12-26 09:14
谢谢了andymark！

作者: goto2008 时间: 2009-12-8 17:36
下载不了哦？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)