Buenas!.
Tengo ese error con un ejemplo sencillo y no sé el motivo.
Pizarra es un control DrawingArea que existe en el formulario.
Y la clase Test.
Cuando elimino el observador ademas de no hacer nada el ejemplo, deja de dar el error.
La clase Test quedaría así, no haría nada.
Entiendo lo que dice, con falta de argumentos, pero es que son los que son. Uno.
Saludos
Tengo ese error con un ejemplo sencillo y no sé el motivo.
Pizarra es un control DrawingArea que existe en el formulario.
Código:
Private untest As Test
Public Sub Form_Open()
untest = New Test(Pizarra)
EndY la clase Test.
Código:
Property areadibujo As DrawingArea Use hareadibujo
Private suobservador As New Observer
Public Sub _new(darea As DrawingArea)
Me.areadibujo = darea
suobservador = New Observer(Me.areadibujo) As "Vigilante"
End
Public Sub Vigilante_Draw()
DibujarCuadrado()
End
Public Sub DibujarCuadrado()
Paint.Background = Color.White
Paint.Rectangle(128, 128, 40, 40)
Paint.Fill
EndCuando elimino el observador ademas de no hacer nada el ejemplo, deja de dar el error.
La clase Test quedaría así, no haría nada.
Código:
Property areadibujo As DrawingArea Use hareadibujo
'Private suobservador As New Observer
Public Sub _new(darea As DrawingArea)
Me.areadibujo = darea
'suobservador = New Observer(Me.areadibujo) As "Vigilante"
End
' Public Sub Vigilante_Draw()
'
' DibujarCuadrado()
'
' End
Public Sub DibujarCuadrado()
Paint.Background = Color.White
Paint.Rectangle(128, 128, 40, 40)
Paint.Fill
EndEntiendo lo que dice, con falta de argumentos, pero es que son los que son. Uno.
Saludos
Archivos adjuntos
Última modificación: 21-01-2023, 18:33 por Shell.
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln