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
------------------------------------------------------------------------------------
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
Jacques93
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 ???
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.
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 ???
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
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 ???
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
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.
merci :o)
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jacques93" <jacques@Nospam> a écrit dans le
message de news:
umG9xfFhIHA.1208@TK2MSFTNGP03.phx.gbl...
| 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.
-- 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.