精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • 好心人幫我弄弄這個,看看這個程序哪里錯了,怎么改吧~~~謝謝呀

    好心人幫我弄弄這個,看看這個程序哪里錯了,怎么改吧~~~謝謝呀
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
    Private Type POINTAPI
    x As Long
    y As Long
    其他人氣:101 ℃時間:2020-03-26 23:35:29
    優(yōu)質(zhì)解答
    在最后加一個end Type,如下
    Private Type POINTAPI
    x As Long
    y As Long
    End Type
    調(diào)用坐標(biāo)的方法如下:
    Dim P1 As POINTAPI
    GetCursorPos P1
    Label1.Caption = CStr(P1.x) & "," & CStr(P1.y)
    我來回答
    類似推薦
    請使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點,以保證最佳閱讀效果。本頁提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版