Problema con la clase
Publicado por Carlos (78 intervenciones) el 31/01/2007 16:06:27
Hola a tod@s
Estoy intentando diseñar una subclase de la clase button. Llevo hecho lo siguiente:
Public Class boton
Inherits Windows.Forms.Button '.Button
Dim indice As Int16
Sub indexa(ByVal i As Integer)
indice = i
End Sub
Sub boton(ByVal h As Int16, ByVal w As Int16, ByVal c As System.Drawing.Color)
Dim boton As New Button
boton.BackColor = c
boton.Height = h
boton.Width = w
End Sub
Sub colorfondo(ByVal c As Color)
Button.BackColor = c
End Sub
Sub colorfondo()
Return boton.BackColor()
End Sub
End Class
Lo que quiero conseguir son 2 cosas:
1º: Que los botones que cree tengan indice (lo consigo mediante el atributo indice)
y 2º: poder asignar y comparar el color de fondo de cada boton
Por ejemplo:
if boton.BackColor = Color.Red then .......................(lo que sea).........
Cómo puedo conseguir esto?
Gracias por adelanrtado
Estoy intentando diseñar una subclase de la clase button. Llevo hecho lo siguiente:
Public Class boton
Inherits Windows.Forms.Button '.Button
Dim indice As Int16
Sub indexa(ByVal i As Integer)
indice = i
End Sub
Sub boton(ByVal h As Int16, ByVal w As Int16, ByVal c As System.Drawing.Color)
Dim boton As New Button
boton.BackColor = c
boton.Height = h
boton.Width = w
End Sub
Sub colorfondo(ByVal c As Color)
Button.BackColor = c
End Sub
Sub colorfondo()
Return boton.BackColor()
End Sub
End Class
Lo que quiero conseguir son 2 cosas:
1º: Que los botones que cree tengan indice (lo consigo mediante el atributo indice)
y 2º: poder asignar y comparar el color de fondo de cada boton
Por ejemplo:
if boton.BackColor = Color.Red then .......................(lo que sea).........
Cómo puedo conseguir esto?
Gracias por adelanrtado
Valora esta pregunta


0