Les applications MDI - VideoK7

Jeudi 15 juillet 2004

Gilmir  -  Langlade Informatique

Exercice 11  La feuille "Tools.bas"  -  saisie du code Les structures de la base de données avec le fichier Tools.bas Vous créer à partir de la barre de menus et à l'étiquette "Projet"/"Ajouter un module" un module "Module2.bas" que vous renommez immédiatement en "Tools.bas". Dans ce module nous saisissons toutes les instructions et procédures se rapportant à notre programme. Ce programme a été réalisé depuis le livre de Stéphan Dietrich écrit sous Visual Basic 3.0 En "Général" - "Déclarations" nous écrivons : 'Nom de l'application Global Const APPNAME = "Vidéo_K7 V 1.0 ©1995 Stefan Dietrich" Global Const AppDir = "C:\Video_K7" 'Programme Vidéo_K7 transcrit de VB3.0 à VB6.0 par Gilbert Miralles 30980 Langlade France 'Section fichier d'aide Windows API Global Const HELP_CONTEXT = &H1 ' Display topic dans ulTopic Global Const HELP_QUIT = &H2 ' Quitter l'aide Global Const HELP_INDEX = &H3 ' Affiche l'index Global Const HELP_HELPONHELP = &H4 ' Aide sur l'aide Global Const HELP_SETINDEX = &H5 ' Clef pour MultiIndex Global Const HELP_KEY = &H101 ' Aide pour le mot clef Global Const HELP_MULTIKEY = &H201 Appels de fonctions "WinHelp" en direction des *.dll "User32" 'Declare Function WinHelp Lib "User32" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer Public Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long Ces deux déclarations seront écrites sur la même ligne Type MULTIKEYHELP mkSize As Integer mkKeylist As String * 1 szKeyphrase As String * 253 End Type 'Fichier d'aide Global FichAide$ 'Codes clavier (KeyDown, KeyUp) Global Const RETURN_KEY = &HD Global Const SHIFT_KEY = &H10 Global Const UP_ARROW_KEY = &H26 Global Const DN_ARROW_KEY = &H28 ' BackColor, ForeColor, FillColor (Couleurs RGB Standard : feuille, contrôles) Global Const ROUGE = &HFF& Global Const BLEU = &HFF0000 Global Const NOIR = &H0& Global Const GRIS = &HC0FFC0 'Structure des enregistrements, pour fichier à accès direct Type Enregistrement Titre As String * 60                'Titre film Pays As Integer                     'Pays d'origine Annee As Integer                    'Année de tournage Duree As Integer                    'Durée en minutes NumCass As Integer               'Numéro de cassette NumFilm As Integer               'Numéro du film TypeCassette As Integer         'Type de cassette, par ex. E-240 Description As String * 300     'Commentaires sur les films FichierSon As String * 60        'FichierSon enregistré End Type 'Déclarations des variables d'enregistrement comme Type Enregistrement (variable structure définie 'par l'utilisateur, déclarée globalement) Global Video As Enregistrement 'Chaque fenêtre graphique est une nouvelle 'feuille dans le tableau MDIChild Global GewinnWindow() As New frmChild 'Nombre de FenetreMDI% Global FenetreMDI% 'Bases de données et brève description Global BaseDonnees$(1 To 100) Global InfosBDonnees$(1 To 100) 'Entrée est globale Global Entree$ Prochain Tutoriel :les procédures dans le module "Tools.bas"     VisualBasic6.org est hébergé par Gilmir.com