J'ai 1 formulaire Parent (FormPapa) qui contient 1 StatusBar (StatusBar1)
avec 2 Panels (StatusBarPanels1 et StatusBarPanels2).
De ce formulaire, je modifie directement le texte de StatusBarPanels1 comme
ceci :
Me.StatusBarPanels1.Text="Mon texte"
Cela fonctionne correctement.
J'ai également 1 formulaire Enfant (FormFils1) et j'aimerais modifier au
fure et à mesure des informations dans FormPapa.StatusBarPanels1.
Je fais 1 recherche de l'index du contrôle dans le formulaire Parent comme
ceci :
With Me.ParentForm
If .MdiChildren.Length() = 1 Then
For i As Integer = 0 To .Controls.Count - 1
MsgBox(.Controls(i).Name)
If .Controls(i).Name="StatusBar1" Then numéro_index_StatusBar1 =
i
Next i
End If
End With
Ce code m'affiche entres autres le contrôle StatusBar1 mais aucun
StatusBarPanel
L'idéal aurait été ce genre de code :
.Controls(numéro_index_StatusBar1).panels(0).Text = "Mon autre texte"
Mais la collection Controls ne contient pas de collection Panels :/.
Comment modifier du texte dans 1 Panel d'1 SatusBar ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane L.
Trouvé :)
Dim sb As StatusBar
sb = .Controls(numéro_index_StatusBar1)
sb.Panels(0).Text = "Texte."
"Stéphane L." a écrit dans le message de news:
Bonjour,
Je suis sur VB . Net
J'ai 1 formulaire Parent (FormPapa) qui contient 1 StatusBar (StatusBar1) avec 2 Panels (StatusBarPanels1 et StatusBarPanels2). De ce formulaire, je modifie directement le texte de StatusBarPanels1 comme ceci : Me.StatusBarPanels1.Text="Mon texte" Cela fonctionne correctement.
J'ai également 1 formulaire Enfant (FormFils1) et j'aimerais modifier au fure et à mesure des informations dans FormPapa.StatusBarPanels1.
Je fais 1 recherche de l'index du contrôle dans le formulaire Parent comme ceci : With Me.ParentForm
If .MdiChildren.Length() = 1 Then
For i As Integer = 0 To .Controls.Count - 1
MsgBox(.Controls(i).Name)
If .Controls(i).Name="StatusBar1" Then numéro_index_StatusBar1 = i
Next i
End If
End With
Ce code m'affiche entres autres le contrôle StatusBar1 mais aucun StatusBarPanel L'idéal aurait été ce genre de code :
.Controls(numéro_index_StatusBar1).panels(0).Text = "Mon autre texte"
Mais la collection Controls ne contient pas de collection Panels :/.
Comment modifier du texte dans 1 Panel d'1 SatusBar ?
Merci d'avance,
-- Cordialement,
Stéphane L
Trouvé :)
Dim sb As StatusBar
sb = .Controls(numéro_index_StatusBar1)
sb.Panels(0).Text = "Texte."
"Stéphane L." <no@spam.fr> a écrit dans le message de news:
OrXWrzTpEHA.1460@TK2MSFTNGP12.phx.gbl...
Bonjour,
Je suis sur VB . Net
J'ai 1 formulaire Parent (FormPapa) qui contient 1 StatusBar (StatusBar1)
avec 2 Panels (StatusBarPanels1 et StatusBarPanels2).
De ce formulaire, je modifie directement le texte de StatusBarPanels1
comme ceci :
Me.StatusBarPanels1.Text="Mon texte"
Cela fonctionne correctement.
J'ai également 1 formulaire Enfant (FormFils1) et j'aimerais modifier au
fure et à mesure des informations dans FormPapa.StatusBarPanels1.
Je fais 1 recherche de l'index du contrôle dans le formulaire Parent comme
ceci :
With Me.ParentForm
If .MdiChildren.Length() = 1 Then
For i As Integer = 0 To .Controls.Count - 1
MsgBox(.Controls(i).Name)
If .Controls(i).Name="StatusBar1" Then numéro_index_StatusBar1
= i
Next i
End If
End With
Ce code m'affiche entres autres le contrôle StatusBar1 mais aucun
StatusBarPanel
L'idéal aurait été ce genre de code :
.Controls(numéro_index_StatusBar1).panels(0).Text = "Mon autre texte"
Mais la collection Controls ne contient pas de collection Panels :/.
Comment modifier du texte dans 1 Panel d'1 SatusBar ?
J'ai 1 formulaire Parent (FormPapa) qui contient 1 StatusBar (StatusBar1) avec 2 Panels (StatusBarPanels1 et StatusBarPanels2). De ce formulaire, je modifie directement le texte de StatusBarPanels1 comme ceci : Me.StatusBarPanels1.Text="Mon texte" Cela fonctionne correctement.
J'ai également 1 formulaire Enfant (FormFils1) et j'aimerais modifier au fure et à mesure des informations dans FormPapa.StatusBarPanels1.
Je fais 1 recherche de l'index du contrôle dans le formulaire Parent comme ceci : With Me.ParentForm
If .MdiChildren.Length() = 1 Then
For i As Integer = 0 To .Controls.Count - 1
MsgBox(.Controls(i).Name)
If .Controls(i).Name="StatusBar1" Then numéro_index_StatusBar1 = i
Next i
End If
End With
Ce code m'affiche entres autres le contrôle StatusBar1 mais aucun StatusBarPanel L'idéal aurait été ce genre de code :
.Controls(numéro_index_StatusBar1).panels(0).Text = "Mon autre texte"
Mais la collection Controls ne contient pas de collection Panels :/.
Comment modifier du texte dans 1 Panel d'1 SatusBar ?
