Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

modifier icone et texte dans barre des taches

2 réponses
Avatar
marcolet.pa
bonjour,
j'aimerai savoir s'il est possible avec visual basic de modifier le bouton
qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que
l'on ouvre un programme.
Comment intégrer une autre icone et un autre texte.

Merci d'avance

2 réponses

Avatar
PMO
Bonjour,

Voici une solution en utilisant l'API Windows.
L'idée est de stocker une icône dans un contrôle Image d'un UserForm.

A) Création d'un UserForm
1) Créez un UserForm et mettez sa propriété (Name) = UF
2) Insérez un contrôle Image et affectez à sa propriété Picture
l'icône de votre choix

B) Code à copier dans un module standard
'*************
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

Dim HIcon As Long
Dim hWnd As Long

Sub IconeNomAppli_PMO()
Dim MonIcone As Control
'---- Change l'icône d'Excel en cherchant ----
'---- une icône stockée dans un formulaire ----
Set MonIcone = UF.Controls(0)
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, MonIcone.Picture
'---- Change le nom de l'application ----
Application.Caption = "Personnalisée" 'à adapter
End Sub
'*************

Lancez la macro IconeNomAppli_PMO.
Vous pouvez, si vous le voulez, appeler cette macro à partir
de l'évènement Workbook_Open avec le code suivant
à copier dans l'évènementiel de ThisWorkbook
'*************
Private Sub Workbook_Open()
Call IconeNomAppli_PMO
End Sub
'*************
Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO
afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro.
Pour ce faire, remplacez Sub IconeNomAppli_PMO() par
Sub IconeNomAppli_PMO(Optional Void As Byte)
L'argument bidon Void empêchera son affichage.

Cordialement
--
PMO
Patrick Morange



bonjour,
j'aimerai savoir s'il est possible avec visual basic de modifier le bouton
qui apparait dans la barre des tâche a droite du bouton démarrer lorsque que
l'on ouvre un programme.
Comment intégrer une autre icone et un autre texte.

Merci d'avance





Avatar
orlotov
PMO a écrit le 13/09/2005 à 15h15 :
Bonjour,

Voici une solution en utilisant l'API Windows.
L'idée est de stocker une icône dans un contrôle Image d'un
UserForm.

A) Création d'un UserForm
1) Créez un UserForm et mettez sa propriété (Name) = UF
2) Insérez un contrôle Image et affectez à sa
propriété Picture
l'icône de votre choix

B) Code à copier dans un module standard
'*************
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

Dim HIcon As Long
Dim hWnd As Long

Sub IconeNomAppli_PMO()
Dim MonIcone As Control
'---- Change l'icône d'Excel en cherchant ----
'---- une icône stockée dans un formulaire ----
Set MonIcone = UF.Controls(0)
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, MonIcone.Picture
'---- Change le nom de l'application ----
Application.Caption = "Personnalisée" 'à adapter
End Sub
'*************

Lancez la macro IconeNomAppli_PMO.
Vous pouvez, si vous le voulez, appeler cette macro à partir
de l'évènement Workbook_Open avec le code suivant
à copier dans l'évènementiel de ThisWorkbook
'*************
Private Sub Workbook_Open()
Call IconeNomAppli_PMO
End Sub
'*************
Dans ce cas il serait judicieux de masquer la macro IconeNomAppli_PMO
afin qu'elle n'apparaisse pas dans la boîte de dialogue Macro.
Pour ce faire, remplacez Sub IconeNomAppli_PMO() par
Sub IconeNomAppli_PMO(Optional Void As Byte)
L'argument bidon Void empêchera son affichage.

Cordialement
--
PMO
Patrick Morange



bonjour,
j'aimerai savoir s'il est possible avec visual basic de modifier le bouton
qui apparait dans la barre des tâche a droite du bouton démarrer
lorsque que
l'on ouvre un programme.
Comment intégrer une autre icone et un autre texte.

Merci d'avance








Bonjour je lis ce vieux sujet et en voulant l'utiliser je m'apperçois que l'icone ne change pas. Quel nom doit avoir l'image du userform (Name)