Avec mon code ci-dessous je change le caption du label en
programmation, j'aimerais faire une sorte de Label.Caption.Refresh car
le caption reste statique.
Private Sub cmdImprimantes_Click()
Dim lvRetVal
lvRetVal = Application.Dialogs(wdDialogFilePrint).Show
lblCurrentPrinter.Caption = lblDefaultPrinter.Caption +
ActivePrinter
End Sub
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
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
Anacoluthe
Bonjour !
'EmanuelL' nous a écrit ...
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
C'est tout l'objet conteneur qu'il faut rafraichir avec Repaint
Anacoluthe « Le monde est à repeindre » - Jean TARDIEU
Bonjour !
'EmanuelL' nous a écrit ...
Avec mon code ci-dessous je change le caption du label en programmation,
j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste
statique.
C'est tout l'objet conteneur qu'il faut rafraichir avec Repaint
Anacoluthe
« Le monde est à repeindre »
- Jean TARDIEU
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
C'est tout l'objet conteneur qu'il faut rafraichir avec Repaint
Anacoluthe « Le monde est à repeindre » - Jean TARDIEU
EmanuelL
Merci de votre réponse,
Mais, MyForm.Repaint reste sans effet, le caption du label ne change pas. :-[
Anacoluthe a présenté l'énoncé suivant :
Bonjour !
'EmanuelL' nous a écrit ...
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
C'est tout l'objet conteneur qu'il faut rafraichir avec Repaint
Anacoluthe « Le monde est à repeindre » - Jean TARDIEU
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Merci de votre réponse,
Mais, MyForm.Repaint reste sans effet, le caption du label ne change
pas.
:-[
Anacoluthe a présenté l'énoncé suivant :
Bonjour !
'EmanuelL' nous a écrit ...
Avec mon code ci-dessous je change le caption du label en programmation,
j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste
statique.
C'est tout l'objet conteneur qu'il faut rafraichir avec Repaint
Anacoluthe
« Le monde est à repeindre »
- Jean TARDIEU
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Mais, MyForm.Repaint reste sans effet, le caption du label ne change pas. :-[
Anacoluthe a présenté l'énoncé suivant :
Bonjour !
'EmanuelL' nous a écrit ...
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
C'est tout l'objet conteneur qu'il faut rafraichir avec Repaint
Anacoluthe « Le monde est à repeindre » - Jean TARDIEU
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Geo
Bonjour à Tous,
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
Private Sub cmdImprimantes_Click() Dim lvRetVal lvRetVal = Application.Dialogs(wdDialogFilePrint).Show lblCurrentPrinter.Caption = lblDefaultPrinter.Caption + ActivePrinter End Sub
Pas de souci. D'habitude j'ajoute un Doevents, mais là ça marche sans. Emplacement pour le label trop petit ?
-- A+
Bonjour à Tous,
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais
faire une sorte de Label.Caption.Refresh car le caption reste statique.
Private Sub cmdImprimantes_Click()
Dim lvRetVal
lvRetVal = Application.Dialogs(wdDialogFilePrint).Show
lblCurrentPrinter.Caption = lblDefaultPrinter.Caption + ActivePrinter
End Sub
Pas de souci.
D'habitude j'ajoute un Doevents, mais là ça marche sans.
Emplacement pour le label trop petit ?
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
Private Sub cmdImprimantes_Click() Dim lvRetVal lvRetVal = Application.Dialogs(wdDialogFilePrint).Show lblCurrentPrinter.Caption = lblDefaultPrinter.Caption + ActivePrinter End Sub
Pas de souci. D'habitude j'ajoute un Doevents, mais là ça marche sans. Emplacement pour le label trop petit ?
-- A+
EmanuelL
Merci Geo.
En faite, j'avais omis blCurrentPrinter.Caption = "" avant le changement de caption. ;-)
Geo a couché sur son écran :
Bonjour à Tous,
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
Private Sub cmdImprimantes_Click() Dim lvRetVal lvRetVal = Application.Dialogs(wdDialogFilePrint).Show lblCurrentPrinter.Caption = lblDefaultPrinter.Caption + ActivePrinter End Sub
Pas de souci. D'habitude j'ajoute un Doevents, mais là ça marche sans. Emplacement pour le label trop petit ?
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Merci Geo.
En faite, j'avais omis blCurrentPrinter.Caption = "" avant le
changement de caption. ;-)
Geo a couché sur son écran :
Bonjour à Tous,
Avec mon code ci-dessous je change le caption du label en programmation,
j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste
statique.
Private Sub cmdImprimantes_Click()
Dim lvRetVal
lvRetVal = Application.Dialogs(wdDialogFilePrint).Show
lblCurrentPrinter.Caption = lblDefaultPrinter.Caption + ActivePrinter
End Sub
Pas de souci.
D'habitude j'ajoute un Doevents, mais là ça marche sans.
Emplacement pour le label trop petit ?
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
En faite, j'avais omis blCurrentPrinter.Caption = "" avant le changement de caption. ;-)
Geo a couché sur son écran :
Bonjour à Tous,
Avec mon code ci-dessous je change le caption du label en programmation, j'aimerais faire une sorte de Label.Caption.Refresh car le caption reste statique.
Private Sub cmdImprimantes_Click() Dim lvRetVal lvRetVal = Application.Dialogs(wdDialogFilePrint).Show lblCurrentPrinter.Caption = lblDefaultPrinter.Caption + ActivePrinter End Sub
Pas de souci. D'habitude j'ajoute un Doevents, mais là ça marche sans. Emplacement pour le label trop petit ?
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Geo
En fait, j'avais omis blCurrentPrinter.Caption = "" avant le changement de caption.
Vu !
-- A+
En fait, j'avais omis blCurrentPrinter.Caption = "" avant le changement de caption.