17
ห้อง MS Access / ขอคำแนะนำเรื่องการสร้างตัวหนังสือวิ่งบนฟอร์ม
« เมื่อ: 01 พ.ย. 62 , 10:31:42 »
ไม่ทราบว่ามีเทคนิคทำตัวหนังสือวิ่งที่ smooth ใน ms access มั้ยครับ ผมใช้ On_timer แต่รู้สึกว่าไม่ค่อย OK มันวิ่งไม่ smooth เลยครับ กระตุกตาม timer
Private Sub Form_Timer()
Dim strMsg As String ' ข้อความที่จะให้วิ่ง
Dim MsgLen As Integer
strMsg = DLookup("PharmacyMsgText", "TableMsg") + " "
MsgLen = Len(Me.Label0.Caption)
If MsgLen > 0 Then
Me.Label0.Caption = Mid(Me.Label0.Caption, 2, MsgLen)
Else
Me.Label0.Caption = strMsg
End If
อยากได้แบบนี้ครับ
https://ispying.blogspot.com/2016/03/blog-post.html
Private Sub Form_Timer()
Dim strMsg As String ' ข้อความที่จะให้วิ่ง
Dim MsgLen As Integer
strMsg = DLookup("PharmacyMsgText", "TableMsg") + " "
MsgLen = Len(Me.Label0.Caption)
If MsgLen > 0 Then
Me.Label0.Caption = Mid(Me.Label0.Caption, 2, MsgLen)
Else
Me.Label0.Caption = strMsg
End If
อยากได้แบบนี้ครับ
https://ispying.blogspot.com/2016/03/blog-post.html
