Money system v1.0 ((bloc note, convertisseur, calculette ))

Soyez le premier à donner votre avis sur cette source.

Vue 5 295 fois - Téléchargée 465 fois

Description

Money System est une suuite logiciel comportant un bloc note similaire a Note pad; un convetisseur convertissant des valeurs en Francs, Euros, Yen ou en Dollar en Francs, en Euros, en Yen et en Dollar et une calculatrice avec raccourci sur le pavé numérique sauf pour la fonction "del" et "égale".

Source / Exemple :


'voisi le code des raccourcis clavier de la calculette remplacer les number_click etc...par votre code

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode < &H60 And KeyCode > &H6F Then Exit Sub
 Select Case KeyCode
  Case &H60
Number_Click (0)
  Case &H61
Number_Click (1)
  Case &H62
Number_Click (2)
  Case &H63
Number_Click (3)
  Case &H64
Number_Click (4)
  Case &H65
Number_Click (5)
  Case &H66
Number_Click (6)
  Case &H67
Number_Click (7)
  Case &H68
Number_Click (8)
  Case &H69
Number_Click (9)
  Case &H6A
Operator_Click (2)
  Case &H6B
Operator_Click (1)
  Case &H6C
Operator_Click (4)
  Case &H6D
Operator_Click (3)
  Case &H6E
Decimal_Click
  Case &H6F
Operator_Click (0)
end select
  If KeyCode > &H2E Then Exit Sub
 Select Case KeyCode
   Case &H2E
   Labelce_Click
 End Select
 End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
En effet beau desgin ! Merci à toi pour le prog ! 8/10
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
En effet beau desgin ! Merci à toi pour le prog ! 8/10
cs_claudetom
Messages postés
115
Date d'inscription
jeudi 11 octobre 2001
Statut
Membre
Dernière intervention
15 octobre 2012
-
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.
cs_claudetom
Messages postés
115
Date d'inscription
jeudi 11 octobre 2001
Statut
Membre
Dernière intervention
15 octobre 2012
-
J'ai ajouté ceci car n'arrive pas à enlevé les 2 autre boutons ?
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
cs_claudetom
Messages postés
115
Date d'inscription
jeudi 11 octobre 2001
Statut
Membre
Dernière intervention
15 octobre 2012
-
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.