vb常用字符串处理函数
1. ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符
[范例]：
(1)P=Chr(65)
‘ 输出字符A,因为A的ASCII码等于65
(2)P=Asc(“A”)
‘ 输出65
2. Len(X)： 计算字符串X的长度
[格式]：
P=Len(X)
[说明]：
空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。
[范例]：
(1) 令X=”” (空字符串)
Len(X) 输出结果为0
(2) 令X=”abcd”
Len(X) 输出结果为4
(3) 令X=”VB教程”
Len(X) 输出结果为4
3. Mid(X)函数：读取字符串X中间的字符
[格式]：
P=Mid(X,n)
由X的第n个字符读起，读取后面的所有字符。
P=Mid(X,n,m)
由X的第n个字符读起，读取后面的m个字符。
[范例]：
(1) X=”abcdefg”
P=Mid(X,5)
结果为：P=”efg”
(2) X=”abcdefg”
P=Mid(X,2,4)
结果为P=”bcde”
4. Replace: 将字符串中的某些特定字符串替换为其他字符串
[格式]：
P=Replace(X,S,R)
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。
[范例]：
X=”VB is very good”
P=Replace(X,good,nice)
输出结果为：P=”VB is very nice”
5. StrReverse：反转字符串
[格式]：
P=StrReverse(X)
[说明]：
返回X参数反
相关文档：
http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了！贡献出来啊，很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
dim strstart,stren ......
VB文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系 吴业福
本文介绍了在VB6中实现中、英文文本加� ......
VB实现VC TabControl控件
新建一个工程文件Project1，
在左侧工具栏中点右键
在出现的选项中点“Components”，在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”，然后点“应用”“确定”退出该页� ......
'添加个picture1和command1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
