<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>苏洋博客 &#187; VB</title>
	<atom:link href="http://promiseforever.com/topics/learning/vb-learning/feed" rel="self" type="application/rss+xml" />
	<link>http://promiseforever.com</link>
	<description>记录我的一点一滴。</description>
	<lastBuildDate>Sun, 05 Feb 2012 22:14:59 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
		<item>
		<title>[总结]Shell.Application</title>
		<link>http://promiseforever.com/2012/01/30/shell-application.html</link>
		<comments>http://promiseforever.com/2012/01/30/shell-application.html#comments</comments>
		<pubDate>Mon, 30 Jan 2012 00:00:17 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[ASP]]></category>
		<category><![CDATA[VB]]></category>
		<category><![CDATA[ASP.NET]]></category>
		<category><![CDATA[shell]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=1842</guid>
		<description><![CDATA[1.对象的创建
ASP.NET中创建Shell对象
[code]
 var Shell = new ActiveXObject(Shell.Application);
[/code]
VB中创建Shell对象
[code]
Set Shell = CreateObject(&#34;Shell.Application&#34;)
[/code]
2.Shell对象的属性和方法[是不是和FSO很相似呢]
至此是不是获取Windows常用对象的方法又多了一种呢
[code...]]></description>
		<wfw:commentRss>http://promiseforever.com/2012/01/30/shell-application.html/feed</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>[VB]混合字串的截断</title>
		<link>http://promiseforever.com/2011/07/13/vb%e6%b7%b7%e5%90%88%e5%ad%97%e4%b8%b2%e7%9a%84%e6%88%aa%e6%96%ad.html</link>
		<comments>http://promiseforever.com/2011/07/13/vb%e6%b7%b7%e5%90%88%e5%ad%97%e4%b8%b2%e7%9a%84%e6%88%aa%e6%96%ad.html#comments</comments>
		<pubDate>Tue, 12 Jul 2011 19:22:51 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[我的总结]]></category>
		<category><![CDATA[中英混合截断]]></category>
		<category><![CDATA[截断]]></category>
		<category><![CDATA[混合字串]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=4348</guid>
		<description><![CDATA[混合字串概念上是指编码一致的中英或者说是Latin+GBK,Ascii+UniCode. 通俗的说就是中英混合字串的截断,当然GBK包含CJK(中日韩文字),通俗准确的说是单双字节字符混合字串。 其实用VS的话,可以引用SYSTEM.TEXT,然后使用encoding来直接操作字串,但是笔记本上实在跑不动VS2010&#8230;PHP的话,则可以直接用正则+mb_XXX函数来搞.. 为了本上的PHP环境,为了本上刚刚安装的石器时代(自己玩的单机)..咬了咬牙,不安VS了,忍痛安装了VB6精简版(10MB).. 很久木有写VB CODE了..都快忘记鸟&#8230;起手居然写了&#8221; function FirCut(){&#8230;&#8221;汗. 下面的代码应该很好修改优化提高效率.不过应该已经够用了&#8230; 'MAX BYTES EACH LINE. Private Const MAX_ONE_LINE As Byte = 23 * 2 &#160; Private Sub FirCut(strContent As String) &#160; Dim bLen As Byte: bLen = 0 &#160; Dim strTemp As String &#160; Do While LenB(StrConv(strContent, vbFromUnicode)) &#62; 0 &#160; strTemp = StrConv(MidB$(StrConv(strContent, vbFromUnicode), 1, MAX_ONE_LINE), ...]]></description>
		<wfw:commentRss>http://promiseforever.com/2011/07/13/vb%e6%b7%b7%e5%90%88%e5%ad%97%e4%b8%b2%e7%9a%84%e6%88%aa%e6%96%ad.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[工具]桌面图标美化</title>
		<link>http://promiseforever.com/2010/08/23/desktop-icon-tool.html</link>
		<comments>http://promiseforever.com/2010/08/23/desktop-icon-tool.html#comments</comments>
		<pubDate>Mon, 23 Aug 2010 14:31:52 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[我的作品]]></category>
		<category><![CDATA[我的总结]]></category>
		<category><![CDATA[LoadResData]]></category>
		<category><![CDATA[桌面图标]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=2629</guid>
		<description><![CDATA[我还是偷懒了，很早以前的一个东西，本来都扔掉的，今天看到一个MSDN上的BUG，突然想起来了，就重新写了一下。 事情是这个样子的。 如果你在VB中使用资源编辑器放入了一个图标，当你使用LoadResData读取的时候会发生一点小错误。 错误: 运行时错误&#8221;326&#8243;，LoadResData 运行时错误&#8221;326&#8243;: 找不到标识符&#8221;101&#8243;具有的资源 这个东西果然很诡异，详见微软MSDN,http://support.microsoft.com/kb/190477/zh-cn Microsoft 已经确认这是在本文开头列出的 Microsoft 产品中的错误。我们将研究此 bug 并将发布新的信息 Microsoft 知识库中相应可用。 看着微软的状态信息，再搜索了一下网上，果然木有人把解决方法写出来，于是，我就小小的抛砖引玉了。 首先他不是说是图标资源会出现这个问题么，叫我们使用LoadResPicture，但是使用LoadResPicture的时候，我们就不能再从资源文件内释放出我们所需要的图标文件了，经过测试，简单的修改文件的前20字节，或者修改后缀都是不可行的。 正当准备放弃的时候，想起以前写的一个小小的恶作剧程序，既然修改一点不行，那么就修改的它老妈都不认识它~ 于是在程序中加入了整体异或，你使用其他的加密方式或者处理方法也可以，但是必须做到上面说的修改幅度~ 最后在释放资源的时候再进行解码操作即可。 这个小工具只是为了存档，所以上传，可能唯一的用处就是新装系统后，用于释放文件，美化桌面图标了，有时间继续完善一下吧。 支持命令行 -chs 和 -enu]]></description>
		<wfw:commentRss>http://promiseforever.com/2010/08/23/desktop-icon-tool.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[VB]VB中位操作运算函数</title>
		<link>http://promiseforever.com/2010/08/21/vb%e4%b8%ad%e4%bd%8d%e6%93%8d%e4%bd%9c%e8%bf%90%e7%ae%97%e5%87%bd%e6%95%b0%e3%80%90%e7%a7%bb%e4%bd%8d%e6%8c%87%e4%bb%a4%e3%80%91.html</link>
		<comments>http://promiseforever.com/2010/08/21/vb%e4%b8%ad%e4%bd%8d%e6%93%8d%e4%bd%9c%e8%bf%90%e7%ae%97%e5%87%bd%e6%95%b0%e3%80%90%e7%a7%bb%e4%bd%8d%e6%8c%87%e4%bb%a4%e3%80%91.html#comments</comments>
		<pubDate>Sat, 21 Aug 2010 09:28:32 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[经典资料]]></category>
		<category><![CDATA[位移]]></category>
		<category><![CDATA[运算]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=2606</guid>
		<description><![CDATA[很久没有用VB写东西了今天突然想写个挂机程序,想起VB不能直接进行位操作,特到水木清华扒到一篇。 发信人: hermit (阿修罗～相拥我爱), 信区: VisualBasic 标 题: VB中位操作运算函数【移位指令】 发信站: BBS 水木清华站 (Sat Jun 1 12:40:23 2002) &#160; 'Module: BitPlus.Bas 'Code By Hermit @ SMTH , Jun. 1st,2000 'Email: mailtocw@sohu.com 'May these functions will help you, and 'Please keep this header if you use my code,thanks! '提供在VB下进行位运算的函数 'SHL 逻辑左移 SHR 逻辑右移 'SAL 算术左移 SAR 算术右移 ...]]></description>
		<wfw:commentRss>http://promiseforever.com/2010/08/21/vb%e4%b8%ad%e4%bd%8d%e6%93%8d%e4%bd%9c%e8%bf%90%e7%ae%97%e5%87%bd%e6%95%b0%e3%80%90%e7%a7%bb%e4%bd%8d%e6%8c%87%e4%bb%a4%e3%80%91.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[我的总结]关于ROUND函数的BUG</title>
		<link>http://promiseforever.com/2009/07/15/bug-round.html</link>
		<comments>http://promiseforever.com/2009/07/15/bug-round.html#comments</comments>
		<pubDate>Wed, 15 Jul 2009 00:21:29 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[C & C++]]></category>
		<category><![CDATA[VB]]></category>
		<category><![CDATA[我的总结]]></category>
		<category><![CDATA[BUG]]></category>
		<category><![CDATA[ROUND]]></category>
		<category><![CDATA[函数]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=2055</guid>
		<description><![CDATA[ROUND函数在很多语言中都存在，它的“bug”也威名远播&#8230; 关于它的舍入问题，很多人都总结过吧，四舍六入五成双。 文章包含代码以及一些引用资料，如果感兴趣，可以选择阅读全文。 以下资料来自CSDN 以及黄海blog ROUND函数在很多语言中都存在，它的“bug”也威名远播&#8230; 关于它的舍入问题，很多人都总结过吧，四舍六入五成双。 文章包含代码以及一些引用资料，如果感兴趣，可以选择阅读全文。 以下资料来自CSDN 以及黄海blog 其实财务函数的它主要是进行一种平衡算法。 正如一位朋友所言 ， “VBA中的Round函数不是Bug，而只是一种特殊算法（银行业算法）。 简单地说就是向最近的偶数位舍入。 如：Round(3.375,2)==Round(3.385,2)==3.38” 下面的这个函数（算术四舍五入平衡算法）考虑了负数的处理改编自微软文档，可以用于财务系统开发： Function SARound(ByVal X As Currency, Optional ByVal Factor As Long = 2) As Currency SARound = Fix(X * 10 ^ Factor + Sgn(X) * 0.5) / 10 ^ Factor End Function 如果把Fix变为Int就成为不平衡算法。 MS文档原文： http://support.microsoft.com/default.aspx?scid=kb;en-us;196652 &#160; Public Function RoundToLarger(dblInput ...]]></description>
		<wfw:commentRss>http://promiseforever.com/2009/07/15/bug-round.html/feed</wfw:commentRss>
		<slash:comments>4</slash:comments>
		</item>
		<item>
		<title>[VB]冒泡排序</title>
		<link>http://promiseforever.com/2009/06/10/vb%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8f.html</link>
		<comments>http://promiseforever.com/2009/06/10/vb%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8f.html#comments</comments>
		<pubDate>Wed, 10 Jun 2009 01:05:06 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[我的总结]]></category>
		<category><![CDATA[冒泡]]></category>
		<category><![CDATA[函数]]></category>
		<category><![CDATA[算法]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=1925</guid>
		<description><![CDATA[发一段以前写的冒泡排序，FOR Basic

[vb]Option Explicit
Private Sub Fir_Sort()

??? Dim vArr As Variant, lngIndex As Long, lngMax As Long, lngTmp As Long

??? vArr = Array(1999, 2000, 2008, 2009, 2007, 2006, 2003, 2004, 2005, 2001, 2002)
??? lngMax = UBound(vArr)

??? For lngInd...]]></description>
		<wfw:commentRss>http://promiseforever.com/2009/06/10/vb%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8f.html/feed</wfw:commentRss>
		<slash:comments>7</slash:comments>
		</item>
		<item>
		<title>[VB]获取当前登陆的用户名 – API版</title>
		<link>http://promiseforever.com/2009/06/09/use-api-to-get-the-user-name.html</link>
		<comments>http://promiseforever.com/2009/06/09/use-api-to-get-the-user-name.html#comments</comments>
		<pubDate>Tue, 09 Jun 2009 22:11:33 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[API]]></category>
		<category><![CDATA[登陆]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=1922</guid>
		<description><![CDATA[先做一个伏笔,接下来会发布一些看似不沾边的东西...但是组合起来又是什么呢。

[vb]Option Explicit

Private Declare Function GetUserName _
??????????????? Lib &#34;advapi32.dll&#34; _
??????????????? Alias &#34;GetUserNameA&#34; (ByVal lpBuffer As String, _
???...]]></description>
		<wfw:commentRss>http://promiseforever.com/2009/06/09/use-api-to-get-the-user-name.html/feed</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>[VB]用VB打造命令行程序</title>
		<link>http://promiseforever.com/2009/06/08/vb-make-command-application.html</link>
		<comments>http://promiseforever.com/2009/06/08/vb-make-command-application.html#comments</comments>
		<pubDate>Mon, 08 Jun 2009 14:00:41 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[命令行]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=1860</guid>
		<description><![CDATA[其实还有一种，不过那个完全是调用管道来操作cmd.exe。
这篇是天极上的一篇老文，感觉也是从什么地方转载的...
原文出处？？：http://dev.yesky.com/9/2652009_1.shtml
有兴趣的话可以点击阅读全文。

[vb]Option Explicit

' API函数声明
Private Declare Function AllocConsole Lib &#34;kernel32&#34; () As ...]]></description>
		<wfw:commentRss>http://promiseforever.com/2009/06/08/vb-make-command-application.html/feed</wfw:commentRss>
		<slash:comments>6</slash:comments>
		</item>
		<item>
		<title>[VB]从窗口居中看细节处理</title>
		<link>http://promiseforever.com/2009/06/07/vb%e4%bb%8e%e7%aa%97%e5%8f%a3%e5%b1%85%e4%b8%ad%e7%9c%8b%e7%bb%86%e8%8a%82%e5%a4%84%e7%90%86.html</link>
		<comments>http://promiseforever.com/2009/06/07/vb%e4%bb%8e%e7%aa%97%e5%8f%a3%e5%b1%85%e4%b8%ad%e7%9c%8b%e7%bb%86%e8%8a%82%e5%a4%84%e7%90%86.html#comments</comments>
		<pubDate>Sun, 07 Jun 2009 14:00:57 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[我的总结]]></category>
		<category><![CDATA[细节]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=1857</guid>
		<description><![CDATA[其实多敲敲code后自然会有什么方式的代码最快最安全，其实设置居中真的很简单，但是差异还是很大的，如果你有兴趣可以点击阅读全文。

这个也是偶尔在网上看东西发现的小问题，其实也不算问题，不过如果目标机器资源紧张的时候，会出现窗口的一闪而过（改变位置。）
Move方法和这个是一样的，所以就忽略了。[通用的]
我...]]></description>
		<wfw:commentRss>http://promiseforever.com/2009/06/07/vb%e4%bb%8e%e7%aa%97%e5%8f%a3%e5%b1%85%e4%b8%ad%e7%9c%8b%e7%bb%86%e8%8a%82%e5%a4%84%e7%90%86.html/feed</wfw:commentRss>
		<slash:comments>4</slash:comments>
		</item>
		<item>
		<title>[VB]简单的下雨屏保</title>
		<link>http://promiseforever.com/2009/06/05/vb-%e4%b8%8b%e9%9b%a8%e5%b1%8f%e4%bf%9d.html</link>
		<comments>http://promiseforever.com/2009/06/05/vb-%e4%b8%8b%e9%9b%a8%e5%b1%8f%e4%bf%9d.html#comments</comments>
		<pubDate>Fri, 05 Jun 2009 07:39:10 +0000</pubDate>
		<dc:creator>苏洋</dc:creator>
				<category><![CDATA[VB]]></category>
		<category><![CDATA[我的总结]]></category>
		<category><![CDATA[屏保]]></category>

		<guid isPermaLink="false">http://promiseforever.com/?p=1905</guid>
		<description><![CDATA[简单的下雨屏保 说明,整理硬盘看到，修改为动态创建控件，使用本代码，你只需要修改窗口名称为frmMain，以及设置窗口样式为无边框，接下来直接F5或者运行即可。 'by promiseforever.com '先设置窗口名称为frmMain '再设置窗口样式为无边框 Option Explicit &#160; Dim X(1 To 100) As Long, Y(1 To 100) As Long, pace(1 To 100) As Integer, size(1 To 100) As Integer &#160; Dim WithEvents tmrFir As Timer &#160; Private Sub Form_Activate() &#160; Randomize &#160; Dim i As Byte, w As Long, h As Long, p As ...]]></description>
		<wfw:commentRss>http://promiseforever.com/2009/06/05/vb-%e4%b8%8b%e9%9b%a8%e5%b1%8f%e4%bf%9d.html/feed</wfw:commentRss>
		<slash:comments>3</slash:comments>
		</item>
	</channel>
</rss>

