MONEY SYSTEM V1.0 ((BLOC NOTE, CONVERTISSEUR, CALCULETTE ))
microdav
Messages postés
46
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2007
-
28 juin 2002 à 15:12
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 31 mars 2003 à 21:46
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 31 mars 2003 à 21:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3803-money-system-v1-0-bloc-note-convertisseur-calculette
https://codes-sources.commentcamarche.net/source/3803-money-system-v1-0-bloc-note-convertisseur-calculette
31 mars 2003 à 21:46
31 mars 2003 à 21:46
17 janv. 2003 à 06:51
'Declarations Api & Constantes
'----- DEBUT Pour Enlever les boutons & mnu Fermer Agrandir Reduire
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 Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
'Api pour Enlever les bouton Max & Min
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 MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Private Const MF_BITMAP = &H4&
'Constantes enlever bouton min max
Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
'Private Const WS_CLOSEBOX = &H80000 'Enlève Croix et icone
Dim OptForm As Integer
'----- FIN Pour Enlever les boutons et menu Fermer Agrandir Reduire
Private Sub MDIForm_Load()
Dim nCount As Long
Dim hMenu As Long
Dim Bt As Long
hMenu = GetSystemMenu(hWnd, False)
nCount = GetMenuItemCount(hMenu)
RemoveMenu hMenu, nCount - 1, MF_BYPOSITION Or MF_REMOVE ' enleve du menu et met la Croix en Grisé
RemoveMenu hMenu, nCount - 2, MF_BYPOSITION Or MF_REMOVE ' Enleve la separation
' Enleve l'élément de menu Agrandir et met le bouton Agrandir en grisé
RemoveMenu hMenu, nCount - 3, MF_BYPOSITION Or MF_REMOVE
' Enleve la possibilité de diminuer la form avec la souris
RemoveMenu hMenu, nCount - 4, MF_BYPOSITION Or MF_REMOVE
' Enleve la possibilité d'agrandir la form avec la souris
RemoveMenu hMenu, nCount - 5, MF_BYPOSITION Or MF_REMOVE
' Enleve l'élément de menu Restaurer
RemoveMenu hMenu, nCount - 7, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Me.hWnd
Bt = GetWindowLong(Me.hWnd, GWL_STYLE)
Bt = Bt And Not (WS_MAXIMIZEBOX)
Bt = Bt And Not (WS_MINIMIZEBOX)
Bt = Bt And Not (WS_CLOSEBOX)
Bt = SetWindowLong(Me.hWnd, GWL_STYLE, Bt)
Me.Height = 11640
Me.Width = 15390
ChDir App.Path
GetRecentFiles
optDirection(gFindDirection).Value = 1
End Sub
Private Sub MDIForm_Resize()
'
If OptForm = 1 Then Exit Sub
Me.WindowState = vbNormal
End Sub
Private Sub Label6_Click()
OptForm = 1
Me.WindowState = vbMinimized
End Sub
C'est mieux il n'y a plus que la croix grisé et form fixe !
Je ne sais pas si je devais mettre ca ici ? excuser moi sinon.
17 janv. 2003 à 05:32
ceci juste pour exemple :)
dans MDIForm1 :
'----- DEBUT Pour Enlever les boutons et menu Fermer Agrandir Reduire
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 Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Private Const MF_BITMAP = &H4&
Dim OptForm As Integer
'----- FIN Pour Enlever les boutons et menu Fermer Agrandir Reduire
Private Sub MDIForm_Load()
Dim nCount As Long
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, False)
nCount = GetMenuItemCount(hMenu)
' Menu nCount base sur 0 (0, 1, 2, 3...)
RemoveMenu hMenu, nCount - 1, MF_BYPOSITION Or MF_REMOVE ' enleve du menu et met la Croix en Grisé
RemoveMenu hMenu, nCount - 2, MF_BYPOSITION Or MF_REMOVE ' Enleve la separation
' Enleve l'élément de menu Agrandir et met le bouton Agrandir en grisé
RemoveMenu hMenu, nCount - 3, MF_BYPOSITION Or MF_REMOVE
' Enleve la possibilité de diminuer la form avec la souris
RemoveMenu hMenu, nCount - 4, MF_BYPOSITION Or MF_REMOVE
' Enleve la possibilité d'agrandir la form avec la souris
RemoveMenu hMenu, nCount - 5, MF_BYPOSITION Or MF_REMOVE
' Enleve l'élément de menu Restaurer
RemoveMenu hMenu, nCount - 7, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Me.hWnd
Me.Height = 11640
Me.Width = 15390
.....
Et quelque texte dans les forms à voir
17 janv. 2003 à 03:34
et Label5 et 6 ne servent a rien car les boutons Agrandir et la Croix sont present dans la barre du haut
2 erreurs trouvé :
1) dans MDIForm1
Private Sub Label11_Click()
If Form6.WindowState = vbMinimized Then 'si la fenêtre est réduite
Form6.WindowState = vbNormal 'alors elle retourne dans son état initial
Form6.Visible = True
End If
Form6.Refresh 'rechargement
End Sub'Fom7 n'existe pas
2) dans Form4
rajout
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.WindowState = 2 Then Exit Sub' ceci
29 juin 2002 à 14:24
28 juin 2002 à 22:53
28 juin 2002 à 16:33
28 juin 2002 à 15:12
Source sympa pour les débutants don-t je fais partie !!! Quelques bugs restent tout de même à corriger... 8/10