精VB60授课全套笔记含大量案例及代码Word文档格式.docx

精VB60授课全套笔记含大量案例及代码Word文档格式.docx

《精VB60授课全套笔记含大量案例及代码Word文档格式.docx》由会员分享，可在线阅读，更多相关《精VB60授课全套笔记含大量案例及代码Word文档格式.docx（11页珍藏版）》请在冰豆网上搜索。

2）BackColor:

背景色

3）Height：

高度

4）Width:

宽度

2、二号对象——命令按钮（Command1,2,3）

设置命令按钮的显示文本

2）Height：

3）Width:

3、三号对象——文本框（Text1）

1）BackColor:

2）Font:

字体

3）ForeColor:

字体颜色

4）Text：

显示文本

5）Height:

6）Width:

*利用【格式】菜单下的相关命令调整大小、对齐、锁定等

四、代码：

PrivateSub

EndSub

Click：

单击事件

第三章创建简单应用程序

一、加法器：

功能：

把两个数字（数值）相加将结果显示出来

二、界面：

3个文本框（Text1,Text2,Text3）

3个标签（Label1,Label2,Label3）

3个按钮（Command1,Command2,Command3）

三、代码：

1、求和（加法）：

Text3.text=Val（Text1.text）+Val（Text2.text）

2、清除：

3、关闭：

四、知识点：

1、Val（参数）：

把文本格式转换为数值格式，参与计算

2、Label——标签控件，起解释说明作用，一般不需加代码。

1）Caption：

2）AutoSize:

调整大小，设置为True

第四章编程语言核心知识点（VB）

一、数据类型：

（一）数值型数据：

整型数和浮点数

（二）字符型数据：

文字排列符，字母

Text中的数字默认是字符型

（三）布尔型数据（逻辑型数据）

真（True）或假（False）

（四）变体型数据：

程序没有说明默认的数据类型，可存放上述任何数据类型

二、常用语句：

（一）赋值语句：

Text1.text=”计算机1032真棒！

”

结构：

目标操作符=原操作符，把等号后面的赋值给前面的

作用：

兼赋值和计算双重功能

Text2.text=30

Text3.text=58*30

（二）声明变量语句：

格式：

Dim变量名AS数据类型

Dimrasinteger

（三）结束语句：

终止程序的运行

End

（四）注释语句：

Rem注释内容

三、运算符和表达式

（一）运算符：

1、算术运算符：

算术运算。

如：

+-*（乘）/（除）^（幂）Mod（取余）

2、字符串运算符：

连接：

&

+

3、关系运算符：

比较>

<

P312-4

四、程序语言的三大结构：

（一）顺序结构：

程序自上而下，自左到右顺序执行。

（二）选择结构：

⏹第一种：

If语句

【格式】：

[语句块]

If条件满足Then

条件满足执行语句

Else

条件不满足时执行的语句

endif

【语句块】

例题：

判定一个数正负

Dimaasdouble

If第一个文本框中的数字>

0then

在第二个文本框输出“这个数是正数”

Else

在第二个文本框输出“这个数是负数或0”

Endif

代码：

a=val（text1.text）

Ifa>

Text2.text=”这个数是正数”

Text2.text=”这个数是负数或0”

Endif

思考题：

计算圆面积，当输入的数是正数或0时，参与计算，否则在面积对应的文本框中输出“您输入的数是负数，不能参与计算”

⏹第二种：

Select语句

Selectcase变量

Case

Endselect

（四）循环结构：

重复执行一行或一段代码，三种结构

For……Next结构

For循环变量=初始值To终值【Step步长值】

需重复执行语句块

Next循环变量

注：

Step可正可负，如不写，默认步长值为1

20遍输出

DimIasinteger

ForI=1to20step1

重复执行的语句块

Print“这是我输出的”

Nexti

第五章常用控件

一、等差数列求和：

1、标签控件（label）：

缩写Lab

2、文本框控件（TextBox）:

缩写txt

3、命令按钮控件（CommandButton）：

缩写Cmd

4、窗体（Form）：

缩写Frm

任务：

1.把所有控件按统一格式命名；

2.作者信息按钮：

修改窗体的属性

3.完成清除按钮功能

4.关闭按钮：

Msgbox——消息框

1）声明一个整型变量：

Dimzsjasinteger

2）写消息对话框：

Zsj=msgbox（“提示信息”，是否显示+问号标志,“对话框标题信息”）

所有符号必须用英文

二、简单文本显示器：

（一）添加Text控件，设置：

Text属性：

显示制作者信息及最喜欢的一句话；

Multiline属性：

True，实现多行显示

Scrollbar属性：

both，实现显示水平和垂直滚动条

（二）添加Frame控件：

3个

（三）添加单选按钮和复选按钮控件并设置caption属性

1、字体颜色：

格式：

text1.forecolor=vb颜色英文

（红：

red，黄：

yellow，绿：

green，黑：

black，白：

white，蓝：

blue）

2、字体大小：

text1.fontsize=字号

3、背景颜色：

4、复选框格式：

IfCheck1.Value=vbCheckedThen

Text1.FontBold=True

Else

Text1.FontBold=False

EndIf

Fontbold（加粗），FontItalic（倾斜），FontUnderline（下划线）

FontName（字体）

换行：

vbcrlf

字符串连接：

&

（四）三个按钮

1、显示：

分行显示一首诗歌或者歌曲

text1.text=”名称”&

vbcrlf&

“第一句话”&

vbcrlf&

“第二句话”

2、清除

3、退出：

Dimaasinteger

a=msgbox（“提示信息”,vbyesno+vbqusetion,“对话框名称”）

ifa=vbyesthen

end

三、个人信息收集器：

标签控件、框架控件、命令按钮控件、复选框控件、单选按钮控件

⏹显示基本信息：

Label4.Caption=Label1.Caption&

Text1.Text&

Label2.Caption&

Text2.Text&

Label3.Caption&

Text3.Text

⏹户口所在地：

IfOption1.Value=trueThen

Label4.Caption=Label4.Caption&

Option1.Caption&

"

EndIf

⏹爱好：

IfCheck1.Value=1Then

Label4.Caption=Label4.Caption&

Check1.Caption&

⏹知识点归纳：

单选按钮（Option）：

属性Caption设置显示文本，属性value设置状态，value=true表示被选中，value=false表示未被选中

复选框（Check）：

属性value有3个值，取0表示未被选中，取1表示被选中，取2表示灰色不可用。

四、闪字-定时器控件（Timer）

⏹知识点：

定时器控件（时钟控件-Timer）周期性地每隔一段时间自动执行一次代码。

周期性：

由Timer的Timer事件控制；

每隔一段时间：

Interval属性控制（1ms~65s）

⏹操作步骤：

1、加足够多字-label控件：

1）Caption

2）Font

3）Autosize

2、加一个时钟控件-timer

设置interval属性为100

3、给Timer1_timer（）事件添加代码：

设置随机函数

Randomize

设置三个随机变量r,g,b控制三个颜色变量

r=255*rnd

g=255*rnd

b=255*rnd

设置单个标签颜色

Label1.ForeColor=RGB（r,g,b）

多个？

五、滚动字幕：

（一）利用代码设置Label属性：

1、把Label1和Label2初始位置设置在窗体之外：

Label1.left=-7000

2、把Label1和Label2的Caption属性：

Label1.Caption=“我是计算机1032班***”

这些代码写在Form_Load（）事件中，使程序运行后内容显示

（二）开始滚动按钮：

内容自左向右滚动，同时字体闪动，按下按钮之后，按钮显示为停止滚动

1、自左向右滚动：

Label1.Left=Label1.Left+50

IfLabel1.Left>

=9000Then'

判断文字是否移出屏幕

Label1.Left=-7000

2、闪字

3、按钮变幻内容

（三）、退出按钮：

消息对话框

（五）快速和慢速滚动：

IfOption1.Value=TrueThen

Timer1.Interval=25'

减小时间间隔

Timer1.Interval=50'

初始时间间隔

Interval属性控制Timer控件执行周期长度，越长滚动越慢

第六章菜单编辑器

一、文本显示器

字体（FontName），字号（FontSize）

字体颜色（ForeColor），背景（BackColor）

二、计算器：

（一）窗体方法：

Print输出

Load加载

Unload卸载

退出窗体：

在退出按钮的Click事件中

UnloadMe

（二）声明变量：

全局变量，在通用里声明，可以应用到各个程序段中

Dim变量名As数据类型

（三）计算

result-存结果

‘把1和2的值求和

result=val（text1.text）+val（text2.text）

‘把结果赋值为3

text3.text=str（result）

第七章多窗体调用及对话框

一、多窗体调用：

1、窗体命名规则：

主窗体-FrmMain

子窗体-Frm01,Frm02……

以上内容选中窗体，在名称属性中改

2、调用方法：

窗体名称1.Show——显示窗体

窗体名称2.Hide——隐藏窗体

3、隐藏最小和最大化按钮：

把MaxButton设置为False隐藏最大化按钮

把MinButton设置为False隐藏最小化按钮

二、对话框的使用

1、输入框：

变量名=InputBox（“提示语句”,“输入框名称”，[默认值]）

其中默认值可不写

2、消息框-提示半径不能为负：

b=MsgBox（"

您输入的半径不能为负！

"

vbCritical,"

注意：

）