Editor de Texto ( Se aprecian mejoras)

[[W]inmaster]

Hola gente jajjaja
Bueno yo ya puse el codigo pero...
Y que más aqui les dejo ya que es de codigo abierto y me gustaria saber si alguien lo mejora jajajja
bueno al grano aqui lo dejo
---------------------------------------------------------

Option Explicit

Private IndFuente As Integer
Private IndTamaño As Integer

Private Sub AyudaAcercaDe_ Click()
MsgBox "PROGRAMA HECHO POR Winmaster", 0, "BY Winmaster"
End Sub

Private Sub ColorFondo_Cli ck(Index As Integer)
Select Case Index
Case 0 'color de fondo blanco
Text1.BackColo r = RGB(255, 255, 255)
Case 1 'color de fondo verde
Text1.BackColo r = RGB(0, 255, 0)
Case 2 'color de fondo azul
Text1.BackColo r = RGB(0, 0, 255)
End Select
End Sub

Private Sub ColorTexto_Cli ck(Index As Integer)
Select Case Index
Case 0 'color de fondo negro
Text1.ForeColo r = RGB(0, 0, 0)
Case 1 'color de fondo verde
Text1.ForeColo r = RGB(0, 255, 0)
Case 2 'color de fondo azul
Text1.ForeColo r = RGB(0, 0, 255)
End Select
End Sub

Private Sub EdiciónCopiar_Click()
Clipboard.SetT ext Text1.SelText
End Sub

Private Sub EdiciónCortar_Click()
Clipboard.SetT ext Text1.SelText
Text1.SelText = ""
End Sub

Private Sub EdiciónPegar_Click()
Text1.SelText = Clipboard.GetT ext()
End Sub

Private Sub FicheroSalir_C lick()
End
End Sub

Private Sub Form_Load()
Clipboard.Clea r 'Vaciar la portapapeles
Text1.Font.Nam e = "Arial" 'Fuente por defecto, Arial
IndFuente = 1
Text1.Font.Siz e = 10 'Tamaño por defecto 10
IndTamaño = 0
End Sub

Private Sub Fuente_Click(Index As Integer)
Fuente(IndFuente).Checked = False
Text1.Font.Nam e = Fuente(Index).Caption
Fuente(Index).Checked = True
IndFuente = Index
End Sub

Private Sub MenúEdición_Click()
'Activar/desactivar Cortar y Copiar si hay/no hay
'texto seleccionado
EdiciónCortar.Enabled = (Text1.SelLengt h > 0)
EdiciónCopiar.Enabled = (Text1.SelLengt h > 0)
'Activar/desactivar Pegar si hay/no hay texto en el portapapeles
EdiciónPegar.Enabled = (Len(Clipboard.GetT ext()) > 0)
End Sub

Private Sub Tamaño_Click(Index As Integer)
Tamaño(IndTamaño).Checked = False
Text1.Font.Siz e = Tamaño(Index).Caption
Tamaño(Index).Checked = True
IndTamaño = Index
End Sub

Private Sub Text1_Change()

End Sub


Salu2  Y aver si hacen alguna mejorar jajajjja
Ah y si kieren el porgrama con el setup y todo eso vayan ami pagina recuerden

Para ver este enlace Registrate o Inicia Sesion

[[W]inmaster]

Ah s eme olvida decriles que SE descArguen solo el que poner Writer Plus!
no el que pone By winmaster ok?

saludos y perodn por postera 2 veces :'(

[**PeRu]

ese programa se ejecuta en VB o en algun otro programa? me lo pudieras decir? porfacor ps!.. porque recien toy prendiendo un poco de programacion en VB y JAVA entoncs quisiera saber ps!...

[kokehack]

ese programa se ejecuta en VB o en algun otro programa? me lo pudieras decir? porfacor ps!.. porque recien toy prendiendo un poco de programacion en VB y JAVA entoncs quisiera saber ps!...

de VB a Java hay un paso de gigante!               
Te recomiendo C/C++ para comprender más JAVA...