正文

在RichTextBox 控件中实现上、下标形式2005-10-12 20:37:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/iamben250/5990.html

分享到:

在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中通

阅读(2910) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册