jorge_53
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 29/08/2008 19:12 hs
Bem, é o seguinte eu estou a desenvolver um programa, que após clicar num determinado botão vai juntar numa caixa de texto informações recolhidas de todas as outras caixas de texto.
Para tal, tou a fazer a soma das caixas de texto.
Precisava saber se é possÃvel ignorar uma caixa de texto que nao tenha qualquer informação, e como o posso fazer.
Eu ja desenvolvi uma outra versao deste programa, e para tentar contornar este problema, recorri a condiçoes que envolviam todas as 9 caixas de texto, e não ficou perfeito porque tinha de fazer uma programação diferente para cada combinação possivel.
Ajudem-me, pfv.
Aguardo resposta
Cumps
|
|
|
|
|
|
|
|
Postada em 30/08/2008 01:04 hs
Você está querendo fazer cálculo matemático ou concatenar strings com essas caixas de texto?
Se puder postar o código atual que você está ulitizando será melhor.
Excelent Code
|
|
|
|
jorge_53
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/08/2008 06:55 hs
O que eu estou a fazer é o seguite:
Um programa que é constituido por caixas de texto, onde se introduzem dados.
Apos introduzir os dados nessas caixas de texto, carrega-se num botão generate e numa outra caixa de texto (caixa de texto 9, por exemplo) vai aparecer tudo o que aparecia nas outras cixas de texto.
Cada caixa de texto gera também automaticamente uma um link de uma imagem apos carregar em generate.
Exemplo sem as imagens que ele cria:
Após carregar no botão generate, text9.text = text1.text + text2.text + text3.text + text4.text + text4.text ...
Imaginem que uma caixa de texto, ou até mesmo duas, não contém qualquer informação, como e que se pode ignorar?
Obrigado
|
|
|
|
|
|
Postada em 30/08/2008 09:54 hs
Pelo que entendi você terá que usar Array. As caixas de textos deverão possuir o mesmo nome separado por índices que vão de 0 À quantidade de caixas de textos com aquele nome no formulário, os índices são alteráveis pela propriedade Index do controle. Depois de feito Array nas caixas de textos (menos na última que conterá o resultado) você irá fazer o seguinte:
Considerando que o nome das Caixas de Texto seja TextArray com índice de 0 a 8.
Dim i as Integer
For i = TextArray.LBound to TextArray.Ubound
If Not IsEmpty(TextArray(i).Text) Then
txtResultado.Text = txtResultado.Text + TextArray(i).Text
End if
Next i
Isto irá somar apenas as caixas de texto que contém informações ignorando as que não contém.
|
|
|
|
jorge_53
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/08/2008 10:24 hs
|
|
|
|
