KL
-
19 mai 2001 à 23:14
Noiretulipe
Messages postés164Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention13 juillet 2008
-
7 févr. 2003 à 16:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Comment vous trouvez les bons api au bon moment, moi je n'est pas de liste d'api ni de descriptions de fonctions. Ou puis-je trouver une liste des fonctions Api. Merci
==========================
SA MARCHE LE CODE JE M'EN SERT POUR CHANGER MON BOUTON A CHAQUE DÉMARRAGE
==========================
Si vous arrêter le prog vous perder votre image de démarrer mais c'est pas grave en redémarrant vous la retrouver pis vous avez juste a mettre sa dans la barre des tâche pis si vous prenez le zip vous aurez un mouseover
'Il faut : -1 Form (peu importe le nom)
' -1 PictureBox ('Picture1')(le nom d'origine, quoi)
' -1 Bouton ('Command1')(idem)
'
'C'est la version legerement corrigée
'il y avait quelques lignes en double
'sinon c cool, ca fonctionne bien.
'Un truc marrant, quand l'appli se
'ferme, le bouton demarrer n a plus
'd'images, mais le quadrillage de la
'grille de vb...
'
'------DEBUT DU CODE-------
'
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Const GW_NEXT = 2
Const GW_CHILD = 5
Const Delay = 15
Const BM_SETIMAGE = &HF7
Dim Stbutt As Long
'Autre fonctions
Sub GetStbutt()
Dim dt, hwnda As Long
Dim clstr As String * 14
dt = GetDesktopWindow()
hwnda = GetWindow(dt, GW_CHILD)
Do While hwnda <> 0
GetClassName hwnda, clstr, 14
If Left(clstr, 13) = "Shell_TrayWnd" Then
hwnda = GetWindow(hwnda, GW_CHILD)
Do While hwnda <> 0
GetClassName hwnda, clstr, 7
If Left(clstr, 6) = "Button" Then
Stbutt = hwnda
Exit Sub
End If
hwnda = GetWindow(hwnda, GW_NEXT)
Loop
End If
hwnda = GetWindow(hwnda, GW_NEXT)
Loop
End Sub
Private Sub Command1_Click()
'ces deux lignes executent le code
GetStbutt
PostMessage Stbutt, BM_SETIMAGE, 0, Picture1.Picture.Handle
End Sub
'voila tout
'c'est fini
'faudrait essayer de faire une image
'qui soit la copie du bouton demarrer d'origine
'et executer le code avec cette image la dans
'form.unload mais je sais pas si ca va marcher...
'nan d'ailleurs, ca marche pas...
7 févr. 2003 à 16:30
22 août 2002 à 10:39
Au fait, neo2097 pour les API: www.AllAPI.net
:-)
8 janv. 2002 à 17:44
Allez maintenant fo se mettre à développer un concurrent pour les softs comme Window Blinds... Et refaire toute l'interface de Windows !
Je met 8 !
A+
1 août 2001 à 12:50
Le seul problème c qu'on peut pas remttre l'ancien..
17 juil. 2001 à 20:15
15 juil. 2001 à 23:30
20 juin 2001 à 19:28
7 juin 2001 à 01:38
SA MARCHE LE CODE JE M'EN SERT POUR CHANGER MON BOUTON A CHAQUE DÉMARRAGE
==========================
Si vous arrêter le prog vous perder votre image de démarrer mais c'est pas grave en redémarrant vous la retrouver pis vous avez juste a mettre sa dans la barre des tâche pis si vous prenez le zip vous aurez un mouseover
2 juin 2001 à 12:53
2) Ca marche pas !!!
31 mai 2001 à 03:43
31 mai 2001 à 03:36
Je vais lui mettre un ZIP, jésitait un peu sa vient de planetsourcecode.com et j'ai enlever les commentaires
ZIP bientôt @+
31 mai 2001 à 03:34
19 mai 2001 à 23:14
14 mai 2001 à 04:25
13 mai 2001 à 03:00
13 mai 2001 à 02:57
' -1 PictureBox ('Picture1')(le nom d'origine, quoi)
' -1 Bouton ('Command1')(idem)
'
'C'est la version legerement corrigée
'il y avait quelques lignes en double
'sinon c cool, ca fonctionne bien.
'Un truc marrant, quand l'appli se
'ferme, le bouton demarrer n a plus
'd'images, mais le quadrillage de la
'grille de vb...
'
'------DEBUT DU CODE-------
'
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Const GW_NEXT = 2
Const GW_CHILD = 5
Const Delay = 15
Const BM_SETIMAGE = &HF7
Dim Stbutt As Long
'Autre fonctions
Sub GetStbutt()
Dim dt, hwnda As Long
Dim clstr As String * 14
dt = GetDesktopWindow()
hwnda = GetWindow(dt, GW_CHILD)
Do While hwnda <> 0
GetClassName hwnda, clstr, 14
If Left(clstr, 13) = "Shell_TrayWnd" Then
hwnda = GetWindow(hwnda, GW_CHILD)
Do While hwnda <> 0
GetClassName hwnda, clstr, 7
If Left(clstr, 6) = "Button" Then
Stbutt = hwnda
Exit Sub
End If
hwnda = GetWindow(hwnda, GW_NEXT)
Loop
End If
hwnda = GetWindow(hwnda, GW_NEXT)
Loop
End Sub
Private Sub Command1_Click()
'ces deux lignes executent le code
GetStbutt
PostMessage Stbutt, BM_SETIMAGE, 0, Picture1.Picture.Handle
End Sub
'voila tout
'c'est fini
'faudrait essayer de faire une image
'qui soit la copie du bouton demarrer d'origine
'et executer le code avec cette image la dans
'form.unload mais je sais pas si ca va marcher...
'nan d'ailleurs, ca marche pas...
12 mai 2001 à 04:51