|
 |
|
|
|
|
Desenvolvendo aplicações
com Gambas
Ação "Modificar"
|
|
Ao pressionarmos este botão, o usuário
modificará algumas das entradas que exista no ListBox. Se não
tiver nenhuma, o botão não deve fazer nada, e se não
for selecionada nenhuma linha, mostrará uma mensagem de aviso.
Vamos a implementação do procedimento associado.
' Ação "Modificar"
PUBLIC SUB Modificar_Click()
f AS FInputBox
IF ListBox1.Count > 0 THEN ' Se não houver nada no formulário,
' sua propriedade count é 0. Neste caso, ' não fazemos nada.
IF ListBox1.Index = -1 THEN
' a propiedade Index nos devuelve o índice da linha selecionada.
' Se não selecionarmos nenhuma, devolve -1. Nste caso, avisamos
' o usuário e nã fazemos nada mais.
message.Info("Deve selecionar a linha que deseja modificar!")
ELSE
' O usuário selecionou uma linha no ListBox.
' Mostraremos nosso InputBox, passando também o texto selecionado.
' O texto selecionado é a propiedade Text do objeto ListBoxItem
' selecionado, o que temos acesso com a propiedade Selected
' do ListBox
f = NEW FInputBox("Modificar ", " Modifique a linha selecionada:
", ListBox1.Current.Text)
f.ShowModal()
' O quadro de diálogo FInputBox modifica a variável compartilhada
' no módulo MComun.
' Se nã estiver vazia, a designamos ao ListBoxItem selecionado.
IF MComum.texto THEN ListBox1.Current.Text = MComum.texto
' Como antes, "esvaziamos" a variável compartilhada depois de usa-la.
MComum.texto = ""
END IF
END IF
END
|
|
|
|
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
|
