无忧岛

上午弟弟问我这个问题:有一段字符串
111111+22222+33333333+44444+55555+66666…
如何得到任意两个符号”+”之间的字符串,譬如
22222
或者
33333333
以下为代码全过程,函数为增强版,支持任意字符,只需要在调用的时候修改参数就OK了,代码注释中已经有描述:
新建工程在窗体上放置两个TextBox控件和一个Command控件,名称不需要修改默认就OK,分别名为:text1.text text2.text 和 command1
然后复制以下代码:

Private Sub Command1_Click()
Text2.Text = GetChar(Trim(Text1.Text), "+", 1, 3)
End Sub

'函数使用方法： getchar(mStr:原始字符,charX:规律字符,比如截取两段加号之间的那么就输入"+",
'BofNum: 起始字符位, EofNum: 终点字符位)
Private Function GetChar(mStr As String, charX As String, BofNum As Integer, EofNum As Integer) As String
Dim i As Integer '循环
Dim x As Integer [...]

前段时间在落伍把网页照相机落伍版的编译出来的可执行程序发布了,很多朋友提出需要源代码,方便大家学习交流,今天提供源代码下载

VB的32位MD5加密算法

新建窗体,然后拉个Command按钮控件和Textbox文本控件就OK了!
注意:本模块获取的是当前机器的内网IP地址
其实也用的是API来实现的,下面是主要代码…

点了锁定了之后,鼠标不能移动到解除按钮上可别慌噢:dm/tx,记得用键盘的tab键盘或者方向键移动下就是啦:dm/tx

一个简单的通过修改注册表设置IE首页的方法,别用它来做流氓哦
记得以前遇到过一个流氓,篡改IE首页,然后在IE选项中主页设置里面禁止了[使用当前页][使用默认页][使用空白页]这几个按钮.其实这些个人认为也都可以通过修改注册表来实现的.

让VB中的MSHFlexGrid的宽度自动调整和隔行换色的实现

很多时候特别是用来接收价格类的数据的时候,我们需要限制下文本框录入的值.下面就是针对这种情况贴出的一段代码. 都是多年前整理的一些算法和应用,以后慢慢得往BLOG上整理吧,虽然很简单,不过的确比较实用.