CRIAR FUNCAO COM OPCOES NOS PARAMETROS

ALEXRONCHI 08/03/2010 19:49:18
#336338
Gostaria de saber como faz na hora de criar uma função, pra quando eu for usá-la, ao colocar o parametro, abrir uma lista de opções para escolha.

Exemplo
Function AbrirTela(Texto as string,Tipo)
.... Código
End Function

No parametro Tipo, gostaria que aparecesse uma lista com opções para eu selecionar, como se usa no MsgBox

Obrigado
SAMUKA 08/03/2010 21:51:30
#336348 Resposta escolhida
Olá Alex

Vc precisa utilizar um ENUM para isso. Segue o exemplo abaixo. Cole em um modulo pra ver como funciona.

 
Option Explicit

Public Enum InterfaceColors
   icMistyRose = &HE1E4FF
   icSlateGray = &H908070
   icDodgerBlue = &HFF901E
   icDeepSkyBlue = &HFFBF00
   icSpringGreen = &H7FFF00
   icForestGreen = &H228B22
   icGoldenrod = &H20A5DA
   icFirebrick = &H2222B2
End Enum

Sub teste(interface As InterfaceColors)

End Sub
ALEXRONCHI 08/03/2010 21:54:15
#336350
Valeu Samuel....
Abraço
Tópico encerrado , respostas não são mais permitidas
Voltar