Visual+Basic实例源代码
课前体验
Private Sub Form_Click()
For i = 1 To 10
For j = 1 To i
Print "* ";
Next j
Next i
End Sub
【例3-1】
Private Sub Form_Click()
c1$ = Chr$(13) + Chr$(10)
msg1$ = "请输入您的名字: "
msg2$ = "输入后按回车键"
msg3$ = "或单击“确定”按钮"
msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$
name$ = InputBox(msg$, "InputBox 函数示例", "张三")
Print name$
End Sub
【例3-2】
Private Sub Form_Click()
Msg1$=”Are you Continue to?”
msg2$=”Operation Dialog Box”
r=MsgBox(msg1$,34,msg2$)
Print r
End Sub
【例3-3】编写程序，用MsgBox函数判断是否继续执行。
Private Sub Form_Click()
msg$ = "请确认此数据是否正确"
Title$ = "数据检查对话框"
x = MsgBox(msg$, 19, Title$)
If x = 6 Then
Print x * x
ElseIf x = 7 Then
Print "请重新输入"
End If
End Sub
【例3-5】
Private Sub Form_Click()
Print: Print
FontName = "隶书"
FontSize = 16
Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";
Print Tab(24); "单位"; Tab(32); "籍贯"
Print "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科"; Tab(32); "北京"
End Sub
【例3-6】
Private Sub Form_Click()
X = InputBox("请输入成绩", "学生成绩录入", "00")
Print x
End Sub
【例3-7】
Private Sub Form_Click()
Dim x As Single, y As Single
x=InputBox(“请输入x的值”)
If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1
Print “x=”; x ,”y=” ; y
End Sub
【例3-8】
Private Sub Form_Click()
Dim msg, UserInput
msg = "请输入一个字母或0～9之间的数字."
UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字
If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1
Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值
Case 60 To 90 '在60-90之间为大写字母
msg = "你输入的是一个大写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case 97 To 122 '小写字母
msg = "你输入的是一个小写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case Else
msg = "你没有输入字母或数字."
End Select
End If
Else
Select Case Val(UserInput) '将输入的数值型字符转换为数值Case 1, 3, 5, 7, 9 '如果是奇数
msg = UserInput & " 是一个奇数。"
Case 0, 2, 4, 6, 8 '如果是偶数
msg = UserInput & " 是一个偶数。"
Case Else '出界
msg = "你输入的数字不在0～9范围内"
End Select
End If
MsgBox msg
End Sub
【例3-8】
Private Sub Form_Click()
Dim msg, UserInput
msg = "请输入一个字母或0～9之间的数字."
UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字
If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1
Select Case Asc(UserInput) ‘判断输入字母的ASCII 码值
Case 60 To 90 '在60-90之间为大写字母
msg = "你输入的是一个大写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case 97 To 122 '小写字母
msg = "你输入的是一个小写字母'"
msg = msg & Chr(Asc(UserInput)) & "'。"
Case Else
msg = "你没有输入字母或数字."
End Select
End If
Else
Select Case Val(UserInput) '将输入的数值型字符转换为数值Case 1, 3, 5, 7, 9 '如果是奇数
msg = UserInput & " 是一个奇数。"
Case 0, 2, 4, 6, 8 '如果是偶数
msg = UserInput & " 是一个偶数。"
Case Else '出界
msg = "你输入的数字不在0～9范围内"
End Select
End If
MsgBox msg
End Sub
【例3-10】
Sub Form_Click()
Dim N As Integer
n = InputBox("Enter N:") ‘输入N的值
k = 1
For i = 1 To N ‘循环N次，计算出N！
k = k * I
Next i
Print N;”!=”;k ‘数据输出
End Sub
【例3-12】
Dim S, N
S = 0: N = 0
Do While S <= 100
N = N + 1
S = S + N
Loop
Print S, N
【例3-13】
Private Sub Form_Click()
Dim char As String
Count = 0
char = InputBox("请输入一个字符")
While char <> "?"
Count = Count + 1
char = InputBox$("请输入一个字符")
Wend
Print "输入的字符数是:"; Count
End Sub
【例3-14】
Private Sub Form_Click()
Print " *";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
For j = 1 To 9
Print j;
For k = 1 To j
Print Tab(k * 6); j * k; " ";
Next k
Next j
End Sub
第4章
课前体验
（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：
Private Sub Text1_LostFocus()
If Val(Text1.Text) < 0 Or Val(Text1.Text) > 100 Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
（2）其他文本框的LostFocus事件类似。
（3）假定按钮名称为Command1，该按钮的Click事件过程如下：Private Sub Command1_Click()
If Check1.Value = 1 Then Sum = Sum + Val(Text1.Text)
If Check2.Value = 1 Then Sum = Sum + Val(Text2.Text)
If Check3.Value = 1 Then Sum = Sum + Val(Text3.Text)
If Check4.Value = 1 Then Sum = Sum + Val(Text4.Text)
If Check5.Value = 1 Then Sum = Sum + Val(Text5.Text)
Text6.Text = Sum
End Sub
【例4-1】
Private Sub Command1_Click() ‘在其单击事件中编程For i = 1 To 6 ‘外循环，控制输出几行For j = 1 To i ‘内循环，控制输出几列Print " * ";
Next j
Print ‘换行
Next i
End Sub
【例4-2】
Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text)
Text3.Text = UCase(Text1.Text)
End Sub
【例4-3】
Private Sub Check1_Click()
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Option1_Click()
Text1.Font = "黑体"
End Sub
Private Sub Option2_Click()
Text1.Font = "宋体"
End Sub
【例4-4】
Private Sub Command1_Click()
If Option1 Then
Text1.FontName = "宋体"
Else
Text1.FontName = "黑体"
End If
If Option3 Then
Text1.FontSize = 8
Else
Text1.FontSize = 10
End If
End Sub
Private Sub Command2_Click()
End
End Sub
【例4-5】
Private Sub Form_Load()
‘在窗体的Load事件中输入列表框的各个项目
lstBooks.AddItem "计算机应用基础"
lstBooks.AddItem "操作系统"
lstBooks.AddItem "数据结构"
lstBooks.AddItem "网络技术基础"
End Sub
Private Sub cmdAdd_Click()
‘单击添加命令按钮时将文本框中输入的内容添加到列表框中lstBooks.AddItem txtItem
txtItem = ""
End Sub
Private Sub cmdDelete_Click()
‘删除列表框中选中的项目
lstBooks.RemoveItem lstBooks.ListIndex
End Sub
Private Sub cmdModify_Click()
‘所选项目显示在文本框中，等待修改
txtItem.Text = lstBooks.Text
cmdAdd.Enabled = False
cmdDelete.Enabled = False
cmdModify.Enabled = False
cmdModify_OK.Enabled = True
End Sub
Private Sub cmdModify_OK_Click()
‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列
表框内容
lstBooks.List(lstBooks.ListIndex) = txtItem
cmdModify_OK.Enabled = True
cmdAdd.Enabled = True
cmdDelete.Enabled = True
cmdModify.Enabled = True
txtItem = ""
End Sub
【例4-6】
Private Sub Form_Click()
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
Pciture3.Picture=LoadPicture() …把第3个图片框设置为空End sub
【例4-7】
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
【例4-8】
Private Timer1_Timer()
Labe1.Caption=Time$
End Sub
实训
Private Sub Command1_Click()
Debug.Print "姓名:"; Text1.Text
Debug.Print "出生年月:"; Text2.Text
Debug.Print "籍贯:"; Text3.Text
If Option1.Value Then Debug.Print "性别:"; "男"
If Option2.Value Then Debug.Print "性别:"; "女"
Debug.Print "民族:"; Combo1.Text
If Check1.Value = 1 Then Debug.Print "健康" Else Debug.Print "不健康"
Debug.Print "职称:"; Combo3.Text
Debug.Print "工资:"; Text4.Text
Debug.Print "外语熟练程度"; HScroll1.Value
Debug.Print "简历:"; Text5.Text
End Sub
第5章
课前体验
Private Sub Command6_Click()
Const n = 10 ‘定义常量n的值为10
Max = 0: K = 0 ‘最高分及所在位置赋初值
For i = 1 To n
b(i) = InputBox("请输入第"& i &"个同学的成绩",求最高分) ‘输入成绩
If b(i) > Max Then
Max = b(i)
K = I ‘将第i个成绩与最高分Max相比，如果比最高分高，则保存起来
End If
Next i
Print"最高分是第"& K &"个同学，其成绩是："& Max
End Sub
【例5-1】
Option Base 1
Private Sub Command1_Click()
Dim a(3) As Integer
a(1) = 1: a(2) = 3: a(3) = 5
Print a(1)
Print a(2)
Print a(3)
End Sub
【例5-2】
For i=1 To 10
b(i) = InputBox("请输入第" & i & "个数")
Next i
【例5-3】
For i=1 To 2
For j=1 To 2
b(i,j) = i+j
Next j
Next i
【例5-4】
Dim S(3，2) As Integer
程序如下：
For i = 0 To 3
Print Tab(5); …输出位置定位
For j = 0 To 2
S(i, j) = i * 2 + j ‘给各元素赋值
Print S(i, j);
图5-4 使用二维数组打印出的图形
Next j
Print ‘换行
Next i
【例5-5】
Private Sub Form_Click()
Dim s(5) As Integer '定义数组S
Const n = 5
For i = 1 To n
s(i) = Val(InputBox("请输入第" & LTrim$(Str$(i)) & "个数", 数据排序))
‘输入n个数，转换成数值后保存在数组中。
Next i
For i = 1 To n-1 ‘进行n-1趟比较 Max = I ‘对第i遍比较时，初始假定第i个元素最小。
For j = i + 1 To n ‘在数组i～n个元素中选最小元素
If s(j) < s(Max) Then Max = j
Next j
t = s(i)
s(i) = s(Max)
s(Max) = t ‘i～n个元素中选出的最小元素与第i个元素交换
Next i
For i = 1 To 5
Print s(i)
Next i
End Sub
【例5-6】
Dim b() As Integer
Private Sub Form_Click()
ReDim b(2)
For i = 0 To 2
b(i) = i
Next i
ReDim Preserve b(3)
b(3) = 7
For i = 0 To 3
Print b(i);
Next i
End Sub
【例5-7】
Dim a(8, 8) As Integer '定义一个二维数组
Private Sub Form_Click()
‘下面的二层循环语句给数组赋值
For i = 1 To 8
For j = 1 To i
If i = 1 Or j = 1 Then
a(i, j) = 1 '数组中每一行第一个，最后一个数均为1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
'数组中其余数据等于它上一行的相邻两列之和
End If
Next j
Next i
'下面的二层循环语句将数组中的值打印出来For i = 1 To 8
Print Tab(20 - 2 * i); '定位打印位置
For j = 1 To i
If a(i, j) < 10 Then '将数组中的值转换成长度为3的字符串，可使打印数据整齐
s = " " + Str(a(i, j)) + " "
ElseIf a(i, j) < 100 Then
s = " " + Str(a(i, j))
End If
Print s;
Next j
Print '换行
Next i
End Sub
【例5-8】
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label1.ForeColor = RGB(255, 0, 0)
Case 1
Label1.ForeColor = RGB(0, 255, 0)
Case 2
Label1.ForeColor = RGB(255, 255, 0)
End Select
End Sub
实训
Option Base 1 ‘定义数组下标从1开始
Dim arr() ‘定义动态数组arr
Private Sub Form_Click()
n = Val(InputBox("请输入矩阵的行数")) ‘输入矩阵行数
m = Val(InputBox("请输入矩阵的列数")) ‘输入矩阵列数
ReDim arr(n, m) ‘重定义数组arr 为n行m列的二维数组
‘下列程序段为数组输入数据
For i = 1 To n
For j = 1 To m
arr(i, j) = Val(InputBox("请输入矩阵第" & i & "行第" & j & "列的数据"))
Next j
Next i
‘下列程序段在数组中找出最大值及所在位置
row = 1: col = 1
For i = 1 To n
For j = 1 To m
If arr(i, j) > arr(row, col) Then
row = i: col = j
End If
Next j
Next i
‘下列程序段输出矩阵及最大值及所在位置
Print "您输入的矩阵是："
For i = 1 To n
Print Tab(8)；‘打印位置定位
For j = 1 To m
Print arr(i, j);
Next j
Print ‘换行
Next i
Print "矩阵中最大值为：";arr(row, col); "其位置在第" & row & "行" & col & "列"
End Sub
第6章
课前体验
（2）编写窗体装载事件过程：
Private Sub Form_Load()
For I = 0 To 100
List1.AddItem i
Next i
End Sub
（3）使用“添加过程”对话框创建出判断成绩等级的过程Public Sub DengJi(a As Integer)
Select Case a
Case 0 To 59
Label1.Caption = "不及格"
Case 60 To 69
Label1.Caption = "及格"
Case 70 To 79
Label1.Caption = "中等"
Case 80 To 89
Label1.Caption = "良好"
Case 90 To 100
Label1.Caption = "优秀"
End Select
End Sub
4）编写列表框单击Click事件过程：
Private Sub List1_Click()
Dim n As Integer
N = Val(List1.Text)
Call DengJi(n) '调用判断成绩等级的过程
End Sub
（5）编写命令按钮单击Click事件过程：
Private Sub Command1_Click()
End
End Sub
【例6-1】
Private Sub oushu(x As Integer,msg As Boolean)
If x Mod 2 = 0 Then
Msg = True
Else
Msg = False
End If
End Sub
【例6-2】
Public Function Rect(a As Double,b As Double)As Double
Rect = a * b
End Function
【例6-3】
（2）在窗体代码窗口中编写pingjun过程：
Sub pingjun(a As Integer,b As Integer,c As Integer)
C = (a+b)/2
End Sub
（3）编写命令按钮1的单击事件过程：
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
X = Val(Text1.Text)
Y = Val(Text2.Text)
Call pingjun(x,y,z) '或pingjun x, y, z
Text3.Text = Str(z)
End Sub
【例6-4】
（2）把判断奇偶性的函数过程jo的程序代码输入到窗体代码窗口中。
Function jo(x As Integer)As String
If x Mod 2 = 0 Then
Jo = "偶数"
Else
Jo = "奇数"
End If
End Function
（3）编写命令按钮1的单击事件过程：
Private Sub Command1_Click()
Dim n As Integer,w As String
n=Val(Text1.Text)
w = jo(n)
Label1.Caption=Text1.Text &"是"& w &"！"
End Sub
【例6-5】
（2）编写参数按地址传递次的过程Swap1：
Sub Swap1(x As String,y As String)
Dim t As String
T = x：x = y：y = t
End Sub
（3）编写命令按钮单击事件过程如下：
Private Sub Command1_Click()
Dim a As String,b As String
A = Text1.Text
B = Text2.Text
Form1.Caption = "按地址传递"
Swap1 a,b
Text1.Text = a
Text2.Text = b
End Sub
【例6-7】
（2）求任意一维数组中各元素之积的函数如下：Function tt(a() As Integer)As Long '函数的形参是数组
Dim t#, i%
T = 1
For I = LBound(a) To UBound(a) '求数组的下界和上界
T = t * a(i)
Next i
Tt = t
End Function
（3）求任意一维数组中各元素之和的函数如下：Function ss(b() As Integer)As Long '函数的形参是数组
Dim t#, i%
S = 0
For I = LBound(b) To UBound(b) '求数组的下界和上界
S = s+b(i)
Next i
Ss = s
End Function
（4）编写命令按钮单击事件过程，如下：
Private Sub Command1_Click()
Dim a(1 To 5)As Integer
Dim b(2 To 10)As Integer
Dim i As Integer,t1 As Long,s1 As Long
For I = 1 To 5 '给数组赋值
a(i) = i + 3
Next i
t1 = tt(a()) '调用函数
Print"第一个数组各元素之积t1="; t1
For I = 2 To 10
b(i) = i * 2
Next i
s1 = ss(b())
Print"第二个数组各元素之和s1="; s1
End Sub
【例6-8】
（1）先定义一个具有可选参数的函数过程sum，用来进行3个数的加法运算。
Private Function sum(x As Integer,Optional y As Integer,_
Optional z As Integer=3)As Integer Sum = x + y + z
End Function
（2）编写窗体的单击事件过程，如下：
Private Sub Form_Click()
Print"sum(1) = 1 + 0 + 3 = ";sum(1) '省略两个参数
Print"sum(1,2) = 1 + 2 + 3 = ";sum(1,2) '省略第3个参数
Print"sum(1,,8) = 1 + 0 + 8 = ";sum(1,,8) '省略第2个参数
Print"sum(1,4,8) = 1 + 4 + 8 =";sum(1,4,8) '不省略参数
End Sub
【例6-9】
（1）先定义一个具有可变参数的函数过程MySum，如下：
Function MySum(ParamArray V A()) As Integer '声明为可变参数
Dim i As Integer
Dim Sum As Integer
Sum = 0
For i=LBound(V A) To UBound(V A) '得到数组的大小，并进行循环
Sum = Sum+V A(i)
Next
MySum = Sum
End Function
（2）编写窗体的单击事件过程，如下：
Private Sub Form_Click()
Dim s As Integer
Print Tab(2); "使用3个实参：";
S = MySum(2,4,6) ' 可以使用任意多个实参来调用
Print "MySum(2,4,6)="; s
Print Tab(2); "使用5个实参：";
S = MySum(1,2,3,4,5)
Print "MySum(1,2,3,4,5)=";s
End Sub
【例6-10】
（1）定义具有窗体参数的过程，如下：
Private Sub BiaoTi(fm As Form) 'fm为窗体对象参数
Text1.Text = "窗体的标题是"& fm.Caption
End Sub
调用过程BiaoTi会改变窗体对象fm中的文本框Text1的文本。（2）定义具有控件对象参数的过程，如下：
Private Sub KuanDu(tb As TextBox) 'tb为文本框型的控件对象参数
tb.Text = "文本框的宽度是"& tb.Width
End Sub
调用过程KuanDu会改变文本框对象tb的文本。
（3）编写按钮的单击事件过程，用来调用具有对象参数的过程。
Private Sub Command1_Click()
Call BiaoTi(Form1)
End Sub
Private Sub Command2_Click()
Call KuanDu(Text1)
End Sub
【例6-11】
Function fac(n As Integer) As Long
If n = 1 Then
Fac = 1
Else
Fac = n * fac(n - 1)
End If
End Function
【例6-12】
Private Sub Command1_Click()
Dim a As Integer,b As Integer '过程级变量
A = 100:b = 8
Print"调用s1前，事件过程中的变量:";"a=";a;"b=";b
Call s1 '调用通用过程sub1
Print" 调用s1后，事件过程中的变量:";"a=";a;"b=";b
End Sub
Sub s1() '通用过程
Dim a As Integer,b As Integer '过程级变量
A = 55:b = 66
Print"通用过程s1中的变量:";"a=";a;"b=";b
End Sub
【例6-13】
Dim a As Integer,b As Integer '声明模块级变量
Private Sub Command1_Click()
A = 100:b = 8 '对模块级变量赋值
Print"调用s1前，模块级变量:";"a=";a;"b=";b
Call s1 '调用通用过程sub1
Print"调用s1后，模块级变量:";"a=";a;"b=";b
End Sub
Sub s1() '通用过程
A = 55:b = 66 '对模块级变量赋值
Print"通用过程s1对模块级变量赋值:";"a=";a;"b=";b
End Sub
【例6-14】
（4）在窗体Form1的代码窗口的顶部，声明模块级变量a和b，分别用来储存程序运行后单击左右两个命令按钮的次数。代码如下：Private a As Integer
Private b As Integer
（5）编写左边的命令按钮的Command1_Clic事件过程。代码如下：Private Sub Command1_Click()
Dim s As String
I = I + 1
A = a + 1
S = "单击按钮"& i &"次,左按钮"& a &"次"
MsgBox s,vbOKOnly,"提示"
End Sub
（6）编写右边的命令按钮的Command2_Clic事件过程。代码如下：Private Sub Command2_Click()
Dim s As String
I = I + 1
B = b + 1
S = "单击按钮"& i &"次,右按钮"& b &"次"
MsgBox s,vbOKOnly,"提示"
End Sub
【例6-15】
Sub change()
Dim d As Integer '声明动态变量d
Static s As Integer '声明静态变量s
D = d + 1
S = s + 1
Print "动态变量d = ";d,"静态变量s = ";s
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 3
change '或Call change
Next i
End Sub
实训
（3）在Form1的窗体模块的代码窗口的最顶部（通用声明段）声明模块级变量title，用来存储字符串。代码如下：
Private title As String '表明是使用通用过程还是函数
（4）定义Sub通用过程MySub，来进行乘法运算。其中的形参x、y 按值传递，形参z按地址传递。代码如下：
Private Sub MySub(ByVal x As Integer,ByVal y As Integer,z As Integer)
Z = x * y
End Sub
定义函数过程MyFun，来进行加法运算。其中的形参m和n是按值传递的。代码如下：
Private Function MyFun(ByVal m As Integer,ByVal n As Integer) As Integer
MyFun=m+n
End Function
（5）添加窗体的事件过程Form_Load，来做些初始化的工作，将文本框置空。代码如下：
20个代码生成框架
20个代码生成框架 11.1 CodeSmith http： 官方论坛： http： 版权形式：30天试用 开源：否需要先注册确认后才能下载 1.2 MyGenerator MyGenerator是又一个国外很不错的代码生成工具，有人觉得比CodeSmith 简单、好用。 所有api可以在帮助菜单中找到。 http： 官方论坛： 版权形式： 免费 开源：否 1.3 NHibernate. http： 官方论坛： 版权形式：
免费 开源：否 1.4湛蓝.Net代码生成器 http： 官方论坛： http： 版权形式： 免费 开源：否 1.5动软.NET代码自动生成器 一款人气很旺的免费C#代码生成器 http： 官方论坛： 版权形式： 免费 开源：否 1.6 CodePlus 专为sql server c#语言设计的代码生成器,功能还是很强大http： 官方论坛：
版权形式： 需要少量的注册费用 开源：否下载地址很神秘 1.7 CodeMaker http： 官方论坛： 版权形式： 免费 开源：否 https://www.wendangku.net/doc/8a13813970.html,代码生成器 可以使用本工具生成https://www.wendangku.net/doc/8a13813970.html,和C#语言的代码，以及三层架构与ORM架构代码，并且使用的ORM持久化组件是开源的，您可以在本软件的安装目录下找到它 官方论坛： 版权形式： 免费 开源：否 1.9 BMW业务模型及代码生成器 一款人气很旺的免费C#代码生成器
官方论坛： 版权形式： 免费 开源：否 1.10飞鹰CoolCoder 专门为采用nhibernate做关系对象影射架构的系统提供代码的工具，简单易用，虽然不提供源码，我们可以用反编译工具对其反编译看源码。这是个很不错的学习机会。 官方论坛： 版权形式： 免费 开源：否 1.11 AutoCoder自动代码生成器 AutoCoder自动代码生成器是一个根据模板自动生成代码的代码生成工具，根据模板的不同，可以生成任何语言（如： ASP、C#、C++BUILDER、DELPHI、JAV A、JSP、PHP、V B、https://www.wendangku.net/doc/8a13813970.html,……），不同层次结构（B/S、C/S、n-tiger……），基于不同数据库（ORACL E、MSSQL、MYSQL、
微信小程序功能优秀案例体验软文
微信小程序功能体验太差？那是因为你没用过这些小程序！ 小程序经过两个月争议的洗礼与数次沉浮起落，慢慢开始走上正轨。滴滴、摩拜、今日头条等一大批巨头的进驻和小程序自身能力的开放。让小程序丰富了许多。越来越多的用户开始使用并习惯使用小程序，借助“即速应用”这类无需代码拖拽组件直接生成的小程序开发工具，整个市场中的小程序数量也在快速增长，除了大平台发布的关注度较高的小程序之外。其实还有很多实用而美的小程序也值我们去发现。今天就给大家介绍几款这样的小程序。 1、小睡眠 这是一款辅助睡眠的小程序，里面有非常多纯粹的天然白噪音和几十种自然界中纯净的声音，非常有趣。除此之外，小睡眠界面清新，设计简洁，还支持定时停止，非常适合睡前来使用。
2、小打卡 小打卡是一个简洁的学习管理软件，每天健身、阅读、学英语，打卡记录自己的成长。 此外小打卡还支持与好友分享打卡记录，和好友相互鼓励，养成好习惯。 小打卡里的Pro付费功能还可以设置打卡地点。很适合户外跑、徒步的用户记录自己的足迹。
3、社交名片 社交名片是一个名片管理小工具，我们可以非常方便的把自己的名片收录进去以便需要时分享给别人。也可以把别人的名单都存储在小程序中，等需要的时候，可以随时调看，并且支 持一键拨打电话，非常实用。推荐给大家。
4、轻松同传 轻松同传是一款即时翻译软件。页面简洁，但功能简单好用，只需要将文字输入对话框或者语音讲出来，点击发送，马上就有对应的英语翻译。非常迅速和准确，在现实的场景中具有 很强的实用性。
5、玩物志 玩物志是一个专注轻奢、设计品、有趣之物的线上电商平台。和某宝、某东有着清晰而不同定位。上面的商品，品类不多，但每一个都有着独特的设计感和小情调。很符合追求生活品 质和与不平凡的你。
vb练习题,电子版第13章多窗体程序设计
第十三章多窗体程序设计 教学要求： 了解多重窗体应用程序的适用范围与特点，掌握多重窗体应用程序建立的主要步骤；了解多重窗体程序的执行与保存特点，了解Visual Basic工程的结构特点（标准模块、窗体模块、Sub Main过程）；掌握闲置循环与DoEvents语句的用法。 知识点： 多重窗体应用程序；多重窗体应用程序的建立、执行、保存；Visual Basic工程的结构特点；闲置循环与DoEvents语句。 内容导航： 一、建立多重窗体应用程序 （一）多重窗体程序设计有关的语句和方法 1．Load语句。格式：Load 窗体名 2．Unload语句。格式：Unload 窗体名 3．Show方法。格式：[窗体名.]Show[模式] 4．Hide方法。格式：[窗体名.]Hide （二）建立界面 窗体的添加方法有如下4种： 方法一：单击“工程”菜单中的“添加窗体”命令； 方法二：用鼠标右键单击“工程资源管理器”的任何项目，在弹出的快捷菜单中选择“添加”，单击“添加窗体”命令； 方法三：单击工具栏中的“添加窗体”命令； 方法四：通过组合键Alt+P，F。 二、多重窗体程序的执行与保存 （一）指定启动窗体 在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来。要改变启动窗体的执行方法如下： 从“工程”菜单中，选取“工程属性”命令，选取“通用”选项卡，在“启动对象”中，选取要作为新启动窗体的窗体，最后单击“确定”按钮。 （二）保存多窗体程序 为了保存多窗体程序，通常需要一下两步： 1．保存模块。 2．保存工程 （三）装入多窗体程序 装入多窗体程序和装入单窗体程序一样，只要打开工程文件，工程中包括的其他文件便会自动装入内存，而不用一一打开。 三、Visual Basic工程结构 Visual Basic工程分为3个层次：工程级（全局）、模块级和过程级，这对变量与类型的定义和使用都是很重要的。
VB窗体美化
学习窗体美化不错的知识 ==================================================================================== 相信大家看过许多形状怪异的窗口吧？可是在VB里，系统提供的只是一个矩形的窗体。如何在VB里实现这种异形窗体呢？ 其实原理很简单。首先，在内存中构建一个想要的图形，再通过API函数将窗体设置为此形状，最后将图片放上去就可以了。关键在于如何构建这个想要的图形。让我们看看下面这个图： 。 这张图片中既有白色，也有其他彩色，而我们想要的颜色正是除白色以外的其它颜色。我们可以这样想：在内存中创建一幅一样大小的空的图像，然后只把我们需要的颜色（即非白色）输入内存。这样，就可以创建出我们想要的图形了。 以上是原理，接下来介绍几个API函数。 GetPixel：获取指定对象的某个点的颜色。 定义为：Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 其中hdc为图形对象的句柄，x、y为坐标。 SelectObject：向内存中的指定地点输入图形。 定义为：Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 其中hdc为内存中图形对象的句柄，hObject为欲输入的图像。 CreateCompatibleDC：在内存中创建一个与指定对象一样的场景（可以理解为图像）。 定义为：Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long 其中hdc为指定对象的句柄。 DeleteObject：删除GDI对象（在这里用来删除用完的内存中的图形）。记住，用完后释放资源是非常重要的！ 定义为：Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
VB教程经典
经典VB基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。
（一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等； ③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。 4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口
20个代码生成框架
20个代码生成框架 1 1.1 CodeSmith 一款人气很旺国外的基于模板的dotnet代码生成器 官方网站：http：//https://www.wendangku.net/doc/8a13813970.html, 官方论坛：http：//https://www.wendangku.net/doc/8a13813970.html,/default.aspx 版权形式：30天试用 开源：否 需要先注册确认后才能下载 1.2 MyGenerator MyGenerator是又一个国外很不错的代码生成工具，有人觉得比CodeSmith简单、好用。 所有api可以在帮助菜单中找到。 官方网站：http：//https://www.wendangku.net/doc/8a13813970.html,/portal/default.aspx 官方论坛： 版权形式：免费 开源：否 1.3 NHibernate. NHibernate是Hibernate公司在Java自动生成领域取得巨大成功后推出的一款ORM工具. 官方网站：http：//https://www.wendangku.net/doc/8a13813970.html,/ 官方论坛： 版权形式：免费 开源：否 1.4 湛蓝.Net代码生成器
一款基于软件自动生成理念，能直接生成应用的dotnet代码生成器 官方网站：http：//https://www.wendangku.net/doc/8a13813970.html, 官方论坛：http：//https://www.wendangku.net/doc/8a13813970.html,/ 版权形式：免费 开源：否 1.5 动软.NET代码自动生成器 一款人气很旺的免费C#代码生成器 官方网站：http：//https://www.wendangku.net/doc/8a13813970.html, 官方论坛： 版权形式：免费 开源：否 1.6 CodePlus 专为sql server c#语言设计的代码生成器,功能还是很强大 官方网站：http：//https://www.wendangku.net/doc/8a13813970.html, 官方论坛： 版权形式：需要少量的注册费用 开源：否 下载地址很神秘 1.7 CodeMaker asp,jsp,php代码生成工具，自动生成维护数据库信息的动态网页的代码生成器。它可以帮助ASP、JSP、PHP开发人员快速的开发简单的数据库维护程序。无需任何编码，只需将数据库结构导入到CodeMaker中并做简单的设置，CodeMaker即可生成完整的数据库操作页面。用CodeMaker可以简单快速的创建网站后台维护程序。提高开发效率数十倍以
作业一 简单VB程序设计
作业一简单VB程序设计 1.对于窗体，下面______属性在程序运行时其属性设置起作用。 （A）MaxButton （B）BorderStyle （C）Name （D）Left 2.类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为______。 （A）对象（B）容器（C）实体（D）类 3.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 4.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言 5.文本框没有______属性。 （A）Enabled （B）Visible （C）BackColor （D）Caption 6.不论何控件，共同具有的是______属性。 （A）Text （B）Name （C）ForeColor （D）Caption 7.要使Form1窗体的标题栏显示"欢迎使用VB"，以下______语句是正确的。 （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption='欢迎使用VB ' （C）Form1.Caption=欢迎使用VB （D）Form1.Caption="欢迎使用VB " 8.要使某控件在运行时不可显示，应对______属性进行设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption 9.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列______属性设置就有效。（A）MaxButton （B）BorderStyle （C）Width （D）MinButton 10.当运行程序时，系统自动执行启动窗体的______事件过程。 （A）Load （B）Click （C）UnLoad （D）GotFocus 11.当文本框的ScrollBars属性设置了非零值，却没有效果，原因是______。 （A）文本框中没有内容（B）文本框的MultiLine属性为False （C）文本框的MultiLine属性为True （D）文本框的Locked属性为True 12.要判断在文本框是否按了Enter键，应在文本框的______事件中判断。 （A）Change （B）KeyDown （C）Click （D）KeyPress 13.将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是______。 （A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对 14.当需要上下文帮助时，选择要帮助的"难题"，然后按______键，就可出现MSDN窗口及显示所需"难题"的帮助信息。 （A）Help （B）F10 （C）Esc （D）F1 15.Visual Basic有三种工作模式，它们分别是______模式。 （A）设计、编译和运行（B）设计、运行和中断 （C）设计、运行和调试（D）编译、运行和调试 答案：DADBD BDBBA BDADB
微信小程序开发合同协议书范本-新
微信小程序开发合同 甲方：乙方： 联系人：联系人： 联系电话：联系电话： 地址：地址： 本合同除合同编号、文本空格、双方签章信息外，其余内容均为印刷字体。手写部分（包括但不限于添加、删除、修改）无效，不具备法律效力。委托人甲方与受托人（以下简称“乙方”）双方本着平等互利、友好协商的原则，依据《中华人民共和国合同法》等法律规定，就甲方授权乙方开发微信小程序事宜的达成如下协议。 第一条、服务内容： 、甲方的权利和义务: 1、甲方有权享有本合同备注项目下的服务。 2、合同期满后甲方有权自主进行选择服务商，乙方应提供必要的协助。 3、甲方应该如实向乙方提供所需之相关信息（包括但不限于本合同填写之信息）凡因相关信息不真实，不准确等原因导致乙方无法或不能妥善履行本合同义务的，因此产生的一切后果由甲方负责。 4、甲方应当遵守相关法律及本合同项下服务内容相关的各项服务费用规定，甲方应保
证本合同项下服务过程中甲方通过小程序发布传递信息的真实性、准确性、合法性和合理性；不能使用小程序开发服务从事任何违反法律及国家利益的事务；若乙方发现甲方有上述违约或违规行为，乙方有权选择立即暂停或终止微信小程序服务，并有权不承担任何责任的单方解除本合同，甲方还应当给乙方适当的赔偿。 5、甲方应妥善保管小程序相关账号和密码，非因乙方原因造成甲方账号和密码泄露，被他人盗用等所产生的损失，乙方不承担任何责任。 、乙方的权利和义务: 1、乙方为甲方提供小程序开发服务、技术支持及服务器。 2、未经甲方书面同意，乙方不得随意更改甲方提供的资料，乙方应对甲方的相关信息保密（司法机关或行政机关根据其权限调查除外）。 3、乙方负责在产品设计功能范围内解决甲方在小程序内容制作过程中遇到的技术问题。 4、乙方在维护管理服务器时，或由于乙方网站平台改版、升级、更新等，必要时可短时间中断服务。 第四条、验收标准： 1、甲方应以电话、传真以及电子邮件提供运营结果。 2、运营结果达到到约定效果即为验收合格。 3、乙方需及时填写验收确认信息。 4、验收期限为三天，如果乙方超过验收期未验收，甲方将视为验收满意。 5、甲方完成验收后以合同提供的联系方式及时联系乙方。 、违约责任： 1、因甲方违反本合同的约定造成乙方收到相关部门处罚或者对任何第三方产生不良后果的，甲方应当赔偿因此给乙方造成的损失，并追究甲方其他的法律责任。 2、若乙方违反合同约定，甲方有权单方面终止合同，并要求乙方退回未履约的相应费用，并追究乙方的其他法律责任。 3、任何一方因不可抗力，致使对方受到重要经济损失，或导致本合同不能履行或不能完全履行时，受不可抗力影响的一方对另一方的损失不承担违约责任，本合同所指不可抗力，是指不能避免，不能实现的客观要求，包括但不仅限于地震、洪水等自然灾害、战争及政府行为、突发性公共事实等。 4、任何一方违反本合同约定的，应赔偿守约方因对方违约造成的全部损失，守约方有
用VB编写画图程序
3．设置各控件的相关属性 设置各控件的相关属性，如表11-9所示。表11-9 画图程序各控件属性设置
4．代码设计 （1）引入命名空间： Imports System.Drawing.Drawing2D （2）在FrmPaint类里定义全局变量和mSelect枚举结构： 1.Private g As Graphics '绘图句柄 2.Private pstart As Point, pend As Point '定义画图的起始点，终点 3.Private mChoice As Integer'选择图形枚举 4.Private mWidth As Integer'画笔宽度 5.Private mIcon As Icon '用户选择图标 6.Private Enum mSelect '选择图形类别枚举 7. Pencil '铅笔 8. Line '直线 9. Ellipse '椭圆 10. FillEllipse '填充椭圆 11. StyleEllipse '风格椭圆 12. Rec '矩形 13. FillRec '填充矩形
14. StyleRec '风格矩形 15. Icon '图标 16. Eraser '橡皮 17.End Enum （3）在FrmPaint的Load事件中初始化全局变量和Graphics对象： 1.Private Sub FrmPaint_Load(ByVal sender As System.Object, _ 2.ByVal e As System.EventArgs) Handles MyBase.Load 3. 4. g = Me.picPaint.CreateGraphics '获取PictureBox的绘图句柄 5. mChoice = mSelect.Pencil '默认选择选铅笔作为绘图工具 6. mWidth = 1 '初始化画笔宽度 7.End Sub （4）定义转换坐标起点和终点的过程Convert_Point()。转换坐标起始点和终点，确保起始点始终在终点的左上方，代码如下： 1.'确保起始点坐标位于左上角 2.'结束点坐标位于右下角 3.Private Sub Convert_Point() 4.Dim ptemp As Point '用于交换的临时点 5.If pstart.X < pend.X Then 6.If pstart.Y > pend.Y Then 7. ptemp.Y = pstart.Y 8. pstart.Y = pend.Y 9. pend.Y = ptemp.Y 10.End If 11.End If 12.If pstart.X > pend.X Then 13.If pstart.Y < pend.Y Then 14. ptemp.X = pstart.X 15. pstart.X = pend.X 16. pend.X = ptemp.X 17.End If 18.If pstart.Y > pend.Y Then 19. ptemp = pstart 20. pstart = pend 21. pend = ptemp 22.End If
VB代码(整人,实用。几个有趣的希望有帮助!!)
使用方法：新建一个txt文本文档。然后把拓展名改成“.vbs”的格式。然后右键编辑，把代码复制进去，ok！！！ 1.整死你啊！！！ 此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你Private Sub Form_Load() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 For m = 1 To 999 MsgBox "呵呵，你知道我是谁吗？", 16 MsgBox "什么？？不知道？", 16 MsgBox "那你打开我干什么？", 16 MsgBox "你有空没事做吧？！", 16 MsgBox "我..就是鼎鼎大名的987876198", 16 MsgBox "987876198..", 16 MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16 MsgBox "算了算了，不玩你了", 16 MsgBox "现在我数3声就闪人,行了吧?", 16 MsgBox "1.............", 16 MsgBox "2.............", 16 MsgBox "3.............", 16 MsgBox "噔噔噔噔,我又回来了！", 16 MsgBox "哈哈，是不是很过瘾呢？", 16 MsgBox "现在我先介绍下自己..", 16 MsgBox "我叫王得地..", 16 MsgBox "性别：男..", 16 MsgBox "今年35岁..", 16 MsgBox "不好意思噢，我好像说多了..", 16 MsgBox "不要这样喇，听我说完先好不？", 16 MsgBox "来来来，开始喇..", 16 MsgBox "我叫王得地..", 16 MsgBox "家中有屋又有田..", 16 MsgBox "生活乐无边..", 16 MsgBox "好像我又说多了...", 16 MsgBox "不要生气嘛，你认真看下去我就放你走..", 16 MsgBox "好，开始喇..", 16 MsgBox "从前有座山..", 16 MsgBox "山里有个座庙..", 16 MsgBox "庙里有个和尚..", 16 MsgBox "哈哈，想哭吗？", 16 MsgBox "被骗的感觉不爽吧？", 16 MsgBox "喂喂喂！别别..千万别重启电脑", 16 MsgBox "我告诉你怎么关吧", 16 MsgBox "先打开任务管理器", 16 MsgBox "忘了告诉你了，任务管理器打不开了", 16
程序代码自动生成系统的设计与实现
万方数据
万方数据
万方数据
万方数据
基于敏捷开发的高校网络评教系统 作者：吴衡， WU Heng 作者单位：天水师范学院物理与信息科学学院,甘肃天水,741001 刊名： 计算技术与自动化 英文刊名：Computing Technology and Automation 年，卷(期)：2011,30(4) 被引用次数：1次 参考文献(8条) 1.丁增富;葛信勇构建教学质量监控体系努力提高教学质量[期刊论文]-高等农业教育 2004(03) 2.陈莉和谐校园构建于素质教育双效联动[期刊论文]-中国市场 2007(2-3) 3.成奋华;金敏基于敏捷过程的IT项目范围管理的研究与应用[期刊论文]-计算机技术与发展 2010(10) 4.徐诚斌;王金平MVC在ThinkPHP框架中的应用研究 2011(03) 5.赵国栋;黄永中开源软件在高校的应用与推广策略研究[期刊论文]-中国资源综合利用 2007(01) 6.马文龙;高宝成用php实现基于MVC模式的Web应用程序开发 2008(07) 7.原晓林基于B/S教学管理系统的开发与研究[期刊论文]-山西警官高等专科学校学报 2009(04) 8.蓝蔚青;曹剑敏;张帆高校学生网络评教系统的构建与完善[期刊论文]-高等农业教育 2006(06) 引证文献(1条) 1.蒋建洪电子商务系统协同开发实践教学研究[期刊论文]-中国教育信息化·基础教育 2013(5) 本文链接：https://www.wendangku.net/doc/8a13813970.html,/Periodical_jsjsyzdh201104028.aspx
微信小程序开发实战
《微信小程序开发实战》试卷 得分 单选题（每题2分，共计30分） 1．微信小程序提供了（）组件，将音乐文件引入到小程序中。 A、<> B、<> C、<> D、<> 2．关于属性说法错误的是（）。 A、表示按钮的样式类型 B、点击分别触发事件 C、表示是否禁用 D、按钮是否镂空，背景不透明3．在微信小程序的页面组件中，图片组件用（）表示。 A、<> B、<> C、<> D、<> 4．下列关于媒体组件，说法正确的是（）。 A、媒体组件包括音频组件、视频组件、图片组件 B、组件的属性有12种展现模式 C、表示视频组件 D、组件的宽高不能通过设置 5．搭建后台服务，（）命令可以实时监听文件的修改且进行实时更新。A、 B、 C、 D、 总分题型单选题多选题填空题简答题题分 得分
6．关于表单组件描述错误的是（）。 A、每个表单内的组件不用设定属性 B、表单提交的是表单内选中的所有组件 C、组件用来将表单里的值提交给逻辑层进行处理 D、中的有两个属性分别是和 7．在使用实现页面列表渲染时，的值为（）时表示将每一项本身作为唯一标识。 A、* B、 C、 D、 8．下列关于坐标点说法错误的是（）。 A、表示经纬度数组 B、表示线的颜色 C、表示线宽 D、默认为显示虚线9．在小程序的页面组件中，（）是定义单选框。 A、<> B、 C、 D、<> 10．下列关于组件说法错误的是（）。 A、属性可以设置输入框的禁用 B、用来控制输入单行文本内容 C、通过给输入框添加友好提示信息 D、的属性有3种有效类型 11．在小程序权限管理中，（）是可以使用开发者工具及开发版小程序进行开发。 A、开发管理 B、开发者权限 C、暂停服务设置 D、登录
VB实例(含代码和窗体)
VB实例 第一天、使用VB收发电子邮件 大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB的认识，还可以让你拥有十足的成就感呢！ LOLI：好呀，那做一些什么程序呢？ 大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？ LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。 大叔：这个我自然知道，那我们就开始动手制作一个收发电子邮件的程序吧。 LOLI：收发电子邮件？这个会不会很难呢？ 大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！ 一、准备工作 大叔：在VB中编写电子邮件程序需要通过调用微软公司的MAPI（Messaging Application Programming Interface，消息应用程序编程接口），这需要借助两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，Windows系统中必须要有遵从MAPI的邮件系统，比如Exchange、Outl ook等软件，而还要进行一番设置，确保邮件系统可以正常使用。 LOLI：呵呵，没关系，我用的就是Outlook，正好符合要求。不过你说的MAP I控件在哪里找呢？ 大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“Microsoft MAPI Controls”一项（如图1所示），接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标（如图2所示）。
简单的VB程序设计习题
第二章简单的VB程序设计习题 一、选择题 1. 假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中 设置窗体的属性，预先执行的操作是（ a ）。 （A）单击窗体上没有控件的地方（B）单击任一个控件 （C）不执行任何操作（D）双击窗体的标题栏 2. 在VB中最基本的对象是（c），它是应用程序的基石，是其它控件的容器。 （A）文本框(B)命令按钮 （C)窗体(D)标签 3. 有程序代码如下：text1.text=“visual basic”则：text1、text和“visual basic” 分别代表（ c ）。 （A）对象，值，属性(B) 对象，方法，属性 （C）对象，属性，值(D) 属性，对象，值 4. VB是一种面向对象的程序设计语言，（ a ）不是面向对象系统所包含的三要素。 （A）变量(B)事件(C)属性(D)方法 5. b VB的一个应用程序至少包括一个（）文件，该文件存储窗体上使用的 所有控件对象和有关的（）、对象相应的（）过程和（）代码。 （A）模块、方法、事件、程序(B)窗体、属性、事件、程序 （C）窗体、程序、属性、事件(D)窗体、属性、事件、方法6. 在VB6.0环境已有应用程序的情况下，要重新建立一个工程的操作是（c ）。 （A）单击工具栏上的“添加工程”按钮 （B）在工程资源管理器窗口上单击右键，在弹出的快捷菜单中选择“新建工程”选项
（C）选择“文件”菜单中的“新建工程” （D）选择“视图”菜单中的“新建工程” 7. 为了把窗体上的某个控件变为活动，应执行的操作是（ b ）。 （A）单击窗体的边框（B）单击该控件的内部 （C）双击该控件（D）双击窗体 8. 确定一个控件在窗体上的位置的属性是（c ）。 （A）Width和Height （B）Width或Height （C）Top和Left （D）Top或Left 9. 确定一个窗体或控件的大小的属性是（b ）。 （A）Width和Height （B）Width或Height （C）Top和Left （D）Top或Left 10. 对于窗体，下面（ d ）属性可以在程序运行时进行设置。 （A）MaxButton （B）BorderStyle （C）Name （D）Left 11. 要使Print方法在Form_Load事件中起作用，要对窗体的（ c ）属性进行设置。 （A）BackColor （B）BorderStyle （C）AutoRedraw （D）Caption 12. 要使标签控件显示时不覆盖其背景内容，要对（d ）属性进行设置。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle 13. 要使对象看得见而不可操作，要对（a ）属性设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption 14. 文本框没有（ d ）属性。 （A）Enabled （B）Visible （C）BackColor （D）Caption 15. 不论任何控件，共同具有的是（ b ）属性。 （A）Text （B）Name （C）ForeColor （D）Caption 16. 要使某控件在运行时不可见，应对（ b ）属性进行设置。 （A）Enabled （B）Visible （C）BackColor （D）Caption
代码自动生成系统
本钢ERP代码自动生成系统的开发 史洪波 （本钢信息自动化公司软件开发事业部） 摘要：本钢ERP系统维护的工作量大，大部分的页面功能类似。在新增业务需求的情况下，可以利用本系统自动修改和生成JSP、Java、XML、SQL、Properties类型的全部代码，生成的代码可以提供新增、修改、删除、导入、树、打印、查询等基本功能。本系统原理是利用各种页面风格的JSP、Java、XML、SQL等文件作为模板，利用配置参数替换掉文件中可变部分，从而形成多种页面风格通用的代码生成系统。本文总结了本钢ERP中常用的6种页面样式，并用Java语言实现了其代码的自动生成过程，只需书写好DAO文件并在系统中填写少许的配置信息，然后点击按钮即可完成代码的产生，节省时间，提高工作效率。 关键词：ERP Java 代码自动生成 Benxi Steel ERP automatic code generation system Shi Hongbo (Benxi Steel Information & Automation Co.Ltd Software Development Department) ABSTRACT:There are a great deal maintain work in Benxi Iron and Steel Co. Ltd. ERP system, most of the page features are similar. In the case of needing new business, the system can automatically generate and modify all of the codes in many types, such as JSP, Java, Xml, SQL, Properties. Codes provide new, modify, delete, import, tree, print, query, and other basic functions and pride many different page styles by replacing the parameter of file. There are 6 common page styles are summarized in the Benxi Iron and Steel Co. Ltd. ERP, and use java language to achieve the automatic code generation process, just to write the file of DAO in the system and a little configuration information, then click the button to complete the code, saved a lot of time and improved the work efficiency. KEY WORD: ERP Java automatic-code-generation 作者简介： 史洪波，男，出生于1974年7月28日，1998年7月毕业于华东冶金学院工业分析专业，同年到本钢技术中心从事钢铁检验工作。2006年3月调至本钢信息自动化公司软件开发事业部从事软件开发工作。Email:mynameshb@https://www.wendangku.net/doc/8a13813970.html, 1、引言 本钢ERP系统有着良好的开发规范，命名规则有规律可循，因此在新增业务需求的情况下非常适合用代码自动生成系统来减少开发过程中的工作量，减少了开发人员的Ctrl+C/Ctrl+V操作，节省时间，提高工作效率。本系统原理是利用各种页面风格的JSP、Java、XML、SQL等文件作为模板，利用配置参数替换掉文件中可变部分，从而形成多种页面风格通用的代码生成系统。本系统采用J2SE中的Awt和Swing技术来绘制整个系统的图形界面，使系统界面整洁美观，使用xml文件作为本系统的配置文件，并对XML文件设定了DTD的格式校验，保证XML的格式良好。在系统界面中输入少量的条件即可产生和修改JSP、Java、XML、SQL、Properites等类型的文件，并对已经存在的文件先备份成Bak文件，生成的代码可具有新增、修改、删除、查询、导入、树、打印等功能。由于XML具有便于阅读和理解，可扩展等优点，而DAO文件格式的不规范性，系统中还提供了DAO文件与XML格式的相互转换，转换中使用了XLST技术，简化了转
vb简单程序设计
第三章VB程序设计的一般过程 3.1VB程序设计的一般步骤 概括起来，用VB开发应用程序，分四步： (1)建立用户界面 (2)设置各个对象的属性 (3)编写事件驱动程序 (4)存盘、运行、调试 下面以一个实际程序说明VB编程的详细步骤： 已知a二10,b=20,设计如下界面并实现其功能：单击“加”按钮，在文本框中显示a+b的值，单击“减”按钮，在文本框中显示a-b的值，单击“结束”则结束程序的执行。(程序cxl.vbp) 编程步骤:
(1)建立一个新工程(程序)：单击［文件］/［新建工程］,出现“新建工程”对话框，直接按“确定”。 (2)岀现窗体编辑器，将窗体编辑器最大化。调整窗体至要求的大小。 (3)在窗体上画出4个控件： 画一个“文本框”，框内自动标出“Textl”； 画三个“命令按钮”，按钮内自动标出 αCommandP?"Command2"、"Command3"° (4)画完所有控件后，适当调整其位置、大小。 (1)设置窗体的属性： ＞单击窗体空白处，选择窗体; A在属性窗口选择“Caption”（标题），在后面将原来的“Forml”改为“VB程序设计示例”。 （2）设置文本框的属性： A选择文本框； A在属性窗口选择"名称”，在后面将原来的 "Textl''改为“Text”；
A选择“Font”（字体），单击后面的“…”，打开 “字体”对话框，分别设置“隶书、粗斜体、二号”; A选择“ForeColor”（前景颜色），单击后面的0,打开调色板，选择红色； A选择“Text”,在后面输入“a=10,b=20”。 （3）设置各个按钮的属性： ?选择第1个按钮； A在属性窗口选择''名称”，在后面将原来的"Commandl"改为"add"； A选择“Font”（字体），单击后面的“…”，打开“字体”对话框，分别设置“黑体、粗体、二号”； A选择“Caption”，在后面输入“加”。 ?选择第2个按钮； A在属性窗口选择“名称”，在后面将原来的"Command2"改为"minus”； A选择“Font”(字体)，单击后面的“…”，打开“字体”对话框，分别设置“黑体、粗体、二号”；
VB简单制作透明窗口或透明Frame代码
具体代码如下： 首先创建一个FORM，在FORM上放一个Button，放一个Frame 然后输入代码： Private Declare Function GetWindowLong Lib "user32 " Alias "GetWindowLongA" (ByValhwnd As Long, ByValnIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32 " Alias "SetWindowLongA" (ByValhwnd As Long, ByValnIndex As Long, ByValdwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByValhwnd As Long, ByValcrKey As Long, ByValbAlpha As Byte, ByValdwFlags As Long) As Long Private Const GWL_EXSTYLE As Long = (-20) Private Const WS_EX_LAYERED As Long = &H80000 Private Const LWA_COLORKEY As Long = &H1 Private Sub Command1_Click() Dim rtn As Long LeftFrame.BackColor = &HFF0000 rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLonghwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributeshwnd, &HFF0000, 0, LWA_COLORKEY '将扣去窗口中的蓝色End Sub 最后执行点击Button，那么Frame就透明了。 '制作透明Frame Private Declare Function GetWindowLong Lib "user32 " Alias "GetWindowLongA" (ByValhwnd As Long, ByValnIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32 " Alias "SetWindowLongA" (ByValhwnd As Long, ByValnIndex As Long, ByValdwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByValhwnd As Long, ByValcrKey As Long, ByValbAlpha As Byte, ByValdwFlags As Long) As Long Private Const GWL_EXSTYLE As Long = (-20) Private Const WS_EX_LAYERED As Long = &H80000 Private Const LWA_COLORKEY As Long = &H1 '制作透明Frame（放在监控控件中执行） Dim rtn As Long LeftFrame.BackColor = &HFF0000 rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLonghwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributeshwnd, &HFF0000, 0, LWA_COLORKEY '将扣去窗口中的蓝色
- 微信小程序开发图解案例教程 (5)
- 微信小程序毕业设计任务书
- 微信小程序大全(建议收藏)
- 小程序源码是怎么回事
- 微信小程序功能优秀案例体验软文
- 企业展示微信小程序源代码有利有弊
- 2020-2021微信小程序案例展示微信小程序成功案例大全[PPT课件白板课件]
- (完整版)微信小程序详细介绍ppt模板
- 微信小程序十大小程序开发IDE合集
- 水果店微信小程序开发教程
- 微信小程序营销案例微信小程序案例展示微信小程序成功案例大全共31页文档
- 微信小程序开发实战
- 微信小程序案例源码-cocos creator跨平台开发小游戏案例
- 「微信小程序」入坑总结：相关demo：仿one
- 微信小程序开发官方二
- 微信小程序开发合同协议书范本-新
- (完整版)微信小程序毕业设计任务书
- 微信小程序开发图解案例教程
- 制作微信小程序总结
- 微信小程序开发实战第6章 API应用案例(下)