ใช้เวลานานสำหรับระบบแอปพลิเคชันขนาดใหญ่ในการเริ่มต้นและรัน เวลาจะแตกต่างกันไปตามจำนวนการเริ่มต้นที่จำเป็นและความเร็วของระบบของผู้ใช้ ดังนั้น ควรแสดงหน้าต่างการเริ่มต้นก่อนที่จะแสดงหน้าต่างหลัก แอปพลิเคชันดูน่าสนใจยิ่งขึ้น เนื่องจากข้อมูลบางอย่างสามารถแสดงให้ผู้ใช้เห็นได้อย่างต่อเนื่องเมื่อโหลดโปรแกรมและสามารถสร้างเอฟเฟกต์ภาพที่สวยงามได้ ตัวอย่างเช่น ทั้ง VB และ Delphi จะแสดงหน้าต่างสแปลชด้านหน้าอินเทอร์เฟซหลักเมื่อเริ่มต้นระบบ
----1. ต่อไปนี้เป็นวิธีง่ายๆ ในการแสดงหน้าจอแฟลช (สโลแกน):
ตัวเลือกที่ชัดเจน
PRivatesubform_load()
'แสดงหน้าต่างหลัก
ฉัน.แสดง
'แสดงหน้าต่างสแปลช
frmslash.show
ไม่เกิดเหตุการณ์
'ดำเนินการเริ่มต้นแอปพลิเคชัน
เริ่มต้น
'ปิดหน้าต่างสแปลช
ยกเลิกการโหลด
จบซับ
----รหัสขั้นตอนนี้ควรอยู่ในแบบฟอร์มเริ่มต้นของแอปพลิเคชัน วิธีแสดงแรกอนุญาตให้ Windows แสดงฟอร์มหลักบนหน้าจอ และวิธีการแสดงถัดไปจะแสดงหน้าจอแฟลช ซึ่งเป็นรูปแบบที่คุณออกแบบชื่อ frmsplash หลังจากใช้วิธีการแสดง ให้ใช้ฟังก์ชัน Doevents เพื่อให้แน่ใจว่าองค์ประกอบทั้งหมดกะพริบ แบบฟอร์มหน้าจอจะถูกวาดทันที ฟังก์ชัน Initialize ทำงานที่ใช้เวลานานซึ่งจำเป็นต้องดำเนินการเมื่อแอปพลิเคชันเริ่มทำงาน เช่น การโหลดข้อมูลจากไฟล์ การโหลดแบบฟอร์มลงในหน่วยความจำ และอื่นๆ ณ จุดนี้ทุกอย่างพร้อมแล้ว
----2. เทมเพลตฟอร์มกระพริบ
----VisualBasic มีแบบฟอร์มเทมเพลตมากมาย หนึ่งในนั้นคือหน้าจอแฟลช หากต้องการเพิ่มฟอร์ม Splashscreen ให้กับโปรเจ็กต์ ให้เลือก AddForm จากเมนูโปรเจ็กต์ เลือกไอคอน SplashScreen บนแท็บใหม่ของกล่องโต้ตอบ AddForm และคลิก เปิด ฟอร์ม SplashScreen จะถูกเพิ่มไปยังโปรเจ็กต์
----โค้ดต่อไปนี้แสดงตัวอย่างวิธีการกำหนดเทมเพลตฟอร์ม SplashScreen:
ตัวเลือกที่ชัดเจน
ส่วนตัวsubform_load()
frmsplash.lbllicenseto=app.legaltเครื่องหมายการค้า
frmsplash.lblcompanyproduct=app.ชื่อผลิตภัณฑ์
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning = "คำเตือน: โปรแกรมนี้มีการป้องกัน"&_
"โดยลิขสิทธิ์กฎหมาย ดังนั้นอย่าคัดลอก"
frmslash.show
ไม่เกิดเหตุการณ์
เริ่มต้น
ยกเลิกการโหลด frmsplash
จบซับ
----โปรดทราบว่ามีการใช้ออบเจ็กต์แอปที่นี่ ซึ่งสามารถเข้าถึงข้อมูลเกี่ยวกับแอปพลิเคชันของคุณได้
---- รหัสของโมดูลรหัสเทมเพลตฟอร์ม Splashscreen เป็นดังนี้:
PrivateSubForm_keypress (keyasciiasinteger)
ยกเลิกการโหลดฉัน
จบซับ
ไพรเวทซับฟอร์ม_โหลด()
lblversion.caption="version"&app.major&"
"app.minor"."app.revision
lblproductname.caption=app.title
จบซับ
ไพรเวทซับเฟรม1_คลิก()
ยกเลิกการโหลดฉัน
สิ้นสุดย่อย ->