pb de forms sous vba Excel

Question

Salut à tous !! 

Bon ben voilà je me suis mis à Vba, il y a maintenant quelques mois et je recherche desesperement à interagir sur certains boutons que l'on peut controler sous VB. 
Pour rentrer dans les détails j'aimerais savoir si il est possible de controler ( faire apparaitre et disparaitre ) les boutons MinButton et MaxButton qui existe pour les fenetres Visual Basic 6.0 dans les UsersForms de vba.
J'aimerais aussi savoir si il est possible de mettre en état enabled la croix de fermeture d'une fenetre.

voilà je pense que je vais pas vous embeter plus avec mes pb et remercie d'avance ceux qui passeront du temps sur ce petit problème. 
( J'ai pas reussi à trouver la moindre aide dans les bouquins et ça commence à me desesperer un peu )

Merci d'avance  :big)

cs_Kadra · Answer

oui, on peut mais, je ne maitrise pas encore le sujet

KaDrA

cs_Kadra · Answer

'je ne ma&#238;trise pas mais ce code fait appara&#238;tre le bouton de reduction et max dans un 'userform, ajoute ceci dans un userforme et mets un togglebutton pour la demo
Option Explicit


Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


Private PreviousState As Long
Private Hwnd As Long
Private Const USFClass As String = "ThunderDFrame"


Private Const GWL_STYLE = (-16)


'MIN & MAX
Private Sub ToggleButton1_Click()
Hwnd = FindWindowA(USFClass, Me.Caption)
Select Case ToggleButton1.Value
    Case True
        PreviousState = SetWindowLongA(Hwnd, GWL_STYLE, GetWindowLongA(Hwnd, GWL_STYLE) Or &H30000)
    Case False
        PreviousState = SetWindowLongA(Hwnd, GWL_STYLE, GetWindowLongA(Hwnd, GWL_STYLE) Xor &H30000)
    End Select
  Me.Hide: Me.Show
End Sub


Private Sub UserForm_Initialize()
  Me.Top = Application.Top
  Me.Left = Application.Left
  Hwnd = FindWindowA(USFClass, Me.Caption)
End Sub

'KaDrA

Pb de forms sous vba Excel

2 réponses

Discussions similaires