Title bar

Question

Existe t-il un moyen de desactiver ou mieux, suprimer la croix qui se trouvent dans le title bar de ma form tout en laissant activer la fonction Unload me

Renfield · Answer

Ilm te suffit de mettre la propriete ControlBox de ta Form a True

Ca enleve les trois boutons de la barre de titre, par contre !! la Seule alternative serait de desactiver juste la crois...

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

ralf19b3 · Answer

Merci de l'astuce

Majbour · Answer

Tu mets ça :

Private Sub Form_Unload(Cancel As Integer)
    Cancel = 1
End Sub

Et elle est désactivée. (je veux dire, activée mais non fonctionnelle : ne marche pas même si tu cliques dessus).

 ;) 

[mailto:amajbour@hotmail.com Majbour]

Renfield · Answer

Et comment tu fais un Unload de ta Form  ???

Il faudrais plutôt faire ca !!


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    If UnloadMode vbUser Then Cancel 1
End Sub


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Majbour · Answer

Et pourquoi ne pas utiliser un message de confirmation :


Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Êtes-vous sur de vouloir Fermer ?", vbYesNo + vbQuestion) = vbYes then
Unload me
else
Cancel = 1
end if
End Sub


Comme ça on pourrait confirmer si l'on veut Fermer ou non.

 ;) 

[mailto:amajbour@hotmail.com Majbour]

Renfield · Answer

Oui, bien sur, on peut le faire.

Cependant, tu as mis Unload Me, dans ton code, et ca ne sers strictement a rien !!

si tu n'annule pas ce decharge le formulaire de toute facon !!

je ne suis toujours pas partisan pour l'utilisation de Form_Unload.

en effet, si dans ton code tu veux faire un "Unload Me", tu recevra quoi qu'il arrive une demande de confirmation, ce n'est pas assez flexible......

dans QueryUnload, un parametre precise qui estt a l'origine de la demande de dechargement ( le user, le code ou le gestionnaire de taches...)

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Majbour · Answer

Tout à fait d'accord avec toi Renfield et merci, moi ce que je voulais faire c'était de montrer à ralf19b3 comment faire pour désactiver le fonctionnement de la croix de fermeture de la feuille.

NB : D'ailleur j'ai déjà travaillé avec QueryUnload.

Et merci encore.

 ;) 

[mailto:amajbour@hotmail.com Majbour]

Renfield · Answer

Tu peux aussi desactiver purement et simplement ton bouton :



'# Dans un module
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&

'# Permet d'enlever certains elements du menu systeme, ce qui influe sur la possibilité de cliquer sur la croix....
Public Sub RemoveCloseButton(Form As Form)
    Dim hMenu As Long, nCount As Long
    hMenu = GetSystemMenu(Form.hwnd, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION) '# On enleve le mmenu Fermer
    Call RemoveMenu(hMenu, nCount - 2, MF_DISABLED Or MF_BYPOSITION) '# On enleve le separateur
End Sub

'# Dans ta form
Private Sub Form_Load()
    RemoveCloseButton Me
End Sub

Private Sub Form_click()
    Unload Me
End Sub



By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_DreDD · Answer

Comment on met le lag (kon a)dans la title bar g besoins d aide merci :))

nathan.gregoire@laposte.net

Title bar

9 réponses

Discussions similaires