Libreria de controles
Publicado por Gustavo A. Rivarola (24 intervenciones) el 05/11/2009 02:23:53
una ayuda por fabor
Cree una Librería de controles y le agregue un button, y despues agrego esa libreria en un formulario windows, sin embargo...
--------------------------------------------
'Codigo de la libreria de controles
Public Class Control1
Private mTXT As New TextBox
Public Property TXT() As TextBox
Get
Return mTXT
End Get
Set(ByVal value As TextBox)
mTXT = value
End Set
End Property
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
' ERROR! - Referencia a objeto no establecida como instancia de un objeto.
' No entiendo ¿por que? si arriba esta declarada ( Private mTXT As New TextBox)
mTXT.Text = "algun texto"
Dim var1 As String
' ERROR! - Referencia a objeto no establecida como instancia de un objeto.
var1 = mTXT.Text
End Sub
Public Sub Test()
'ACA si anda bien
mTXT.Text = "algun texto"
Dim var1 As String
'ACA si anda bien
var1 = mTXT.Text
End Sub
End Class
Cree una Librería de controles y le agregue un button, y despues agrego esa libreria en un formulario windows, sin embargo...
--------------------------------------------
'Codigo de la libreria de controles
Public Class Control1
Private mTXT As New TextBox
Public Property TXT() As TextBox
Get
Return mTXT
End Get
Set(ByVal value As TextBox)
mTXT = value
End Set
End Property
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
' ERROR! - Referencia a objeto no establecida como instancia de un objeto.
' No entiendo ¿por que? si arriba esta declarada ( Private mTXT As New TextBox)
mTXT.Text = "algun texto"
Dim var1 As String
' ERROR! - Referencia a objeto no establecida como instancia de un objeto.
var1 = mTXT.Text
End Sub
Public Sub Test()
'ACA si anda bien
mTXT.Text = "algun texto"
Dim var1 As String
'ACA si anda bien
var1 = mTXT.Text
End Sub
End Class
Valora esta pregunta


0