Industriez.Net Foro de Juegos Online l Descargas l Noticias l Software l Webmaster & Mucho Mas » Zona Webmaster » Visual Basic » Curso Visual Basic 2008 Express Edition - Como crear un editor de texto
Visual Basic Todo Referente a visual basic - tutoriales, manuales, descargas, guias etc.

Respuesta
Antiguo 24-ene-2010   #1 (permalink)

 
Avatar de Poderosoans
 
Status: Administrador de Industriez
Puntos: 13.879, Nivel: 15
Puntos: 13.879, Nivel: 15 Puntos: 13.879, Nivel: 15 Puntos: 13.879, Nivel: 15
Subir de nivel : 20%, 1.121 Puntos necesarios
Subir de nivel : 20% Subir de nivel : 20% Subir de nivel : 20%
Actividad: 35%
Actividad: 35% Actividad: 35% Actividad: 35%
Fecha de Ingreso: mayo-2009
Ubicación: Peru - Lima
Nacionalidad:
Genero:
Mensajes: 3.829
Has agradecido: 333
Has sido agradecido 646 veces en 169 mensajes
Poder de Credibilidad: 10
Poderosoans está en el buen camino
Predeterminado Curso Visual Basic 2008 Express Edition - Como crear un editor de texto

Curso Visual Basic 2008 Express Edition - Como crear un editor de texto

Aqui les dejo otro video sobre el Curso de Visual Basic 2008 Express Edition.
En este video,le enseño a crear un editor de texto.

codigos:

Nuevo:
EDT.Clear()

Abrir:
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"
Open.CheckFileExists = True
Open.Title = "Abrir Archivo"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
EDT.Text = myStreamReader.ReadToEnd()
Catch ex As Exception

End Try

Guardar Como:
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text (*.txt)|*.txt|HTML(*.html*)|*.html|PHP(* .php*)|*.php*|All files(*.*)|*.*"
Save.CheckPathExists = True
Save.Title = "Guardar como"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(EDT.text)
myStreamWriter.Flush()
Catch ex As Exception

End Try

Atras:
EDT.Undo()

Adelante:
EDT.Redo()

Cortar:
EDT.Cut()

Copiar:
EDT.copy()

Pegar:
EDT.Paste()

Seleccionar todo:
EDT.Selectall()

Limpiar texto:
EDT.Clear

Fuente:
Try Dim dlg As FontDialog = New FontDialog dlg.Font = EDT.font If dlg.showdialog = System.Windows.Forms.DialogResult.OK Then EDT.Font = dlg.Font End If
Catch ex As Exception:

End Try

Color:
Try Dim dlg As ColorDialog = New ColorDialog dlg.Color = EDT.Forecolor If dlg.ShowDialog = System.Windows.Forms.DialogResult.Ok Then EDT.Forecolor = dlg.Color End If
Catch ex As Exception

End Try

__________________
Si no saben como dar las gracias entra aquii: http://www.industriez.net/si-eres-nu...as-nuevos.html



Click en La imagen Para Unirte
Poderosoans está desconectado   Responder Citando
Enlaces patrocinados
 
 

Respuesta

Marcadores

Etiquetas
2008, basic, como, crear, curso, edition, editor, editor de texto, express, texto, visual

« Tema Anterior | Próximo Tema »
Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado
Mode Lineal Mode Lineal

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes
Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks are Activado
Pingbacks are Activado
Refbacks are Activado

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Microsoft Security Releases ISO Image yennhi Descargas software 0 30-ene-2011 07:48
Windows 7 SP1 RTM 7601.17514. Primicia Disponible Gratis doblefoul Windows 0 15-ene-2011 07:13
Microsoft Security Releases ISO Image December 2010 softspro Descargas software 0 18-dic-2010 21:14
Microsoft Security Releases ISO Image December 2010 thanhbuata Windows 0 18-dic-2010 13:54

 
 
 
Google Pagerank Powered by MyPagerank.Net Web Analytics
Contáctenos - Industriez Entra & Diviertete - Archivo - Arriba