USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Adicionar Itens
Luis CR
FORTALEZA
CE - BRASIL
ENUNCIADA !
Postada em 28/10/2010 12:05 hs         
Alguém sabe se tem como adicionar os mesmos itens em duas combobox com somente um codigo?
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 28/10/2010 12:58 hs            
de onde vem este itens, voce irá incluilos via código, ou virão de uma base de dados
 
 
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 28/10/2010 13:06 hs            
Em Ado é assim
set regtabela=Cn.execute("select campo1, campo2,.... from tabela order by campo2")
regtabela.moveMin
Do while not regtabela.eof
   combo1.additem regtabela!campo2
   combo2.additem regtabela!campo2
regtabela.movenext
Loop

caraca eu coloco mover ao primer registro  e aparece movemin, que doidera do site
TÓPICO EDITADO
 
Luis CR
FORTALEZA
CE - BRASIL
ENUNCIADA !
Postada em 28/10/2010 13:24 hs         
Via codigo. Tenho 13 combobox e em todas deverá aparecer os mesmos itens (125 itens), se eu for colocando combobox1.additem "xxxxxxxxxx", combobox2.additem "xxxxxxxxxxxx", combobox3.additem "xxxxxxxxxxxx", a função irá ficar muito grande, o programa não vai aceitar, por isso queria saber se tem como, através de um código só adicionar os itens em todas as combo.
 
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 28/10/2010 14:33 hs            
Criar um array do combobox de 0 ate 12 e adiciona numa so linha que vai recorrer com um
For x=0 to 12
  combo1.Item(x).AddItem nome_campo
next x
TÓPICO EDITADO
 
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 28/10/2010 18:18 hs            
Sem criar uma array seria assim
 
Private Sub Form_Load()
' aqui você indica o nome de todas as combos
PreencheCombos Combo1
PreencheCombos Combo2
End Sub

Function PreencheCombos(cbo As ComboBox)
Dim Dados As String, Lancar() As String
' aqui coloquei os dados em duas linhas mas pode ser em uma só
' separado por ponto e virgula
Dados = Dados & "item1;item2;item3;item4;item5;"
Dados = Dados & "item6;item7;item8;item9;item10"

Lancar = Split(Dados, ";")
For f = LBound(Lancar) To UBound(Lancar)
cbo.AddItem Lancar(f)
Next f
End Function
 
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página