บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
อัพเดตล่าสุด เมื่อวันที่ :: 28/06/2551
Screen Saver เป็นโปรแกรมสำหรับพักหน้าจอคอมพิวเตอร์ที่ ทุกคนคงจะรู้จักกันดี แต่น้อยคนที่จะรู้ว่าเราสามารถสร้างมันมาใช้งานเองแบบง่ายได้ด้วย vb.net ดังนี้
ดัง ต.ย.
ขั้นตอนที่ 1 สร้าง Project ใหม่
1. เปิดโปรแกรม Microsfot Visual Studio.NET2005 ขึ้นมา
2. สร้าง Project ใหม่ โดยไปที่ เมนู File เลือก New เลือก Project
3. เลือก Visual Basic Project และ เลือก Windows Application
4. ตั้งชื่อ Project เป็น MyScreenSaver2008 และเก็บไว้ที่ D:\MyProject ดังรูป { หรือถ้าไม่มี D: ก็เป็นไดรฟ์ C: ก็ได้}
5. จากนั้นจะได้ Form ว่างเปล่ามา ให้กำหนด คุณสมบัติของฟอร์มดังนี้
Properties |
Value |
| Name |
FrmScreenSaver |
| BackColor |
Black , Blue { เลือกสีใดสีหนึ่ง ก็ได้ } |
| FormBorderStyle |
None |
| KeyPreviews |
True |
| WindowState |
Maximize |
ุ6. นำ Label จาก ToolBox มาวางบนฟอร์มดังรูป แล้วกำหนดคุณสมบัติของ Label ดังนี้
Properties |
Value |
| Name |
LbScreenSaver |
| BackColor |
กำหนดให้เป็นสีเดียวกันกับฟอร์ม |
| ForeColor |
สีขาว |
| AutoSize |
False |
| Font |
กำหนด Font ให้มีขนาดใหญ่ตามต้องการ |
| Text |
MyScreenSaver2008 |
| TextAlign |
MiddleCenter |
7. นำ Timer จาก ToolBox มาวางบนฟอร์มดังรูป แล้วกำหนดคุณสมบัติของ Timer ดังนี้
Properties |
Value |
| Name |
Timer1 |
| Enabled |
True |
| Interval |
50 |
8. จากนั้นให้ ดับเบิ้ลคลิกที่ Timer ที่เรานำมาวางบนฟอร์ม จะได้หน้าต่าง Code View เพื่อเขียนคำสั่งดังนี้
| Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If LbScreenSaver.Left >= 0 Then
LbScreenSaver.Left -= 10
Else
Dim k As Int16
k = Rnd() * 800 + 1
LbScreenSaver.Top = k
LbScreenSaver.Left = Me.Width
End If
End Sub |
| |
9. สร้างเหตุการณ์ตอนฟอร์มโหลด แล้วเขียนโค้ดดังนี้ { โดยการดัลเบิ้ลคลิกที่ฟอร์ม }
'-- ประกาศตัวแปร Status ก่อน
Dim Status As Int16 = 1
Private Sub FrmScreenSaver2008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Status = 1
End Sub |
| |
10. สร้างเหตุการณ์ FrmScreenSaver2008_KeyPress แล้วเขียนคำสั่งดังนี้
Private Sub FrmScreenSaver2008_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = Chr(27) Then
End
ElseIf e.KeyChar = Chr(13) Then
If Status = 1 Then
Timer1.Stop()
Status = 2
Else
Timer1.Start()
Status = 1
End If
Else
End
End If
End Sub
|
| |
11. สร้างเหตุการณ์ตอน FrmScreenSaver2008_Mouseclick แล้วเขียนโค้ดดังนี้
Private Sub FrmScreenSaver2008_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Clicks Then
End
End If
End Sub
|
| |
12. ทดสอบการทำงานของโปรแกรมโดย กดปุ่ม F5 บนคีย์บอร์ด จะได้ผลลัพธ์ดังรูป
|
หาก เราต้องการทำการ นำโปรแกรมที่ได้ไปใช้งานจริง ให้ทำดังนี้
1. ไปที่ MyComputer แล้วเข้าไปที่โฟลเดอร์ที่เราเก็บงานนี้ไว้ ในที่นี้คือ
D:\MyProject\MyScreenSaver2008\Bin\Debug
2. ให้ทำการเปลี่ยนนามสกุลของไฟล์ จาก
MyScreenSaver2008.exe ให้เป็น MyScreenSaver2008.scr
3. จากนั้นให้ทำการ Copy แล้วไปเก็บไว้ที่ C:\windows\System32
แค่นี้คุณก็ได้โปรแกรม ScreenSaver เป็นของตัวเองแบบง่ายแล้ว ครับ
บทความโดย อ. นัฐพงศ์ ส่งเนียม
http://www.siam2dev.com
|
VB.NET
บทความที่ 35 :: เรื่อง การ สร้าง ScreenSaver แบบง่าย ๆ ด้วยตัวคุณเอง