VisualBasic5.0 devient de plus en plus populaire parmi les programmeurs en raison de sa méthode de programmation visuelle. Nous pouvons utiliser VisualBasic5.0 pour écrire des logiciels multimédia avec de belles interfaces et une belle musique. Cependant, vous pouvez rencontrer des problèmes difficiles à résoudre au cours du processus de programmation proprement dit. Voici quelques-unes des expériences de l'auteur en matière de création multimédia, qui peuvent enrichir votre boîte d'accessoires multimédia.
1. Musique de fond
Lorsque nous utilisons Visual Basic 5.0 pour compiler des applications, nous pouvons utiliser la méthode d'imbrication OLE pour ajouter facilement une musique de fond à une application.
Entrez dans l'environnement système VisualBasic5.0 et créez un nouveau formulaire. Cliquez sur le « Conteneur OLE » sur le « Contrôle de formulaire » et faites-le glisser n'importe où dans le FORMULAIRE. Sélectionnez « Media Clip » dans la fenêtre « Insérer un objet », sélectionnez la colonne « Afficher sous forme d'icône » (cette colonne doit être sélectionnée, sinon elle ne peut pas être masquée) et appuyez sur la touche « Confirmer » pour quitter.
Dans la fenêtre « Media Player », sélectionnez « Fichier », « Ouvrir » et sélectionnez le fichier audio que vous souhaitez utiliser comme musique de fond dans la liste des fichiers. Étant donné que les fichiers musicaux ne sont généralement pas très longs, ils nécessitent une lecture en boucle, ce qui peut être réalisé en réglant le « lecteur multimédia » pour qu'il soit lu de manière répétée. Sélectionnez ensuite « Options » dans le menu « Édition », sélectionnez « Répéter la lecture » dans la fenêtre d'options et décochez la « Barre de contrôle de relecture », confirmez et quittez.
Revenez à l'environnement système Visual Basic 5.0, appuyez sur le bouton droit de la souris et cliquez sur la colonne « Propriétés » dans le menu contextuel pour afficher la fenêtre des propriétés. Sélectionnez l'objet 'Ole1' et définissez sa propriété 'Visible' sur .F et sa propriété 'Autosize' sur .F.. Appuyez à nouveau sur le bouton droit de la souris, cliquez sur la colonne « Code » dans le menu contextuel pour entrer dans la fenêtre d'écriture du processus et écrivez le processus « Charger » de l'objet « Form1 » :
PRivateSubForm_Load()
OLE1.DoVerb(0)
FinSub
4. Appuyez sur la touche « F5 » pour exécuter.
2. Bouton tridimensionnel à effet transparent
Lors de la création de logiciels multimédia, nous avons parfois besoin de boutons tridimensionnels avec des effets de transparence. Nous pouvons utiliser la combinaison d'une étiquette (LABEL) et d'une forme (SHAPE) pour compléter cette conception.
Entrez dans l'environnement système Visual Basic 5.0, créez un nouveau formulaire (FORM1) et définissez la propriété Picture de FORM1 sur un fichier bitmap WINDOWS (.BMP).
Cliquez sur "Forme" dans la "Barre de contrôle du formulaire" et retirez une boîte rectangulaire (SHAPE1) sur FORM1. Créez SHAPE2, SHAPE3 et SHAPE4 de la même manière. Définissez les propriétés de ces quatre FORMES comme suit dans la fenêtre des propriétés :
FORME1 :
CouleurBordure=&HFFFFFF
BordureLargeur=3Gauche=2160
Haut=2040Largeur=1100
FORME2 :
CouleurBordure=&H80000008
BordureLargeur=3Gauche=2160
Haut=2520Largeur=1100
FORME3 :
CouleurBordure=&HFFFFFF
BordureLargeur=3Gauche=2160
Haut=2040Hauteur=500
FORME4 :
CouleurBordure=&H80000008
BordureLargeur=3Gauche=3240
Haut=2040Hauteur=500
Cliquez sur "Étiquette" dans la "Barre de contrôle du formulaire" avec la souris, extrayez une boîte rectangulaire (LABEL1) sur FORM1 et ajustez sa taille pour qu'elle s'adapte aux quatre FORMES. Définissez sa propriété Légende sur le titre du bouton personnalisé, Alignement sur 2 et Backstyle sur 0.
Double-cliquez sur LABEL1 et écrivez le processus MouseDown et le processus MouseUp de LABEL1 comme suit :
PrivateSubLabel1_MouseDown (ButtonAsInteger, ShiftAsInteger, XAsSingle, YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
Étiquette1.Top=Étiquette1.Top 10
FinSub
PrivateSubLabel1_MouseUp (ButtonAsInteger, ShiftAsInteger, XAsSingle, YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
Étiquette1.Top=Étiquette1.Top-10
FinSub
Appuyez simplement sur la touche « F5 » pour l'exécuter.
3. Sous-titres mobiles
À la télévision, nous voyons souvent une ligne de texte d'invite ou d'informations publicitaires se déplacer de droite à gauche en bas de l'écran, ce qui non seulement sert d'invite mais n'endommage pas l'ensemble de l'écran. Nous pouvons également réaliser cette conception dans VisualBasic5.0.
Accédez à l'environnement système Visual Basic 5.0, créez un nouveau formulaire (FORM1) et définissez la propriété Backcolor de FORM1 sur RVB (192,192,192).
Cliquez sur "Étiquette" dans la "Barre de contrôle du formulaire" et retirez une boîte rectangulaire (LABEL1) sur FORM1. Définissez ses propriétés Légende sur "Démonstration de sous-titres active", Taille automatique sur .T., Backstyle sur 0, Forecolor sur RVB (128, 128, 128), Nom de police sur "script officiel", Fontbold sur .T. et Taille de police sur 36.
Cliquez sur LABEL1 avec la souris, appuyez sur la touche CTRL C (copier), puis appuyez sur la touche CTRL V (coller) pour créer une autre étiquette (LABEL2) avec le même titre que LABEL1 sur FORM1 et définissez son attribut Forecolor sur RVB (255 , 255, 0 ). Ajustez la position de LABEL2 pour qu'elle soit juste au-dessus de LABEL1, afin que LABEL1 ressemble à l'ombre de LABEL2.
Cliquez sur "Timer" dans la "Barre de contrôle du formulaire" avec la souris, puis cliquez une fois sur FORM1 pour créer un minuteur (TIMER1) sur FORM1. Définissez sa propriété Intervalle sur 200.
Double-cliquez sur FORM1 et écrivez le processus de chargement de FORM1 comme suit :
PrivateSubForm_Load()
Étiquette1.Left=Largeur 50
Étiquette2.Left=Largeur
FinSub
6. Double-cliquez sur TIMER1 et écrivez le processus Timer de TIMER1 comme suit :
PrivateSubTimer1_Timer()
IfLabel1.Left<0-Label1.WidthThen
Étiquette1.Left=Largeur 50
Étiquette2.Left=Largeur
FinSi
Étiquette1.Left=Étiquette1.Left-500
Étiquette2.Left=Étiquette2.Left-500
FinSub
7. Appuyez sur la touche « F5 » pour exécuter et vous verrez les sous-titres apparaître sur le côté droit de l'écran et disparaître lorsqu'ils sont déplacés vers l'extrême gauche de l'écran.
4. Fondu entrant et sortant du texte
Les sous-titres des commentaires au début de nombreux jeux et les crédits créatifs après l'explosion utilisent la méthode de fondu d'entrée et de sortie des caractères. Le texte avec des effets de fondu d'entrée et de sortie peut également être produit dans Visual Basic 5.0.
Entrez dans l'environnement système Visual Basic5.0 et créez un nouveau formulaire (FORM1).
Cliquez sur "Étiquette" dans la "Barre de contrôle du formulaire" et retirez une boîte rectangulaire (LABEL1) sur FORM1. Définissez son attribut Légende sur "Fade in and out of text", Autosize sur .T., Backstyle sur 0, la couleur du texte sur RVB (0,128,128), la police sur "official script", Fontbold sur .T. et la taille de police sur 36. .
Cliquez sur "Timer" dans la "Barre de contrôle du formulaire" avec la souris, puis cliquez une fois sur FORM1 pour créer un minuteur (TIMER1) sur FORM1. Définissez sa propriété Interval sur 100 et sa propriété Enabled sur .F..
Cliquez sur le "Bouton de commande" dans la "Barre de contrôle du formulaire" et extrayez une boîte rectangulaire (COMMAND1) sur FORM1. Définissez sa propriété Légende sur "Démarrer".
Double-cliquez sur COMMAND1 et écrivez le processus de clic de COMMAND1 comme suit :
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Timer1.Enabled=Vrai
FinSi
FinSub
Double-cliquez sur FORM1 et écrivez le processus d'activation de FORM1 comme suit :
Couleur du fond = RVB (0,128,128)
je = 0
7. Double-cliquez sur TIMER1 et écrivez le processus Timer de TIMER1 comme suit :
PrivateSubTimer1_Timer()
je = je 10
SiI>=255*2Alors
Timer1.Enabled=Faux
je = 0
FinSi
SiI>=255Alors
Label1.ForeColor=RVB(255*2-I,128,128)
Autre
Label1.ForeColor=RVB(I,128,128)
FinSi
FinSub
Appuyez sur la touche « F5 » pour exécuter. Cliquez sur le bouton "Démarrer" avec la souris et vous pourrez voir que le titre passe progressivement de la couleur de fond au rouge, puis du rouge à la couleur de fond.
Les programmes ci-dessus s'exécutent tous avec succès dans Visual Basic 5.0 et WINDOWS95. ->