สมัครสมาชิก
 

ขอคำแนะนำเรื่องการสร้างตัวหนังสือวิ่งบนฟอร์ม



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

01 พ.ย. 62 , 10:31:42
อ่าน 172 ครั้ง

chai

ไม่ทราบว่ามีเทคนิคทำตัวหนังสือวิ่งที่ 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 link
« แก้ไขครั้งสุดท้าย: 01 พ.ย. 62 , 11:11:52 โดย chai »

 

02 พ.ย. 62 , 03:28:07
ตอบกลับ #1

TTT

ลองใช้เว็บเบราเซอร์ดูไม๊ครับ
https://youtu.be/bEY-l75nGqM?t=1332 link
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator link
 
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31

02 พ.ย. 62 , 07:51:38
ตอบกลับ #2

chai

WOW!!!! แบบนี้ก็ได้ด้วย ขอบคุณมากครับ

 

04 พ.ย. 62 , 16:31:07
ตอบกลับ #3

chai

มันปรับขนาดตัวอักษรให้ใหญ่ขึ้นได้มั้ยครับ ผมลองปรับแล้วไม่ได้ ไม่ทราบว่าแก้ code ตรงไหน
Me.WebBrowser1.Object.Document.write "<marquee direction='left' scrolldelay='150'><Font size='72' face='Tahoma' Color='green'>" & strMsg & "</Font></marquee>"

 

06 พ.ย. 62 , 15:33:01
ตอบกลับ #4

PNR

ลองเพิ่มเติมนิดหน่อยเป็นแบบนี้ครับ

โค๊ด: [Select]
Dim strMSG As String
Dim Mbody As String
strMSG = "ข้อความที่จะแสดง"
Mbody = "<p style=""font-size:32px;""><marquee behavior=""scroll"" direction=""left""> " & strMSG
Me.WebBrowser1.Object.Document.write Mbody

ตรง font-size:32px  กำหนดขนาดได้เลยครับ
ถ้าอยากเพิ่มเติมอะไรเข้าไปเช่นสีของตังอักษรก็ใส่

หรืออยากใส่ลูกเล่นให้เยอะกว่านั้นเช่นกำหนดสีตัวอักษร กำหนดชื่อตัวอักษร กำหนดสีแบลคกราว ก็ใส่

Dim strMSG As String
Dim Mbody As String
strMSG = "ข้อความที่จะแสดง"
Mbody = "<html><head><script language=""javascript"">function noScroll(){document.body.scroll=""no"";}" & _
"</script><STYLE>BODY { border-style:none;}</STYLE></head><body onload=javascript:noScroll(); topmargin=""0"" leftmargin=""0"">" & _
"<body bgcolor=""#ffaeae""><p style=""font-size:32px;color:#FF0000;font-family: courier new"" ><marquee behavior=""scroll"" direction=""left"">" & _
strMSG & _
"</marquee></body></html>"

Me.WebBrowser1.Object.Document.write Mbody


ส่วนสีตัวอักษรอยากได้สีัไหนไปดู Color Hex มาใส่แทนได้เลยที่
https://www.color-hex.com/color/ff0000 link
« แก้ไขครั้งสุดท้าย: 06 พ.ย. 62 , 15:48:57 โดย PNR »
:meaw: :grin: :shout:
 
โพสต์นี้ได้รับคำขอบคุณจาก: chai

06 พ.ย. 62 , 16:05:24
ตอบกลับ #5

chai

ขอบคุณมากครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย