Discussion :

[Vincent23]

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

[Vincent23]

J'ai trouvé une "solution" mais ça me semble bien sale et pas correct j'aurai aimé que le Bob.visibility suffise...

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
20
21
22
<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 x:Name="Win">
 
        <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
6
7
8
Public Class MainWindow
 
    Private Sub btn_Click(sender As Object, e As RoutedEventArgs) Handles btn.Click
        Masquer_Label()
        lbl.Visibility = Bob.visibility
    End Sub
 
End Class

Module1.vb

Code :

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

1
2
3
4
5
6
7
8
Module Module1
    Public Bob As Object = New MainWindow().lbl
 
    Sub Masquer_Label()
        Bob.visibility = Visibility.Hidden
    End Sub
 
End Module

[Arno60]

Bonjour Vincent23,

Etant "Débutant" aussi de mon côté, je vais peut être sortir une énormité cependant, si je souhaite rendre un label invisible :
LabelName.Visible = False
Si le label est appelé à partir d'un module :
FormulaireName.LabelName.Visible = False
Et si je souhaite gérer plusieurs label, je passe par une liste qui contient le nom des label souhaités.

Cordialement

[Arno60]

Après relecture du post (dans le module) :

Code :

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

1
2
3
public sub Masquer_Label(_item as object)
FormulaireName.Control(_item).Visible = False
End sub

et le bouton devrait contenir : Masquer_Label(LabelName), je crois mais je ne l'ai pas testé.

[Vincent23]

Merci pour cette réponse et ton intérêt pour mon pb :

par contre :

Code :

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

MainWindow.Control(_item).visible = False

Me renvoie une erreur : Control n'est pas un membre de Window

[Arno60]

Re,

N'utilisant pas WPF, je me suis fait avoir.
Cependant j'ai ouvert un projet WPF pour regarder et fait (voir ci-dessous) :

Code :

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

1
2
3
4
5
Class MainWindow
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        cacher(LabelName)
    End Sub
End Class

Module Module1

Code :

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

1
2
3
4
    Public Sub cacher(lbl As Object)
        lbl.Visibility = Visibility.Hidden
    End Sub
End Module

Pour moi, cela fonctionne.
En espérant que c'est bien ce que tu attends.

Cordialement