易截截图软件、单文件、免安装、纯绿色、仅160KB

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参数反


相关文档:

用vb怎么获取网页标题

http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了!贡献出来啊,很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
 Dim strHtml, S1, S2 As String
 dim strstart,stren ......

VB程序破解

VB程序破解
VB 程序简介
  现在不少程序是用 VB 写的,你通过反汇编或跟踪调试时很容易鉴别某个程序是否为 VB 程序,VB 的 EXE 文件并不是真正的编译可执行文件,它们需其动态链接库才能正常运行,各版本的链接库如下:
VB3 链接库为 vbrun300.dll ;
VB4 链接库为  vb40016.dll ; - 16 位,较少见;
VB4 ......

一些VB相关的东西~~


珍贵vb函数列表
Variant 变量的内部表示:
_______________________________________________________________
符号常量 值 内部表示 字节数
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......

无意中发现VB For循环的一个特点

无意中发现VB For循环的一个特点:在循环体中,企图改变循环终止变量使之提前退出循环是徒劳的。
Private Sub Form_Load()
  Dim s(0 To 4) As String
  Dim N As Integer, i As Integer
  s(0) = "测试1"
  s(1) = "测试2"
  s(2) = "测试3"
  s(3) = "测试4"
  s(4) = "测试5 ......

VB能记录中文的键盘记录

http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
能记录到中文,缺点是不能记录到Ctrl,shift,alt,capslock,home,del,pageUP,pageDown等件的按下状态。
vb6代码如下:
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号