VB基本控件.docx
- 文档编号:5313683
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:28
- 大小:69.31KB
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;
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 基本 控件