在RichTextBox 控件中实现上、下标形式

　　VB提供了一个优秀的控件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中通

评论