MONEY SYSTEM V1.0 ((BLOC NOTE, CONVERTISSEUR, CALCULETTE ))

Commentaire de microdav le 28/06/2002 15:12:36

Très belle interface...
Source sympa pour les débutants don-t je fais partie !!! Quelques bugs restent tout de même à corriger... 8/10

Commentaire de vampiiire le 28/06/2002 22:53:33

Oula mais c beauuuuu !!!!!

Commentaire de claudetom le 17/01/2003 03:34:55

Superbe la presentation !!!! BRAVO
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

Commentaire de claudetom le 17/01/2003 06:51:22

Encore une Modif Cool !! dans MONEY SYSTEM V1.0
'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.