Barre de titre

[joss56]

Bonjour à tous,

Est-il possible d'insérer une icône dans la barre de titre d'un UserForm?

D'avance merci

Jocelyn

 

[MichelXld]

Re : Barre de titre

bonjour

Tu peux tester

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
      (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SendMessageA Lib "user32" _
      (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
      ByVal lParam As Long) As Long

Private Declare Function ExtractIconA Lib "shell32.dll" _
      (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Private Sub UserForm_Initialize()
    Dim Fichier As String
    Dim x As Long
    
    'Chemin et nom du fichier icône à afficher
    Fichier = "C:\Documents and Settings\mimi\dossier\bouton.ICO"
    'Vérifie si le fichier existe
    If Dir(Fichier) = "" Then Exit Sub
    
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End Sub

bon après midi
michel
Microsoft Excel MVP

 

[joss56]

Re : Barre de titre

Merci Michel,

Je vais essayer tout ça de suite...Mais comment savoir quelle est la bonne API à utiliser pour telle ou telle action? Existe t-il un "dictionnaire"?
Merci encore

 

[Jam]

Re : Barre de titre

Salut Joss, Michel,

Il existe plein d'endroit où trouver des "renseignements" sur les API, par exemple: Programmation des fonctions API Windows - Visual Basic Research Center (en français - 214 fonctions recensées)
ou encore
AllAPI.net - Your #1 source for using API-functions in Visual Basic! (en anglais - 940 fonctions recensées)


Et dixit Micro$oft sur le site msdn:
"Pour plus d'informations sur les API Windows, consultez la documentation du kit Win32 SDK dans les API Windows du kit de développement Platform SDK. Pour plus d'informations sur les constantes utilisées par les API Windows, examinez les fichiers d'en-tête, tels que Windows.h, fournis avec le Kit de développement Platform SDK."


Bon courage,

 

[MichelXld]

Re : Barre de titre

rebonsoir ... ;o)


En complément, un article de Jean-Marc Rabilloud qui explique comment utiliser les APIs :

Utiliser les fonctions de l'API en Visual Basic - Club d'entraide des développeurs francophones


bonne soirée
michel
Microsoft Excel MVP

 

[joss56]

Re : Barre de titre

Bonjour le forum, Jam, Michel

Merci pour vos réponses, je vais me plonger dans la lecture. Bonne journée à tous.

Jocelyn

 

[Jam]

Re : Barre de titre

Re,

J'ai retrouvé un lien MSDN (quand c'est crosoft, c'est toujours mieux 🙂):
Ce lien n'existe plus
En anglais, of course.