Album photos

Télécharger le projet
Commenter

Description

une application pour enregistrer vos photos puis les regarder avec des musiques midi
cette application avec source utilise une base de données access

Source / Exemple : 


Option Explicit
Dim Y As Integer
Dim t As Integer
Dim SmartSize As Object
Public ShowOrEdit As Boolean
Dim MaxAtStart As Boolean
Dim ValidDB As Boolean
Dim blnTempSCAll As Boolean

Private Sub aa_Click(Index As Integer)
frmTip.Show
End Sub

Private Sub bg_Click(Index As Integer)

End Sub

Private Sub cmdEdit_Click()
    ShowOrEdit = True
    Call mnuEditName_Click
End Sub

Private Sub cmdMenu_Click(Index As Integer)
    On Error Resume Next

    Select Case Index
        Case 0
            mnuAdd_Click
        Case 1
            mnuDelete_Click
        Case 2
            mnuSave_Click
        Case 3
            mnuCreate_Click
        Case 4
            mnuCompact_Click
        Case 5
            mnuBackUp_Click
        Case 6
            mnuRestore_Click
        Case 7
            mnuRefresh_Click
        Case 8
            mnuInfo_Click
        Case 9
            mnuExit_Click
        Case 10
            mnuNewCat_Click
        Case 11
            mnuRemove_Click
        Case 12
            menuOpenData_Click
        Case 13
            mnuSaveAs_Click
        Case Else
            Call Set_Fonts(False)
    End Select

End Sub

Private Sub cmdMenu_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next

    Select Case Index
        Case 0
            Call Set_Fonts(True)
            bg(3).Caption = "Add Picture or Set of Pictures"

        Case 1
            Call Set_Fonts(True)
            bg(3).Caption = "Delete File or Sets of Files"

        Case 2
            Call Set_Fonts(True)
            bg(3).Caption = "Extract Selected File or Selected Sets of Files"

        Case 3
            Call Set_Fonts(True)
            bg(3).Caption = "Creates New Database"
        Case 4
            Call Set_Fonts(True)
            bg(3).Caption = "Compact the The Database"
        Case 5
            Call Set_Fonts(True)
            bg(3).Caption = "Create Backup Copy of The Orignal Database"
        Case 6
            Call Set_Fonts(True)
            bg(3).Caption = "Restore The Database From The Backup Copy"
        Case 7
            Call Set_Fonts(True)
            bg(3).Caption = "Refresh the List of Files"
        Case 8
            Call Set_Fonts(True)
            bg(3).Caption = "Get the Database Information"
        Case 9
            Call Set_Fonts(True)
            bg(3).Caption = "Exit The Program"
        Case 10
            Call Set_Fonts(True)
            bg(3).Caption = "Create A New Collection Category"
        Case 11
            Call Set_Fonts(True)
            bg(3).Caption = "Remove A Collection Category - All Included Pictures Will be Removed"
        Case 12
            Call Set_Fonts(True)
            bg(3).Caption = "Open Existing Database"
        Case 13
            Call Set_Fonts(True)
            bg(3).Caption = "Save This Database to a New Location"

        Case Else
            Call Set_Fonts(False)
    End Select

    If X > cmdMenu(Index).Width Or X < 0 Or _
            Y > cmdMenu(Index).Height Or Y < 0 Then Call Set_Fonts(False)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (E2rabi2015)