crear una clase buttom
Publicado por rimera (12 intervenciones) el 08/01/2008 21:53:50
Hola amigos, necesito saber si lo que intento hacer es posible y si sigo un buen camino.
Estoy intentando crear una clase boton que voy a llamar desde un formulario. Lo que quiero que haga es añadir al formulario un boton. Esto lo voy a usuar en tiempo de ejecución.
A continuación les pongo el código, que no me hace nada. Me podrían decir pq? o me podrían decir de un ejemplo donde se crea en una clase que crea objetos?
La llamada a la clase desde el formulario es en un evento click:
Dim boton As New Boton("Button_" & CStr(indice), posicionTotal, sizeTotal)
La clase Boton es :
Public Class Boton
Dim btn As System.Windows.Forms.Button
Dim name As String
Dim posicion As System.Drawing.Point
Dim tamaño As System.Drawing.Size
'el constructor del objecto
Sub New(ByVal nombre As String, ByVal pos As System.Drawing.Point, ByVal tam As System.Drawing.Size)
btn = New System.Windows.Forms.Button
btn.Name = nombre
btn.Location = pos
btn.Size = tam
btn.BackColor = Color.Red
F_Plantilla.Controls.Add(Me.btn)
F_Plantilla.T_Frase.Visible = True
AddHandler btn.click, AddressOf cargarMD
End Sub
Private Sub cargarMD(ByVal sender As Object, ByVal e As System.Windows.Forms.Click)
F_MD.Show()
End If
End Sub
Estoy intentando crear una clase boton que voy a llamar desde un formulario. Lo que quiero que haga es añadir al formulario un boton. Esto lo voy a usuar en tiempo de ejecución.
A continuación les pongo el código, que no me hace nada. Me podrían decir pq? o me podrían decir de un ejemplo donde se crea en una clase que crea objetos?
La llamada a la clase desde el formulario es en un evento click:
Dim boton As New Boton("Button_" & CStr(indice), posicionTotal, sizeTotal)
La clase Boton es :
Public Class Boton
Dim btn As System.Windows.Forms.Button
Dim name As String
Dim posicion As System.Drawing.Point
Dim tamaño As System.Drawing.Size
'el constructor del objecto
Sub New(ByVal nombre As String, ByVal pos As System.Drawing.Point, ByVal tam As System.Drawing.Size)
btn = New System.Windows.Forms.Button
btn.Name = nombre
btn.Location = pos
btn.Size = tam
btn.BackColor = Color.Red
F_Plantilla.Controls.Add(Me.btn)
F_Plantilla.T_Frase.Visible = True
AddHandler btn.click, AddressOf cargarMD
End Sub
Private Sub cargarMD(ByVal sender As Object, ByVal e As System.Windows.Forms.Click)
F_MD.Show()
End If
End Sub
Valora esta pregunta


0