Problème variable non iniatialisée
Bonjour,
J'ai un problème d'initialisation de variable (Me.DrawingWindow) et la seule raison que je vois est l'utilisation d'un délégué..
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Private DrawingWindow As DrawingWindowContent
Private Sub PaletteWindow_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim d As New MyDeleg(AddressOf SetTypeForme) '<-- création du délégué - A ce moment là, Me.DrawingWindow Is Nothing..
Dim pe As New PaletteElement("Rectangle", My.Resources.rectangle, d)
pe.Dock = DockStyle.Top
Me.PanelContent.Controls.Add(pe)
'etc.
End Sub
Private Sub SetTypeForme(ByVal typeForme As String)
If typeForme IsNot Nothing Then
If typeForme = "Arc" Then
Me.DrawingWindow.DrawingPicture1.CurrentFigureType = ABWFigure.FigureType.Arc
ElseIf typeForme = "Cercle" Then
'ect.
End Sub |
Le délégué s'exécutera lors d'un click sur le PaletteElement, mais lorsqu'il est crée Me.DrawingWindow n'est pas initialisée..
Est ce que, comme je le pressens, même si j'initialise ma DrawingWindow après, la méthode SetTypeForme() ne le prendra pas en compte?
Merci