ผมเขียนโค๊ด VB6 นะครับ รับค่าแกน X.Y จากตำแหน่งเคอร์เซอร์บนฟอร์ม มาแสดงที่ Textbox ได้แล้วครับ แต่ถ้าเลื่อนเคอร์เซอร์ออกนอกฟอร์ม ค่าที่แสดงบน Textbox ก็จะหยุดรับค่าจากเม้าส์ คำสั่งที่ผมใช้คือ Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ซึ่งมันจะรับค่าแค่ในฟอร์มเท่านั้น แต่ผมต้องการให้รับค่า ของทั้งหน้าจอเลยครับ ไม่รู้ว่ามีชื่อออปเจค หน้าจอ หรือเปล่าครับ ผมไม่ทราบจริงๆ ช่วยตอบทีนะครับ ขอบคุณครับ
จากคุณ
:
Begin [2008-03-04 22:04:30]
ความคิดเห็น #26595 (จาก IP: 203.156.142.66)
Option Explicit
Private Type POINTAPI X As Long Y As Long End Type
Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long
'*********************** 'THESE TWO FUNCTIONS RETURN THE POSITION ON THE SCREEN 'IN PIXELS, OF THE CURSOR
'EXAMPLE USAGE:
'Private Sub Form_MouseMove(Button As Integer, _ 'Shift As Integer, X As Single, Y As Single)
' Label1.Caption = "X Screen Position = " & GetXCursorPos ' Label2.Caption = "Y Screen Position = " & GetYCursorPos 'End Sub '***********************************
Public Function GetXCursorPos() As Long Dim pt As POINTAPI GetCursorPos pt GetXCursorPos = pt.X End Function
Public Function GetYCursorPos() As Long Dim pt As POINTAPI GetCursorPos pt GetYCursorPos = pt.Y End Function
จากคุณ
:
sup98 [2008-03-06 09:33:47]
ความคิดเห็น #26599 (จาก IP: 222.123.108.17)
ลองรันดูแล้ว ลาเบลไม่แสดงค่าแกน X Y เลยครับ โค๊ดที่เขียนเป็น VB6 หรือเปล่าครับ หรือว่าต้องมีอะไรเพิ่มเติมอีกครับ อธิบายทีนะครับ ขอบคุณมากๆเลยครับ
จากคุณ
:
Begin [2008-03-07 03:05:03]
ความคิดเห็น #26600 (จาก IP: 222.123.108.17)
ถามเพิ่มจาก คคห บนนะครับ คือว่า ต้องการให้สามารถแสดงค่าตัวเลขการเคลื่อนที่ของเมาส์ ที่อยู่นอก Form ครับโค๊ดที่เขียนมา ผมรันดู มันรับค่าได้แค่ใน Form นะครับ หรือถ้ารับค่านอก Form ได้ ช่วยอธิบายเพิ่มเติมทีนะครับ ขอบคุณมากๆครับ
New Article
อัตราค่าโฆษณา
กระทู้ #1865 [Vb] (จาก IP: 124.157.137.19)
ความคิดเห็น #26595 (จาก IP: 203.156.142.66)
