ewang11-CSDN博客

原创为ACCESS添加多个Timer功能

众所周知，ACCESS只有一个Timer事件，并不能处理多个触发事件，感觉十分不爽。现在我们可以借助API轻松实现多个定时器，而且调用也比较方便，下面是个简单的例子模块代码:===============================================================功能: 添加多个计时器用法: 设置计时器 SetTimer Me.hwnd, 1,

2008-03-19 00:11:00 1587

原创代码设置窗体的弹出模式

曾经有人问过这个问题，怎样用代码设置ACCESS的PopUp 属性。而PopUp 属性只能在设计模式更改，所以很难用一般常规方法实现。=========================================================== 用途：代码设置窗体的弹出模式作者: andymark 日期:2008-3-4 Q Q: 42503577 Email: ew

2008-03-04 21:46:00 2457

原创调用计算器并返回结果的例子

API调用计算器的例子，实现不同程序的数据交换。此方法同样适用其他OFFICE组件的调用（可能要稍作修改）基本原理：寻找计算器的EDIT句柄，用SendMessage返回结果，并不算复杂。模块代码：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Strin

2008-02-23 21:11:00 2114

原创从一窗体调用执行另一个窗体命令

要实现从一窗体调用执行另一个窗体命令，不同的人会用不同的方法，有的喜欢通过定义一个公用的涵数，在不同窗体调用相同的涵数；也有的用TIMER事件去触发另一个窗体的事件。这里介绍一个小方法跟大家分享：窗体1为被调用的窗体名，并建一个按钮作为测试对象： Private Sub Command0_Click() MsgBox "你已经实现了从一窗体执行另一

2008-02-20 18:31:00 5553

原创用SetSystemCursor制作一个等待事件的窗体

SetSystemCursor 看名字就知道是设置系统指针的涵数，我们常见的指针型态有手型的、繁忙等待的、水平调整、上下调整等等，根据既定的参数我们很容易把自已喜爱的鼠标指针设置为各种型态，来替代系统的指针。就让我们挖掘其功能，扩展一些新的用法吧。这一节讲的是怎样利用SetSystemCursor 制作一个等待事件的窗体。准备之前，先在网上找一款动感的自已喜欢的

2008-02-18 23:00:00 2101

原创设置光标的闪动间隔

把下面复制到窗体, 点击文本框就会看到效果判断插入符光标的闪烁频率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 1636

原创全能打手，首推ShellExecute

ShellExecute能打开东西很多，打开外部程序、网页、文件夹、EMAIL、我的文档、我的电脑、回收站等等。一切与系统关联的东西都可以用它来打开，谓之“全能打手”也不过份。Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOper

2008-02-16 13:36:00 782

Access的天空