Discussion :

[Eric_M]

Bonjour,

J'ai sur ma forme un ToolStrip qui contient des ToolStripButton et des ToolStripDropDownButton.
Les ToolStripDropDownButton contiennent plusieurs ToolStripMenuItem.

En fait, j'utilise plutôt des Class qui ont hérité des trois type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class ItemOnDropDownButton
    Inherits ToolStripMenuItem
 
    Public Nom, Dossier As String
 
End Class
 
Public Class ButtonOnStrip
    Inherits ToolStripButton
 
    Public Nom, Dossier As String
 
End Class
 
Public Class DropDownButtonOnStrip
    Inherits ToolStripDropDownButton
 
    Public Nom, Dossier As String
 
End Class

J'utilise le même Event lors d'un clic pour les trois.

Le problème, c'est que je dois à tous prix mettre Option Strict On,

Et que dans l'event du clic:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Btn_click(ByVal sender As Object, ByVal e As MouseEventArgs)
 
    If sender.Dossier = "C:/Test" Then
        'Exécution du code...
    End If
 
End Sub

Cela crée l'erreur suivante:

Option Strict On rejette toute liaison tardive.

Auriez-vous un idée comment contourner cela sans enlever Option Strict On?

Merci d'avance,
Éric

[Pol63]

si tu es sûr du type de sender :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

directcast(sender, letype).dossier

si plusieurs types peuvent arriver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if typeof sender is type1 then
   dim v as type1 = directcast(sender, type1)
   (...)
elseif typeof sender is unAutreType then
 
(...)
 
end if

si plusieurs types peuvent arriver mais qu'ils ont tous un même membre (ce qui semble être ton cas) il faut utiliser une interface :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public interface IDossier
   property Dossier as string ' une interface ne peut pas contenir de variable comme dans ton code, mais des propriétés/méthodes/fonctions
end interface
 
public class C1
  implements IDossier
  (...)
end class
 
 
public class C1
  implements IDossier
  (...)
end class

et pour le sender

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if typeof sender is IDossier then
   directcast(sender, idossier).dossier
end if

après si tu préfères coder en bricolage avec du code moins safe sans l'interface :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sender.gettype.getfield("Dossier").getvalue(sender,nothing)

nb : titre de ton topic inadapté

[Eric_M]

Salut Pol63 et merci pour ta réponse.

J'utilise la deuxième option que tu propose,
mais je vais regardé pour implémenter une interface, comme la troisième option, qui semble mieux adapté à ma situation.

Merci beaucoup,
Éric

nb : J'ai changé le titre.