|
 |
|
|
|
|
Desenvolvendo aplicações
com Gambas
Ação "Salvar"
|
|
Ao pressionar o botão "Salvar" ou a
entrada equivalente no menu, o programa deve salvar o conteúdo
em um arquivo de texto. Mostraremos um quadro de diálogo ao
usuário para que nos proporcione o nome do arquivo a utilizar.
Este é o código corrrespondente.
PUBLIC SUB Salvar_Click()
DIM linhas AS String
DIM destino AS String
DIM numArquivo AS Integer
linhas = ListBox1.Contents
Dialog.Title = "Selecione um arquivo"
Dialog.Filter = [ "Dados da agenda (*.data)" ]
IF NOT Dialog.SaveFile() THEN
IF Right$(Dialog.Path, 5) <> ".data" THEN
destino = Dialog.Path & ".data"
ELSE
destino = Dialog.Path
END IF
File.Save(destino, linhas)
END IF
END
Queremos que os dados sejam salvos em um arquivo com a extensão
data, assim como o nome do
arquivo do usuário pode não terminar em ".data",
concatenamos manualmente a extensão. Para salvar o conteúdo
em um arquivo usamos o método Save()
da classe File, que
utiliza como argumento o endereço do arquivo e o texto que
queremos salvar. Acessemos o conteúdo do ListBox mediante sua
propriedade Contents,
que devolve uma String, com
um salto de linha "\n" separando cada entrada no
ListBox.
|
|
|
|
Sobre este documento e o autor
Como mencionado anteriormente, a aplicação
foi desenvolvida utilizando a versão 1.0-1 do Gambas
(utilizando os pacotes pré compilados para Debian "Sid").
No momento que escrevo este documento a versão 1.0.3 acaba de
ser publicada, e no momento que ler este documento Provavelmente há
uma versão mais moderna. Convém ler a lista de troca de
uma versão para outra pois pode haver alguma
incompatibilidade.
Qualquer comentário sugerindo a melhora deste
documento é bem vinda meu E-Mail é forodejazz
(arroba) gmail (punto) com
Nota legal: Este documento é livre,
pode copia-lo, vende-lo, distribui-lo, modifica-lo, traduzi-lo para
outras linguagens e inclusive vende-lo, porem sempre conservando esta
nota e citando a procedência do documento. Em qualquer caso, o
autor agradeceria que o notificasse, em um dado momento, ser
retribuído economicamente por seu esforço (se colar,
colou ;-)
Notas
-
Há um bom
tutorial para iniciantes e documentação em Casterliano
em http://gambas.gnulinex.org
-
Os eventos devem ser
tratados como procedimentos, isto é, uma função
que não retorna valor algum.
-
Não sou expert na terminologia usada em
programação orientada a objetos, sendo que,
provavelmente estarei algum termino incorreto. Minhas desculpas ;-)
Este
conteúdo
foi publicado por Antonio Sousa, respeitando as licenças
de publicações . Se for detectado
algum
erro na atribuição do tutorial relacionado com
seus direitos de atribuição contate gambastutor@yahoo.com.br e
procederemos as
modificações
TUTORIAIS
|
