设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

置顶 ·分享 链接收藏
zhuyiwen 2012-10-8 10:10
更新日期: 2012-10-08 —— 一些非常好的链接,呵呵。 VB6 http://www.vbaccelerator.com/home/index.asp http://www.vbforums.com/showthread.php?348141-Index-to-FAQ-s-Classic-VB-(VB6-and-earlier) http://www.a1vbcode.com/ (a1VBCode) http://www.planetsourcecode.com/vb/defau ...
个人分类: Live|14891 次阅读|2 个评论 热度 2
分享 Windows 脚本组件技术(转)
zhuyiwen 2016-5-4 09:36
Windows 脚本组件技术为开发者提供了用脚本语言创建功能强大、可复用的 COM 组件的简便方式。开发者可以使用任何支持 Microsoft ActiveX Scripting 接口的脚本语言来创建脚本组件,支持这些接口的脚本语言有 JScript、VBScript 和 PERLScript 等。使用脚本组件可以为多种任务创建 COM 组件,如访问和操作数据库数据、给应 ...
个人分类: VBA|2633 次阅读|1 个评论 热度 1
分享 VB Variant 数据类型与用户自定义类型
zhuyiwen 2013-9-28 12:41
在 VB 的标准工程的标准模块中: Public Type EventRecord TriTime As Date TriType As String CallMobile As String End Type Sub testVariant() Dim er As Event ...
个人分类: VBA|5297 次阅读|0 个评论
分享 XML 与 ADO Recordset
zhuyiwen 2013-9-28 10:20
如何从 XML 中获取 ADO 记录集(How To Obtain an ADO Recordset from XML) 朱亦文译 (2013-09-28) 原文地址: http://support.microsoft.com/kb/263247/en-us http://support.microsoft.com/kb/263247/zh-cn?spid=683sid=273 概要 如果有一个 XML 字符串或文档,通过使用集成在 Microsoft ADO 2.5 Str ...
个人分类: VBA|1366 次阅读|0 个评论
分享 Winsock API 检测 SQL Server 实例
zhuyiwen 2013-5-11 10:56
模块部分: Option Explicit Public Const SOCKET_ERROR = -1 Public Const AF_INET = 2 Public Const PF_INET = AF_INET Public Const MAXGETHOSTSTRUCT = 1024 Public Const SOCK_STREAM = 1 Public Const MSG_PEEK = 2 Private Type SockAddr sin_family As Integer sin ...
个人分类: VBA|1904 次阅读|3 个评论 热度 3
分享 在模块中使用Property Get语句
zhuyiwen 2012-10-7 09:40
通常,一般只在类模块使用属性过程,我从来没想过在模块中使用属性过程。这两天学习 VB_SGrid2 例程,发现在模块中一样可以使用属性过程。 如:在模块 mGrid 中 ' System detection Private Declare Function GetVersion Lib "kernel32" () As Long ' Private variables Private ...
个人分类: VBA|862 次阅读|0 个评论
分享 关于 VBA 中 Public Function NewEnum() As IUnknown
zhuyiwen 2012-9-17 14:22
例如,类 cField 定义如下: Option Explicit Public Enum xlsDataType xdString = 0 xdNumeric = 1 xdDate = 2 End Enum Public Index As Integer Public ID As String Public Value As String Public DataType As xlsDataType Private m_Name As String Pub ...
个人分类: VBA|1902 次阅读|1 个评论 热度 1
分享 获取用户临时文件夹
zhuyiwen 2011-12-31 16:39
Environ("HOMEDRIVE") Environ("HOMEPATH") "\Local Settings\Temp" 或者 Environ(" userprofile") "\Local Settings\Temp" 测试环境:Windows XP/2003 Access 2003
个人分类: VBA|1001 次阅读|0 个评论
分享 打开文件 (ShellExecute)
zhuyiwen 2011-12-31 16:26
' 像在 Windows 资源管理器那样双击打开文件 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Function OpenFile ...
个人分类: VBA|742 次阅读|0 个评论

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

GMT+8, 2024-5-2 17:11 , Processed in 0.080851 second(s), 15 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部