Comment montrer form en barre tâche ???

Le
LE TROLL
Bonjour,

J'ai une forme sans bandeau, qui se déplace
avec API + MouseDown, et qui se réduit
(WindosState = 1), etc

Le seule problème, c'est qu'au lancement de la
forme, rien ne s'affiche dans la barre de tâche,
ni quand elle est réduite, ni quand cette 1ere
forme de démarrage en appelle une autre, y a plus
rien qui s'inscrit dans la barre de tâches en bas
!!!

Svp, comment faire pour avoir la présence de
la forme qui s'inscrit en barre de tâche dans mon
cas ???

--
Merci beaucoup, au revoir et à bientôt :o)

Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #15368221
Bonjour LE TROLL,
LE TROLL a écrit :
Bonjour,

J'ai une forme sans bandeau, qui se déplace
avec API + MouseDown, et qui se réduit
(WindosState = 1), etc...

Le seule problème, c'est qu'au lancement de la
forme, rien ne s'affiche dans la barre de tâche,
ni quand elle est réduite, ni quand cette 1ere
forme de démarrage en appelle une autre, y a plus
rien qui s'inscrit dans la barre de tâches en bas
!!!

Svp, comment faire pour avoir la présence de
la forme qui s'inscrit en barre de tâche dans mon
cas ???




Peut être ceci, à adapter :

Option Explicit

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Private Declare Function ShowWindow Lib "user32" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_APPWINDOW = &H40000

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
' Il faut que BorderStyle = 0 ' - None

' Mais quand même une caption pour qu'elle apparaisse
' dans la barre des tâches

Me.Caption = "LE TROLL"
End Sub

Private Sub Form_Activate()
Dim ExStyle As Long, lResult As Long

lResult = ShowWindow(Me.hWnd, SW_HIDE)
ExStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
lResult = SetWindowLong(Me.hWnd, GWL_EXSTYLE, _
ExStyle Or WS_EX_APPWINDOW)
lResult = ShowWindow(Me.hWnd, SW_SHOW)
End Sub

Private Sub Form_Click()
Me.WindowState = vbMinimized
' Il n'y aura pas de menu système, ni sur la fenêtre
' ni sur le bouton de la barre des tâches

End Sub


--
Cordialement,

Jacques.
LE TROLL
Le #15368211
merci :o)

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jacques93" a écrit dans le
message de news:

| Bonjour LE TROLL,
| LE TROLL a écrit :
| > Bonjour,
| >
| > J'ai une forme sans bandeau, qui se
déplace
| > avec API + MouseDown, et qui se réduit
| > (WindosState = 1), etc...
| >
| > Le seule problème, c'est qu'au lancement
de la
| > forme, rien ne s'affiche dans la barre de
tâche,
| > ni quand elle est réduite, ni quand cette 1ere
| > forme de démarrage en appelle une autre, y a
plus
| > rien qui s'inscrit dans la barre de tâches en
bas
| > !!!
| >
| > Svp, comment faire pour avoir la présence
de
| > la forme qui s'inscrit en barre de tâche dans
mon
| > cas ???
| >
|
| Peut être ceci, à adapter :
|
| Option Explicit
|
| Private Const SW_HIDE = 0
| Private Const SW_SHOW = 5
|
| Private Declare Function ShowWindow Lib "user32"
_
| (ByVal hWnd As Long, ByVal nCmdShow As
Long) As Long
|
| Private Const GWL_EXSTYLE = (-20)
| Private Const WS_EX_APPWINDOW = &H40000
|
| Private Declare Function GetWindowLong Lib
"user32" _
| Alias "GetWindowLongA" _
| (ByVal hWnd As Long, ByVal nIndex As
Long) As Long
|
| Private Declare Function SetWindowLong Lib
"user32" _
| Alias "SetWindowLongA" _
| (ByVal hWnd As Long, ByVal nIndex As
Long, _
| ByVal dwNewLong As Long) As Long
|
| Private Sub Form_Load()
| ' Il faut que BorderStyle = 0 ' - None
|
| ' Mais quand même une caption pour qu'elle
apparaisse
| ' dans la barre des tâches
|
| Me.Caption = "LE TROLL"
| End Sub
|
| Private Sub Form_Activate()
| Dim ExStyle As Long, lResult As Long
|
| lResult = ShowWindow(Me.hWnd, SW_HIDE)
| ExStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
| lResult = SetWindowLong(Me.hWnd, GWL_EXSTYLE,
_
| ExStyle Or
WS_EX_APPWINDOW)
| lResult = ShowWindow(Me.hWnd, SW_SHOW)
| End Sub
|
| Private Sub Form_Click()
| Me.WindowState = vbMinimized
| ' Il n'y aura pas de menu système, ni sur la
fenêtre
| ' ni sur le bouton de la barre des tâches
|
| End Sub
|
|
| --
| Cordialement,
|
| Jacques.
Publicité
Poster une réponse
Anonyme