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