Foros del Web » Programación para mayores de 30 ;) » .NET »

Controles personalizados: Crear botones

Estas en el tema de Controles personalizados: Crear botones en el foro de .NET en Foros del Web. Hola a todos, soy nueva en el foro, estoy trabajando en una pag en visual asp.net, y necestito crear dinamicamente botones; es decir, tengo una ...
  #1 (permalink)  
Antiguo 28/06/2010, 13:20
 
Fecha de Ingreso: junio-2010
Mensajes: 2
Antigüedad: 13 años, 9 meses
Puntos: 0
Controles personalizados: Crear botones

Hola a todos, soy nueva en el foro, estoy trabajando en una pag en visual asp.net, y necestito crear dinamicamente botones; es decir, tengo una pagina Plantilla_Categorias y cada categoria tiene X subcategorias, yo necesito que se me dibujen en la pagina Plantilla_Categorias tantos botones como subcategorias hallan, con el fin de poder acceder a cada subcategoria por medio de dichos botones.
Yo tengo este codigo ya adelantado, pero no se como crear los botenes.... les agradezco la ayuda!!

Protected Sub Llenar_Botones(ByVal Id_Menu As Integer)
Dim Sql As String = ""
Dim id As Integer
'Trabajo con un Plantilla_Categorias, que cree, esta se llena deacuerdo al id
id = Session("ID_Menu")
Dim Tb As New DataTable
If Request.QueryString("Id") <> "" Then
id = Request.QueryString("Id")
Try
'Berifico la conexion a la bd
If ConexionBD.Conectar(Session("BD")) = 1 Then
Sql = "SELECT Menu_Id, ParentID, Texto, http FROM dbo.BDMenu_Web WHERE ParentID =" & id & ""
'Con el ParentId traigo cada una de las subcategorias que tiene la categoria, asociandola con su respectivo id
Using ds As DataSet = ConexionBD.EjecutarDataset(Sql)
For Each drBTItem As Data.DataRow In ds.Tables(0).Rows
'esto lo hace por cada subcategoria encontrada
'Llena el boton con la informacion almacenada en la bd
'Aqui esta lo que necesito.... necesito que se me creen tantos botones como
'subcategorias tenga y que se llenen de esta forma con la respectiva info
Button1.ID = drBTItem("Menu_Id").ToString
Button1.Text = drBTItem("Texto").ToString
Button1.PostBackUrl = drBTItem("http").ToString
Next
End Using
End If
Catch ex As Exception
End Try
Else
End If
End Sub

De ante mano muchas gracias, recibo cualquier aporte, solucion y/o sugerencia... se vale todo!!!

Última edición por Lilith_9998; 28/06/2010 a las 13:57
  #2 (permalink)  
Antiguo 29/06/2010, 08:24
 
Fecha de Ingreso: junio-2010
Mensajes: 2
Antigüedad: 13 años, 9 meses
Puntos: 0
Respuesta: Controles personalizados: Crear botones

Hola a todos, menos mal esto resulto ser mas facil de lo que pensaba.... despues de mucho buscar he intentar, encontre una solucion muy practica, se trata de crear un panel y dentro del panel crear los bontones (o agregarle los botones al panel), como lo quieran tomar, les comparto el codigo y una direccion con ducumentacion, espero esto le sea util a alguien....

Protected Sub Llenar_Botones(ByVal Id_Menu As Integer)
Dim Sql As String = ""
Dim id As Integer
id = Session("ID_Menu")

Dim Tb As New DataTable
If Request.QueryString("Id") <> "" Then
id = Request.QueryString("Id")
Try
If ConexionBD.Conectar(Session("BD")) = 1 Then
Sql = "SELECT Menu_Id, ParentID, Texto, http FROM dbo.BDMenu_Web WHERE ParentID =" & id & ""
Using ds As DataSet = ConexionBD.EjecutarDataset(Sql)
For Each drBTItem As Data.DataRow In ds.Tables(0).Rows
Dim Boton As New Button
Panel1.Controls.Add(Boton)
Boton.ID = drBTItem("Menu_Id").ToString
Boton.Text = drBTItem("Texto").ToString
Boton.PostBackUrl = drBTItem("http").ToString
Next
End Using
End If

Catch ex As Exception

End Try
Else
End If
End Sub

http://msdn.microsoft.com/es-es/library/kyt0fzt1(VS.80).aspx

Etiquetas: botones, controles, personalizacion
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 05:55.