ARRAY

JEAN.JEDSON 15/07/2005 09:13:48
#94268 Resposta escolhida

bem...
vc não precisa adicionar a um array para colocar no combo...

combo1.clear
combo1.additem "Janeiro"
combo1.additem "Fevereiro"
combo1.additem "Março"
combo1.additem "Abril"
combo1.additem "Maio"
combo1.additem "Junho"
combo1.additem "Julho"
combo1.additem "Agosto"
combo1.additem "Setembro"
combo1.additem "Outubro"
combo1.additem "Novembro"
combo1.additem "Dezembro"
combo1.listindex=0


para colocar no array é bem parecido:
dim aMeses(12) as string
aMeses(1) = "Janeiro"
aMeses(2) = "Fevereiro"
aMeses(3) = "Março"
aMeses(4) = "Abril"
aMeses(5) = "Maio"
aMeses(6) = "Junho"
aMeses(7) = "Julho"
aMeses(8) = "Agosto"
aMeses(9) = "Setembro"
aMeses(10) = "Outubro"
aMeses(11) = "Novembro"
aMeses(12) = "Dezembro"

JEAN.JEDSON 15/07/2005 09:15:35
#94269

complementando...

vc poderia (se for realmente necessário ter o array) definir antes o array e usar o código abaixo para popular o combo:

Dim iCount As Integer
Combo1.Clear
For iCount=1 To 12
Combo1.AddItem aMeses(iCount)
Next iCount
Combo1.ListIndex=0

PAGANINI 15/07/2005 09:40:32
#94273

não precisa faça

Dim iCount As Integer
Combo1.Clear
For iCount=1 To 12
Combo1.AddItem MonthName(iCount)
Next iCount
Combo1.ListIndex=0

JEAN.JEDSON 15/07/2005 09:48:54
#94277

PAGANINI...
o problema é que se fizer assim, e o windows do cliente for ingles... adiciona os nomes em ingles...