Bonjour,

Je suis débutant en VB.net et surtout je n'ai aucune formation en programmation (je me débrouille à force de volonté sous Excel en VBA). Ceci étant dit, j'ai voulu me lancer en VB.net application WPF.

Mon projet est construit ainsi :

1°) J'ouvre MainWindow
2°) un label et un bouton s'affichent
3°) Lorsque je clique sur le bouton ça m'appelle une procédure contenue dans le module 1
4°) Cette sub a pour objectif d'agir sur les contrôles contenu dans le MainWindow (ici cacher le label)

Je n'arrive pas à réaliser le point 4. J'ai essayé de déclarer du Public, du Shared mais je bloque encore et encore, ma recherche sur le net ne m'apporte pas la solution (où du moins je ne la comprends pas, restons humble )

Je m'excuse par avance si ma façon de coder vous offense

Voici l'exemple minimal :

MainWindow.xaml :

Code xaml : 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
<Window x:Class="MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:local="clr-namespace:WpfApp1"
        mc:Ignorable="d"
        Title="MainWindow" MinWidth="100" MinHeight="50">
 
    <Grid>
        <Grid.RowDefinitions>
            <RowDefinition/>
            <RowDefinition/>
        </Grid.RowDefinitions>
 
        <Label x:Name="lbl" Content="Label" Grid.Row="0" />
        <Button x:Name="btn" Content="Button" Grid.Row="1"/>
    </Grid>
</Window>

MainWindow.xaml.vb :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Class MainWindow
    Private Sub btn_Click(sender As Object, e As RoutedEventArgs) Handles btn.Click
        Masquer_Label()
   End Sub
End Class
Module1 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Module Module1
    Sub Masquer_Label()
        MainWindow.lbl.Visibility = Visibility.Hidden
    End Sub
End Module
Merci de votre aide