Código de implementación del evento:
Copie el código de código de la siguiente manera:
Sub privado mQuit_Click()
Texto1.Texto = ""
Fin
Subtítulo final
Sub privado mNew_Click()
Texto1.Texto = ""
Form1.Caption = "Sin título"
Subtítulo final
Sub privado mopen_Click()
CommonDialog1.ShowOpen
Marco = CommonDialog1.FileName
Si fname <> "" Entonces
Form1.Caption = nombref
Texto1.Texto = ""
Abra fname para ingresar como n.° 1
b = ""
Hacer hasta EOF(1)
Entrada de línea #1, siguiente línea
b = b y siguiente línea y Chr(13) y Chr(10)
Bucle
Cerrar #1
Texto1.Texto = b
Terminar si
Subtítulo final
Sub privado mSave_Click()
Si Form1.Caption = "Sin título" o Form1.Caption = "" Entonces
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
Demás
fname = Formulario1.Caption
Terminar si
Si fname <> "" Entonces
Form1.Caption = nombref
Abra fname para obtener salida como n.° 1
Imprimir #1, Texto1.Texto
Cerrar #1
Terminar si
Subtítulo final
Sub privado mNewSave_Click()
CommonDialog1.ShowSave
Si fname <> "" Entonces
Form1.Caption = nombref
Abra fname para obtener salida como n.° 1
Imprimir #1, Texto1.Texto
Cerrar #1
Terminar si
Subtítulo final
¡Necesita utilizar el control CommonDialog!
Código de propiedad:
Copie el código de código de la siguiente manera:
Comenzar VB.Menu mFile
Título = "Archivo"
Comenzar VB.Menú mNuevo
Título = "Nuevo"
Fin
Comenzar VB.Menú mAbrir
Título = "Abrir"
Fin
Comenzar VB.Menu mGuardar
Título = "Guardar"
Fin
Comenzar VB.Menu mNuevoGuardar
Título = "Guardar como"
Fin
Comenzar VB.Menú mSalir
Título = "Salir"
Atajo = ^E
Fin
Fin