![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
API
文章平均质量分 66
ewang11
这个作者很懒,什么都没留下…
展开
-
全能打手,首推ShellExecute
ShellExecute能打开东西很多,打开外部程序、网页、文件夹、EMAIL、我的文档、我的电脑、回收站等等。一切与系统关联的东西都可以用它来打开,谓之“全能打手”也不过份。Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOper原创 2008-02-16 13:36:00 · 796 阅读 · 0 评论 -
用SetSystemCursor制作一个等待事件的窗体
SetSystemCursor 看名字就知道是设置系统指针的涵数,我们常见的指针型态有手型的、繁忙等待的、水平调整、上下调整等等,根据既定的参数我们很容易把自已喜爱的鼠标指针设置为各种型态,来替代系统的指针。就让我们挖掘其功能,扩展一些新的用法吧。 这一节讲的是怎样利用SetSystemCursor 制作一个等待事件的窗体。准备之前,先在网上找一款动感的自已喜欢的原创 2008-02-18 23:00:00 · 2124 阅读 · 0 评论 -
设置光标的闪动间隔
把下面复制到窗体, 点击文本框就会看到效果判断插入符光标的闪烁频率Private Declare Function GetCaretBlinkTime Lib "user32" () As Long指定插入符(光标)的闪烁频率Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As原创 2008-02-17 15:34:00 · 1661 阅读 · 0 评论 -
调用计算器并返回结果的例子
API调用计算器的例子,实现不同程序的数据交换。此方法同样适用其他OFFICE组件的调用(可能要稍作修改)基本原理:寻找计算器的EDIT句柄,用SendMessage返回结果,并不算复杂。模块代码:Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Strin原创 2008-02-23 21:11:00 · 2131 阅读 · 0 评论 -
从一窗体调用执行另一个窗体命令
要实现从一窗体调用执行另一个窗体命令,不同的人会用不同的方法,有的喜欢通过定义一个公用的涵数,在不同窗体调用相同的涵数;也有的用TIMER事件去触发另一个窗体的事件。这里介绍一个小方法跟大家分享: 窗体1为被调用的窗体名,并建一个按钮作为测试对象: Private Sub Command0_Click() MsgBox "你已经实现了从一窗体执行另一原创 2008-02-20 18:31:00 · 5687 阅读 · 0 评论 -
代码设置窗体的弹出模式
曾经有人问过这个问题,怎样用代码设置ACCESS的PopUp 属性。而PopUp 属性只能在设计模式更改,所以很难用一般常规方法实现。=========================================================== 用途:代码设置窗体的弹出模式 作者: andymark 日期:2008-3-4 Q Q: 42503577 Email: ew原创 2008-03-04 21:46:00 · 2484 阅读 · 0 评论 -
为ACCESS添加多个Timer功能
众所周知,ACCESS只有一个Timer事件,并不能处理多个触发事件,感觉十分不爽。 现在我们可以借助API轻松实现多个定时器,而且调用也比较方便,下面是个简单的例子模块代码:===============================================================功能: 添加多个计时器用法: 设置计时器 SetTimer Me.hwnd, 1,原创 2008-03-19 00:11:00 · 1627 阅读 · 0 评论