如何在Richtextbox 中输入及控制上下标的输入
编号：QA004516
建立日期: 2002年1月20日 最后修改日期：2002年12月8日
所属类别：
wang:
我想问如何在Richtextbox 中输入及控制上下标的输入?
回答:
这个问题是我提的, 可以用字符升高降低来实现上下标功能。下面的程序是在RichTextBox 控件中实现上标和下标的形式，主要是使作为上、下标的字符的尺寸小一些，位置在基线上下浮动。程序利用属性SelCharOffset，由它确定RichTextBox 控件中的文本是出现在基线上（正常状态），当SelCharOffset >0 时，文本出现在基线之上，成为上标形式； 当SelCharOffset<0 时，文本出现在基线之下，成为下标形式。 该属性在设计时无效。
在表单的Load事件中添加以下代码：
Private Sub Form_Load()
RichTextBox1.Font.Name = "Times New Roman"
RichTextBox1.Font.Size = 10
RichTextBox1.Text = "H2SO4"
" Move the numbers down 2 points.
OffsetRichText RichTextBox1, 1, 1, 2
OffsetRichText RichTextBox1, 4, 1, -2
End Sub
Private Sub OffsetRichText(box As RichTextBox, start As Integer, length As Integer,
offset As Integer)
"box指RichTextBox控件；start指作为上下标的
"字符的起始位置；length指上下标字符的长度；
"offset指上标还是下标，大于0上标；小于0下标。
box.SelStart = start
box.SelLength = length
box.SelFontSize = box.Font.Size -abs(offset)
box.SelCharOffset = ScaleY(offset,vbPoints, vbTwips)
box.SelStart = 0
box.SelLength = 0
End Sub
上述程序在WINDOWS98/ME中通过。
相关问题：
QA004508 "Richtextbox控件中插入jpg格式的图片和数学公式"
此问题由wang回答。
| |
|
|
| |
|
|
