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
|
|
|
|
|
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
|
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
|
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
|
|
|
|
Postada em 19/11/2010 22:12 hs
Treze; "For F = LBound(Estados) To ULound(Estados)" funciona. Deu erro.
|
|
|