代码改变世界

随笔档案-2005年4月21日

判断数组是否被分配的VB函数

2005-04-21 13:01 by 电脑人生, 155 阅读, 收藏,
摘要： Function IsReDim(ByRef MyArray() As Variant) As Boolean On Error GoTo Z Dim szTmp szTmp = Join(MyArray, ",") IsReDim = LenB(szTmp) > 0 Exit FunctionZ: IsReDim = FalseEnd FunctionIsReDim判断数组是不是被分配过，如果是动态数组被Erase了，将返回False使用例子：If IsReDim(uArray) Then 'uArray里面有数据Else 'uArray里面没有数据 阅读全文

用VB得到windows系统安装时的时间(for NT,2000,XP,..)

2005-04-21 11:27 by 电脑人生, 376 阅读, 收藏,
摘要： Option ExplicitPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal h 阅读全文