ตัวอย่างการเข้าถึง

โพสต์เมื่อจันทร์ 14 มกราคม, 2008 - 16:24 | โดย admin |

ผ่านรห​​ัสขนาดเล็กที่เราสามารถต้อนรับผู้ใช้ขึ้นอยู่กับเวลาที่คุณเปิดฟอร์ม ในตัวอย่างนี้เราสามารถมองเห็นข้อความที่แตกต่างกันสาม:
1 Morning-จนกระทั่ง 12:00;
2-Up ที่ดีในช่วงบ่าย 19:00;
3-ระหว่าง 19:00 และ 00:00 ในตอนเย็นดี

เพียงแค่ต้องรหัสขนาดเล็กซึ่งจะเป็นดังนี้:

อวยพรฟังก์ชันสาธารณะ ()
strMsg As String Dim

หากเวลา <# 12:00:00 # แล้ว
strMsg = "Hello! มีวันที่ดี! "
ElseIf เวลา <= # 7:00:00 # แล้ว
strMsg = "Hello! ช่วงบ่าย Good! "
อื่น
strMsg = "Hello! มีคืนที่ดี! "

End If
ตามมาตรฐาน = strMsg
ฟังก์ชั่นเอนด์

จากนั้นจะเรียกรหัสที่เราใช้กล่องข้อความและเป็นที่มาของการตรวจสอบตามมาตรฐานการเขียน = ()

ดาวน์โหลด: ตามมาตรฐาน