zoukankan
html css js c++ java
VBScript学习
1.
VBS学习01_按钮事件调用
Code
<
HTML
>
<
HEAD
>
<
TITLE
>
VBS学习01_按钮事件调用
</
TITLE
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
ButtonX_OnClick
MsgBox
"
Hello,World!
"
End Sub
-->
</
SCRIPT
>
</
HEAD
>
<
BODY
>
<
FORM
NAME
="Form1"
>
<
INPUT
NAME
="Button1"
TYPE
="BUTTON"
VALUE
="按钮1"
OnClick
='MsgBox
"Hello,World!.1"'
>
<
INPUT
NAME
="Button2"
TYPE
="BUTTON"
VALUE
="按钮2"
>
<
SCRIPT
LANGUAGE
="VBScript"
EVENT
="OnClick"
FOR
="Button2"
>
<
!
--
MsgBox
"
Hello,World!.2
"
-->
</
SCRIPT
>
<
INPUT
NAME
="Button3"
TYPE
="BUTTON"
VALUE
="按钮3"
OnClick
="Button3OnClick()"
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
Button3OnClick()
MsgBox
"
Hello,World!.3
"
End Sub
-->
</
SCRIPT
>
<
INPUT
NAME
="Button4"
TYPE
="BUTTON"
VALUE
="按钮4"
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
Button4_OnClick()
MsgBox
"
Hello,World!.4
"
End Sub
-->
</
SCRIPT
>
</
FORM
>
</
BODY
>
</
HTML
>
2.
VBS学习02_提交前非空相关验证
Code
<
HTML
>
<
HEAD
>
<
TITLE
>
VBS学习02_提交前非空相关验证
</
TITLE
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
btn_Submit_OnClick
Dim
blnOK
'
Call Validate(blnOK)
Validate blnOK
If
blnOK
Then
MsgBox
"
OK
"
Else
MsgBox
"
Sorry
"
End
If
End Sub
Function
Validate(blnOK)
Dim
TheForm
Set
TheForm
=
Document.forms(
"
Form1
"
)
If
TheForm.txt_Name.Value
=
""
Then
MsgBox
"
姓名 不能为空!
"
TheForm.txt_Name.Focus
blnOK
=
CBool
(
0
)
Exit
Function
End
If
If
TheForm.txt_Sex.Value
=
""
Then
MsgBox
"
性别 不能为空!
"
TheForm.txt_Sex.Focus
blnOK
=
CBool
(
0
)
Exit
Function
Else
If
(TheForm.txt_Sex.Value
<>
"
男
"
)
And
(TheForm.txt_Sex.Value
<>
"
女
"
)
Then
MsgBox
"
性别 输入有误
"
TheForm.txt_Sex.Select
blnOK
=
CBool
(
0
)
Exit
Function
End
If
End
If
If
TheForm.txt_Address.Value
=
""
Then
MsgBox
"
住址 不能为空!
"
TheForm.txt_Address.Focus
blnOK
=
CBool
(
0
)
Exit
Function
End
If
blnOK
=
CBool
(
-
1
)
'
验证通过
End Function
-->
</
SCRIPT
>
</
HEAD
>
<
BODY
>
<
FORM
NAME
="Form1"
>
<
TABLE
>
<
TR
>
<
TD
>
姓名
</
TD
>
<
TD
><
INPUT
NAME
="txt_Name"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
>
性别
</
TD
>
<
TD
><
INPUT
NAME
="txt_Sex"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
>
住址
</
TD
>
<
TD
><
INPUT
NAME
="txt_Address"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
COLSPAN
="2"
ALIGN
="CENTER"
>
<
INPUT
TYPE
="Button"
NAME
="btn_Submit"
VALUE
="提交前非空及验证"
>
</
TD
>
</
TR
>
</
TABLE
>
</
FORM
>
</
BODY
>
</
HTML
>
3.
VBS学习03_vbs与js交互
Code
<
HTML
>
<
HEAD
>
<
TITLE
>
VBS学习03_vbs与js交互
</
TITLE
>
<
script
language
="javascript"
>
<!--
//
function
btn2()
{
var
numA,numB,sumValue;
numA
=
parseInt(document.Form1.txt_A.value);
numB
=
parseInt(document.Form1.txt_B.value);
sumValue
=
vbsSum(numA,numB);
alert(
"
和
"
+
sumValue);
document.Form1.txt_C.value
=
sumValue;
}
function
jsSum(numA,numB)
{
var
sumVaule;
sumVaule
=
numA
+
numB;
return
sumVaule;
}
//
-->
</
script
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
btn1()
Dim
numA,numB,sumValue
numA
=
CInt
(Document.Form1.txt_A.Value)
numB
=
CInt
(Document.Form1.txt_B.Value)
sumValue
=
jsSum(numA,numB)
MsgBox
"
和
"
&
sumValue
Document.Form1.txt_C.Value
=
sumValue
End Sub
Function
vbsSum(numA,numB)
Dim
A,B
A
=
CInt
(numA)
B
=
CInt
(numB)
vbsSum
=
CStr
(A
+
B)
End Function
-->
</
SCRIPT
>
</
HEAD
>
<
BODY
>
<
FORM
NAME
="Form1"
>
<
TABLE
>
<
TR
>
<
TD
>
加数A
</
TD
>
<
TD
><
INPUT
NAME
="txt_A"
TYPE
="TEXT"
VALUE
="1"
></
TD
>
</
TR
>
<
TR
>
<
TD
>
加数B
</
TD
>
<
TD
><
INPUT
NAME
="txt_B"
TYPE
="TEXT"
VALUE
="2"
></
TD
>
</
TR
>
<
TR
>
<
TD
>
和值
</
TD
>
<
TD
><
INPUT
NAME
="txt_C"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
COLSPAN
="2"
ALIGN
="CENTER"
>
<
INPUT
NAME
="Button1"
TYPE
="BUTTON"
VALUE
="vbs调用js"
OnClick
="btn1()"
>
<
INPUT
NAME
="Button2"
TYPE
="BUTTON"
VALUE
="js调用vbs"
onclick
="btn2();"
>
</
TD
>
</
TR
>
</
TABLE
>
</
FORM
>
</
BODY
>
</
HTML
>
4.
VBS学习04_异常处理
Code
<
HTML
>
<
HEAD
>
<
TITLE
>
VBS学习04_异常处理
</
TITLE
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
btn_Submit_OnClick
Dim
numA,numB,numC
If
Document.Form1.txt_A.Value
=
""
Then
MsgBox
"
被除数A 不能为空!
"
Exit
Sub
Else
On
Error
Resume
Next
numA
=
CInt
(Document.Form1.txt_A.Value)
If
Err.Number
<>
0
Then
MsgBox
(
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description)
MsgBox
"
被除数A 请输入有效整数数字
"
Err.Clear
'
清除错误
On
error
goto
0
Exit
Sub
End
If
End
If
On
Error
Resume
Next
If
Document.Form1.txt_B.Value
<>
""
Then
On
Error
Resume
Next
numB
=
CInt
(Document.Form1.txt_B.Value)
If
Err.Number
<>
0
Then
Err.Raise Err.Number
MsgBox
(
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description)
MsgBox
"
除数B 请输入有效整数数字
"
On
error
goto
0
End
If
End
If
numC
=
numA
/
numB
If
Err.Number
<>
0
Then
Err.Raise Err.Number
MsgBox
(
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description)
Document.Form1.txt_C.Value
=
""
Else
Document.Form1.txt_C.Value
=
numC
End
If
'
Err.Clear
'
MsgBox Err.Number
On
error
goto
0
'
MsgBox Err.Number
End Sub
-->
</
SCRIPT
>
</
HEAD
>
<
BODY
>
<
FORM
NAME
="Form1"
>
<
TABLE
>
<
TR
>
<
TD
>
被除数A
</
TD
>
<
TD
><
INPUT
NAME
="txt_A"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
>
除数B
</
TD
>
<
TD
><
INPUT
NAME
="txt_B"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
>
商C
</
TD
>
<
TD
><
INPUT
NAME
="txt_C"
TYPE
="TEXT"
></
TD
>
</
TR
>
<
TR
>
<
TD
COLSPAN
="2"
ALIGN
="CENTER"
>
<
INPUT
TYPE
="Button"
NAME
="btn_Submit"
VALUE
="确定"
>
</
TD
>
</
TR
>
</
TABLE
>
</
FORM
>
</
BODY
>
</
HTML
>
5.
VBS学习05_数组
Code
<
HTML
>
<
HEAD
>
<
TITLE
>
VBS学习05_数组
</
TITLE
>
<
SCRIPT
LANGUAGE
="VBScript"
>
<
!
--
Sub
btn_TeacherArray_OnClick
Dim
A
A
=
Array
(
10
,
20
,
30
)
MsgBox
"
一维数组
"
&
A(
2
)
Dim
B(
1
,
1
)
B(
0
,
0
)
=
"
1
"
B(
0
,
1
)
=
"
10
"
B(
1
,
0
)
=
"
2
"
B(
1
,
1
)
=
"
20
"
MsgBox
"
二维数组
"
&
B(
1
,
0
)
Dim
C
C
=
Array
(
Array
(
1
,
10
),
Array
(
2
,
20
))
MsgBox
"
二维数组
"
&
C(
1
)(
0
)
Dim
D()
ReDim
D(
1
)
D(
0
)
=
"
0
"
D(
1
)
=
"
1
"
MsgBox
"
ReDim1
"
&
D(
1
)
ReDim
D(
2
)
D(
0
)
=
"
0
"
D(
1
)
=
"
10
"
D(
2
)
=
"
20
"
MsgBox
"
ReDim2
"
&
D(
1
)
ReDim
Preserve D(
3
)
D(
3
)
=
"
30
"
MsgBox
"
ReDim3
"
&
D(
1
)
ReDim
D(
1
,
1
)
D(
0
,
0
)
=
"
00
"
D(
0
,
1
)
=
"
01
"
D(
1
,
0
)
=
"
10
"
D(
1
,
1
)
=
"
11
"
MsgBox
"
ReDim4
"
&
D(
1
,
1
)
'
两个学校
'
每校三个年级
'
每年级四个班级
'
每班五名教师
'
2 * 3 * 4 * 5 = 120
'
两个学校
'
每校两个年级
'
每年级两个班级
'
每班两名教师
'
2 * 2 * 2 * 2 = 16
Dim
Teacher(
1
,
1
,
1
,
1
)
'
A校一年级一班教师
Teacher(
0
,
0
,
0
,
0
)
=
"
0000_A校一年级一班教师A111
"
Teacher(
0
,
0
,
0
,
1
)
=
"
0001_A校一年级一班教师A112
"
'
A校一年级二班教师
Teacher(
0
,
0
,
1
,
0
)
=
"
0010_A校一年级二班教师A121
"
Teacher(
0
,
0
,
1
,
1
)
=
"
0011_A校一年级二班教师A122
"
'
A校二年级一班教师
Teacher(
0
,
1
,
0
,
0
)
=
"
0100_A校二年级一班教师A211
"
Teacher(
0
,
1
,
0
,
1
)
=
"
0101_A校二年级一班教师A212
"
'
A校二年级二班教师
Teacher(
0
,
1
,
1
,
0
)
=
"
0110_A校二年级二班教师A221
"
Teacher(
0
,
1
,
1
,
1
)
=
"
0111_A校二年级二班教师A222
"
'
B校一年级一班教师
Teacher(
1
,
0
,
0
,
0
)
=
"
1000_B校一年级一班教师B111
"
Teacher(
1
,
0
,
0
,
1
)
=
"
1001_B校一年级一班教师B112
"
'
B校一年级二班教师
Teacher(
1
,
0
,
1
,
0
)
=
"
1010_B校一年级二班教师B121
"
Teacher(
1
,
0
,
1
,
1
)
=
"
1011_B校一年级二班教师B122
"
'
B校二年级一班教师
Teacher(
1
,
1
,
0
,
0
)
=
"
1100_B校二年级一班教师B211
"
Teacher(
1
,
1
,
0
,
1
)
=
"
1101_B校二年级一班教师B212
"
'
B校二年级二班教师
Teacher(
1
,
1
,
1
,
0
)
=
"
1110_B校二年级二班教师B221
"
Teacher(
1
,
1
,
1
,
1
)
=
"
1111_B校二年级二班教师B222
"
'
A校一年级二级教师一
Dim
t
t
=
Teacher(
0
,
0
,
1
,
0
)
MsgBox
t
'
遍历数组内容
Dim
teachers
For
Each
teacher in Teacher
teachers
=
teachers
&
teacher
teachers
=
teachers
&
"
<BR>
"
Next
MsgBox
teachers
'
Dictionary 对象
Dim
dic
'
创建一个变量。
Set
dic
=
CreateObject
(
"
Scripting.Dictionary
"
)
dic.Add
"
a
"
,
"
A
"
'
添加键和项目。
dic.Add
"
b
"
,
"
B
"
dic.Add
"
c
"
,
"
C
"
MsgBox
"
dic.Count
"
&
dic.Count
Dim
dicArray ,i ,s
dicKeysArray
=
dic.Keys
dicItemsArray
=
dic.Items
For
i
=
0
To
dic.Count
-
1
s
=
s
&
dicKeysArray(i)
&
dicItemsArray(i)
&
"
<BR>
"
Next
MsgBox
s
MsgBox
dic.Item(
"
a
"
)
End Sub
-->
</
SCRIPT
>
</
HEAD
>
<
BODY
>
<
FORM
NAME
="Form1"
>
<
INPUT
TYPE
="Button"
NAME
="btn_TeacherArray"
VALUE
="教师数组"
>
</
FORM
>
</
BODY
>
</
HTML
>
查看全文
相关阅读:
DataReader使用
C# Winform中DataGridView的DataGridViewCheckBoxColumn使用方法
c#TextBox输入框自动提示、自动完成、自动补全功能
Winform开发之窗体传值
Winform开发之窗体显示、关闭与资源释放
Winform开发之DataGridView的增删改
Winform开发之DataGridView事件和属性
Winform开发常用控件之DataGridView的简单数据绑定——代码绑定DataSet、DataTable、IList、SqlDataReader
Winform开发常用控件之DataGridView的简单数据绑定——自动绑定
Winform开发常用控件之TreeView菜单导航和权限用法
原文地址:https://www.cnblogs.com/freeliver54/p/1062548.html
最新文章
C# Page基础功能,用于各页面继承
C# 一些常用的字符串扩展方法
php 模拟 asp.net webFrom 按钮提交事件
获取远程html
.net 获取浏览器Cookie(包括HttpOnly)
二叉树算法
写给平日里面记忆力不好的自己
新的一年里对自己的规划
输入字符串只能是数字或者分数
迎战下周自考数据结构实践科目
热门文章
回忆读windows 核心编程
记于2014-12-9
2d,3d中旋转推导
生活体会2014.11.20
努力可以消除目前的恐惧
CLR VIA C#事件
CLR VIA C#委托
一道算法题
Winform开发之SqlCommand常用属性和方法
Winform开发之ADO.NET对象Connection、Command、DataReader、DataAdapter、DataSet和DataTable简介
Copyright © 2011-2022 走看看