Código de implementação do evento:
Copie o código do código da seguinte forma:
Sub privado mQuit_Click()
Texto1.Text = ""
Fim
Finalizar sub
Subprivado mNew_Click()
Texto1.Text = ""
Form1.Caption = "Sem título"
Finalizar sub
Sub privado mopen_Click()
CommonDialog1.ShowOpen
Quadro = CommonDialog1.FileName
Se fname <> "" Então
Form1.Caption = fnome
Texto1.Text = ""
Abra fname para entrada como #1
b = ""
Faça até EOF(1)
Entrada de linha nº 1, próxima linha
b = b & próxima linha & Chr(13) & Chr(10)
Laço
Fechar #1
Texto1.Texto = b
Terminar se
Finalizar sub
Subprivado mSave_Click()
Se Form1.Caption = "Sem título" ou Form1.Caption = "" Então
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
Outro
fname = Form1.Caption
Terminar se
Se fname <> "" Então
Form1.Caption = fnome
Abra fname para saída como #1
Imprimir #1, Texto1.Texto
Fechar #1
Terminar se
Finalizar sub
Subprivado mNewSave_Click()
CommonDialog1.ShowSave
Se fname <> "" Então
Form1.Caption = fnome
Abra fname para saída como #1
Imprimir #1, Texto1.Texto
Fechar #1
Terminar se
Finalizar sub
Precisa usar o controle CommonDialog!
Código da propriedade:
Copie o código do código da seguinte forma:
Comece VB.Menu mFile
Legenda = "Arquivo"
Comece VB.Menu mNovo
Legenda = "Novo"
Fim
Comece VB.Menu mOpen
Legenda = "Abrir"
Fim
Comece VB.Menu mSave
Legenda = "Salvar"
Fim
Comece VB.Menu mNewSave
Legenda = "Salvar como"
Fim
Comece VB.Menu mQuit
Legenda = "Sair"
Atalho = ^E
Fim
Fim