<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[龍之禅]]></title><description><![CDATA[觉成的小屋]]></description><link>https://blog.youkuaiyun.com/softvip</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; softvip]]></copyright><item><title><![CDATA[VB6 时间戳函数]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/94159577</link><guid>https://blog.youkuaiyun.com/softvip/article/details/94159577</guid><author>softvip</author><pubDate>Sat, 29 Jun 2019 14:53:46 +0800</pubDate><description><![CDATA['时间戳常量
Private Const TimeZone_China As Long = &amp;H8                      '中国(北京)时区[东八区]
Private Const TimeStamp_Base As Date = #1/1/1970#               '时间戳起始时间：1970年1月1日 0时0分0秒
Private Const TimeSt...]]></description><category></category></item><item><title><![CDATA[VB6属性值操作 (2^n)]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/85165412</link><guid>https://blog.youkuaiyun.com/softvip/article/details/85165412</guid><author>softvip</author><pubDate>Fri, 21 Dec 2018 17:19:53 +0800</pubDate><description><![CDATA['======================================================================
'========================== 属性值操作 (2^n) ==========================
'============================================================...]]></description><category></category></item><item><title><![CDATA[VB6的IDE环境护眼颜色配置]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/83006568</link><guid>https://blog.youkuaiyun.com/softvip/article/details/83006568</guid><author>softvip</author><pubDate>Thu, 11 Oct 2018 09:08:50 +0800</pubDate><description><![CDATA[Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic]
&quot;CodeForeColors&quot;=&quot;2 0 5 0 1 12 7 8 0 9 0 0 0 0 0 0 &quot;
;前景
;标准文本	浅灰	2	字符串、括号、引号
;选定文本	自动	0	顾名思义
;语...]]></description><category></category></item><item><title><![CDATA[VB6 自定义 Msgbox 和 InputBox 消息框]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/83000866</link><guid>https://blog.youkuaiyun.com/softvip/article/details/83000866</guid><author>softvip</author><pubDate>Wed, 10 Oct 2018 17:46:52 +0800</pubDate><description><![CDATA[目前有个问题未解决，当使用 MsgboxEx 函数时，图标样式为 vbExclamation 的话，显示的和 vbCritical 一样是个错误图标，而不是警告图标，不知道是什么原因。我的测试环境是 Win7x64，有明白的大神路过请留言告知，不胜感激！
Option Explicit
Private Type RECT
    Left As Long
    Top As Long
    R...]]></description><category></category></item><item><title><![CDATA[使用Excel时计算剩余时间]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/79915592</link><guid>https://blog.youkuaiyun.com/softvip/article/details/79915592</guid><author>softvip</author><pubDate>Thu, 12 Apr 2018 16:18:10 +0800</pubDate><description><![CDATA[效果： 




公式：



= If(DateDif(Today(), F3, &quot;y&quot;) = 0, &quot;&quot;, DateDif(Today(), F3, &quot;y&quot;) &amp;amp; &quot;年&quot;) &amp;amp; If(DateDif(Today(), F3, &quot;ym&quot;) = 0, If(DateDif(Today(), F3, &quot;y&quot;) = 0, &quot;&quot;, If(Dat]]></description><category></category></item><item><title><![CDATA[VB6获取系统特殊目录及环境变量的值]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/79478740</link><guid>https://blog.youkuaiyun.com/softvip/article/details/79478740</guid><author>softvip</author><pubDate>Thu, 08 Mar 2018 00:04:48 +0800</pubDate><description><![CDATA[模块 m_PathEnviro.bas 
上代码，并欢迎补充我没有列出的项目，谢谢！



'获取模块进程的文件位置
Private Declare Function GetModuleFileName Lib &quot;kernel32&quot; Alias &quot;GetModuleFileNameA&quot; (ByVal hModule As Long, ByVal lpFileName As String, ByVa...]]></description><category></category></item><item><title><![CDATA[VB6中简单文件与文件夹操作]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/79200267</link><guid>https://blog.youkuaiyun.com/softvip/article/details/79200267</guid><author>softvip</author><pubDate>Mon, 29 Jan 2018 21:45:20 +0800</pubDate><description><![CDATA[直接上代码：



Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long

Public Function CreateFolders(ByVal FolderPath As String) As Boolean
    If Not Rig]]></description><category></category></item><item><title><![CDATA[32位程序操作64位系统注册表，控制转向问题]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/79193893</link><guid>https://blog.youkuaiyun.com/softvip/article/details/79193893</guid><author>softvip</author><pubDate>Mon, 29 Jan 2018 12:33:44 +0800</pubDate><description><![CDATA[网上有很多关于 32 位程序操作 64 位系统的文章，都是用 Wow64DisableWow64FsRedirection 和 Wow64RevertWow64FsRedirection 来关闭打开文件系统转向。当然了，这个不好使，关闭打开的只是文件系统的转向，对于注册表操作不起作用。这个问题困扰了我好几年，从用上 Win7x64 开始就是。这几天又在网上查资料，突然发现两个常数，试了一下，有效！]]></description><category></category></item><item><title><![CDATA[VB6里判断是否64位系统]]></title><link>https://blog.youkuaiyun.com/softvip/article/details/79193296</link><guid>https://blog.youkuaiyun.com/softvip/article/details/79193296</guid><author>softvip</author><pubDate>Mon, 29 Jan 2018 11:27:56 +0800</pubDate><description><![CDATA[留个技术文章，写一下VB6里判断系统是否64位的代码。 
先来建立您的 Module1.bas，代码如下：



'判断 64 位系统的 API：获取进程地址，获取模块句柄，获取当前进程，是否 64 位进程
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName]]></description><category></category></item></channel></rss>