---- ผู้เขียนอ่านบทความใน "Computer World" เป็นครั้งคราวเกี่ยวกับการใช้อักขระแบบจางและจางใน VISUALFOXPRO ในการใช้โปรแกรม Visual Basic 4.0 เพื่อแสดงลักษณะทั่วไปของเครื่องมือพัฒนาภาพของ Microsoft: ส่วนต่อประสานกราฟิกกับผู้ใช้ (GUI) ที่เหมือนกันหรือคล้ายกัน คุณสมบัติเชิงวัตถุและขับเคลื่อนด้วยเหตุการณ์ ฟังก์ชั่นที่เหมือนหรือคล้ายกัน ฯลฯ คุณลักษณะนี้ช่วยให้นักพัฒนาโปรแกรมและนักออกแบบสามารถเรียนรู้จากแอปพลิเคชันที่พัฒนาขึ้นโดยใช้เครื่องมือการแสดงภาพต่างๆ ของ Microsoft และดำเนินการย้ายปลูกถ่ายได้อย่างสะดวก ซึ่งจะทำให้วงจรการพัฒนาสั้นลง ในขณะเดียวกันก็มีบทบาทในการเรียนรู้ภาษาคอมพิวเตอร์ด้วย
----ฟังก์ชันเฟดเข้าและเฟดเอาท์ของอักขระสามารถทำได้โดยการเปลี่ยนพื้นหน้าของตัวควบคุมป้ายกำกับ (LABEL) อย่างต่อเนื่อง การเปลี่ยนแปลงเบื้องหน้าของการควบคุม
สามารถตั้งค่าได้โดยใช้คุณสมบัติเบื้องหน้าของการควบคุมฉลาก ณ เวลาออกแบบ หรือสามารถทำได้ในโปรแกรมโดยการกำหนดค่าสีที่แตกต่างกันให้กับคุณสมบัติเบื้องหน้า สีได้มาจากฟังก์ชัน RGB (VisualFoxpro มีฟังก์ชันนี้ด้วย) การขัดจังหวะที่สร้างโดยการควบคุมตัวจับเวลาใช้เพื่อเปลี่ยนค่าพารามิเตอร์ RGB อย่างต่อเนื่อง ดังนั้นพื้นหน้าของอักขระจึงสามารถเปลี่ยนแปลงได้ตามลำดับ เพื่อให้บรรลุวัตถุประสงค์ของการเฟดเข้าและออก
---- โปรแกรมที่เขียนด้านล่างโดยใช้ Visual Basic 4.0 ทำหน้าที่สองอย่างให้สมบูรณ์: (1) จางเข้าและออกจากอักขระ และมีการเปลี่ยนแปลงสี 256*256*256 ในที่นี้เลือกเฉพาะการเปลี่ยนแปลงจากสีเทาเป็นสีแดงเท่านั้น
(2) อักขระจะเปลี่ยนจากเล็กไปใหญ่เมื่อค่อยๆ จางลง และจากใหญ่ไปเล็กเมื่อค่อยๆ จางลง นอกจากนี้ขั้นตอนการดำเนินการของโปรแกรมนี้ยังสามารถปลูกถ่ายเป็นภาษาภาพเช่น VisualC และ Visualjava ได้อย่างสมบูรณ์และง่ายดาย
----1. เริ่ม VisualBasic4.0 และสร้างแบบฟอร์มโดยอัตโนมัติ ค่าเริ่มต้นคือ FORM1
----2.กำหนดคุณสมบัติของแบบฟอร์มดังนี้:
ชื่อ: สาธิต
คำบรรยายภาพ: VB ใช้อักขระแบบเฟดอินและเฟดเอาท์
BACKCOLOR: &H00C0C0C0 นั่นคือพื้นหลังเป็นสีเทา
----3 กำหนดตัวแปรแบบฟอร์มต่อไปนี้ในรูปแบบ DEMO นั่นคือ กำหนดพารามิเตอร์สี R, G และ B ในกระบวนการประกาศทั่วไป
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. ตั้งค่าเริ่มต้นของสีตัวอักษรในระหว่างกระบวนการโหลดแบบฟอร์ม นั่นคือสีเทา
สี:
ส่วนตัวSubForm_Load()
r=192
ก.=192
ข=192
สิ้นสุดย่อย
----5. เพิ่มป้ายกำกับให้กับแบบฟอร์ม DEMO และตั้งค่าคุณสมบัติดังต่อไปนี้:
ชื่อ:LABEL1
คำบรรยายภาพ: ระบบการซื้อขายพันธบัตร Harbin SDIC
ขนาดอัตโนมัติ: TRUE ใช้เพื่อให้ได้มาตราส่วนอักขระ
รูปแบบพื้นหลัง: 0-โปร่งใส เช่น โปร่งใส
แบบอักษร: แบบอักษรเป็นสคริปต์อย่างเป็นทางการ และเลือกขนาดเป็น 8
----6. เพิ่มตัวควบคุมตัวจับเวลาลงในแบบฟอร์มเพื่อให้ฟังก์ชันเฟดเอาท์สมบูรณ์ดังนี้:
ชื่อ: เอาท์ไทม์เมอร์
ช่วงเวลา: 50 ซึ่งหมายความว่าจะมีการขัดจังหวะทุกๆ วินาทีและเปลี่ยนสีหนึ่งครั้ง
----7. เพิ่มตัวจับเวลาอื่นเพื่อทำให้ฟังก์ชันเฟดอินสมบูรณ์:
ชื่อ: อินไทม์เมอร์
ช่วงเวลา: 50
----8. เพิ่มโค้ดต่อไปนี้ลงในกระบวนการ TIMER ของ OUTTIMER:
PrivateSubOuttimer_Timer()
ถ้า<255แล้ว
ร=ร 1
อื่น
r=255
สิ้นสุดถ้า
Ifg>3แล้ว
ก.=ก-3
อย่างอื่น:g=0
สิ้นสุดถ้า
ถ้าb>3แล้ว
ข=ข-3
อย่างอื่น:b=0
สิ้นสุดถ้า
Label1.FontSize=Label1.FontSize 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72จากนั้น
Outtimer.Enabled=เท็จ
Intimer.Enabled=จริง
สิ้นสุดถ้า
สิ้นสุดย่อย
----9. เพิ่มรหัสต่อไปนี้ใน INTERTIMER:
ไพรเวทซับอินไทม์เมอร์_ไทม์เมอร์()
Ifr>192แล้ว
r=r-1
อื่น
r=192
สิ้นสุดถ้า
ถ้า<192แล้ว
ก.=ก. 3
อย่างอื่น:g=192
สิ้นสุดถ้า
ถ้าb<192แล้ว
ข=ข 3
อย่างอื่น:b=192
สิ้นสุดถ้า
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8จากนั้น
Intimer.Enabled=เท็จ
Outtimer.Enabled=จริง
สิ้นสุดถ้า
สิ้นสุดย่อย
----หลังจากทำตามขั้นตอนข้างต้นเสร็จแล้ว ให้กดปุ่มเรียกใช้ คุณจะเห็นคำว่า "ระบบการซื้อขายหลักทรัพย์ Harbin SDIC" ปรากฏในรูปแบบจากเล็กไปใหญ่ จากตื้นไปลึก เมื่อตัวอักษรถึง เมื่อขนาดที่กำหนด เมื่อถึงแล้วก็ค่อย ๆ หายไปในรูปแบบเพื่อให้เกิดฟังก์ชันเฟดเข้าและเฟดออก
-