João Paulo
não registrado
|
|
Postada em 20/11/2010 12:34 hs
ok, vou da uma olhada e posto aki.
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 20/11/2010 13:41 hs
desculpe erro de digitação troque ULound(Estados) por UBound(Estados) funcão corrigida Public Function CarregaEstados(cmb As ComboBox)
Dim Estados() As String
Estados = Split("AM,AC,BA,CE,...",",")
For F = LBound(Estados) To UBound(Estados)
cmb.AddItem Estados(f)
Next F
End Function
|
|
|
|
João Paulo
não registrado
|
|
Postada em 21/11/2010 15:53 hs
não deu certo aki tbm viu deu erro
|
|
|
|
BHYLLO BARROS
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 21/11/2010 17:15 hs
Boa tarde tudo bem! Eu uso esta função no Módulo Bas para carregar estados brasileiros na comboBox: Public Function Estado(Cmb as ComboBox) Dim UF as String I as Integer Dim J as Integer J = 1 UF = "ACALAMAPBACEDFESFNGOMAMGMSMTPAPBPEPIPRRNRJRSRORRSESCTOSP" For I = 0 To 27 Cmb.AddItem Mid(UF, J, 2) J = J + 2 Next I End Function OBS.: Sem Matriz |
|
|
|
João Paulo
não registrado
|
|
Postada em 21/11/2010 20:37 hs
Treze e BHYLLO BARROS ainda esta dando erro 13 na hora q carrego o formularios
'no load do form
Estado cmbEstado 'da erro aki
|
|
|
|
|
|
Postada em 22/11/2010 08:39 hs
João;Está função não da Erro 13.O erro do treze,ele corrigiu.
Quanto ao do Bhillo basta declarar a variável "I".Onde tem
"I as Integer" você coloca "Dim I as Integer".Se quiser fazer
um teste,basta abrir um novo projeto e colocar os códigos e
veras que não da "Erro 13". |
|
|
|
