|
|
Postada em 30/08/2005 22:15 hs
Preciso fazer um array com todas as letras dos alfabeto que quando clicar em uma das letras preciso pegar o caption da letra e fazer uma pesquisa no banco de dados |
|
|
|
|
|
|
|
Postada em 31/08/2005 08:16 hs
Criar uma array com todas a letras: Dim a(25)
For i% = 65 To 90
a(i% - 65) = Chr(i%)
Next i% Quanto ao outro procedimento, explique melhor, clicar como? Quer colocar num combo ou coisa assim? |
|
|
|
|
|
Postada em 31/08/2005 08:54 hs
Kerplunk, Acho q ele quer clicar mesmos (evento Click) em um Label... Otto, Se for isso q vc quer, vc precisa criar um array de Labels (e nao de letras) e escrever em cada label uma letra. Depois, no Click do label, vc programa a consulta SQL passando como parametro o caption do label. Flw...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 01/09/2005 21:30 hs
gostaria de fazer isto num comand buton |
|
|
|
|
|
Postada em 02/09/2005 08:22 hs
Cada letra em um Command? Cria um array de Commands, posiciona cada um onde vc quizer, e programa no evento click do controle... Se vc quizer um exemplo, me manda um e-mail... o codigo é mto simples, mas sem o Layout vc nao vai entender... por isso nao vou escrever aqui...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 02/09/2005 08:23 hs
Nesse caso Crie um botão no seu form com o nome CmdLetras e coloque a propriedade index dele como zero. Depois coloque esse procedimento no evento Load do Form: Dim a(25)
For i% = 65 To 90 load CmdLetras(i%) cmdLetras(i%).Caption = Chr(i%) cmdLetras(i%).Left = (cmdLetras(i%).width) * (i%-65) ' Isto é para colocar um do lado do outro
a(i% - 65) = Chr(i%)
Next i% No Evento Click desse CmdLetras é onde vc vai tratar a query |
|
|
|
