MOSTRAR LISTA DE OP?ÕES EM PARAMETROS DE FUNCTION

ANGELOATA 03/02/2015 13:39:41
#444247
Existe alguma forma de mostrar os valores pre-determinados de uma function ou sub... da mesma forma que é feito no messagebox.show na opção dos botoes?
FILMAN 03/02/2015 13:51:18
#444248 Resposta escolhida
Sim, mas para isso você precisa criar um Enumerador!

[ô]Faça o seguinte no declaration do form faça o seguinte
Private Enum MeusTipos As String
	MeuTipo1 = [Ô]TP1[Ô]
	MeuTipo2 = [Ô]TP2[Ô]
	MeuTipo3 = [Ô]TP3[Ô]
	MeuTipo4 = [Ô]TP4[Ô]
	MeuTipo5 = [Ô]TP5[Ô]
	MeuTipo6 = [Ô]TP6[Ô]
End Enum

[ô]Chame a Sub e verá como fica!
Private Sub MinhaSubTesteENUM(ByVal meuEnum As MeusTipos)
	If meuEnum = MeusTipos.MeuTipo1 Then
		MessageBox.Show(meuEnum.MeuTipo1, [Ô]Aviso[Ô])
	Else
		MessageBox.Show([Ô]Meu Enumerador é: [Ô] & meuEnum.MeuTipo1, [Ô]Aviso[Ô])
	End If
End Sub


Espero que seja isso o que esta querendo
OCELOT 03/02/2015 14:02:43
#444249
Citação:

:
Sim, mas para isso você precisa criar um Enumerador!

[ô]Faça o seguinte no declaration do form faça o seguinte
Private Enum MeusTipos As String
	MeuTipo1 = [Ô]TP1[Ô]
	MeuTipo2 = [Ô]TP2[Ô]
	MeuTipo3 = [Ô]TP3[Ô]
	MeuTipo4 = [Ô]TP4[Ô]
	MeuTipo5 = [Ô]TP5[Ô]
	MeuTipo6 = [Ô]TP6[Ô]
End Enum

[ô]Chame a Sub e verá como fica!
Private Sub MinhaSubTesteENUM(ByVal meuEnum As MeusTipos)
	If meuEnum = MeusTipos.MeuTipo1 Then
		MessageBox.Show(meuEnum.MeuTipo1, [Ô]Aviso[Ô])
	Else
		MessageBox.Show([Ô]Meu Enumerador é: [Ô] & meuEnum.MeuTipo1, [Ô]Aviso[Ô])
	End If
End Sub


Espero que seja isso o que esta querendo


Só tem um erro no seu código, enumerações não podem ser strings, elas devem sempre ser de um tipo numérico inteiro, por padrão ele é Integer e se não especificar um valor para o item ele é atribuído automaticamente somando 1 ao item anterior, e 0 caso seja o primeiro item, então a enumeração
Public Enum MeusTipos
    MeuTipo1
    MeuTipo2
    MeuTipo3
End Enum

Seria exatamente o mesmo que
Public Enum MeusTipos As Integer
    MeuTipo1 = 0
    MeuTipo2 = 1
    MeuTipo3 = 2
End Enum
ANGELOATA 03/02/2015 14:04:47
#444250
Muito obrigado deu certinho, tinha visto o erro na declaração do Enum aqui... mas valeu... muito grato
Tópico encerrado , respostas não são mais permitidas
Voltar