文章存档

1.对象的创建
ASP.NET中创建Shell对象
[code]
var Shell = new ActiveXObject(Shell.Application);
[/code]
VB中创建Shell对象
[code]
Set Shell = CreateObject("Shell.Application")
[/code]
2.Shell对象的属性和方法[是不是和FSO很相似呢]
至此是不是获取Windows常用对象的方法又多了一种呢
[code…

混合字串概念上是指编码一致的中英或者说是Latin+GBK,Ascii+UniCode. 通俗的说就是中英混合字串的截断,当然GBK包含CJK(中日韩文字),通俗准确的说是单双字节字符混合字串。 其实用VS的话,可以引用SYSTEM.TEXT,然后使用encoding来直接操作字串,但是笔记本上实在跑不动VS2010…PHP的话,则可以直接用正则+mb_XXX函数来搞.. 为了本上的PHP环境,为了本上刚刚安装的石器时代(自己玩的单机)..咬了咬牙,不安VS了,忍痛安装了VB6精简版(10MB).. 很久木有写VB CODE了..都快忘记鸟…起手居然写了” function FirCut(){…”汗. 下面的代码应该很好修改优化提高效率.不过应该已经够用了… ‘MAX BYTES EACH LINE. Private Const MAX_ONE_LINE As Byte = 23 * 2   Private Sub FirCut(strContent As String)   Dim bLen As Byte: bLen = 0   Dim strTemp As String   Do While LenB(StrConv(strContent, vbFromUnicode)) > 0   strTemp = StrConv(MidB$(StrConv(strContent, vbFromUnicode), 1, MAX_ONE_LINE), …

我还是偷懒了，很早以前的一个东西，本来都扔掉的，今天看到一个MSDN上的BUG，突然想起来了，就重新写了一下。 事情是这个样子的。

很久没有用VB写东西了今天突然想写个挂机程序,想起VB不能直接进行位操作,特到水木清华扒到一篇。

ROUND函数在很多语言中都存在，它的“bug”也威名远播… 关于它的舍入问题，很多人都总结过吧，四舍六入五成双。 文章包含代码以及一些引用资料，如果感兴趣，可以选择阅读全文。

发一段以前写的冒泡排序，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…