设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛 › 日志

日志

分享用VB编写FLASH动画播放器: haemon 2008-2-28 07:58; 用VB编写FLASH动画播放器01-05-04 -------------------------------------------------------------------------------- 　　Flash4是MacroMedia公司出品的矢量动画创作专业软件，利用该 ...; 个人分类: VBA|881 次阅读|0 个评论

分享隐藏和显示菜单和工具栏: haemon 2008-2-18 10:41; 　　可以用CommandBar对象的Visible属性来隐藏和显示工具栏，当你显示一个工具栏的时候，你可以用Position属性来指定工具栏应该显示在屏幕的哪一个地方，例如，下面的一段程序需要三个参数，strCBarName表示要显示或隐藏的工具栏名称，blnVisible表示是隐藏还是要显示，可选参数lngPosition表示工具栏显示的位置，默认是显 ...; 个人分类: VBA|997 次阅读|0 个评论

分享如何查看引用: haemon 2008-2-16 21:55; Function ReferenceInfo() Dim strMessage As String Dim strTitle As String Dim refItem As Reference On Error Resume Next For Each refItem In References If refItem.IsBroken Then ...; 个人分类: VBA|757 次阅读|0 个评论

分享 VB变量名后跟的符号是什么意思?: haemon 2008-2-16 19:34; VB变量名后跟的符号是什么意思? 在有些例程中, 在声明变量的时候经常能看到一个变量名后跟着一些符号, 让一些VB新手还真是看得一头雾水了.那么到底是什么意思呢? 其实我觉得是老比尔有点在故弄玄虚了, 每种符号其实是对应的一种变量类型: $ string % integer # ...; 个人分类: VBA|1344 次阅读|0 个评论

分享 ADO连接字符串: haemon 2008-2-11 14:34; This page contains sample ADO connection strings for ODBC DSN / DSN-Less, OLE DB Providers, Remote Data Services (RDS), MS Remote, MS DataShape. Also included are ADO.NET connection strings for each .NET Managed Provider (SQLClient, OLEDB, and ODBC). These sample connection strings are comp ...; 个人分类: VBA|1096 次阅读|0 个评论

分享 API 函数集锦: haemon 2008-2-11 13:34; API函数集锦 API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。幸运的是ACCESS使用的VBA也能很好的引入API函数 1、如何让窗体总在最前面？ *API函数声明 DeclareFunctionSetWindowPosLib&nb ...; 个人分类: VBA|168 次阅读|0 个评论

分享别让MsgBox中断了一些Background的处理作业: haemon 2008-2-11 12:52; 别让MsgBox中断了一些Background的处理作业一旦您呼叫了MsgBox，您正在执行的一些Background的处理作业，例如计数器或时钟...等，都会停下来，直到您回应了MsgBox之后，一切才会恢复正常！或许您并不希望如此，这也有可能造成一些不必要的错误！要解决这个问题，您必须使用Wi ...; 个人分类: VBA|102 次阅读|0 个评论

分享如何确定有多少人登陆数据库？: haemon 2008-2-11 09:59; SubShowUserRosterMultipleUsers() DimcnAsNewADODB.Connection Dimcn2AsNewADODB.Connection DimrsAsNewADODB.Recordset Dimi,& ...; 个人分类: VBA|127 次阅读|0 个评论

分享分享抄来的"试用版限制时间与日期的方法": haemon 2008-1-29 22:38; 抄来的试用版限制时间与日期的方法, 看看对朋友们有没有帮助的. 可用注册表简单地保存已用的天数或次数 ' 次数限制（如30次）： Private Sub Form_Load() Dim a As Long Dim b As Long b = GetSetting("MyApp", "set", "times", 51345) a = b Xor 51345 If a 30 Then MsgBox "现在剩下：" 30 - a "试用次数 ...; 个人分类: VBA|198 次阅读|0 个评论

分享关闭窗体时不保存: haemon 2008-1-29 22:25; PrivateSubFORM_BeforeUpdate(CancelAsInteger) 　　　 IfMsgBox(" 保存吗 ?",vbYesNo,Me.Caption)vbYesThen 　　　　　 Cancel=True 　　　 & ...; 个人分类: VBA|101 次阅读|0 个评论

12 / 2 页下一页

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

GMT+8, 2024-5-15 00:41 , Processed in 0.107745 second(s), 13 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部