Private Declare Sub

最新推荐文章于 2022-03-28 13:47:03 发布
最新推荐文章于 2022-03-28 13:47:03 发布
阅读量2.3k 收藏 2
点赞数
分类专栏： VB学习 文章标签： visual basic windows

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

声明引用一个私有的函数Sleep()，参数是一个长整形的参数（毫秒数）。
Lib “kernel32”标明这个函数是引用kernel32.dll提供的函数。Kernel32.dll是windows的四个核心库之一。
是用来延时n毫秒的。函数 无返回值。
在Visual Basic中，按值传递方式通过关键字 ByVal (By Value)来实现。也就是说，在定义通用过程时，如果形参前面有关键字ByVal，则该参数用传值方式传送，否则即以引用（即按地址）方式传递。

FalseBamboo
关注
专栏目录
VBA 程序加密破解
nobody
11-09 1万+
VBA程序密码破解：避开VBA工程密码验证，即，骗vba编辑器，该密码输入成功，请求放行。
VB模拟鼠标类
rsice的专栏
12-19 680
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long) Private Declare Sub keybd_event Lib "user32" ...
VBA编程（一）
bill20100829的博客
03-28 847
学习VBA编程 Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Sub Macro1() ' ' Macro1 Macro ' Dim VarValue1, VarValue2 As String Dim varMaxcolcount, varMaxrowcount, varIsMoveUp, varNowcol, varNowrow, i, Varcolor1, Varc...
Private Sub Commandl_Click()
11-08
Private Sub Commandl_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a − 1 Loop While a <= 0 Print s; a End Sub
declare语句
水中木的专栏
07-01 1323
1.语法VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。 VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。 语句格式为：Declare Sub 过程名 Lib [ Alias " 别名] （[ByVal 参数 AS 类型
条款22：将成员变量声明为private(Declare data members private)
weixin_30267785的博客
09-14 83
NOTE： 1.切记将成员变量声明为private。这可赋予客户访问数据的一致性 可细微划分访问控制 允诺约束条件获得保证，并提供class作者以充分的实现弹性。 2.protected 并不比public更具有封装性。 转载于:https://www.cnblogs.com/chip/p/4808307.html...
vb6.0中的Private Declare Function的含义
qq_38406587的博客
04-14 3864
vb中的Private Declare Function是什么意思 ━━━━━━━━━━━━━━━━━━━━━━━━━ 一、Private Declare Function 用于在VB中声明API函数。 （1）Private表示声明的函数只能用于当前窗口或模块中，如果改成Public，则可以用于当前VB工程的所有窗口或模块（用Public声明时，需要放在某个模块中）； （2）Declare是声明的...
VB.NET Declare语句
chinaherolts2008的博客
12-11 841
本文是看了网上很多零碎的知识点总结而成，要感谢广大网友的智慧 Declare语句 用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。 语法 1 [Public | Private] Declare Sub name Lib “libname” [Alias “aliasname”] [([arglist])] 语法 2 [Public | Private] Declare Function name Lib “libname” [Alias “aliasname”] [([arglist])]
'VA: 4164EC Private Declare Sub IcmpCloseHandle Lib "icmp"() 'VA: 4164A4 Private Declare Sub IcmpSendEcho Lib "icmp"() 'VA: 41645C Private Declare Sub IcmpCreateFile Lib "icmp"() 'VA: 416404 Private Declare Sub inet_addr Lib "wsock32"() 'VA: 4163A0 Private Declare Sub WSACleanup Lib "wsock32"() 'VA: 41635C Private Declare Sub WSAGetLastError Lib "wsock32"() 'VA: 416314 Private Declare Sub WSAStartup Lib "wsock32"() 'VA: 4162D0 Private Declare Sub gethostbyname Lib "wsock32"() 'VA: 416288 Private Declare Sub gethostname Lib "wsock32"()
07-13
这段代码是使用 Visual Basic 的 Declare 语句声明了一系列函数。这些函数主要与网络通信和 ICMP 协议相关。 - IcmpCloseHandle: 关闭 ICMP 句柄的函数。 - IcmpSendEcho: 发送 ICMP 回显请求的函数。 - ...
代码修正：Option Explicit Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare PtrSafe Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long Private Declare PtrSafe Function EmptyClipboard Lib32" () As Long Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Const CF_BITMAP = 2 Private Const SRCCOPY = &HCC0020
最新发布
07-25
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe ...
帮我优化这段代码Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Type POINTAPI X As Long Y As Long End Type Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 2 End Sub Private Sub Timer1_Timer() Dim p As POINTAPI GetCursorPos p Cls AutoRedraw = True dc = GetDC(0) GetCursorPos p Print GetPixel(dc, p.X, p.Y) ReleaseDC 0, dc End Sub以至于可以使用mscomm控件向PLC发送鼠标指定位置颜色数据
05-24
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private ...
VBA中让程序休眠 SLeep的方法
热门推荐
sun0322
08-02 3万+
在最上部，定义 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 在程序中 Sleep 500
c++如何获取文件时间_VBA代码解决方案的第79讲内容：如何获取文件信息
weixin_39838231的博客
11-25 274
大家好，我们今日继续讲解VBA代码解决方案的第79讲内容：如何获取文件信息。在具体的代码编写中，我们往往会用到文件的信息。通过文件信息的识别来确定下一步的操作，那么如何能获得文件的信息呢？这时可以使用File对象的Getfile方法。 Getfile方法返回一个和指定路径中文件相对应的File对象，语法如下：object.GetFile(filespec)参数a) object是必须的，FileS...
vb中空操作（等待）的指令、延时方法
miaozk2006的专栏
07-28 2132
一、vb中空操作（等待）的指令是什么━━━━━━━━━━━━━━━━━━━━━━━━━━请调用windows api的sleep函数 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)例如:Call Sleep(1000) '程序等待1秒━━━━━━━━━━━━━━━━━━━━━━━━━━用"时间控件"也可以。tim...
VBA延时的三个方法--以及声明之后，使用sleep报错的解决方案（declare ptrsaft）
STR_Liang的博客
03-03 1万+
查阅相关资料，获取较为可行的三个方法为： 1、一般延时（计时单位为秒级，1代表1s，下面两种方法皆是毫秒级，1000代表1s） 一个应用接口需要限制运行速度，需要在循环中加个延时函数，这个延时不需要多么精确，要求有个几秒延时，网上用的比较多的就是用Timer函数编写，Timer是VBA自带的函数，用起来比较方便，一般程序如下： '延时程序 Sub delay(T As Single) ...
解决 vba 报错：要在64位系统上使用，请检查并更新Declare 语句
jieru_liu的博客
06-24 1万+
将错误处的 “Declare”替换成“Declare PtrSafe” 即可
vb延时的几种方法
qq_38698722的博客
09-22 2万+
作者：iamlaosong1、一般延时一个应用接口需要限制运行速度，需要在循环中加个延时函数，这个延时不需要多么精确，要求有个几秒延时，网上用的比较多的就是用Timer函数编写，Timer是VBA自带的函数，用起来比较方便，一般程序如下：‘延时程序 Sub delay(T As Single) Dim time1 As Single time1 = Timer Do
VB精确延时API
林毅洋
04-07 1675
'延时 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() '延时1秒=1000毫秒 sleep(1000) End Sub
VB EXCEL 2007 TO 2003
laotou99的专栏
04-03 1730
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Public Sub translateFormat(strS1 As String, strD1 As String, strPath As String) ' Dim xlApp As New Excel.Application D
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值