Proyecto Visual Basic – Block de notas

' 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