Função Geradora de ListBox, por Fabrizio Gianfratti

Avaliação:

| Publicado em: 04/09/2005

Função Geradora de ListBox

Fabrizio Gianfratti Fabrizio Gianfratti trabalha com desenvolvimento desde 1995 e desenvolve com ASP,ASP.NET (VB.Net, C#),JavaScript,SQl SERVER. Tem grande experiência no desenvolvimento de portais e ferramentas de gerenciamento de conteúdo, atualmente trabalha como WebDeveloper em projetos para desenvolvimento de sistemas na a área hospitalar. Disponibiliza muitas informações em seu site www.gianfratti.com

Função Geradora de ListBox

Ótima função que monta um list box com os valores e titulos que você desejar.

Ecomoniza muita linha de código além de deixar seu sistema bem mais estruturado.

<%
'###############CONFIGURAÇÕES##########

'Array dos valores - Sete aqui os valores que cada titulo terá
ArrayValores = Array(0,1,2,3)
'Titulos para selecionar, tem que ser na mesma ordem do ArrayValores, para que cada titulo tenha o seu valor certo
ArrayTitulos = Array("Sim","Não","Talvez","Legal")
'Nome que o campo vai ter. Ex: Teste
NomeCampo = "Teste"
'Caso queira que algum Titulo Ja venha selecionado entao coloque algum valor que vc atribuiu no ArrayValores
ValorSelecionado = "0"
'Caso queira algum evento entao coloque todo o codigo. Ex: onChange='document.form.submit()
Evento = "onChange='document.form.submit()'"
'Se quiser colocar algum Estilo Css entao coloque o nome do Estilo. Ex: campos
NomeEstiloCss = "campos"
Call GeralistBoxOpcoesManual( ArrayValores, ArrayTitulos, NomeCampo, ValorSelecionado, Evento,NomeEstiloCss)

'##########FIM CONFIGURAÇÕES##########

Function GeraListBoxOpcoesManual(ArrayValores, ArrayTitulos, NomeCampo, ValorSelecionado, Evento, NomeEstiloCss)

'Faz a verificação para saber se a quantidade de Titulos passados a função é igual a quantidade de Valores passados
If Ubound(ArrayTitulos) <> Ubound(ArrayValores) Then
Response.write "O Numero de Titulos não é igual ao numero de Valores passados a função" & "<br>"
Response.write "Quantidade de Titulos passados: "&Ubound(ArrayTitulos) & "<br>"
Response.write "Quantidade de Valores passados: "&Ubound(ArrayValores) & "<br>"
Response.end
End if

Content = ""
Content = Content & "<select name='"&Trim(NomeCampo)&"' id='select' class='"&Trim(NomeEstiloCss)&"' "&Trim(Evento)&" > " & Chr(10)
For Y = Lbound(ArrayValores) To Ubound(ArrayTitulos)
Selected = ""
If Cstr(ValorSelecionado) = Cstr(ArrayValores(y)) Then
Selected = "selected"
End if
Content = Content & "<option value='"&ArrayValores(y)&"' "&Selected&" >"&ArrayTitulos(y)&"</option>" & Chr(10)
Next
Content = Content & "</select>"
GeraListBoxOpcoesManual = content
response.write GeraListBoxOpcoesManual

End Function
%>

Bem galera, chego ao final dessa matéria.

Duvidas, sugestões no email: fabrizio@gianfratti.com

Abraços

rick <numtenho@lixo.com>

não serve para nada que bosta