rendre invisible un bouton dans un formulaire word

Question

Bonjour &#224; tous, 

   J'ai cr&#233;e un formulaire word qui contient un bouton; Lorsque que l'utilisateur appuie sur celui-ci, il fait une action et doit devenir invisible. J'ai essay&#233; ceci : 
               NomBouton.Visible = False 
mais l'erreur 438 (propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233;e par cet objet) est g&#233;n&#233;r&#233;e. J'ai &#233;galement essay&#233; de mettre l'&#233;criture en blanc ainsi que le fond du bouton mais le cadre reste quoique j'y fasse.

Merci pour votre aide.

cs_Tene · Answer

slt,

je ne comprends pas ton pb parce que je viens d'essayer un truc tt simple :

Private Sub CommandButton1_Click()
    CommandButton1.Visible = False
End Sub

et mon bouton dispara&#238;t instantan&#233;ment...

a tu regard&#233; &#224; la propri&#233;t&#233; backcolor de ton bouton??

&#224; ta place, j'effacerais ce bouton et je tenterais d'en recr&#233;er un autre pour voir... parce que l&#224;, y'a pas de raison...

a+, bon courage

pocahontas5 · Answer

Bonjour, 

Merci pour votre aide mais malheureusement ce n'est pas si simple, le probl&#232;me est que la m&#233;thode visible n'est pas disponible si je l'utilise, une erreur est g&#233;n&#233;r&#233;e et dit que cet objet ne g&#232;re pas cette m&#233;thode. J'ai essay&#233; aussi de recr&#233;er un autre document word et de refaire un bouton mais j'ai le m&#234;me probl&#232;me et &#231;a fait plusieurs jours que je cherche.

Merci.

pocahontas5 · Answer

Merci pour l'aide mais le probl&#232;me est que la m&#233;thode visible n'est pas accept&#233;e chez moi.


J'ai trouv&#233; une autre solution : r&#233;duire la taille des boutons mais je vais encore chercher.


 


Merci

CCJ · Answer

Peut - tu recuperer le Handle de l'objet en question?
Si oui tu pouarrait le rendre invisible a la "barbare" avec


Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
(ByVal hWnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private hwnd1 As Long


Public Sub MakeWindowTransparent(ByVal hWnd As Long, ByVal alphaAmount As Byte)
Dim lStyle As Long
lStyle = GetWindowLong(hWnd, GWL_EXSTYLE)
lStyle = lStyle Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, lStyle
SetLayeredWindowAttributes hWnd, 0, alphaAmount, LWA_ALPHA
End Sub



et tu met dans ton code apres le click 
Call MakeWindowTransparent(Hwnd,0)
VirusMan
une id&#233;e est un chose ,la dire en est une autre

VirusMan
une id&#233;e est un chose ,la dire en est une autre

pocahontas5 · Answer

Merci

Rendre invisible un bouton dans un formulaire word

5 réponses

Discussions similaires