กำหนด SplashScreen ให้กับระบบงานด้วย VB.Net

เวลาเราเรียกใช้งานโปรแกรมต่าง ๆ เช่น Word, PowerPoint, Excel หรือ Application อื่น ๆ เวลาเรียกโปรแกรมจะปรากฎหน้าจอเล็ก ๆ แสดงรายละเอียดของโปรแกรม ระหว่างที่กำลังโหลดโปรแกรมขึ้นมาใช้งาน ซึ่งหน้าจอที่เราเห็นนั้นจะปรากฎมาแค่ชั่วขณะ แล้วก็หายไป หน้าจอเหล่านี้เราเรียกว่า Splash Screen

บทความนี้จะนำท่านสู่การเขียนคำสั่งเพื่อทำ Splash Screen สำหรับระบบงานของเรา ด้วยภาษา Visual Basic 2008 หรือถ้าท่านใดถนัด รุ่น Visual Basic 2010 ก็ใช้ได้เช่นเดียวกัน

1. เปิดโปรแกรม Visual Studio 2008 จากนั้น เลือกเมนู File ---> New Project ที่หน้าต่าง New Project เลือก Visual Basic เลือก Windows เลือก Windows Forms Application จากนั้นที่ช่อง Name ตั้งชื่อตามต้องการ แล้วคลิกปุ่ม OK ดังภาพ













2. สร้างฟอร์ม splash screen โดยทำการคลิกเมาส์ปุ่มขวาที่ ชื่อ โปรเจกต์ ในส่วนของ Solution Explorer เลือก รายการ Add จากนั้นคลิกที่รายการ New Item ดังภาพ





















3. ที่หน้าต่าง Add New Item ให้เลือก Windows Forms แล้วคลิกเลือกที่ Splash Screen จากนั้นที่ช่อง Name ตั้งชื่อตามต้องการ สำหรับตัวอย่างจะตั้งชือในช่อง Name ว่า SplashScreen1.vb แล้วทำการคลิกที่ปุ่ม Add ดังภาพ














4. เราก็จะได้ฟอร์ม Splash Screen ฉบับด่วนจี๋ ดังภาพ
















5. จากนั้นทำการคลิกเมาส์ปุ่มขวาที่ ชื่อโปรเจกต์ ในส่วนของ Solution Explorer เลือก รายการ Properties ดังภาพ





















6. ที่หน้าต่าง Properties ตรงส่วนของ Splash Screen ให้เลือกฟอร์ม SplashScree1 ที่เราได้ทำการสร้างไว้ในข้อ 3 หลังจากเลือกแล้วให้คลิกเมาส์ที่ปุ่ม View Application Events ดังภาพ

















7. ทำการป้อนคำสั่งในส่วนของ Application Events ดังนี้ (อ้างอิงจาก http://www.sourcecodester.com/tutorials/net/how-create-a-splash-screen-vbnet.html)

Namespace My
  Partial Friend Class MyApplication

    Protected Overrides Function OnInitialize( _
        ByVal commandLineArgs As  _
          System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
          ' Set the display time to 5000 milliseconds (5 seconds).
          Me.MinimumSplashScreenDisplayTime = 5000
          Return MyBase.OnInitialize(commandLineArgs)
    End Function
  End Class
End Namespace

จากนั้นคลิกปุ่ม F5 เพื่อทำการเรียกโปรแกรม ก็จะปรากฎ SplashScreen ก่อนที่จะเข้าสู่ระบบงานของเรา