Discussion :

[ism10]

Bonjour à tous !

Alors voici mon problème : j'ai 2 windows, sur la 1ere j'ai mon bouton créé et sur ma seconde j'ai mon Sub mais je n'arrive pas à binder les 2... Pourtant lorsque je mets un break dans mon Sub, j'observe qu'il y a bien un lien puisque le Sub est bien lu mais rien ne se passe, je ne comprends pas... et pour être sûr définitivement j'ai mis dans mon Sub un MessageBox.show("test") et effectivement je l'observe bien donc le bind fonctionne mais pas totalement, pourquoi ? Je ne sais pas.

Window 1 :

Code :

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

1
2
3
4
	Public Sub CommandBinding_RBtn (ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs)
		Dim _Cam As New Cam
		Call _Cam.CommandBinding_S(Cam.SBtnCommand, e)
	End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
<Button.CommandBindings>
		<CommandBinding  Command="{x:Static my:ToolB.RBtnCommand}" Executed ="CommandBinding_RBtn" />
</Button.CommandBindings>
<Grid>
|
|
|
|
</Grid>
<my:RndBtn x:Name="RBtn" Command="{x:Static my:ToolB.RBtnCommand}" Grid.Column="7"/>

Window 2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
	Public Sub CommandBinding_S(ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs)
'		Forms.MessageBox.Show("test")
		If ChartCtrl.Visibility = Visibility.Collapsed Then
			ChartCtrl.Visibility = Visibility.Visible			
			Call CmdM()		
			AnimCtrl.Visibility = Visibility.Collapsed
		ElseIf AChartCtrl.Visibility = Visibility.Visible Then
			AChartCtrl.Visibility = Visibility.Collapsed
			AnimCtrl.Visibility = Visibility.Visible
		End If
	End Sub

Donc toute la partie "if" est lue mais n'est pas exécutée et je ne comprends pas pourquoi... Si quelqu'un pourrait m'éclairer svp ?

Edit :
J'ai ce message d'erreur que je ne comprends pas, il s'affiche lorsque je mets un break et que j’exécute le programme step by step sinon sans break il ne s'affiche pas et donc lorsque je clique sur le bouton rien ne se passe


Voici l'Exception que j'obtiens lorsque je clique sur "Show Exception" :