您现在的位置: 首页 > 网站导航收录 > 百科知识百科知识

screentoclient screentoclient是哪个库

教程,的人,忘恩负义screentoclient screentoclient是哪个库

发布时间：2020-12-06加入收藏来源：互联网点击：

很多朋友想了解关于screentoclient的一些资料信息，下面是小编整理的与screentoclient相关的内容分享给大家，一起来看看吧。

【分享成果，随喜正能量】多心的人注定活得辛苦，因为太容易被別人的情绪所左右。多心的人总是胡思乱想，结果是困在一团乱麻般的思绪中，动弹不得。有时候，与其多心，不如少根筋。目光短浅的人总是“忘恩负义”，危机时到处求助，事成之后再不露面。求人时信誓旦旦，得逞后胡作非为。这种人最被人鄙视。“忘恩负义”让朋友伤心，“忘恩负义”是急功近利的表现。“忘恩负义”只得益于一时，却会永远失信于人。切忌过河拆桥！过河拆桥，会断了自己的后路。

跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？

这讲我们继续学习64位Office API声明语句学习之60讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。

Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Declare PtrSafe Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long

Declare PtrSafe Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long

Declare PtrSafe Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

Declare PtrSafe Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

Declare PtrSafe Function SetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As LongPtr) As LongPtr

Declare PtrSafe Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Declare PtrSafe Function ClipCursor Lib "user32" Alias "ClipCursor" (lpRect As Any) As Long

Declare PtrSafe Function GetCursor Lib "user32" Alias "GetCursor" () As LongPtr

Declare PtrSafe Function GetClipCursor Lib "user32" Alias "GetClipCursor" (lprc As RECT) As Long

Declare PtrSafe Function CreateCaret Lib "user32" Alias "CreateCaret" (ByVal hwnd As LongPtr, ByVal hBitmap As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Declare PtrSafe Function GetCaretBlinkTime Lib "user32" Alias "GetCaretBlinkTime" () As Long

Declare PtrSafe Function SetCaretBlinkTime Lib "user32" Alias "SetCaretBlinkTime" (ByVal wMSeconds As Long) As Long

Declare PtrSafe Function DestroyCaret Lib "user32" Alias "DestroyCaret" () As Long

Declare PtrSafe Function HideCaret Lib "user32" Alias "HideCaret" (ByVal hwnd As LongPtr) As Long

Declare PtrSafe Function ShowCaret Lib "user32" Alias "ShowCaret" (ByVal hwnd As LongPtr) As Long

Declare PtrSafe Function SetCaretPos Lib "user32" Alias "SetCaretPos" (ByVal x As Long, ByVal y As Long) As Long

Declare PtrSafe Function GetCaretPos Lib "user32" Alias "GetCaretPos" (lpPoint As POINTAPI) As Long

Declare PtrSafe Function ClientToScreen Lib "user32" Alias "ClientToScreen" (ByVal hwnd As LongPtr, lpPoint As POINTAPI) As Long

Declare PtrSafe Function ScreenToClient Lib "user32" Alias "ScreenToClient" (ByVal hwnd As LongPtr, lpPoint As POINTAPI) As Long

Declare PtrSafe Function MapWindowPoints Lib "user32" Alias "MapWindowPoints" (ByVal hwndFrom As LongPtr, ByVal hwndTo As LongPtr, lppt As Any, ByVal cPoints As Long) As Long

#If Win64 Then

Declare PtrSafe Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal Point As LongLong) As LongPtr

Declare PtrSafe Function ChildWindowFromPoint Lib "user32" Alias "ChildWindowFromPoint" (ByVal hWnd As LongPtr, ByVal Point As LongLong) As LongPtr

Declare PtrSafe Function ChildWindowFromPointEx Lib "user32" Alias "ChildWindowFromPointEx" (ByVal hWnd As LongPtr, ByVal pt As LongLong, ByVal un As Long) As LongPtr

Declare PtrSafe Function DragDetect Lib "user32" Alias "DragDetect" (ByVal hWnd As LongPtr, ByVal pt As LongLong) As Long

Declare PtrSafe Function MenuItemFromPoint Lib "user32" Alias "MenuItemFromPoint" (ByVal hWnd As LongPtr, ByVal hMenu As LongPtr, ByVal ptScreen As LongLong) As Long

' Copies a POINTAPI into a LongLong. For an API requiring a ByVal POINTAPI parameter,

' this LongLong can be passed in instead. Example API's include WindowFromPoint,

' ChildWindowFromPoint, ChildWindowFromPointEx, DragDetect, and MenuItemFromPoint.

Function PointToLongLong(point As POINTAPI) As LongLong

Dim ll As LongLong

Dim cbLongLong As LongPtr

cbLongLong = LenB(ll)

' make sure the contents will fit

If LenB(point) = cbLongLong Then

CopyMemory ll, point, cbLongLong

End If

PointToLongLong = ll

End Function

#Else

Declare PtrSafe Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPtr

Declare PtrSafe Function ChildWindowFromPoint Lib "user32" Alias "ChildWindowFromPoint" (ByVal hWnd As LongPtr, ByVal xPoint As Long, ByVal yPoint As Long) As LongPtr

Declare PtrSafe Function ChildWindowFromPointEx Lib "user32" Alias "ChildWindowFromPointEx" (ByVal hWnd As LongPtr, ByVal ptX As Long, ByVal ptY As Long, ByVal un As Long) As LongPtr

Declare PtrSafe Function DragDetect Lib "user32" Alias "DragDetect" (ByVal hWnd As LongPtr, ByVal ptX As Long, ByVal ptY As Long) As Long

Declare PtrSafe Function MenuItemFromPoint Lib "user32" Alias "MenuItemFromPoint" (ByVal hWnd As LongPtr, ByVal hMenu As LongPtr, ByVal ptScreenX As Long, ByVal ptScreenY As Long) As Long

#End If

第1套教程：VBA代码解决方案

第2套教程：VBA数据库解决方案

第3套教程：VBA数组与字典解决方案

第4套教程：VBA代码解决方案之视频（第一套的视频讲解）

第5套教程：VBA中类的解读和利用

第6套教程：VBA信息获取与处理

第7套教程：VBA之EXCEL应用

第8套教程：VBA之Word应用（最新推出）

上述教程的学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

本文到此结束，希望对大家有所帮助呢。