begin process at 2012 02 16 15:57:59
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > ENLEVER L'EFFET FOCUS SUR LES BOUTONS

ENLEVER L'EFFET FOCUS SUR LES BOUTONS


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Niveau :Débutant Date de création :20/06/2002 Date de mise à jour :20/06/2002 20:32:22 Vu :3 659

Auteur : VicoLaChips2

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Ce code n'est pas de moi :)

Pour éviter les pointillés autour des boutons quand on clique dessus.
Auteur : Philipp Weidmann

usage : NoFocusRect cmdMonbouton, True

true = pas de pointillés
false = des pointillés

@+

Source

  • 'API Declarations
  • Private Declare Function SetWindowLong Lib "user32" _
  • Alias "SetWindowLongA" (ByVal hWnd As Long, _
  • ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  • Private Declare Function GetWindowLong Lib "user32" _
  • Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  • Private Declare Function CallWindowProc Lib "user32" _
  • Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
  • ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
  • ByVal lParam As Long) As Long
  • 'Constantes
  • Private Const GWL_WNDPROC = (-4)
  • Private Const WM_SETFOCUS = &H7
  • 'Variables
  • Public StandardButtonProc As Long
  • Public Sub NoFocusRect(Button As Object, vValue As Boolean)
  • If vValue = True Then 'le carré est visible
  • 'sauvegarde l'adresse de la procedure du bouton
  • StandardButtonProc = GetWindowLong(Button.hWnd, GWL_WNDPROC)
  • 'Subclass le bouton pour controler ces messages windows
  • SetWindowLong Button.hWnd, GWL_WNDPROC, AddressOf ButtonProc
  • Else 'le carré est pas visible
  • 'enleve le subclass du bouton
  • SetWindowLong Button.hWnd, GWL_WNDPROC, StandardButtonProc
  • End If
  • End Sub
  • Public Function ButtonProc(ByVal hWnd As Long, _
  • ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  • 'la procédure qui reçoit tous les messages de windows
  • 'pour le subclassing du bouton
  • On Error Resume Next
  • Select Case uMsg&
  • 'Le bouton va recevoir le focus
  • Case WM_SETFOCUS
  • 'sort de la procédure -> le message n'atteind pas le bouton
  • Exit Function
  • End Select
  • 'appel la procédure standard du bouton
  • ButtonProc = CallWindowProc(StandardButtonProc, hWnd&, uMsg&, wParam&, lParam&)
  • End Function
'API Declarations
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CallWindowProc Lib "user32" _
Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long

'Constantes
Private Const GWL_WNDPROC = (-4)
Private Const WM_SETFOCUS = &H7

'Variables
Public StandardButtonProc As Long

Public Sub NoFocusRect(Button As Object, vValue As Boolean)
    If vValue = True Then 'le carré est visible
        'sauvegarde l'adresse de la procedure du bouton
        StandardButtonProc = GetWindowLong(Button.hWnd, GWL_WNDPROC)
        'Subclass le bouton pour controler ces messages windows
        SetWindowLong Button.hWnd, GWL_WNDPROC, AddressOf ButtonProc
    Else 'le carré est pas visible
        'enleve le subclass du bouton
        SetWindowLong Button.hWnd, GWL_WNDPROC, StandardButtonProc
    End If
End Sub

Public Function ButtonProc(ByVal hWnd As Long, _
ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'la procédure qui reçoit tous les messages de windows
    'pour le subclassing du bouton
    On Error Resume Next
    Select Case uMsg&
        'Le bouton va recevoir le focus
        Case WM_SETFOCUS
        'sort de la procédure -> le message n'atteind pas le bouton
        Exit Function
    End Select
    'appel la procédure standard du bouton
    ButtonProc = CallWindowProc(StandardButtonProc, hWnd&, uMsg&, wParam&, lParam&)
End Function



 Sources du même auteur

Source avec Zip UN DATASET SOUS VB6
Source avec Zip Source avec une capture MASQUE DE SAISIE DATE QUI AFFICHE LE MASQUE.
MACROS EXCEL POUR LES FICHIERS CSV
Source avec Zip TEMPS PENDANT LEQUEL L'ORDINATEUR EST ALLUMÉ.
Source avec Zip FONCTION REPLACE POUR ACCESS 97 AUSSI PERFORMANTE QUE REPLAC...

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami

Commentaires et avis

Commentaire de OphidiaN le 21/06/2002 12:13:30

Très bien ;-)

Commentaire de archange77 le 21/06/2002 16:24:01

est ce que ton trojan est connu ?????
qu'est ce que ça fait si on clic deux fois sur ton trojan juste pour le tester ????
merçi@@++

Commentaire de legear le 25/01/2005 14:37:40

excusez moi je suis débutant et je n'arrive pas a faire marcher cette source ! aidez moi please !

Commentaire de mySQL15 le 21/11/2007 14:05:04

queceque tu chie avec ton trojan  Archange77 ?!

Commentaire de JLN le 29/05/2008 11:48:33

Très bien ce code, moi j'utilisais un contournement jusque là dans le mouseup qui consistait à donner le focus à un autre controle.

Bonne prog,

Commentaire de anouar1991 le 23/09/2008 00:19:14

c bien cette source de trojan

Commentaire de anouar1991 le 23/09/2008 00:21:22

je ve le code source  de prorat 1.9 /s'il n ya  quelque peux  m'aidez  vous envoyer amoi  la source  a mon  email      king27@live.fr

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,045 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales