COMO FAZER FUNCAO GLOBAL PARA TODO SISTEMA

BORBOLETATY 06/01/2011 22:05:21
#361471
Boa Noite amigos, gostaria de ver com voces o seguinte. preciso fazer uma funcao que em todo lugar que eu precisar abrir ela vai abrir os dados que fiz na funcao.. exemplo.. onde eu colocar essa funcao , vai carregar por exemplo as uf brasileiras.
XXXANGELSXXX 06/01/2011 22:07:04
#361472 Resposta escolhida
boa noite Borboleta, faça o seguinte.. em um modulo coloque..

Public Function CarregaUf(COMBO As Combobox)
With COMBO
.AddItem [Ô]AC[Ô]
.AddItem [Ô]AL[Ô]
.AddItem [Ô]AM[Ô]
.AddItem [Ô]AP[Ô]
.AddItem [Ô]BA[Ô]
.AddItem [Ô]CE[Ô]
.AddItem [Ô]DF[Ô]
.AddItem [Ô]ES[Ô]
.AddItem [Ô]EX[Ô]
.AddItem [Ô]GO[Ô]
.AddItem [Ô]MA[Ô]
.AddItem [Ô]MG[Ô]
.AddItem [Ô]MS[Ô]
.AddItem [Ô]MT[Ô]
.AddItem [Ô]PA[Ô]
.AddItem [Ô]PB[Ô]
.AddItem [Ô]PE[Ô]
.AddItem [Ô]PI[Ô]
.AddItem [Ô]PR[Ô]
.AddItem [Ô]RJ[Ô]
.AddItem [Ô]RN[Ô]
.AddItem [Ô]RO[Ô]
.AddItem [Ô]RR[Ô]
.AddItem [Ô]RS[Ô]
.AddItem [Ô]SC[Ô]
.AddItem [Ô]SE[Ô]
.AddItem [Ô]SP[Ô]
.AddItem [Ô]TO[Ô]
End With
End Function

ai no load do form voce coloca la..

CarregaUf nomedoseucombo


tipo..

CarregaUf combo1
BORBOLETATY 06/01/2011 22:10:22
#361473
jjjjaaaa??rsrsrs
Tópico encerrado , respostas não são mais permitidas
Voltar