VB基本控件.docx

VB基本控件
教学目的：
熟悉VB中基本控件的属性及事件。
掌握VB中常用控件的特点及使用方法。
教学重点：
VB中控件基本概念的理解。
VB中基本控件的属性设置及事件编程。
课时安排：
理论教学安排16课时，上机练习16课时

VB基本控件（一）
一、窗体
属性:……
事件:……
Load()-----载入的窗体不在屏幕上显示.如果显示,必须调用show方法.
unload()
click()
dblclick()
keypress(keyasciiasinteger)----按键事件.
例如:
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
printkeyascii;
EndSub
窗体方法:
Print,cls
练习:VB函数例2.1改进
PrivateSubCommand1_Click()
DimxAsInteger,aAsInteger
DimbAsInteger,cAsInteger
x=Val(Text1.Text)
a=Int(x/10)
b=xMod10
c=b*10+a
Text2.Text=c
EndSub
作业:
1试写出输入一个三位数,交换三位数的程序代码.
例如.输入”123”,则输出”321”
2写出产生随机三位整数的随机数公式.
3写出利用int函数进行四舍五入取整的公式.你能利用它实现精确到小数点后两位的方法吗?
P36例2.2
随机函数rnd及取整函数int的应用.
Rnd----用来产生0到1之间的随机数.
PrivateSubForm_Click()
DimxAsSingle
Randomize
x=Rnd
Printx
EndSub
产生其它范围的随机数.通过对rnd进行变化来实现.
Rnd*100-----用来产生(0,100)之间的随机数.
Int(rnd*100)-----用来产生(0,100)之间的随机整数.
产生[a,b]随机整数,使用:
Int((b-a+1)*rnd+a)
例2.2
PrivateSubForm_Click()
DimaAsInteger,bAsInteger,cAsInteger
Randomize
a=Int(90*Rnd+10)
b=Int(90*Rnd+10)
c=a+b
Print"产生的两个随机数为";a,b
Print"和为";c
EndSub
改进程序:
在窗体上加上标签label1.加上按钮command1,按钮的标题为”产生随机数”.单击按钮时,在标签显示所产生的三位随机数.
DimaAsInteger
Randomize
a=Int(900*Rnd+100)
label1.caption=a‘将a保存到标签中
P45上机练习3:
练习命令按钮的属性
Visible-----设置按钮是否可见.true(可见),flase(不可见)
改进程序:
在窗体中加入c1,c2两个按钮.初始设置c1可见,c2不可见.
单击c1时,c2可见同时c1消失;单击c2时,c1可见同时c2消失.
PrivateSubC1_Click()
C2.Visible=True
C1.Visible=False
EndSub
PrivateSubC2_Click()
C1.Visible=True
C2.Visible=False
EndSub
PrivateSubForm_Load()
C1.Visible=True
C2.Visible=False
EndSub
P46上机练习4:
窗体的windowstate属性.
取值三个:
Form1.windowstate=0------正常
Form1.windowstate=1-----最小化
Form1.windowstate=2-----最大化
按钮属性练习:
PrivateSubForm_Click()
Command1.FontSize=16
Command1.FontItalic=True
Command1.Caption="确定"
Command1.Enabled=False
Command2.FontSize=14
Command2.Caption="取消"
EndSub
学习总结:
1数学函数的使用.
掌握int()及rnd()两个函数的应用.
2窗体对象的属性\方法\事件
事件:
Keypress事件-----是一个带有参数keysacii的事件.
属性:
Picture-------用来给窗体添加图形背景.loadpictue(图片地址)函数的应用.
Visble-------窗体的可见属性
Enabled-----窗体的可操作属性
二、VB中的基本控件
（一）控件的公共属性
1、name-----控件对象的名称。在程序中，用name来表示对象。它只能在属性窗