Discussion :

[salimo79]

salut,
comment clignoter 3 fois le titre de la fenetre(caption) dans la barre des taches seulement et non pas la fenetre en vb6 en execution?
pour connaissance, j'ai utilisé la fonction API flash window mais le resultat est que le le caption et la fenetre clignotent et je veux que le caption de la fenetre clignote seulement dans la barre des taches de windows en execution.

[OhMonBato]

Bonjour,
j'avoue ignorer s'il y a une solution à ton problème mais je ne comprends pas trop l'intérêt de ta démarche. Faire clignoter une fenêtre ou son icone dans la barre des taches est fait pour attirer l'attention de l'utilisateur. En quoi est-ce gênant de faire clignoter la fenêtre ?
De plus, si je ne dis pas de bêtise, si ta fenêtre n'est pas minimisée et que ta barre des tâches est masquée, tu ne verras rien clignoter si jamais tu arrives à tes fins.

[salimo79]

maerci mon ami mais est ce qu'il ya une solution?

[babaothe]

salut

je n'ai pas VB6 sous la main à l'instant, mais de mémoire :

Transformer cette ligne de ton code (que tu ne montres pas !) ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.....
    FlashInfo.dwFlags = &H2 Or &H4 ' <<<<<====== C'est ici, que tu dois modifier 
 .....

(là où, dans ton code, tu as probablement quelque chose ressemblant à FlashInfo.dwFlags = FLASHW_ALL Or FLASHW_TIMER)
tu dis

EDSIT (et pour le cas où) :
tu dois avoir bien entendu déclaré une structure de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Type FLASHWINFO
    cbSize As Long
    hwnd As Long
    dwFlags As Long
    uCount As Long
    dwTimeout As Long
End Type

[OhMonBato]

Sacré mémoire ! Mais effectivement avec l'aide de l'APIGuide j'ai trouvé la fonction FlashWindowEx et pour ne faire flasher que le bouton de la barre des taches tu peux coder comme celà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Type FLASHWINFO
    cbSize As Long
    hwnd As Long
    dwFlags As Long
    uCount As Long
    dwTimeout As Long
End Type
Private Declare Function FlashWindowEx Lib "user32" (pfwi As FLASHWINFO) As Boolean
Private Sub Command1_Click()
Dim FlashInfo As FLASHWINFO
'Spécifie la taille de la structure FlashInfo
FlashInfo.cbSize = Len(FlashInfo)
'Spécifie le type de flash
FlashInfo.dwFlags = 2 'Pour ne faire flasher que le bouton dans la barre des tâches
'Pour spécifier l'intervalle de temps en millisecondes
FlashInfo.dwTimeout = 200
FlashInfo.hwnd = Me.hwnd
'spécifie le nombre de flashs
FlashInfo.uCount = 4
FlashWindowEx FlashInfo
End Sub

[babaothe]

re
il faut dire, à la décharge de salimo79, que ce que l'on trouve dans API-Viewver est assez incomplet, tout aussi incomplet que l'exemple fort succinct que l'on y trouve, à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'In general section
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const Invert = 1
 
Private Sub Timer1_Timer()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
 
    'Flash the window
    FlashWindow Me.hwnd, Invert
End Sub
 
Close this window

(ce qui est plutôt "minimaliste"

[salimo79]

salut,
comment clignoter 3 fois le titre de la fenetre(caption) dans la barre des taches seulement et non pas la fenetre en vb6 en execution?
pour connaissance, j'ai utilisé la fonction API flash window mais le resultat est que le le caption et la fenetre clignotent et je veux que le caption de la fenetre clignote seulement dans la barre des taches de windows en execution.

[OhMonBato]

Je te conseille vivement de télécharger l'API-Guide que tu peux trouver ici.
Tu y trouveras des exemples et instructions sur plusieurs API.
Pour ce que tu veux faire, il suffit de modifier le code que je te donnais plus haut en modifiant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'Spécifie le type de flash
FlashInfo.dwFlags = 2

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'Spécifie le type de flash
FlashInfo.dwFlags = 1

Si cela te convient, merci de cliquer sur le bouton "Résolu" en bas de cette page.