VB基本控件.docx
《VB基本控件.docx》由会员分享，可在线阅读，更多相关《VB基本控件.docx（28页珍藏版）》请在冰豆网上搜索。
VB基本控件
VB基本控件
教学目的：
1、熟悉VB中基本控件的属性及事件。
2、掌握VB中常用控件的特点及使用方法。
教学重点：
1、VB中控件基本概念的理解。
2、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来表示对象。
它只能在属性窗口中来改变，程序中不可变，程序中用name来表示对象本身。
2、caption----控件对象的标题。
可以在属性窗口及程序中改变。
部分控件没有caption属性。
3、visible-----控件的可见性。
例：
在窗体上加入两个按钮。
单击窗体时，按钮一不可见，按钮二的标题为“命令按钮二”。
PrivateSubForm_Click（）
Command1.Visible=False
Command2.Caption="命令按钮二"
EndSub
练习：
单击按钮二，按钮一出现，并且标题为“命令按钮一”。
PrivateSubCommand2_Click（）
Command1.Visible=True
Command1.Caption="命令按钮一"
EndSub
4、enabled------可响应用户事件的。
用来设置对象是否能响应用户的事件。
PrivateSubCommand1_Click（）
Text1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text1.Enabled=False
EndSub
练习：
在窗体上加入一个标签及一个按钮。
单击窗体时，标签的背景色变为黄色，并且不可用。
按钮则不可见。
PrivateSubForm_Click（）
Label1.BackColor=RGB（255,255,0）
Label1.Enabled=False
Command1.Visible=False
EndSub
5、位置及大小属性（left,top,width,height）
6、色彩属性（bgcolor,forecolor）
作业：
1、写出下列print语句的输出效果。
（1）Dimaasinteger,basinteger
Print“a=”,”b=”
A=9:
b=7
Printa,b
（2）Print1;2;3,”1”;”2”;”3”
Print1;
print
Print2
（3）Dimaasinteger,basinteger
A=3:
b=7
Print“a=”;a,”b=”;b
A=a+b:
b=a+b
Print“a=”;a,”b=”;b
2、列举VB中控件的基本属性及含义。
（二）标签控件（label）
1、系统给标签的命名形式为label1,label2,…
2、标签作用：
程序设计中，经常使用标签的caption来完成结果的输出或者用于显示提示用户的信息。
2、标签的特殊属性
Alignment--------标签的对齐方式。
PrivateSubCommand1_Click（）
L1.Alignment=0‘标签名可以由用户在属性口中设置。
EndSub
PrivateSubCommand2_Click（）
L1.Alignment=2
EndSub
PrivateSubCommand3_Click（）
L1.Alignment=1
EndSub
PrivateSubForm_Load（）
L1.BackColor=RGB（255,0,0）
L1.Alignment=1
EndSub
Autosize---------标签的大小随内容的多少而变化。
Borderstyle------标签是否有边框。
Backstyle--------标签的背景模式。
Wordwrap------标签的加行变动。
3、标签的事件方法
Click
Dblclick
Move（移动方法）
（三）按钮控件
1、系统给按钮的名称command1,command2,…
2、按钮的作用：
接收用户的单击操作。
3、特殊属性：
Default--------设置按钮的默认属性为“enter”键。
Cancel-------设置按钮的默认属性为“esc”键。
Style---------设置按钮的外观属性。
4、常用事件与方法
Click
Setfocus（设置焦点方法）
注意：
按钮无双击操作。
上机练习：
P70例3.10
P73例3.12
P79上机调试4
PrivateSubForm_Load（）
Text1.Text="left属性的使用"
EndSub
PrivateSubCommand2_Click（）
Text1.Left=Form1.Width-Text1.Width
EndSub
PrivateSubCommand3_Click（）
Text1.Left=（Form1.Width-Text1.Width）/2
EndSub
（四）文本框（text）
1、系统给文本框的名称形如text1,text2,……
2、文本框的作用：
程序设计中用于交互式输入数据；输出程序的运行结果。
3、文本框特殊属性：
Maxlength-------表示文本框可接收字符的最大长度。
Multiline----------文本框允许多行输入。
（用来设置多行文本框与单行文本框）
Passwordchar--------用来设置文本框的密码输入。
PrivateSubText2_Change（）
Text1.Text=Text2.Text
EndSub
Scrollbars-------用来设置多行文本框是否出现滚动条。
Selstart------用来记录在文本框中选择文本的开始位置。
Sellength-----用来记录在文本框中选择文本的长度。
Seltext-----用来记录在文本框中选择文本。
Text-------用来记录文本框的所有内容。
Locked-----用来锁定文本框，禁止用户对文本框的编辑。
4、事件与方法：
事件：
click,dblclick,change
方法：
setfocus,move
上机练习：
P65例3.7
P70例3.9,3.11
练习：
可选择部分文本，并完成剪切。
用到P37字符串函数（left（）,mid（））。
VB中的基本控件（三）
一、计时器控件（timer）
1、系统给计时器默认名为timer1,……
程序运行时在窗体上不可见的控件。
2、属性：
Enabled--------启用计时器
Interval--------确定计时器的时间间隔。
（以毫秒为单位）-----------只有设置了interval值才能触发timer事件。
半分钟：
500
一分钟：
1000
3、事件：
timer1_timer（）
与时间相关的函数：
1）Date取计算机的当前日期
2）Time取计算机的当前时间
3）Year（date）取当前年号
4）Month（date）取当前月份
5）Day（date）取当前日期
PrivateSubForm_Load（）
Label1.Caption="今天是"&Year（Date）&"年"&Month（Date）&"月"&Day（Date）&"日"
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time（）
EndSub
上机练习：
1、P96例4.11
2、北京欢迎你小动画：
‘定义三个全程变量，str1表示显示的字符串，n,m用来记数，n是字符串的长度。
Publicstr1AsString
PublicnAsInteger,mAsInteger
PrivateSubForm_Load（）
str1="中国2008，北京欢迎你！
"
n=Len（str1）‘求字符串的长度保存在n中
m=1
EndSub
PrivateSubTimer1_Timer（）
‘如果m大于n，表示字符串已显示完
Ifm<=nThen
Label1.Caption=Label1.Caption+Mid（str1,m,1）
m=m+1
Else
Label1.Caption=""
m=1
EndIf
EndSub
改进程序2，在上面加入“开始”，“停止”，“退出”按钮。
Timer1.enabled的值为true,时钟开始，为false时，时钟停。
3、P974.12倒记时。
4、P108上机调试题6
二、单选按钮（成组出现）
系统给单选按钮的默认名为:
option1,option2,……
常用属性：
Option1.caption--------用来显示按钮的标题。
Option1.value--------用来表示按钮的状态（选中，未选中）。
常用事件：
Click---------改变按钮的value值。
例：
1、利用单选按钮改变窗体背景色。
PrivateSubOption1_Click（）
IfOption1.Value=TrueThen
Form1.BackColor=RGB（255,0,0）
EndIf
EndSub
PrivateSubOption2_Click（）
IfOption2.Value=TrueThen
Form1.BackColor=RGB（0,255,0）
EndIf
EndSub
PrivateSubOption3_Click（）
IfOption3.Value=TrueThen
Form1.BackColor=RGB（0,0,255）
EndIf
EndSub
2、带开关的时钟。
PrivateSubForm_Load（）
Label1.Caption="今天是"&Year（Date）&"年"&Month（Date）&"月"&Day（Date）&"日"
EndSub
PrivateSubOption1_Click（）‘开启时钟
IfOption1.Value=TrueThen
Timer1.Enabled=True
EndIf
EndSub
PrivateSubOption2_Click（）‘关闭时钟
IfOption2.Value=TrueThen
Timer1.Enabled=False
EndIf
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time（）
EndSub
上机练习：
1、P92例4.8
2、随机加减法器
DimmAsInteger,sAsInteger
Dimtotal1AsInteger,count1AsInteger
DimaAsInteger,bAsInteger,cAsInteger
PrivateSubCommand1_Click（）
Timer1.Enabled=True
Randomize
a=Int（900*Rnd+100）
b=Int（900*Rnd+100）
Ifa>bThen
Text1.Text=a&"-"&b&"="
c=a-b
Else
Text1.Text=a&"+"&b&"="
c=a+b
EndIf
Text2.SetFocus
EndSub
PrivateSubCommand2_Click（）
total1=total1+1
IfVal（Text2.Text）=cThen
count1=count1+1
EndIf
Text2.Text=""
Randomize
a=Int（900*Rnd+100）
b=Int（900*Rnd+100）
Ifa>bThen
Text1.Text=a&"-"&b&"="
c=a-b
Else
Text1.Text=a&"+"&b&"="
c=a+b
EndIf
Text2.SetFocus
Picture1.Cls
Picture1.Print"你共答了"&total1&"题，"
Picture1.Print"其中答对了"&count1&"题"
EndSub
PrivateSubForm_Load（）
Timer1.Enabled=False
Text3.Text="02:
00"
EndSub
PrivateSubTimer1_Timer（）
DimtempAsString
DimscoreAsInteger
m=Val（Left（Text3.Text,2））
s=Val（Right（Text3.Text,2））
Ifs>0Then
s=s-1
Else
Ifm>0Then
m=m-1
s=59
EndIf
EndIf
Ifm=0Ands=0Then
Text2.Enabled=False
score=Int（count1/total1*100）
MsgBox"答题时间到"&Chr（13）&Chr（10）&"你的成绩为"&score
Timer1.Enabled=False
EndIf
Ifm<10Then
temp="0"&m&":
"
Else
temp=m&":
"
EndIf
Ifs<10Then
temp=temp&"0"&s
Else
temp=temp&s
EndIf
Text3.Text=temp
EndSub
VB中的控件（四）
一、列表框（可以用存放一组值）
系统的默认名称为list1,list2,……
1、属性：
List-----用来存放列表项。
属性窗口录入列表项时，使用ctrl+enter来换行。
List中存放的是一组值，用list（0）,list
（1）,……表示。
在程序方式，list属性的使用方法：
list1.list（0）
Listcount-----用来存放列表项的数目。
Text-----用来存放用户对list的最后选择表项。
Multiselect----设置列表可以选择多个选项。
Selected-------用来存放列表项的选中状态，只有true和false。
Selected中存放一组值，与list对应。
在程序中,selected属性的使用方法：
list1.selected（0）
2、事件：
click（）,dbclick（）
3、方法：
（1）添加列表项：
List1.additem“列表项值”，[列表项位置]
（2）删除列表项：
List1.clear
List1.removeitem列表项位置
上机练习：
1、P122-124例5.13,5.14
例5.13
循环变量范围：
100-----800
Dimnasinteger
Forn=100to800step1
Ifnmod3=0andnmod8=0then
List1.additemn
endif
Nextn
2、P135上机调试3
3、P112-113例5.5，例5.6,例5.7
4、P134-135上机调试题1,2
二、组合框（combobox）
系统给组合框的默认名为combo1,combo2,……
属性：
List-------是一组值，同listbox相同。
引用的时候使用combo1.list
（1）,combo1.list
（2）
其它属性与listbox相同。
Style------用来决定组合框的不同类型。
0：
下拉组合框。
可以录入列表项。
1：
简单组合框。
可以录入新列表项。
2：
下拉列表框。
不能录入新的列表项。
事件与方法与listbox相同。
上机练习：
1、P125例5.15
PrivateSubCommand1_Click（）
‘条件式用来判断组合框的输入框是否为空，如果不为空则是用户要添加的列表项。
Len（）用来求字符串长度。
IfLen（Combo1.Text）>0Then
Combo1.AddItemCombo1.Text
Text1.Text=Combo1.ListCount
EndIf
Combo1.Text=""
Combo1.SetFocus
EndSub
PrivateSubCommand2_Click（）
DimindAsInteger
‘ind用来记录表项在组合框内的顺序。
当值为-1时，没有选中的列表项。
ind=Combo1.ListIndex
Ifind<>-1Then
Combo1.RemoveItemind
Text1.Text=Combo1.ListCount
EndIf
EndSub
PrivateSubCommand3_Click（）
Combo1.Clear
Text1.Text=Combo1.ListCount
EndSub
PrivateSubCommand4_Click（）
End
EndSub
PrivateSubForm_Load（）
Combo1.Ad
升级会员 