Soyez le premier à donner votre avis sur cette source.
Vue 6 790 fois - Téléchargée 482 fois
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 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 BM_SETIMAGE = &HF7 Const Delay = 15 Const BM_SETIMAGE = &HF7 Dim Stbutt As Long 'Exécuter le code GetStButt PostMessage Stbutt, BM_SETIMAGE,0,Picturebox1.Picture.Handle '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
Au fait, neo2097 pour les API: www.AllAPI.net
:-)
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+
Le seul problème c qu'on peut pas remttre l'ancien..
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.