ก่อนอื่นเลยก็ขอแนะนำตัว หน่อยละกัน เป็นใครมาจากใหน น่ะ เออ.ก็ขอเอ่ยนามเลยนะครับ เพื่อนในวงการเขาจะเรียกผมว่า "bemler" โปรแรมเมอร์ พอเบมๆ แต่รับรองประฝีมือมิ เบมอย่างที่คิดแน่ นอน.ครับ เอาเรื่องนี้เป็นต้นว่าสำหรับผมแล้วเป็นคนทำงานกับเครื่องคอมพิวเตอร์ตลอด บางทีก็มีเผลอหลับบ้าง บางทีก็ตังใจหลับบ้าง ที่จริงก็มีซอร์ฟแวร์ vbเนี่ยเขียนนาฬิกาปลุกอยู่ แต่มันก็ไม่ถูกใจเหมือนกับของที่ตัวเราทำเอง สร้างเองหรอก นะครับ เพราะถ้าเราสร้างเองทำเองเราก็ภุมิใจ มากกว่าแน่นอนนะสิ จริงใหมครับ ฮ่าๆๆ พูดง่ายๆ ของใครใครก็รัก ว่างั้นเหอะเนาะ.  เอาเข้าเรื่องกันเลย เนาะก่อนอื่นที่เราจะเริ่มเขียนโปรแกรมขึ้นมาใช้งานเอง หวังว่าทุกคนต้องมี VB6 อยู่ในเครื่องแล้วนะครับ เราต้องการสร้างโปรแกรมที่มีหน้าตาแบบหนี้เหนือฟอร์มทุกฟอร์มแน่นอนครับมีนาฬิกาเราต้อง จำเป็นต้องใช้ control timer และโมดูลการตัดรูปภาพ สัปดาห์หน้าค่อยแสดงโค้อทั้งหมดนะครับแต่สำดาห์แรกเราขอเกริ่นๆ เรียกน้ำย่อยก่อนนะครับ                                                                                                                                  Private Sub Form_Load()
Set Skin = New transparent 'นี่หล่ะครับสร้างฟอร์มของเราให้เป็นรูปภาพที่เราต้องการ (เรียกจาโมดูลนะครับ)
Skin.MakeTransparent Me, RGB(255, 0, 255)'(ตัดพื้นหลังรูปภาพที่เป็นสีชมพูทั้งหมดทิ้งไป)
Label1.Caption = Time
Label1.BackColor = RGB(0, 255, 0)
SongFile = ReadFile(App.Path & "music.dat")
'Call Song
'MsgBox "ไฟล์ที่เล่นเพลงคือ" & App.Path & "" & SongFile, vbOKOnly, "บอกเล่า"
'MsgBox Format$(Time, "h:nn:ss")'ตัวอย่าเช่น 9:05:33
 SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
Image1(0).Visible = False
Image1(1).Visible = True
Me.Show

timer1.enable=true'timer ทำงานครับ

timer1.interval=100'1 วินาทีครับ

End Sub

ส่วนของ timer

Private Sub Timer1_Timer()
GetCursorPos ptMaus
 Label1.Caption = Time ' Setting the caption of the main window on the form to the current system time
If strTM = Format$(Time, "h:nn:ss") Then
Timer1.Enabled = False
 Call WakeupForm
End If
End Sub

สับดาห์หนี้แค่นี้ก่อนนะครับเดี๋ยวฉะบับถัดไปสัปดาห์หน้ารับรองเสร็จแน่นอนครับ.

Download ได้ที่

http://student.cs.kku.ac.th/443230210-7/doc/source_code.zip