VisualBasic5.0 erfreut sich bei Programmierern aufgrund seiner visuellen Programmiermethode immer größerer Beliebtheit. Mit VisualBasic5.0 können wir Multimedia-Software mit schönen Schnittstellen und schöner Musik schreiben. Während des eigentlichen Programmiervorgangs können jedoch einige Probleme auftreten, die nur schwer zu lösen sind. Im Folgenden finden Sie einige Erfahrungen des Autors bei der Multimedia-Erstellung, die Ihre Multimedia-Zubehörbox bereichern können.
1. Hintergrundmusik
Wenn wir Visual Basic 5.0 zum Kompilieren von Anwendungen verwenden, können wir die OLE-Verschachtelungsmethode verwenden, um einer Anwendung problemlos Hintergrundmusik hinzuzufügen.
Rufen Sie die VisualBasic5.0-Systemumgebung auf und erstellen Sie ein neues Formular. Klicken Sie auf den „OLE-Container“ im „Formularsteuerelement“ und ziehen Sie ihn an eine beliebige Stelle im FORMULAR. Wählen Sie „Medienclip“ im Fenster „Objekt einfügen“, wählen Sie die Spalte „Als Symbol anzeigen“ (diese Spalte muss ausgewählt sein, sonst kann sie nicht ausgeblendet werden) und drücken Sie zum Beenden die Taste „Bestätigen“.
Wählen Sie im Fenster „Media Player“ „Datei“, „Öffnen“ und wählen Sie aus der Dateiliste die Sounddatei aus, die Sie als Hintergrundmusik verwenden möchten. Da Musikdateien im Allgemeinen nicht sehr lang sind, müssen sie in einer Schleife abgespielt werden, was erreicht werden kann, indem der „Mediaplayer“ auf wiederholte Wiedergabe eingestellt wird. Wählen Sie dann „Optionen“ im Menü „Bearbeiten“, wählen Sie „Wiedergabe wiederholen“ im Optionsfenster und entfernen Sie das Häkchen vor „Wiedergabe-Kontrollleiste“, bestätigen Sie und beenden Sie den Vorgang.
Kehren Sie zur Visual Basic 5.0-Systemumgebung zurück, drücken Sie die rechte Maustaste und klicken Sie im Popup-Menü auf die Spalte „Eigenschaften“, um das Eigenschaftenfenster aufzurufen. Wählen Sie das Objekt „Ole1“ aus und setzen Sie seine Eigenschaft „Visible“ auf .F und seine Eigenschaft „Autosize“ auf .F. Drücken Sie erneut die rechte Maustaste, klicken Sie im Popup-Menü auf die Spalte „Code“, um das Prozessschreibfenster aufzurufen, und schreiben Sie den Prozess „Laden“ des Objekts „Form1“:
PRivateSubForm_Load()
OLE1.DoVerb(0)
EndSub
4. Drücken Sie zum Ausführen die Taste „F5“.
2. Dreidimensionaler Knopf mit transparentem Effekt
Bei der Erstellung von Multimedia-Software benötigen wir manchmal dreidimensionale Schaltflächen mit transparenten Effekten. Wir können die Kombination aus Beschriftung (LABEL) und Form (SHAPE) verwenden, um dieses Design zu vervollständigen.
Rufen Sie die Visual Basic 5.0-Systemumgebung auf, erstellen Sie ein neues Formular (FORM1) und legen Sie die Picture-Eigenschaft von FORM1 auf eine WINDOWS-Bitmapdatei (.BMP) fest.
Klicken Sie in der „Formularkontrollleiste“ auf „Form“ und ziehen Sie ein rechteckiges Feld (SHAPE1) auf FORM1. Erstellen Sie SHAPE2, SHAPE3 und SHAPE4 auf die gleiche Weise. Legen Sie die Eigenschaften dieser vier SHAPEs im Eigenschaftenfenster wie folgt fest:
FORM1:
BorderColor=&HFFFFFF
BorderWidth=3Left=2160
Oben=2040Breite=1100
FORM2:
BorderColor=&H80000008
BorderWidth=3Left=2160
Oben=2520Breite=1100
FORM3:
BorderColor=&HFFFFFF
BorderWidth=3Left=2160
Oben=2040Höhe=500
FORM4:
BorderColor=&H80000008
BorderWidth=3Left=3240
Oben=2040Höhe=500
Klicken Sie mit der Maus auf „Label“ in der „Formularkontrollleiste“, ziehen Sie ein rechteckiges Feld (LABEL1) auf FORM1 heraus und passen Sie seine Größe an, damit es in die vier SHAPEs passt. Setzen Sie die Eigenschaft „Caption“ auf den Titel der benutzerdefinierten Schaltfläche, „Alignment“ auf 2 und „Backstyle“ auf 0.
Doppelklicken Sie auf LABEL1 und schreiben Sie den MouseDown-Prozess und den MouseUp-Prozess von LABEL1 wie folgt:
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
Label1.Top=Label1.Top 10
EndSub
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
Label1.Top=Label1.Top-10
EndSub
Drücken Sie einfach die Taste „F5“, um es auszuführen.
3. Untertitel für Mobilgeräte
Im Fernsehen sehen wir oft eine Zeile mit Aufforderungstext oder Werbeinformationen, die sich am unteren Bildschirmrand von rechts nach links bewegt, was nicht nur als Aufforderung dient, sondern nicht den gesamten Bildschirm beschädigt. Wir können diesen Entwurf auch in VisualBasic5.0 fertigstellen.
Rufen Sie die Visual Basic 5.0-Systemumgebung auf, erstellen Sie ein neues Formular (FORM1) und legen Sie die Backcolor-Eigenschaft von FORM1 auf RGB (192,192,192) fest.
Klicken Sie auf „Label“ in der „Formularkontrollleiste“ und ziehen Sie ein rechteckiges Feld (LABEL1) auf FORM1 heraus. Setzen Sie die Eigenschaften Caption auf „Active Subtitle Demonstration“, Autosize auf .T., Backstyle auf 0, Forecolor auf RGB (128, 128, 128), Fontname auf „official script“, Fontbold auf .T. und Fontsize auf 36.
Klicken Sie mit der Maus auf LABEL1, drücken Sie die Taste STRG C (Kopieren) und dann die Taste STRG V (Einfügen), um ein weiteres Etikett (LABEL2) mit demselben Titel wie LABEL1 auf FORM1 zu erstellen und dessen Forecolor-Attribut auf RGB (255) festzulegen , 255, 0 ). Passen Sie die Position von LABEL2 so an, dass es knapp über LABEL1 liegt, sodass LABEL1 wie der Schatten von LABEL2 aussieht.
Klicken Sie mit der Maus auf „Timer“ in der „Formularsteuerleiste“ und klicken Sie dann einmal auf FORM1, um einen Timer (TIMER1) auf FORM1 zu erstellen. Setzen Sie das Eigenschaftsintervall auf 200.
Doppelklicken Sie auf FORM1 und schreiben Sie den Ladevorgang von FORM1 wie folgt:
PrivateSubForm_Load()
Label1.Left=Breite 50
Label2.Left=Breite
EndSub
6. Doppelklicken Sie auf TIMER1 und schreiben Sie den Timer-Prozess von TIMER1 wie folgt:
PrivateSubTimer1_Timer()
IfLabel1.Left<0-Label1.WidthThen
Label1.Left=Breite 50
Label2.Left=Breite
EndIf
Label1.Left=Label1.Left-500
Label2.Left=Label2.Left-500
EndSub
7. Drücken Sie zum Ausführen die Taste „F5“. Die Untertitel erscheinen auf der rechten Seite des Bildschirms und verschwinden, wenn sie ganz nach links auf dem Bildschirm verschoben werden.
4. Text ein- und ausblenden
Die Kommentar-Untertitel zu Beginn vieler Spiele und die kreativen Credits nach der Explosion verwenden die Methode zum Ein- und Ausblenden von Charakteren. Text mit Ein- und Ausblendeffekten kann auch in Visual Basic 5.0 erstellt werden.
Rufen Sie die Visual Basic5.0-Systemumgebung auf und erstellen Sie ein neues Formular (FORM1).
Klicken Sie auf „Label“ in der „Formularkontrollleiste“ und ziehen Sie ein rechteckiges Feld (LABEL1) auf FORM1 heraus. Setzen Sie das Attribut „Caption“ auf „Ein- und Ausblenden von Text“, „Autosize“ auf „.T.“, „Backstyle“ auf „0“, „Textfarbe“ auf „RGB“ (0,128 „128“), „Font“ auf „offizielle Schrift“, „Fontbold“ auf „.T.“ und „Schriftgröße“ auf 36 .
Klicken Sie mit der Maus auf „Timer“ in der „Formularsteuerleiste“ und klicken Sie dann einmal auf FORM1, um einen Timer (TIMER1) auf FORM1 zu erstellen. Setzen Sie seine Interval-Eigenschaft auf 100 und seine Enabled-Eigenschaft auf .F.
Klicken Sie auf die „Befehlsschaltfläche“ in der „Formularsteuerleiste“ und ziehen Sie ein rechteckiges Feld (BEFEHL1) auf FORM1 auf. Setzen Sie die Eigenschaft Caption auf „Start“.
Doppelklicken Sie auf BEFEHL1 und schreiben Sie den Klickvorgang von BEFEHL1 wie folgt:
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Timer1.Enabled=True
EndIf
EndSub
Doppelklicken Sie auf FORM1 und schreiben Sie den Aktivierungsprozess von FORM1 wie folgt:
BackColor=RGB(0,128,128)
I=0
7. Doppelklicken Sie auf TIMER1 und schreiben Sie den Timer-Prozess von TIMER1 wie folgt:
PrivateSubTimer1_Timer()
I=I 10
WennI>=255*2Dann
Timer1.Enabled=False
I=0
EndIf
WennI>=255Dann
Label1.ForeColor=RGB(255*2-I,128,128)
Anders
Label1.ForeColor=RGB(I,128,128)
EndIf
EndSub
Drücken Sie zum Ausführen die Taste „F5“. Klicken Sie mit der Maus auf die Schaltfläche „Start“ und Sie können sehen, dass sich der Titel allmählich von der Hintergrundfarbe zu Rot und dann von Rot zur Hintergrundfarbe ändert.
Die oben genannten Programme laufen alle erfolgreich in Visual Basic 5.0 und WINDOWS95. ->