---- ในแอพพลิเคชั่นซอฟต์แวร์จำนวนมาก หลังจากที่ซอฟต์แวร์เริ่มทำงาน หน้าจอจะแสดงข้อมูลไม่กี่วินาที โดยแสดงรายการผลิตภัณฑ์ แพลตฟอร์ม หมายเลขเวอร์ชัน และข้อมูลลิขสิทธิ์ ซึ่งเรียกว่า "หน้าจอกะพริบเมื่อเริ่มโปรแกรม ". มีการนำไปใช้งานใน Visual Basic อย่างไร? บทความนี้จะกล่าวถึงวิธีหนึ่งในการสร้างหน้าจอสแปลชและทำให้มันมีสีสัน ตรวจสอบให้แน่ใจว่าเมื่อหน้าจอเริ่มต้นยังคงอยู่บนเดสก์ท็อป ข้อความแจ้งจะ "ลื่นไหล" บนเดสก์ท็อป (เช่น หน้าจอเริ่มต้น "Orient Express") ในขณะเดียวกันก็สามารถสร้างเอฟเฟกต์ต่างๆ เช่น การกะพริบและการเปลี่ยนสีของข้อความต่อเนื่องได้เช่นกัน หากคุณตั้งค่าหน้าจอที่ด้านล่างของข้อความ ข้อความจะไหลออกจากหน้าจอได้ หลังจากที่จอแสดงผลเสร็จสิ้นและหายไปจากด้านบนของหน้าจอ ก็สามารถลุกขึ้นอีกครั้งจากด้านล่างของหน้าจอและปรากฏขึ้นอีกครั้งเป็นวงวน หลังจากการออกแบบนี้ สามารถใช้ในคำอธิบายซอฟต์แวร์ รายชื่อผู้เขียน ฯลฯ เพื่อปรับปรุงการแสดงผลหน้าจอของซอฟต์แวร์
----รับโครงการ 1 แบบฟอร์ม Form1 และ Form2 และกำหนดให้ Form1 เป็นแบบฟอร์มเริ่มต้น สร้าง Frame1, Timer1 และ Temer2 ใหม่บน Form2 และตั้งค่าคุณสมบัติคำบรรยายของ Frame1 เป็นค่าว่างเพื่อสร้างเส้นขอบสามมิติที่สวยงาม คุณสมบัติ Enabled ของ Timer1 และ Temer2 ได้รับการตั้งค่าเป็น True สร้าง Picture1 บน Frame1 และปรับ Picture1 ให้เป็นขนาดที่เหมาะสม ตั้งค่าคุณสมบัติ ScaleMode ของ Form1 เป็น 1-Twip และคุณสมบัติ StartUpPosition ของ Form2 เป็น 2-CenterScreen (จัดกึ่งกลาง) เพื่อให้แน่ใจว่า Form2 จะไม่แสดง "แถบคำอธิบายสีน้ำเงิน" ที่ด้านบนของแบบฟอร์ม ให้ตั้งค่าคุณสมบัติคำอธิบายภาพเป็นค่า null และคุณสมบัติ ControlBox เป็นเท็จ สร้างป้ายกำกับ Label1 บน Picture1 และปรับ BackStyle เป็น 0 (โปร่งใส) กรอกข้อความ "ผู้แต่ง: นางสาวเจียง เสิ่นหยาง" ในแอตทริบิวต์คำอธิบายภาพของ Label1 เพื่อให้สังเกตได้ง่าย ปรับขนาดและสีของข้อความ คุณสามารถตั้งค่าข้อมูลเค้าโครงบนแบบฟอร์ม Form2 ได้อย่างอิสระ
----รหัส Form1 เป็นดังนี้:
PRivateSubForm_Load()
Form1.Visible=0'ทำให้ฟอร์ม Form1 มองไม่เห็น
Form2.Show'แสดงแบบฟอร์ม Form2
สิ้นสุดย่อย
รหัสสำหรับแต่ละตัวควบคุมใน Form2 มีดังนี้:
ตัวเลือกที่ชัดเจน
DimStep1, Step2, Step3AsInteger
DimZfAsString
DimIAsInteger
แบบฟอร์มย่อยส่วนตัว_คลิก()
'เมื่อคุณคลิก Form2 ให้สิ้นสุดการดำเนินการของ Form2
แสดงแบบฟอร์ม Form1 และปิด Timer และ Timer1
ยกเลิกการโหลดฉัน
แบบฟอร์ม1.แสดง
Timer1.Enabled=เท็จ
Timer2.Enabled=เท็จ
สิ้นสุดย่อย
ส่วนตัวSubForm_Load()
Picture1.Picture=โหลดรูปภาพ
("c:/windows/Clouds.bmp")'เลือกรูปภาพ
Timer1.Interval=80' ขั้นเวลา
Timer2.ช่วง=50
สิ้นสุดย่อย
ไพรเวทซับ
Frame1_Click()'เมื่อคลิกพื้นที่ภายในกรอบควบคุม Frame1
สิ้นสุดการดำเนินการของแบบฟอร์ม Form2 แสดงแบบฟอร์ม Form1 และปิด Timer และ Timer1
ยกเลิกการโหลดฉัน
แบบฟอร์ม1.แสดง
Timer1.Enabled=เท็จ
Timer2.Enabled=เท็จ
สิ้นสุดย่อย
ไพรเวทซับ
รูปภาพ1_คลิก()
'เมื่อคุณคลิกพื้นที่ภายใน Picture1 ให้สิ้นสุดการดำเนินการของ Form2
แสดงแบบฟอร์ม Form1 และปิด Timer และ Timer1
ยกเลิกการโหลดฉัน
แบบฟอร์ม1.แสดง
Timer1.Enabled=เท็จ
Timer2.Enabled=เท็จ
สิ้นสุดย่อย
ไพรเวทซับไทม์เมอร์1_ไทม์เมอร์()
ColorLabel1,15,13,9' เรียกสีที่เปลี่ยนไป
ฉัน = ฉัน 1
ถ้าI>50แล้วฟอร์ม 2 จะคงอยู่เวลา สามารถปรับขนาดได้
ยกเลิกการโหลดฉัน
แบบฟอร์ม1.แสดง
Timer1.Enabled=เท็จ
Timer2.Enabled=เท็จ
สิ้นสุดถ้า
สิ้นสุดย่อย
สีย่อย (CtrlAsControl, color1AsInteger,
color2AsInteger,color3AsInteger)'เลือกสี
IfVal(Ctrl.Tag)=color1จากนั้น
Ctrl.Tag=color2
ElseIfVal(Ctrl.Tag)=color2จากนั้น
Ctrl.Tag=สี3
ElseIfVal(Ctrl.Tag)=color3จากนั้น
Ctrl.Tag=สี1
อื่น
Ctrl.Tag=สี1
สิ้นสุดถ้า
Ctrl.ForeColor=QBColor(Ctrl.Tag)
สิ้นสุดย่อย
PrivateSubTimer2_Timer()' ควบคุมตำแหน่งและความเร็วของการเคลื่อนไหวของข้อความ
ขั้นที่ 1=1800:ขั้นที่ 2=4500:ขั้นที่ 3=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top ขั้นตอนที่ 2
สิ้นสุดถ้า
Label1.Top=Label1.Top-Step3
สิ้นสุดย่อย
----คุณสามารถปรับค่าของ Timer1.Interval และ Timer2.Interval ซึ่งกำหนดความเร็วในการเปลี่ยนสีข้อความและความเร็วการไหลของข้อความตามลำดับ ปรับ Step1 และ Step2 ให้เป็นค่าที่เหมาะสมตามรูปแบบและการควบคุม เงื่อนไข ขั้นตอนที่ 3 คือขั้นตอนการข้ามข้อความ เปลี่ยนสีการแปลงข้อความโดยการเปลี่ยนค่า I, J, K ในคำสั่ง ColorLabel1, I, J, K ดำเนินการภายใต้ VisualBasic5.0 ของจีน -