Cómo agregar superíndice en RichTextBox usando código vb

Private Sub Command1_Click()

RichTextBox1 = "X3, X2"

RichTextBox1.SelStart = 1 'Selecciona el carácter inicial

RichTextBox1 .SelLength = 1 'Seleccione la longitud del carácter

RichTextBox1.SelFontSize = 8 'Tamaño de fuente del texto seleccionado

RichTextBox1.SelCharOffset = 40 'Seleccione el desplazamiento del texto, el número positivo significa desplazamiento hacia arriba, la unidad es tw

RichTextBox1.SelStart = 4 'Selecciona el carácter inicial

RichTextBox1.SelLength = 1 'Selecciona la longitud del carácter

RichTextBox1.SelFontSize = 8 ' Tamaño de fuente de texto seleccionado

RichTextBox1.SelCharOffset = -40 'Seleccione el desplazamiento del texto, un número positivo significa desplazamiento hacia arriba, la unidad es twips

End Sub

La primera forma de tener superíndices en un párrafo es encontrar la posición de 2 en todo el texto como en el código anterior, y luego su siguiente carácter es 5. Por ejemplo, la posición de 2 es el quinto en el texto, luego 5 es No. 6, el código anterior se cambia a (solo cambie 5 a superíndice)

Private Sub Command1_Click()

RichTextBox1.SelStart = 6 'Seleccione el carácter de inicio

RichTextBox1.SelLength = 1 'Selecciona longitud de caracteres

RichTextBox1.SelFontSize = 8 'Tamaño de fuente de texto seleccionado

RichTextBox1.SelCharOffset = 40 'Selecciona desplazamiento de texto, positivo El número representa desplazamiento hacia arriba y la unidad es twips

End Sub

Otra forma es que el texto haya sido ingresado. En este momento, seleccione este 5 y luego defina un botón de comando para cambiar. el texto, el código en el botón de comando es el siguiente

Private Sub Command1_Click()

RichTextBox1.SelFontSize = 8 'Tamaño de fuente del texto seleccionado

RichTextBox1.SelCharOffset = 40 'Seleccione el desplazamiento del texto, un número positivo significa desplazamiento hacia arriba, la unidad es twip

End Sub