Discussion :

[Vincent23]

Bonjour à tous,

je galère : J'ai un label qui me sert à renvoyer une valeur obtenue dans le traitement d'une macro :

pour exemple :

MainWindow.xml :

Code xml :

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
<Grid>
        <Grid.ColumnDefinitions>
            <ColumnDefinition Width="Auto"/>
            <ColumnDefinition Width="Auto"/>
            <ColumnDefinition Width="Auto"/>
        </Grid.ColumnDefinitions>
        <Grid.RowDefinitions>
            <RowDefinition Height="Auto"/>
            <RowDefinition Height="Auto"/>
        </Grid.RowDefinitions>
 
        <Label Content="Rentrer une valeur" />
        <TextBox x:Name="Tbx" Grid.Column="1" Width="50" />
        <Button x:Name="Btn" Grid.Column="2" Content="Calcul" />
        <Label Grid.Row="1" Content="Résultat" />
        <Label x:Name="Lbl_Result" Grid.Row="1" Grid.Column="1" />
    </Grid>

MainWindow.xml.vb

Code :

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

1
2
3
4
5
Class MainWindow
    Private Sub Btn_Click(sender As Object, e As RoutedEventArgs) Handles Btn.Click
        Calcul(Tbx.Text)
    End Sub
End Class

Module1

Code :

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

1
2
3
4
5
6
7
8
Module Module1
    Sub Calcul(i As Long)
 
        Lbl_Result = i * i
 
    End Sub
 
End Module

D'après mes lectures il faut réaliser un binding mais c'est hors de mon domaine de compétences. comment à partir du module 1 écrire dans le label Lbl_Result

Merci de votre soutien

[Vincent23]

J'ai trouvé une solution :

MainWindow.xml.vb :

Code xaml.vb :

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

1
2
3
4
5
6
Class MainWindow
    Private Sub Btn_Click(sender As Object, e As RoutedEventArgs) Handles Btn.Click
        obj = Lbl_Result
        Calcul(Tbx.Text)
    End Sub
End Class

Module1 :

Code vb.net :

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

1
2
3
4
5
6
Module Module1
    Public obj As Label
    Sub Calcul(i As Long)
        obj.Content = i * i
    End Sub
End Module