Hola;
Tengo este inconveniente, ya tengo copiada mi librería de clases en el
ToolBox, tomo por ejemplo la Clase MiTexto y la agrego al Form, y el
resultado es lo siguiente:
- en la Region "código generado por el diseñador de windows form" me aparece
la clase agregada asi:
Friend MiTexto1 As MisClases.Class1.MiTexto
Pero debería ser asi:
Friend WithEvents MiTexto1 As MisClases.Class1.MiTexto
Manualmente le tengo que agregar el WithEvents para que esta clase funcione
con sus respectivos eventos.
- Pero, cada ves que hago un cambio en el form y lo recompilo, como es de
esperarse, me vuelve a aparecer asi la Clase agregada:
Friend MiTexto1 As MisClases.Class1.MiTexto
- Y ademas si he validado el MiTexto1, una ves recompilado le quita el
"Handles MiTexto1.validating"
No se si estoy haciendo algo mal
Uso VB.NET 2003 en Español.
Este es el código de la clase:
***********
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Font
Public Class Class1
#Region "MiBoton"
Public Class MiBoton
Inherits Button
Public Sub New()
MyBase.New()
Me.Font = New Font(Me.Font, FontStyle.Bold)
Text = "mi botón"
Width = 65
Height = 23
FlatStyle = FlatStyle.System
End Sub
End Class
#End Region
#Region "Mitexto"
Public Class MiTexto
Inherits TextBox
Public Sub New()
MyBase.New()
Text = ""
Width = 200
Enabled = True
BackColor = System.Drawing.SystemColors.ControlLight
End Sub
Public Sub EnterHandler(ByVal Sender As Object, ByVal e As
EventArgs) Handles MyBase.Enter
ForeColor = ForeColor.White
BackColor = BackColor.Blue
End Sub
Public Sub LeaveHandler(ByVal Sender As Object, ByVal e As
EventArgs) Handles MyBase.Leave
ForeColor = ForeColor.Black
BackColor = BackColor.White
End Sub
Public Sub disablehandler(ByVal Sender As Object, ByVal e As
EventArgs) Handles MyBase.EnabledChanged
Sender.backcolor = IIf(Sender.enabled, BackColor.White,
System.Drawing.SystemColors.ControlLight)
End Sub
End Class
#End Region
End Class
***********
Saludos y Gracias.
David Fúnez
Tegucigalpa, Honduras
"La Piratería Mata Las Ideas"
Desarrollador Cinco Estrellas Visual FoxPro
Leer las respuestas