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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Criar Array
João Paulo
não registrado
Postada em 18/11/2010 21:03 hs   
Pessoal to precisando criar uma array do tipo que eu possa carregar nos meu Combox de UF

tipo assim, no Modulo estaria uma array com todos os estados.

ai eu chamaria assim nos meus form

For i = 1 to 27
cmbEstados.additem Array
next i
     
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
Postada em 19/11/2010 09:10 hs            
dim sgUf (26) as string
sgUF (0) = "AM"
sgUF (1) = "AC"
......preencher os demais
dim I as Integer
For i = 0 to 27
cmbEstados.additem sgUF(i)
next i

     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 19/11/2010 13:10 hs            
ou assim
 
Dim Estados() As String
Estados = Split("AM,AC,BA,CE,...",",")
For F = LBound(Estados) To ULound(Estados)
Combo1.AddItem Estados(f)
Next F
 
     
João Paulo
não registrado
Postada em 19/11/2010 14:23 hs   
ok, agora como eu faço pra colocar este codigo em um Modulo pq o que eu nao quero é ficar repetindo este codigo em todo formulario que eu for criar.

no form eu iria colocar somente assim

for i to 27
Combo1.AddItem Estados(i)
next i
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 19/11/2010 21:26 hs            
bom faça assim

em um módulo

Public Function CarregaEstados(cmb As ComboBox)
Dim Estados() As String
Estados = Split("AM,AC,BA,CE,...",",")
For F = LBound(Estados) To ULound(Estados)
cmb.AddItem Estados(f)
Next F
End Function

agora no form basta fazer isto

veja onde fica melhor, mas o exemplo pode ser feito no Load do form

Private Sub Form_Load()
CarregaEstados Combo1
CarregaEstados Combo2
CarregaEstados Combo3
End Sub

espero que tenha entendido

     
Felipe
não registrado
Postada em 19/11/2010 22:12 hs   
Treze; "For F = LBound(Estados) To ULound(Estados)" funciona.
Deu erro.
     
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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