Autor
|
Tema: Como hacer que se cree un objeto a traves de otro objeto (¿se puede?) (Leído 8,887 veces)
|
Sin Nick xD
Desconectado
Mensajes: 443
Ö
|
Hola Bien tratare de ser claro Ejemplo: dos botones Botton1: me da un mensaje Botton2: me da otros dos Bottones Botton2.1: me da el mismo mensage que el Botton1 Botton2.2: me da otros dos Bottones Y asi hasta el infinito y como es hasta el infinito por eso quiero que se creen y no esconderlos y despues mostrarlos que seria lo mas simple se puede???
|
|
|
En línea
|
Yo solo creería en un Dios que supiese bailar.
|
|
|
darkraider
Desconectado
Mensajes: 231
|
Definí el clic del boton para que cree dos botones con el construcor por copia, llamando a un método recursivo. Entonces a cada boton se le asigna el evento clic al mismo método que crea los dos botones... Una suerte de recursividad indirecta... Salu2
|
|
|
En línea
|
Curioso de mi...
|
|
|
Sin Nick xD
Desconectado
Mensajes: 443
Ö
|
Ok muchas gracias
No te entendi bien pero voy a seguir investigando
Aunque si puedes poner un pequeño ejemplo o enlase o consejo lo que sea serias mi heroe
un saludo ^Ç^
|
|
|
En línea
|
Yo solo creería en un Dios que supiese bailar.
|
|
|
Hadess_inf
Desesperado
Colaborador
Desconectado
Mensajes: 2.048
Nueva Vida
|
Crear un sub que agrege ambos botones
sub menu() dim b1 as new button dim b2 as new button b1.width=100 : b1.height= 30 b2.width=100 : b2.height= 30 b1.top = 0: b2.top = 0 b1.left = 0 : b2.left = b1.width + 10 me.controls.add(b1) me.controls.add(b2) addhandler b1.click,addressof mensaje addhandler b2.click,addressof agrega end sub
sub mensaje(yVal sender As System.Object, ByVal e As System.EventArgs) msgbox "Este es elmensaje" end sub
sub agrega(yVal sender As System.Object, ByVal e As System.EventArgs) dim obj as new button obj = ctype(sender,button) dim to as integer = obj.top + obj.height + 10 dim b1 as new button dim b2 as new button b1.width=100 : b1.height= 30 b2.width=100 : b2.height= 30 b1.top = to: b2.top = to b1.left = 0 : b2.left = b1.width + 10 me.controls.add(b1) me.controls.add(b2) addhandler b1.click,addressof mensaje addhandler b2.click,addressof agrega end sub
sub form_load (...) menu end sub
Espero que sirva y que no tenga ningun error porque lo he hecho de la volada, si necesitas alguna explicacion, me avisas,pòr ahora no ando entrando mucho al foro porque me han cortado el internet... wtf ... telefonica de *****....aaaa.... Recuerda agregar el sub en el load del formulario. Saludos.
|
|
« Última modificación: 21 Marzo 2008, 02:13 am por hadess_inf »
|
En línea
|
|
|
|
Sin Nick xD
Desconectado
Mensajes: 443
Ö
|
|
|
|
En línea
|
Yo solo creería en un Dios que supiese bailar.
|
|
|
Hadess_inf
Desesperado
Colaborador
Desconectado
Mensajes: 2.048
Nueva Vida
|
Me gustaria saber si funciono...
|
|
|
En línea
|
|
|
|
Sin Nick xD
Desconectado
Mensajes: 443
Ö
|
Pues no de el todo pero dejame seguirle la pista a tu code
cuando lo consiga lo posteare
|
|
|
En línea
|
Yo solo creería en un Dios que supiese bailar.
|
|
|
Hadess_inf
Desesperado
Colaborador
Desconectado
Mensajes: 2.048
Nueva Vida
|
En vista que recien me han restaurado mi internet ya puedo decirte que parte estuvo mal del codigo que postee, pues lo unico malo es que habia puesto una variable, para ser mas especifico to, solo la e reemplazado por tt. Aqui el code funcionando perfectamente testeado. Saludos Public Class Form1 Sub menu() Dim b1 As New button Dim b2 As New button b1.width = 100 : b1.height = 30 b2.width = 100 : b2.height = 30 b1.top = 0 : b2.top = 0 b1.left = 0 : b2.left = b1.width + 10 Me.controls.add(b1) Me.controls.add(b2) AddHandler b1.click, AddressOf mensaje AddHandler b2.click, AddressOf agrega End Sub
Sub mensaje(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox("Este es elmensaje") End Sub
Sub agrega(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim obj As New Button obj = CType(sender, Button) Dim tt As Integer = obj.Top + obj.Height + 10 Dim b1 As New Button Dim b2 As New Button b1.Width = 100 : b1.Height = 30 b2.Width = 100 : b2.Height = 30 b1.Top = tt : b2.Top = tt b1.Left = 0 : b2.Left = b1.Width + 10 Me.Controls.Add(b1) Me.Controls.Add(b2) AddHandler b1.Click, AddressOf mensaje AddHandler b2.Click, AddressOf agrega End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load menu() End Sub End Class
|
|
|
En línea
|
|
|
|
Sin Nick xD
Desconectado
Mensajes: 443
Ö
|
Ya lo habia descubierto Otra duda ¿como ponerle texto a los botones cambiarlos de color etc ? , ¿es igual como si fuera cualquier boton ? algo asi como Me.Button1.Bakcolor = Color.Black Salu2 y que bueno que restauraron el ser,vicio XDD
|
|
|
En línea
|
Yo solo creería en un Dios que supiese bailar.
|
|
|
Hadess_inf
Desesperado
Colaborador
Desconectado
Mensajes: 2.048
Nueva Vida
|
Claro para cambiar el fondo solo tienes que establecer la propiedad de los botones en este caso: b1.text = "Texto 1" b2.text = "Texto 2" Saludos.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema con objeto dentro de otro objeto
PHP
|
Skeletron
|
3
|
6,253
|
5 Enero 2011, 04:10 am
por Skeletron
|
|
|
Referencia a objeto no definida como instancia de un objeto - [C#]
.NET (C#, VB.NET, ASP)
|
ikkaku
|
1
|
3,200
|
11 Febrero 2015, 14:39 pm
por Eleкtro
|
|
|
Referencia de objeto no establecida como instancia de un objeto
.NET (C#, VB.NET, ASP)
|
Fixxed
|
1
|
7,873
|
11 Marzo 2016, 16:18 pm
por Eleкtro
|
|
|
Ayuda para que un metodo me devuelva un objeto
Java
|
rych
|
5
|
3,956
|
2 Mayo 2016, 03:29 am
por + 1 Oculto(s)
|
|
|
ERROR: Referencia a objeto no establecida como instancia de un objeto.
.NET (C#, VB.NET, ASP)
|
Meta
|
8
|
6,218
|
25 Diciembre 2023, 08:17 am
por Meta
|
|