Editor de textos de diseño con VB. Incluyendo nuevo, pegado, salida, etc.
SelLength = 0 Entonces
Salir de Sub
Else
strTemp = CStr(Text1.Text)
Si Text1.SelStart = 0 Entonces
selTemp = Left(strTemp, Text1. Text1.SelLength)
Else
selTemp = Mid(strTemp, Text1.SelStart, Text1.SelLength) p>
Fin si
Text1.Text = Left(Text1.Text Text1.Text = Left(Text1.Text, Len(Text1.SelStart)) _
+ Derecha( Texto1.Texto, Len(Texto1.
End If
End Sub
Private Sub Command3_Click()
Text1. Texto = Izquierda (Texto1.Texto, Texto1.SelStart) _
+ selTemp + Derecha(Texto1.
Texto1.Texto = Izquierda(Texto1.Texto, Texto1.SelInicio) _
+ selTemp + Right(Text1.Text, Len(Text1.Text) - _
Text1.SelStart)
End Sub
Private Sub Command4_Click ()
Text1.Text = "Este programa se utiliza para demostrar operaciones de texto simples."
End Sub
Private Sub Command5_Click()
Fin
Fin Sub