2 pièce(s) jointe(s)
Problème pour bind un Sub sur une window et un bouton sur une autre
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:
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:
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:
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
Pièce jointe 432504
Voici l'Exception que j'obtiens lorsque je clique sur "Show Exception" :
Pièce jointe 432534
