- 博客(9)
- 资源 (4)
- 问答 (3)
- 收藏
- 关注
RSS订阅原创 VB6 时间戳函数
'时间戳常量Private Const TimeZone_China As Long = &H8 '中国(北京)时区[东八区]Private Const TimeStamp_Base As Date = #1/1/1970# '时间戳起始时间：1970年1月1日 0时0分0秒Private Const TimeSt...
2019-06-29 14:53:46
4183
原创 VB6属性值操作 (2^n)
'======================================================================'========================== 属性值操作 (2^n) =========================='============================================================...
2018-12-21 17:19:53
409
原创 VB6的IDE环境护眼颜色配置
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic]"CodeForeColors"="2 0 5 0 1 12 7 8 0 9 0 0 0 0 0 0 ";前景;标准文本 浅灰 2 字符串、括号、引号;选定文本 自动 0 顾名思义;语...
2018-10-11 09:08:50
2404
2
原创 VB6 自定义 Msgbox 和 InputBox 消息框
目前有个问题未解决，当使用 MsgboxEx 函数时，图标样式为 vbExclamation 的话，显示的和 vbCritical 一样是个错误图标，而不是警告图标，不知道是什么原因。我的测试环境是 Win7x64，有明白的大神路过请留言告知，不胜感激！Option ExplicitPrivate Type RECT Left As Long Top As Long R...
2018-10-10 17:46:52
2979
原创 使用Excel时计算剩余时间
效果： 公式：= If(DateDif(Today(), F3, "y") = 0, "", DateDif(Today(), F3, "y") & "年") & If(DateDif(Today(), F3, "ym") = 0, If(DateDif(Today(), F3, "y") = 0, "", If(Dat
2018-04-12 16:18:10
8097
原创 VB6获取系统特殊目录及环境变量的值
模块 m_PathEnviro.bas 上代码，并欢迎补充我没有列出的项目，谢谢！'获取模块进程的文件位置Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVa...
2018-03-08 00:04:48
2079
2
原创 VB6中简单文件与文件夹操作
直接上代码：Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As LongPublic Function CreateFolders(ByVal FolderPath As String) As Boolean If Not Rig
2018-01-29 21:45:20
3440
原创 32位程序操作64位系统注册表，控制转向问题
网上有很多关于 32 位程序操作 64 位系统的文章，都是用 Wow64DisableWow64FsRedirection 和 Wow64RevertWow64FsRedirection 来关闭打开文件系统转向。当然了，这个不好使，关闭打开的只是文件系统的转向，对于注册表操作不起作用。这个问题困扰了我好几年，从用上 Win7x64 开始就是。这几天又在网上查资料，突然发现两个常数，试了一下，有效！
2018-01-29 12:33:44
1969
原创 VB6里判断是否64位系统
留个技术文章，写一下VB6里判断系统是否64位的代码。 先来建立您的 Module1.bas，代码如下：'判断 64 位系统的 API：获取进程地址，获取模块句柄，获取当前进程，是否 64 位进程Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName
2018-01-29 11:27:56
2901
Windows+Shell扩展编程完全指南
2013-02-08
Vue的父子元素的event关系问题？
2020-03-28
请问在ECMAScript中怎么给不相连的数组赋值？
2020-03-21
请问我想把窗体B设为窗体A的所有者，有个常数我查不到了。
2015-02-25
TA创建的收藏夹 TA关注的收藏夹
TA关注的人