永远的魔灵 by 郭卫 VB程序设计源码全家福

VB取得线程句柄

Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, 线程ID) '由线程ID取得线程句柄,返回线程句� ......

asp vb.net 在线统计简单版本和精确版本

简单
在Global.asa文件中加入如下的代码：
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时，设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
......

VB: 一个正则提取功能

'引用：Microfoft VBScript Regular Expressions 5.5 '一个正则提取功能
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As Ma ......

VB错误代码

3,Return without GoSub
5,Invalid procedure call
6,Overflow
7,Out of memory
9,Subscript out of range
10,This array is fixed or temporarily locked
11,Division by zero
13,Type mismatch
14,Out of string space
16,Expression too complex
17,Cant perform requested operation
18,User int ......

转VB 字符串处理函数集收藏

VB 字符串处理函数集

收藏

mid(字符串，从第几个开始，长度)
在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2)
从规定的位置开始查找 ......

永远的魔灵 by 郭卫 VB程序设计源码全家福

VB取得线程句柄

asp vb.net 在线统计 简单版本 和精确版本

VB: 一个正则提取功能

VB错误代码

转VB 字符串处理函数集 收藏

asp vb.net 在线统计简单版本和精确版本

转VB 字符串处理函数集收藏