Remplacer le bouton ? [Résolu]

Signaler
Messages postés
151
Date d'inscription
samedi 17 juillet 2004
Statut
Membre
Dernière intervention
11 mai 2012
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
C'est très urgent svp.

je suis bloqué dans une partie, voila mon pblm
j'ai un form que j'ai mis les propriétés :

BorderStyle = none
clipControls = false
ControlBox = false
Max et Min = False
WhatsThisButton =true
WhatsThisHelp=true

Je veux remplacer le bouton ? par un autre bouton qui possède la même fonction que bouton ? qui devient non visible quand je mis borderStyle = none.
Donc svp la commande que lors je clique sur un bouton exp : command1
m'affiche le curseur avec interrogation comme si j'ai cliquer sur le bouton ?
merci d'avance.
aidez moi svp.

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
pour simuler un click sur le bouton d'aide contextuel, tu peux faire :

Private Const SC_CONTEXTHELP As Long = &HF180&
Private Const WM_SYSCOMMAND As Long = &H112

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub CcBtnHelp_Click()
    SendMessage Me.hwnd, WM_SYSCOMMAND, SC_CONTEXTHELP, ByVal 0&
End Sub

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
107
Remplace le pointeur de souris dans le Screen.MousePointer par le pointeur que tu veux...

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>