注册 登录
Office中国论坛/Access中国论坛 返回首页

andymark的个人空间 http://www.office-cn.net/?882 [收藏] [复制] [分享] [RSS]

日志

分享 限制文本输入大小的例子
2008-3-9 15:22
本示例不需要预先设置文本的个数,也不需虑字体大小的影响,即可实现对文本输入字符个数进行限制。使其始终保持在一个文本的宽度范围内。 LimitTextToControlWidth.rar (2008-03-09 15:22:06, Size: 18 KB, Downloads: 0)
个人分类: API|58 次阅读|0 个评论
分享 打造特色ToolBar
2008-3-7 22:10
Toolbar是ACCESS自带的控件,我比较喜欢用它作为工具栏;同时因为不能设置背景颜色感觉有点美中不足。也曾尝试用API更改其属性,无奈ACCESS获取句柄的方法与VB并不相同。在此还要多谢rjacky兄让我再次回到问题的起点。 本示例旨在改变Toolbar的背景图片和颜色,使窗体更加美观。 & ...
个人分类: API|84 次阅读|0 个评论
分享 制作另类演示版
2008-3-2 13:52
我们常见的演示版有功能限制版、日期限制、也有定时弹出提示注册框等等,每种方法各有千秋。这里介绍另一种方法:自杀式窗体,呵呵说白了就是定时关闭打开的窗体。客户既能体验软件的所有功能,却又不能正常使用,是不是有点意思呢。 没注册版本,窗体将会在30秒内自动关闭(时间间隔可更改)。 ...
个人分类: API|45 次阅读|0 个评论
分享 自定义MsgBox显示位置的例子
2008-2-29 22:49
   Msgbox一般都是正中显示的,本例子可定义其显示的位置 自定义Msgbox位置演示.rar (2008-02-29 22:48:40, Size: 22 KB, Downloads: 0)
个人分类: API|178 次阅读|0 个评论
分享 浅淡DoEvents
2008-2-23 21:18
DoEvents首先给人的错觉是会使运行的程序变慢,同样的语句增加一个DoEvents有时会使程序减速三分之一以上。因此很少人会愿意使用它。我却对它感触良多,特别在关键的问题上,它帮助我处理许多技术的问题。如果你在编程上遇到下面的类型可考虑DoEvents。 & ...
个人分类: 我的作品|108 次阅读|0 个评论
分享 API:调用计算器并返回结果的例子
2008-2-22 21:55
API调用计算器的例子,实现不同程序的数据交换。此方法同样适用其他OFFICE组件的调用(可能要稍作修改) 基本原理:寻找计算器的EDIT句柄,用SendMessage返回结果,并不算复杂。 看似简单的问题,在怎样处理返回结果时,却花了我一整天 ...
个人分类: API|81 次阅读|0 个评论
分享 从一窗体调用执行另一个窗体命令
2008-2-20 16:48
要实现从一窗体调用执行另一个窗体命令,不同的人会用不同的方法,有的喜欢通过定义一个公用的涵数,在不同窗体调用相同的涵数;也有的用TIMER事件去触发另一个窗体的事件。这里介绍一个小方法跟大家分享: 窗体1为被调用的窗体名,并建一个按钮作为测试对象: Pri ...
个人分类: API|82 次阅读|0 个评论
分享 用SetSystemCursor制作一个等待事件的窗体
2008-2-18 22:41
SetSystemCursor 看名字就知道是设置系统指针的涵数,我们常见的指针型态有手型的、繁忙等待的、水平调整、上下调整等等,根据既定的参数我们很容易把自已喜爱的鼠标指针设置为各种型态,来替代系统的指针。就让我们挖掘其功能,扩展一些新的用法吧。 这一节讲的是怎样利用SetSystemCursor 制作 ...
个人分类: API|117 次阅读|0 个评论
分享 今人迷惑的CreateCaret
2008-2-17 17:21
CreateCaret 按功能说明,允许以位图创建新的标记形状,允许调节插入符的宽度和高度 在网上找到一篇在ACCESS调用CreateCaret文章(Dev Ashish) CODE: Private Declare Function apiCreateCaret Lib "user32" _ Alias "CreateCaret" _ (ByVal hwnd As Long, _ ByVal hBitmap As Long, _ ByVal nWidth As Long, _ ByVal nHe ...
个人分类: API|195 次阅读|0 个评论
分享 设置光标的闪动间隔
2008-2-17 15:22
  把下面复制到窗体, 点击文本框就会看到效果 '判断插入符光标的闪烁频率 Private Declare Function GetCaretBlinkTime Lib "user32" () As Long '指定插入符(光标)的闪烁频率 Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long Dim OldBlinkTime As Long, Retval As Long ...
个人分类: API|111 次阅读|0 个评论

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-7 07:12 , Processed in 0.062933 second(s), 13 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部