VB下角标问题，请高手帮帮我，谢谢您 - VB / 基础类
我之前问过，怎样才能搞出来下角标，有人告诉我用富文本框，然后给我这个例子
VB code:
Private Sub Command1_Click()
RichTextBox1.Font.Name = "Times New Roman"
RichTextBox1.Font.Size = 20
RichTextBox1.Text = "X3Y4"
OffsetRichText RichTextBox1, 3, 1, -6
End Sub
Private Sub OffsetRichText(box As RichTextBox, start As Integer, length As Integer, offset As Integer)
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
这些都是什么意思，帮我解释一下吧。我如果需要X2Y3（2和3是下角标）应该怎么改呢？谢谢您
谢谢您的帮助，我傍晚回来看
老师教我一个方法，是用OLE，很好用
但是我还是想明白上面那段语言到底是什么意思，希望高手指教，谢谢
{{--
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
