Avant tout Deux - Trois petites choses :
Il faut créer 2 fenetres , une qui serra Votre fenetre sans bordure que l'on appelle SBfrm et l'autre que l'on appelle Mini et
un bouton de minimisement dans SBfrm que l'n appelera minicmd
Certain s'en doute déjà : je passe par l'astuce de cacher la form SBfrm (sans la déchager) et mettre le Mini a la place dans le taskBar.
Voila donc Comment faire :
'Dans la SBfrm
Public STARMINI as Boolean
Private Sub minicmd_click()
STARMINI = True
mini.Visible = True
mini.Caption = Me.Caption 'metre le titre de la form SBfrm dans la barre de tache
mini.Icon = me.Icon 'metre l'icon de la form SBfrm dans la barre de tache
Load mini
mini.WindowState = vbMinimised
End Sub
'Dans Mini
Private Sub mini_Resize()
If me.WindowState = vbNormal and STARMINI = False then
SBfrm.Visible = True
Me.Visible = False
end if
If STARMINI = True then STARMINI = False
End Sub
FAQ (Foire aux questions)
Pourquoi STARMINI ?
Le probleme d'invoquer mini est qu'il execute mini_resize() or a ce moment là si STARMINI n'existe pas votre fenetre mini va se croire encore en VbNormalet donc va remetre les parametres normaux, c'est même pire en réalité car la commande me.visible = false s'execute aprés mini.resizeet doncon se retrouve avec une application fantôme.
Prouquoi alors ne pas metre d'abord minimized avant l'invocation de mini?
l'invocation de mini remet le windowsState en vbNormal, retour a la case départ !
Qu'est ce que "l'invocation d'une fenetre"?
C'est un langage a moi qui ve dire : Frm.Visible = true & load Frm
Ca marche pas ??
Heureux de savoir que l'informatique reste encore un mistére, chez moi ca marche, mais chez vous que ce qui ne marche pas exactement, donnez plus d'explication (ex: la commande "..." ne marche pas, ou il me donne l'erreur "...")
Il est alors plus facile de repondre a votre question
Ca Marche .
Je sais que ce n'est pas une question mais a ce moment là ou même si ca marche pas donnez une note !!
Nico1610 alias ERGO5