VisualBasic5.0 กำลังได้รับความนิยมมากขึ้นเรื่อย ๆ ในหมู่โปรแกรมเมอร์เนื่องจากวิธีการเขียนโปรแกรมด้วยภาพ เราสามารถใช้ VisualBasic5.0 เพื่อเขียนซอฟต์แวร์มัลติมีเดียพร้อมอินเทอร์เฟซที่สวยงามและเพลงที่สวยงาม อย่างไรก็ตาม คุณอาจพบปัญหาบางอย่างที่แก้ไขได้ยากในระหว่างขั้นตอนการเขียนโปรแกรมจริง ต่อไปนี้คือประสบการณ์บางส่วนของผู้เขียนในการสร้างมัลติมีเดีย ซึ่งอาจช่วยเสริมกล่องอุปกรณ์เสริมมัลติมีเดียของคุณ
1. เพลงประกอบ
เมื่อใช้ Visual Basic 5.0 เพื่อคอมไพล์แอปพลิเคชัน เราสามารถใช้วิธี OLE Nesting เพื่อเพิ่มเพลงพื้นหลังให้กับแอปพลิเคชันได้อย่างง่ายดาย
เข้าสู่สภาพแวดล้อมระบบ VisualBasic5.0 และสร้างแบบฟอร์มใหม่ คลิกที่ 'OLE Container' บน 'Form Control' แล้วลากไปที่ไหนก็ได้ใน FORM เลือก 'คลิปสื่อ' ในหน้าต่าง 'แทรกวัตถุ' เลือกคอลัมน์ 'แสดงเป็นไอคอน' (ต้องเลือกคอลัมน์นี้ ไม่เช่นนั้นจะไม่สามารถซ่อนได้) แล้วกดปุ่ม 'ยืนยัน' เพื่อออก
ในหน้าต่าง 'Media Player' ให้เลือก 'ไฟล์', 'เปิด' และเลือกไฟล์เสียงที่คุณต้องการใช้เป็นเพลงพื้นหลังจากรายการไฟล์ เนื่องจากโดยทั่วไปไฟล์เพลงจะมีขนาดไม่ยาวมาก จึงจำเป็นต้องมีการเล่นแบบวนซ้ำ ซึ่งสามารถทำได้โดยการตั้งค่า 'เครื่องเล่นสื่อ' ให้เล่นซ้ำๆ จากนั้นเลือก 'ตัวเลือก' ในเมนู 'แก้ไข' เลือก 'เล่นซ้ำ' ในหน้าต่างตัวเลือก และลบเครื่องหมายถูกที่ด้านหน้า 'แถบควบคุมการเล่นซ้ำ' ยืนยันและออก
กลับไปที่สภาพแวดล้อมระบบ Visual Basic 5.0 กดปุ่มขวาของเมาส์แล้วคลิกคอลัมน์ 'คุณสมบัติ' ในเมนูป๊อปอัปเพื่อเปิดหน้าต่างคุณสมบัติขึ้นมา เลือกวัตถุ 'Ole1' และตั้งค่าคุณสมบัติ 'Visible' เป็น .F และคุณสมบัติ 'Autosize' เป็น .F. กดปุ่มเมาส์ขวาอีกครั้ง คลิกคอลัมน์ 'รหัส' ในเมนูป๊อปอัปเพื่อเข้าสู่หน้าต่างการเขียนกระบวนการ และเขียนกระบวนการ 'โหลด' ของวัตถุ 'Form1':
PRivateSubForm_Load()
OLE1.DoVerb(0)
สิ้นสุดย่อย
4. กดปุ่ม 'F5' เพื่อเรียกใช้
2. ปุ่มสามมิติเอฟเฟกต์โปร่งใส
เมื่อสร้างซอฟต์แวร์มัลติมีเดีย บางครั้งเราจำเป็นต้องมีปุ่มสามมิติที่มีเอฟเฟกต์โปร่งใส เราสามารถใช้การผสมผสานระหว่างฉลาก (LABEL) และรูปร่าง (SHAPE) เพื่อทำให้การออกแบบนี้สมบูรณ์
เข้าสู่สภาพแวดล้อมระบบ Visual Basic 5.0 สร้างฟอร์มใหม่ (FORM1) และตั้งค่าคุณสมบัติรูปภาพของ FORM1 เป็นไฟล์บิตแมป WINDOWS (.BMP)
คลิก "รูปร่าง" ใน "แถบควบคุมแบบฟอร์ม" แล้วดึงกล่องสี่เหลี่ยม (SHAPE1) บน FORM1 ออกมา สร้าง SHAPE2, SHAPE3 และ SHAPE4 ในลักษณะเดียวกัน ตั้งค่าคุณสมบัติของ SHAPE ทั้งสี่ดังต่อไปนี้ในหน้าต่างคุณสมบัติ:
รูปร่าง 1:
BorderColor=&HFFFFFF
ความกว้างของเส้นขอบ=3ซ้าย=2160
บน=2040กว้าง=1100
รูปร่าง 2:
BorderColor=&H80000008
ความกว้างของเส้นขอบ=3ซ้าย=2160
บน=2520กว้าง=1100
รูปร่าง 3:
BorderColor=&HFFFFFF
ความกว้างของเส้นขอบ=3ซ้าย=2160
บน=2040ความสูง=500
รูปร่าง 4：
BorderColor=&H80000008
ความกว้างของเส้นขอบ=3ซ้าย=3240
บน=2040ความสูง=500
คลิก "ป้ายกำกับ" ใน "แถบควบคุมแบบฟอร์ม" ด้วยเมาส์ ดึงกล่องสี่เหลี่ยม (LABEL1) บน FORM1 ออกมา แล้วปรับขนาดให้พอดีกับ SHAPE ทั้งสี่ ตั้งค่าคุณสมบัติ คำอธิบายภาพ เป็นชื่อของปุ่มที่กำหนดเอง การจัดแนวเป็น 2 และ Backstyle เป็น 0
ดับเบิลคลิก LABEL1 แล้วเขียนกระบวนการ MouseDown และกระบวนการ MouseUp ของ LABEL1 ดังนี้:
PrivateSubLabel1_MouseDown (ButtonAsInteger, ShiftAsInteger, XAsSingle, YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
Label1.Top=Label1.10 อันดับแรก
สิ้นสุดย่อย
PrivateSubLabel1_MouseUp (ButtonAsInteger, ShiftAsInteger, XAsSingle, YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
Label1.Top=Label1.Top-10
สิ้นสุดย่อย
เพียงกดปุ่ม 'F5' เพื่อเรียกใช้
3. คำบรรยายบนมือถือ
ในทีวี เรามักจะเห็นบรรทัดข้อความแจ้งหรือข้อมูลโฆษณาเลื่อนจากขวาไปซ้ายที่ด้านล่างของหน้าจอ ซึ่งไม่เพียงแต่ทำหน้าที่เป็นข้อความแจ้งเท่านั้น แต่ยังจะไม่สร้างความเสียหายให้กับทั้งหน้าจออีกด้วย เรายังสามารถทำให้การออกแบบนี้เสร็จสมบูรณ์ใน VisualBasic5.0 ได้อีกด้วย
เข้าสู่สภาพแวดล้อมระบบ Visual Basic 5.0 สร้างฟอร์มใหม่ (FORM1) และตั้งค่าคุณสมบัติ Backcolor ของ FORM1 เป็น RGB (192,192,192)
คลิก "ป้ายกำกับ" ใน "แถบควบคุมแบบฟอร์ม" แล้วดึงกล่องสี่เหลี่ยม (LABEL1) บน FORM1 ออกมา ตั้งค่าคุณสมบัติ คำอธิบายภาพ เป็น "การสาธิตคำบรรยายที่ใช้งานอยู่", ปรับขนาดอัตโนมัติเป็น .T., Backstyle เป็น 0, สีหน้าเป็น RGB (128, 128, 128), ชื่อแบบอักษรเป็น "สคริปต์อย่างเป็นทางการ", Fontbold เป็น .T. และ Fontsize เป็น 36
คลิก LABEL1 ด้วยเมาส์ กดปุ่ม CTRL C (คัดลอก) จากนั้นกดปุ่ม CTRL V (วาง) เพื่อสร้างป้ายกำกับอื่น (LABEL2) ที่มีชื่อเดียวกันกับ LABEL1 บน FORM1 และตั้งค่าแอตทริบิวต์ Forecolor เป็น RGB (255 , 255, 0 ) ปรับตำแหน่งของ LABEL2 ให้สูงกว่า LABEL1 เพียงเพื่อให้ LABEL1 ดูเหมือนเงาของ LABEL2
คลิก "ตัวจับเวลา" ใน "แถบควบคุมแบบฟอร์ม" ด้วยเมาส์ จากนั้นคลิกหนึ่งครั้งบน FORM1 เพื่อสร้างตัวจับเวลา (TIMER1) บน FORM1 ตั้งค่าคุณสมบัติ Interval เป็น 200
คลิกสองครั้งที่ FORM1 และเขียนกระบวนการโหลดของ FORM1 ดังนี้:
ส่วนตัวSubForm_Load()
Label1.Left=กว้าง 50
Label2.Left=ความกว้าง
สิ้นสุดย่อย
6. ดับเบิลคลิก TIMER1 และเขียนกระบวนการ Timer ของ TIMER1 ดังนี้:
ไพรเวทซับไทม์เมอร์1_ไทม์เมอร์()
IfLabel1.Left<0-Label1.WidthThen
Label1.Left=กว้าง 50
Label2.Left=ความกว้าง
สิ้นสุดถ้า
Label1.Left=Label1.Left-500
Label2.Left=Label2.Left-500
สิ้นสุดย่อย
7. กดปุ่ม 'F5' เพื่อเรียกใช้ และคุณจะเห็นคำบรรยายปรากฏขึ้นจากด้านขวาของหน้าจอ และหายไปเมื่อเลื่อนไปทางซ้ายสุดของหน้าจอ
4. ค่อยๆ เลือนหายไปจากข้อความ
คำบรรยายตอนต้นของเกมและเครดิตที่สร้างสรรค์หลังการระเบิดใช้วิธีจางหายของตัวละครและจางหายไป ข้อความที่มีเอฟเฟกต์จางลงและจางลงสามารถสร้างได้ใน Visual Basic 5.0
เข้าสู่สภาพแวดล้อมระบบ Visual Basic5.0 และสร้างแบบฟอร์มใหม่ (FORM1)
คลิก "ป้ายกำกับ" ใน "แถบควบคุมแบบฟอร์ม" แล้วดึงกล่องสี่เหลี่ยม (LABEL1) บน FORM1 ออกมา ตั้งค่าคำอธิบายแอตทริบิวต์เป็น "จางเข้าและออกจากข้อความ", ปรับขนาดอัตโนมัติเป็น .T., Backstyle เป็น 0, สีข้อความเป็น RGB (0,128,128), แบบอักษรเป็น "สคริปต์อย่างเป็นทางการ", Fontbold เป็น .T. และขนาดตัวอักษรเป็น 36 .
คลิก "ตัวจับเวลา" ใน "แถบควบคุมแบบฟอร์ม" ด้วยเมาส์ จากนั้นคลิกหนึ่งครั้งบน FORM1 เพื่อสร้างตัวจับเวลา (TIMER1) บน FORM1 ตั้งค่าคุณสมบัติ Interval เป็น 100 และคุณสมบัติ Enabled เป็น .F..
คลิกปุ่ม "คำสั่ง" ใน "แถบควบคุมแบบฟอร์ม" และดึงกล่องสี่เหลี่ยม (COMMAND1) บน FORM1 ออกมา ตั้งค่าคำอธิบายคุณสมบัติเป็น "Start"
คลิกสองครั้งที่ COMMAND1 และเขียนกระบวนการคลิกของ COMMAND1 ดังนี้:
PrivateSubCommand1_คลิก()
IfTimer1.Enabled=Falseแล้ว
Timer1.Enabled=จริง
สิ้นสุดถ้า
สิ้นสุดย่อย
คลิกสองครั้งที่ FORM1 และเขียนกระบวนการเปิดใช้งานของ FORM1 ดังนี้:
สีด้านหลัง=RGB(0,128,128)
ผม=0
7. ดับเบิลคลิก TIMER1 และเขียนกระบวนการ Timer ของ TIMER1 ดังนี้:
ไพรเวทซับไทม์เมอร์1_ไทม์เมอร์()
ฉัน=ฉัน 10
ถ้าI>=255*2แล้ว
Timer1.Enabled=เท็จ
ผม=0
สิ้นสุดถ้า
ถ้าI>=255แล้ว
Label1.ForeColor=RGB(255*2-I,128,128)
อื่น
Label1.ForeColor=RGB(I,128,128)
สิ้นสุดถ้า
สิ้นสุดย่อย
กดปุ่ม 'F5' เพื่อเรียกใช้ คลิกปุ่ม "เริ่ม" ด้วยเมาส์แล้วคุณจะเห็นว่าชื่อค่อยๆ เปลี่ยนจากสีพื้นหลังเป็นสีแดง และจากสีแดงเป็นสีพื้นหลัง
โปรแกรมข้างต้นทั้งหมดทำงานได้สำเร็จใน Visual Basic 5.0 และ WINDOWS95 -