vb.net加解密函数 vb加密程序代码

vb.net中的mid（）用法

VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：

成都创新互联是一家专注于成都网站建设、做网站与策划设计,邵武网站建设哪家好?成都创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:邵武等地区。邵武做网站价格咨询:13518219792

Dim MyString, FirstWord, LastWord, MidWords  

MyString = "Mid Function Demo" 建立一个字符串。  

FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。  

LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。  

MidMidWords = Mid(MyString, 5) ' 返回 "Funcion

具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。

mid函数的语法：

Mid(string, start[, length])

mid函数的参数：

string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；

start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；

length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

vb.net求个解个函数或是过程

我是这么做的，你参考一下：

所有Panel的Visiable属性都是False

'设置全局变量

Private lblMenu As Object = Nothing '鼠标移动的前一菜单项

Private MenuSelect As Object = Nothing '鼠标点击的前一菜单项

Private FrmShow As Object = Nothing '前一菜单项所指向内容

Private Sub MixedControls_Click(sender As System.Object, e As System.EventArgs) Handles _

Label1.Click, Label2.Click, Label3.Click, Label4.Click, Label5.Click, Label6.Click, Label7.Click

If MenuSelect IsNot Nothing Then

MenuSelect.forecolor = Color.White '前面选择的菜单项前景色变为白色

End If

If FrmShow IsNot Nothing Then

FrmShow.visible = False '前一菜单项内容隐藏

End If

sender.forecolor = Color.Chartreuse '当前选择的菜单项前景色为亮绿色

MenuSelect = sender '保存当前选择菜单项

Select Case sender.name.ToString

Case "Label1"

FrmShow = Panel1 '保存当前菜单项选择

Me.Panel1.Dock = DockStyle.Fill '显示运行界面

Me.Panel1.Visible = True

Case "Label2"

FrmShow = Panel2 '保存当前菜单项选择

Me.Panel2.Dock = DockStyle.Fill '显示设置界面

Me.Panel2.Visible = True

Case "Label3"

FrmShow = Panel3 '保存当前菜单项选择

Me.Panel3.Dock = DockStyle.Fill '显示关于界面

Me.Panel3.Visible = True

End Select

End Sub

Private Sub MixedControls_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles _

Label1.MouseDown, Label2.MouseDown, Label3.MouseDown, Label4.MouseDown, Label5.MouseDown, Label6.MouseDown, Label7.MouseDown

sender.BorderStyle = BorderStyle.FixedSingle '鼠标按下菜单效果

End Sub

Private Sub MixedControls_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles _

Label1.MouseUp, Label2.MouseUp, Label3.MouseUp, Label4.MouseUp, Label5.MouseUp, Label6.MouseUp, Label7.MouseUp

sender.BorderStyle = BorderStyle.None '鼠标抬起取消菜单效果

End Sub

Private Sub MixedControls_MouseEnter(sender As Object, e As System.EventArgs) Handles _

Label1.MouseEnter, Label2.MouseEnter, Label3.MouseEnter, Label4.MouseEnter, Label5.MouseEnter, Label6.MouseEnter, Label7.MouseEnter

If lblMenu IsNot Nothing Then

Call MixedControls_MouseLeave(lblMenu, e) '前一菜单项恢复初始状态

End If

sender.backcolor = Color.DeepSkyBlue '鼠标进入菜单范围的效果：背景色变深蓝

lblMenu = sender '保存当前进入菜单项

End Sub

Private Sub MixedControls_MouseLeave(sender As Object, e As System.EventArgs) Handles _

Label1.MouseLeave, Label2.MouseLeave, Label3.MouseLeave, Label4.MouseLeave, Label5.MouseLeave, Label6.MouseLeave, Label7.MouseLeave

sender.backcolor = Color.Transparent '鼠标离开菜单项恢复默认效果，背景色透明

sender.BorderStyle = BorderStyle.None '菜单项边框取消

lblMenu = Nothing '删除保存的菜单项

End Sub

vb.net 函数参数添加说明??

在要注释的函数上方添加 ‘’‘ （三个）

会自动弹出！

'''summary

''' 这个是函数说明

'''/summary

'''returns返回说明/returns

'''remarks/remarks

详情参考：

vb.net mid()函数

它本身是没法忽略空格这个功能的，只能在MID取出字符后判断是不是空格，是就放弃这个就可以了

VB语句函数大全

(一)类型转换类函数

1. CType(X)

[格式]：

P=CBool(X)

' 将X转换为"布尔"(Boolean)类型

P=CByte(X)

' 将X转换为"字节"(Byte)类型

P=CCur(X)

' 将X转换为"金额"(Currency)类型

P=CDate(X)

' 将X转换为"日期"(Date)类型

P=CDbl(X)

' 将X转换为"双精度"(Double)类型

P=CInt(X)

' 将X转换为"整型"(Integer)类型

P=CLng(X)

' 将X转换为"长整型"(Long)类型

P=CSng(X)

' 将X转换为"单精度"(Single)类型

P=CStr(X)

' 将X转换为"字符串"(String)类型

P=Cvar(X)

' 将X转换为"变体型"(Variant)类型

P=CVErr(X)

' 将X转换为Error值

[ 范例 ]：

(1). CStr(13)+CStr(23)

' 数值转换成字符串后，用"+"号连接， 结果：1323

(2). CInt("12")+12

' 字符串转换成整型后与12相加， 结果：24

(3). P=CInt(True)

' 输出结果为-1

' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0

(4). CBool(-0.001)

' 输出结果为True

' 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.

2. Int(X),Fix(X)：取X的整数值

[格式]：

P=Int(X) ' 取=X的最大整数值

P=Fix(X) ' 取X的整数部分，直接去掉小数

[范例]：

(1) Int(-54.6)

' 结果为-55，取=-54.6的最大整数

(2) Fix(54.6)

' 结果为54，取整数并直接去掉小数

(二)常用数学函数

[格式]：

1. Abs(N) 取绝对值

例：Abs(-3.5) 结果：3.5

2. Cos(N) 余弦函数

例：Cos(0) 结果：1

3. Exp(N) e为底的指数函数

例：Exp(3) 结果：20.068

4. Log(N) 以e为底的自然对数

例：Log(10) 结果：2.3

5. Rnd[(N) 产生随机数

例：Rnd 结果：0--1之间的数

6. Sin(N) 正弦函数

例：Sin(0) 结果：0

7. Sgn(N) 符号函数

' 说明：取正负号。Y=Sgn(X) 既 X0 则Y=1；X=0 则Y=0；X0 则Y= -1

8. Sqr(N) 平方根

例：Sqr(9) 结果：3

9. Tan(N) 正切函数

例：Tan(0) 结果：0

10.Atn(N) 反切函数

例：Atn(0) 结果：0

[注意]：在三角函数中，以弧度表示。

(一)字符串类函数：

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参数反转后的字符串

[范例]：

(1)X="abc"

P=StrReverse(X)

输出结果：P="cba"

6. Ucase(X)，Lcase(X)：转换英文字母的大小写

[格式]：

P=Lcase(X)

'将X字符串中的大写字母转换成小写

P=Ucase(X)

'将X字符串中的小写字母转换成大写

[说明]：除了英文字母外，其他字符或中文字都不会受到影响。

[范例]：

(1) 令 X="VB and VC"

则Lcase(X)的结果为"vb and vc"，Ucase(X)的结果为"VB AND VC"

7. InStr函数：寻找字符串

[格式]：

P=InStr(X,Y)

从X第一个字符起找出Y出现的位置

P=InStr(n,X,Y)

从X第n个字符起找出Y出现的位置

[说明]：

(1) 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。

(2) InStr(X,Y)相当于InStr(1,X,Y)。

(3) 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。

(4) 若Y为空字符串，则返回0。

(二)日期时间类函数：

1. Year(X)，Month(X)，Day(X)：取出年，月，日

[格式]：

P=Year(X)

取出X"年"部分的数值

P=Month(X)

取出X"月"部分的数值

P=Day(X)

取出X"日"部分的数值

[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#

2. Hour，Minute，Second函数：取出时，分，或秒

[格式]：

P=Hour(X)

取出X"时"部分的数值

P=Minute(X)

取出X"分"部分的数值

P=Second(X)

取出X"秒"部分的数值

[说明]：Hour的返回值是0---23之间

[范例]：

X=10:34:23

P=Hour(X)

Q=Minute(X)

R=Second(X)

则输出结果：P=10，Q=34，R=23

3. DateSerial函数：合并年，月，日成为日期

[格式]：DateSerial(Y,M,D)

其中Y是年份，M为月份，D为日期

[说明]：

(1) M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。

(2) 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。

[范例]：

P=DateSerial(2000,02,02)

则结果为P=2000/02/02

4．TimeSerial函数：合并时，分，秒成为时间

[格式]：P=TimeSerial(H,M,S)

其中H为小时数，M为分钟数，S为秒数

[说明]：推算原理同上面的DateSerial

[范例]：

P=TimeSerial(6,32,45)

结果为：P=6:32:45

5．Date,Time,Now函数：读取系统的日期时间

[格式]：

P=Date()

P=Time()

P=Now()

[说明]：这三个函数都无参数

[范例]：

若当前时间为2003年8月29日晚上19点26分45秒，则

P=Now()

结果为：P=2003-08-29 19:26:45

6．MonthName：返回月份名称

[格式]：P=MonthName(X)

[说明]：X参数可传入1---12，则返回值为"一月"、"二月"……，但是在英文Windows环境下，返回的是"January","February"……

[范例]：

P=MonthName(1)

则P="一月"

7．WeekdayName：返回星期名称

[格式]：P=WeekdayName(X)

[说明]：X参数可传入1—7，则返回值为"星期日"，"星期一"……，但是在英文windows环境下，返回的是"Sunday","Monday"……

[范例]：

P=WeekdayName(1)

结果为：P="星期日"

函数名称 函数功能

Cbool(string) 转换为布尔值

Cbyte(string) 转换为字节类型的值

Ccur(string) 转换为货币类值

Cdate(string) 转换为日前类型的值

Cdbl(string) 转换为双精度值

Cint(string) 转换为整数值

Clng(string) 转换为长整型的值

Csng(string) 转换为单精度的值

Cstr(var) 转换为字符串值

Str(var) 数值转换为字符串

Val(string) 字符串转换为数值

***************************************

Abs(nmb) 返回数子的绝对值

Atn(nmb) 返回一个数的反正切

Cos(nmb) 返回一个角度的余炫值

Exp(nmb) 返回自然指数的次方值

Int(nmb) 返回数字的整形（进位）部份 8.4--9

Fix(nmb) 返回数字的整形（舍去）部份 8.4--8

Formatpercent(表达式) 返回百分比

Hex(nmb) 返回数据的16进制数

Log(nmb) 返回自然对数

Oct(nmb) 返回数字的8进制数

Rnd 返回大于“0”而小于“1”的随机数

Sgn(nmb) 判断一个数字的正负号

Sin(nmb) 返回角度的正铉值

Sqr(nmb) 返回数字的二次方根

Tan(nmb) 返回一个数的正切值

Asc(string) 返回ASCII字符串

Chr(charcode) 根据字符代码返回字符

Instr(string,searchstr) 返回被搜索字符串的第一个字符位置，string是字符串，searchstr是被搜索的字符串

InstrRev(string,searchstr) 同上，只是从右面开始搜索

Lcase(var) 把字符串变为小写

Left(string,nmb) 从string中返回从左面开始的nmb个字符串

Len(string) 返回字符串的长度

Ltrim(string) 截去字符串左边的空格

Filter(inputstrings,value) 返回字符串数组的字集，Inputstrings是字符串组，value是在数组中寻找的字符

Rtrim(string) 截去字符串右边的空格

Trim(string) 截去字符串前后空格

Mid(string,start,len) 在string中返回从start位置开始的len个字符

Replace(string,find,withstr) 在字符串string中，用withstr来替换find字符串

Right(string,nmb) 从string中返回从右面开始的nmb个字符串

Space(nmb) 返回指定空格的字符串

StrComp(string1,string2) 比较两个字符串

Ucase(string) 把字符串变为大写

****************************************

Date() 返回当前系统日期

DateAdd(interval,nmb,date) 用一个基础时间返回指定增加了时间间隔的日期，interval是间隔类型，yyyy－年，m－月，d－日，h－小时，n－分。

DateDiff(interval,nmb1,nmb2) 返回两个时间间隔，interval的意思同上

Datevalue(date) 发挥Date中的日期部份

Day(date) 返回天数

FormatDatetime(date) 返回格式化为日期的表达式

Hour(time) 返回时间的小时数

Minute(time) 返回时间的分钟数

Month(date) 返回日期中的月份

Now() 返回系统的日期和时间

Second(time) 返回时间中的秒数

Time() 返回系统的当前时间

Weekday(date) 返回星期几

WeekdayName(date) 返回星期几的中文名

Year(date) 返回年份

IsArray(var) 判断一个变量是否是数组

IsDate(var) 判断一个变量是否是日期

IsNull(var) 判断一个变量是否为空

IsNumeric 判断表达式是否包含数值

IsObject(var) 判断一个变量是否是对象

TypeName(var) 返回变量的数据类型

************************************

Array(list) 返回数组

CreateObject(class) 创建一个对象

GetObject(pathfilename) 得到文件对象

Inputbox(prompt) 提供一个可供输入数据的对话框

LBound(arrayP) 返回数组的最小索引

Msgbox(string) 输出一个消息框

Split(liststr) 从一个列表字符串中返回一个一维数组

Ubound(array) 返回数组的最大索引

在vb.net中，DateDiff（）函数是有什么用的？又是怎么用的？

DateDiff 函数

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置

interval 参数的设定值如下：

设置 描述

yyyy 年

q 季

m 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 时

n 分钟

s 秒

firstdayofweek 参数的设定值如下：

常数 值 描述

vbUseSystem 0 使用 NLS API 设置。

vbSunday 1 星期日（缺省值）

vbMonday 2 星期一

vbTuesday 3 星期二

vbWednesday 4 星期三

vbThursday 5 星期四

vbFriday 6 星期五

vbSaturday 7 星期六

常数 值 描述

vbUseSystem 0 用 NLS API 设置。

vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。

vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。

vbFirstFullWeek 3 从第一个无跨年度的星期开始。

说明

DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。

为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。

如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。

firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。

如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。

在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。