นำมาฝากครับ แสดงวันที่และเวลาหน้าฟอร์มเวลาจริง
กระทู้เก่าบอร์ด อ.Yeadram

 1,277   4
URL.หัวข้อ / URL นำมาฝากครับ แสดงวันที่และเวลาหน้าฟอร์มเวลาจริง

แสดงวันที่และเวลาหน้าฟอร์มเวลาจริง

นำโค๊ดนี้มาวางที่ฟอร์มหลักที่ต้องการ

Private Sub Form_Timer()
Me!lblClock.Caption = Format(Now, "วัน dddd ที่ d mmmm yyyy เวลา hh:mm:ss AMPM") 'Full Clock
'Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM") 'Full Clock
'Me!lblClock.Caption = Format(Now, "hh:mm:ss AMPM")
End Sub

Private Sub cmdClockStart_Click()
Me.TimerInterval = 1000
End Sub

Private Sub cmdClockEnd_Click()
Me.TimerInterval = 0
End Sub

แล้วสร้างป้ายชื่อขึ้นมา กำหนดชื่อให้เป็น lblClock

ก็จะได้ วันที่และเวลาเดินจริงๆหน้าฟอร์มครับผม

เครดิต Ittiphol Live
โดย: โอ๋ เมื่อ: 3 มี.ค. 2558 , 08:51

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R20149
กำหนด properties Timer Interval ของฟอร์มมีค่าเท่ากับ 1000 ด้วยนะครับ
โดย: โอ๋ เมื่อ: 3 มี.ค. 2558 , 09:20
2 @R20159
ส่วนตัวผม ไม่เห็นด้วยกับการทำ feature นี้ครับ เพราะ
1. การใช้ Timer แปลว่า สั่งให้มีการคำนวณตลอดเวลา ซึ่งเปลือง cpu ครับ
2. Windows สามารถแสดงเวลา ที่ Icon tray ได้อยู่แล้ว
ยกเว้นแต่มีเงื่อนไขพิเศษ
โดย: PichaiTC เมื่อ: 4 มี.ค. 2558 , 21:58
3 @R20166
เห็นด้วยอย่างแรงกับคุณ PichaiTc เพราะอีนางแอ็คเซสน่ะ เค้าไม่มีความสามารถทางด้ายสายป่าน แปลมั่วซั่วจาก (Threading) เพราะงั้นอย่าได้ทำเชียว
    แต่ถ้าอยากทำก็ทำได้นะ มันก็จะช่วยดึงระบบอันชาญฉลาดของคุณให้คลานเป็นเต่าสี่ขา นะสิ...

SAY NO...
โดย: Miss Lilly เมื่อ: 5 มี.ค. 2558 , 21:15
4 @R20182
โหๆๆ ขอบคุณมากๆเลย หาวิธีมานานละครับ
เอาไว้ทำโปรแกรมแบบเต็มจอ แบบพวกเซเว่น เขาจะมี เวลาแสดงตัวใหญ่ๆหน้าโปรแกรมเลย เอาไว้ดูเวลาทำงานเป็นกะได้

เมนูด้านล่างจะไม่มีให้ดูเวลากับวันที่
ถ้าแค่มีเวลาแสดงแล้วทำให้คอมช้า ผมว่าคอมนี่คงกากๆๆประมาณยุคบางระจันแล้วละครับ
โดย: โชค เดอะสตาร์ เมื่อ: 7 มี.ค. 2558 , 07:58
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3721s