22 mayo, 2024

Todo Programación

Cursos, código fuente y ejemplos.

Proyecto Visual Basic – Block de notas

2 minutos de lectura
Proyecto con fuente de un editor tipo block de notas
ide vb6

El siguiente código permite crear, guardar y abrir archivos de texto, como si fuera el block de notas de windows.

' Declaración de variables globales
Dim ArchivoActual As String

' Evento al hacer clic en "Nuevo"
Private Sub mnuNuevo_Click()
    Text1.Text = "" ' Limpiar el contenido del cuadro de texto
    ArchivoActual = "" ' Borrar el nombre del archivo actual
End Sub

' Evento al hacer clic en "Abrir"
Private Sub mnuAbrir_Click()
    CommonDialog1.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
    CommonDialog1.ShowOpen ' Mostrar el cuadro de diálogo para abrir archivo

    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Input As #1 ' Abrir el archivo en modo lectura
        Text1.Text = Input$(LOF(1), 1) ' Leer el contenido del archivo y mostrarlo en el cuadro de texto
        Close #1 ' Cerrar el archivo
        ArchivoActual = CommonDialog1.FileName ' Almacenar el nombre del archivo actual
    End If
End Sub

' Evento al hacer clic en "Guardar"
Private Sub mnuGuardar_Click()
    If ArchivoActual = "" Then ' Si no hay un archivo asociado
        CommonDialog1.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        CommonDialog1.ShowSave ' Mostrar el cuadro de diálogo para guardar archivo

        If CommonDialog1.FileName <> "" Then
            ArchivoActual = CommonDialog1.FileName ' Almacenar el nombre del archivo actual
        Else
            Exit Sub ' Salir si el usuario cancela el guardado
        End If
    End If

    Open ArchivoActual For Output As #1 ' Abrir el archivo en modo escritura
    Print #1, Text1.Text ' Escribir el contenido del cuadro de texto en el archivo
    Close #1 ' Cerrar el archivo
End Sub

' Evento al hacer clic en "Guardar como"
Private Sub mnuGuardarComo_Click()
    CommonDialog1.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
    CommonDialog1.ShowSave ' Mostrar el cuadro de diálogo para guardar archivo

    If CommonDialog1.FileName <> "" Then
        ArchivoActual = CommonDialog1.FileName ' Almacenar el nombre del archivo actual
        Open ArchivoActual For Output As #1 ' Abrir el archivo en modo escritura
        Print #1, Text1.Text ' Escribir el contenido del cuadro de texto en el archivo
        Close #1 ' Cerrar el archivo
    End If
End Sub

' Evento al hacer clic en "Salir"
Private Sub mnuSalir_Click()
    Unload Me ' Cerrar el formulario
End Sub

' Evento al cargar el formulario
Private Sub Form_Load()
    ArchivoActual = "" ' Inicializar el nombre del archivo actual
End Sub

Lo más importante acá es agregar el componente common dialog, el mismo se agrega desde el menú Proyecto / Componentes.

Si no lo tienen deben buscar y descargar el archivo comdlg32.ocx , yo lo conseguí del sitio archive.org

Pueden descargar el código fuente desde el siguiente enlace

http://todoprogramacion.com.ar/fuentes/vb6/proyecto_block_de_notas_vb6.zip

Copyright © Todos los derechos reservados. | Newsphere por AF themes.