molbento
Messages postés35Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention23 mai 2007
-
30 avril 2007 à 11:30
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 2014
-
30 avril 2007 à 15:19
Bonjour je développe en visual basic 6 et j'ai un ptetit problème. Je souhaiterais interdir le redimensionnement de ma fenetre MDI pour cela j'ai bloquer l'icone d'agrandissement icone en haut a droite de ma feuille. Mais l'utilisateur peut toujours modifier la taille de la fenetre grace a la souris ou même en cliquant sur l'image de l'application en haut a gauche de la form et agrandir celle ci avec le bouton agrandir qui n'est pas désactiver lui quelqu'un pourrait-il m'aidre merci d'avance
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 30 avril 2007 à 12:04
Bonjour
Ouais.. dur dur, l'affaire ....
On pourrait bien sur jouer avec un timer et le resize, mais l'histoite scintillerait !...
Alors ?
On va faire un peu joujou avec le menu de ta MdiForm ...
Colle-lui ce code :
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 DrawMenuBar Lib "user32" (ByVal hwnd 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 Sub mdiForm_Load()
Dim couic As Long, nCnt As Long
couic = GetSystemMenu(Me.hwnd, False)
If couic Then
nCnt = GetMenuItemCount(couic)
If nCnt Then
For i = 0 To 4
RemoveMenu couic, i, &H400& Or &H1000&
Next
DrawMenuBar Me.hwnd
End If
End If
End Sub