Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre
particulière ou une autre API ???
Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre
particulière ou une autre API ???
Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre
particulière ou une autre API ???
LE TROLL a écrit :
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
LE TROLL a écrit :
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
LE TROLL a écrit :
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
LE TROLL a écrit :Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre particulière
ou une autre API ???
Pas sur d'avoir tout compris. Peut être ceci :
Option Explicit
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As
Long
Sub Form_Load()
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
--
Cordialement,
Jacques.
LE TROLL a écrit :Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre particulière
ou une autre API ???
Pas sur d'avoir tout compris. Peut être ceci :
Option Explicit
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As
Long
Sub Form_Load()
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
--
Cordialement,
Jacques.
LE TROLL a écrit :
Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre particulière
ou une autre API ???
Pas sur d'avoir tout compris. Peut être ceci :
Option Explicit
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As
Long
Sub Form_Load()
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
--
Cordialement,
Jacques.
LE TROLL a écrit :
Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre particulière
ou une autre API ???
Pas sur d'avoir tout compris. Peut être ceci :
Option Explicit
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As
Long
Sub Form_Load()
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
--
Cordialement,
Jacques.
LE TROLL a écrit :Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre particulière
ou une autre API ???
Pas sur d'avoir tout compris. Peut être ceci :
Option Explicit
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As
Long
Sub Form_Load()
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
--
Cordialement,
Jacques.
LE TROLL a écrit :Bonjour,
A l'ouverture chat va, mais à la fermeture il n'est pas possible de
faire le contraire de l'ouverture, y aurait-il une manoeuvre particulière
ou une autre API ???
Pas sur d'avoir tout compris. Peut être ceci :
Option Explicit
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As
Long
Sub Form_Load()
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Long
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
--
Cordialement,
Jacques.
Jacques93 wrote:LE TROLL a écrit :
Hello Jacques,Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Jacques93 wrote:
LE TROLL a écrit :
Hello Jacques,
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Jacques93 wrote:LE TROLL a écrit :
Hello Jacques,Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Bonsoir jacques,
voici :
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Dim r As Long
Sub Form_Load()
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Sub Form_Terminate()
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
-------------------
Mais ça ne marche pas, car si c'est bon dans le load, ce n'est pas bon
dans dans le terminate (l'évènement est le bon), mais pas la commande.
Bonsoir jacques,
voici :
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Dim r As Long
Sub Form_Load()
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Sub Form_Terminate()
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
-------------------
Mais ça ne marche pas, car si c'est bon dans le load, ce n'est pas bon
dans dans le terminate (l'évènement est le bon), mais pas la commande.
Bonsoir jacques,
voici :
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Const AW_DURATION_DEFAULT = 200
Dim r As Long
Sub Form_Load()
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER)
End Sub
Sub Form_Terminate()
r = AnimateWindow(Me.hWnd, 2000, AW_CENTER Or AW_HIDE)
End Sub
-------------------
Mais ça ne marche pas, car si c'est bon dans le load, ce n'est pas bon
dans dans le terminate (l'évènement est le bon), mais pas la commande.
Jacques93 wrote:LE TROLL a écrit :
Hello Jacques,
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Jacques93 wrote:
LE TROLL a écrit :
Hello Jacques,
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Jacques93 wrote:LE TROLL a écrit :
Hello Jacques,
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Quand tu mets "OR" ça fait quoi, dans quelle condition la seconde
constante est choisie ?
Quand tu mets "OR" ça fait quoi, dans quelle condition la seconde
constante est choisie ?
Quand tu mets "OR" ça fait quoi, dans quelle condition la seconde
constante est choisie ?
Jean-marc a écrit :Jacques93 wrote:LE TROLL a écrit :
Hello Jacques,
Bonjour Jean-Marc,Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Oui, c'est plus complet que mon petit bout de code. Mais avec LE TROLL il
faut faire court ;-)
--
Cordialement,
Jacques.
Jean-marc a écrit :
Jacques93 wrote:
LE TROLL a écrit :
Hello Jacques,
Bonjour Jean-Marc,
Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Oui, c'est plus complet que mon petit bout de code. Mais avec LE TROLL il
faut faire court ;-)
--
Cordialement,
Jacques.
Jean-marc a écrit :Jacques93 wrote:LE TROLL a écrit :
Hello Jacques,
Bonjour Jean-Marc,Doc en anglais d'AnimateWindow :
<http://msdn.microsoft.com/en-us/library/ms632669(VS.85).aspx>
Et en complément ce petit exemple en VB qui reprend le tien:
http://binaryworld.net/Main/CodeDetail.aspx?CodeId655
Oui, c'est plus complet que mon petit bout de code. Mais avec LE TROLL il
faut faire court ;-)
--
Cordialement,
Jacques.
Merci Jacques (Jean-Marc aussi),
Ça marche, magnifique, mais ma difficulté venait, je viens de le
voir, du fait que ça s'exécute mal ou pas en interprétation, il faut
compiler (PC Vista 32)...
Le "OU" je ne comprends pas, je me souviens d'avoir appris un truc à
2 "ou" en tc3++, mais je n'ai jamais utilisé, alors je ne comprends pas
le mécanisme "ici" ?
Par exemple le ou classique, exclusif, qui exclut ceci ou cela : if x <
10 or x > 10 (seule le 10 passe, ça exclut le reste)...
Mais là, en fait ça veut dire : si 1 n'est pas ça alors fait 2 et si 2
n'est pas ça alors fait 3 ? Ou ça veut dire, fait un, puis 2 puis 3 ? Ou
encore : fait 1 et 2 et 3 ?
Et bien le OU de l'API il ferait quoi, peux-tu me l'expliquer par
d'autres signes ou un case, ce doit être faisable ?
Merci Jacques (Jean-Marc aussi),
Ça marche, magnifique, mais ma difficulté venait, je viens de le
voir, du fait que ça s'exécute mal ou pas en interprétation, il faut
compiler (PC Vista 32)...
Le "OU" je ne comprends pas, je me souviens d'avoir appris un truc à
2 "ou" en tc3++, mais je n'ai jamais utilisé, alors je ne comprends pas
le mécanisme "ici" ?
Par exemple le ou classique, exclusif, qui exclut ceci ou cela : if x <
10 or x > 10 (seule le 10 passe, ça exclut le reste)...
Mais là, en fait ça veut dire : si 1 n'est pas ça alors fait 2 et si 2
n'est pas ça alors fait 3 ? Ou ça veut dire, fait un, puis 2 puis 3 ? Ou
encore : fait 1 et 2 et 3 ?
Et bien le OU de l'API il ferait quoi, peux-tu me l'expliquer par
d'autres signes ou un case, ce doit être faisable ?
Merci Jacques (Jean-Marc aussi),
Ça marche, magnifique, mais ma difficulté venait, je viens de le
voir, du fait que ça s'exécute mal ou pas en interprétation, il faut
compiler (PC Vista 32)...
Le "OU" je ne comprends pas, je me souviens d'avoir appris un truc à
2 "ou" en tc3++, mais je n'ai jamais utilisé, alors je ne comprends pas
le mécanisme "ici" ?
Par exemple le ou classique, exclusif, qui exclut ceci ou cela : if x <
10 or x > 10 (seule le 10 passe, ça exclut le reste)...
Mais là, en fait ça veut dire : si 1 n'est pas ça alors fait 2 et si 2
n'est pas ça alors fait 3 ? Ou ça veut dire, fait un, puis 2 puis 3 ? Ou
encore : fait 1 et 2 et 3 ?
Et bien le OU de l'API il ferait quoi, peux-tu me l'expliquer par
d'autres signes ou un case, ce doit être faisable ?
Merci Jacques (Jean-Marc aussi),
Le "OU" je ne comprends pas, je me souviens d'avoir appris un truc
à 2 "ou" en tc3++, mais je n'ai jamais utilisé, alors je ne comprends
pas le mécanisme "ici" ?
Par exemple le ou classique, exclusif, qui exclut ceci ou cela : if x
< 10 or x > 10 (seule le 10 passe, ça exclut le reste)...
Mais là, en fait ça veut dire : si 1 n'est pas ça alors fait 2 et si
2 n'est pas ça alors fait 3 ? Ou ça veut dire, fait un, puis 2 puis 3
? Ou encore : fait 1 et 2 et 3 ?
Et bien le OU de l'API il ferait quoi, peux-tu me l'expliquer par
d'autres signes ou un case, ce doit être faisable ?
Merci Jacques (Jean-Marc aussi),
Le "OU" je ne comprends pas, je me souviens d'avoir appris un truc
à 2 "ou" en tc3++, mais je n'ai jamais utilisé, alors je ne comprends
pas le mécanisme "ici" ?
Par exemple le ou classique, exclusif, qui exclut ceci ou cela : if x
< 10 or x > 10 (seule le 10 passe, ça exclut le reste)...
Mais là, en fait ça veut dire : si 1 n'est pas ça alors fait 2 et si
2 n'est pas ça alors fait 3 ? Ou ça veut dire, fait un, puis 2 puis 3
? Ou encore : fait 1 et 2 et 3 ?
Et bien le OU de l'API il ferait quoi, peux-tu me l'expliquer par
d'autres signes ou un case, ce doit être faisable ?
Merci Jacques (Jean-Marc aussi),
Le "OU" je ne comprends pas, je me souviens d'avoir appris un truc
à 2 "ou" en tc3++, mais je n'ai jamais utilisé, alors je ne comprends
pas le mécanisme "ici" ?
Par exemple le ou classique, exclusif, qui exclut ceci ou cela : if x
< 10 or x > 10 (seule le 10 passe, ça exclut le reste)...
Mais là, en fait ça veut dire : si 1 n'est pas ça alors fait 2 et si
2 n'est pas ça alors fait 3 ? Ou ça veut dire, fait un, puis 2 puis 3
? Ou encore : fait 1 et 2 et 3 ?
Et bien le OU de l'API il ferait quoi, peux-tu me l'expliquer par
d'autres signes ou un case, ce doit être faisable ?