código fuente para abrir un archivo de w...
jueves, 25 de agosto de 2016
NEGRITA, CURSIVA, SUBRAYADO Y DOBLE SUBRAYADO.
agosto 25, 2016
No comments
Sub cambiarestilo(ByVal estiloselec As FontStyle)
Dim estilo As FontStyle = RichTextBox1.SelectionFont.Style
If estiloselec = FontStyle.Bold Then
If RichTextBox1.SelectionFont.Bold = False Then
estilo += FontStyle.Bold
Else
...
miércoles, 24 de agosto de 2016
lunes, 22 de agosto de 2016
CODIFICACIÓN DE COMBOBOX FUENTE
agosto 22, 2016
No comments
Imports System.Drawing.Text
Imports System.IO
Public Class Form1
Private Sub CarregarFont()
If My.Computer.FileSystem.FileExists(Application.StartupPath & "\font.txt") = False Then
Dim fi As New System.IO.StreamWriter(Application.StartupPath & "\font.txt")
Dim family As FontFamily
...
lunes, 15 de agosto de 2016
CODIGO DEL EDITOR DE TEXTOS
agosto 15, 2016
No comments
Les dejo aqui los codigos:
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)
document.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
End Try
Guardar:
Dim Save As New SaveFileDialog()
Dim myStreamWriter...
