VB基本控件Word格式.docx
《VB基本控件Word格式.docx》由会员分享，可在线阅读，更多相关《VB基本控件Word格式.docx（28页珍藏版）》请在冰豆网上搜索。
DimxAsSingle
Randomize
x=Rnd
Printx
产生其它范围的随机数.通过对rnd进行变化来实现.
Rnd*100-----用来产生（0,100）之间的随机数.
Int（rnd*100）-----用来产生（0,100）之间的随机整数.
产生[a,b]随机整数,使用:
Int（（b-a+1）*rnd+a）
例2.2
DimaAsInteger,bAsInteger,cAsInteger
a=Int（90*Rnd+10）
b=Int（90*Rnd+10）
c=a+b
Print"
产生的两个随机数为"
;
a,b
和为"
c
改进程序:
在窗体上加上标签label1.加上按钮command1,按钮的标题为”产生随机数”.单击按钮时,在标签显示所产生的三位随机数.
DimaAsInteger
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
PrivateSubC2_Click（）
C1.Visible=True
C2.Visible=False
PrivateSubForm_Load（）
P46上机练习4:
窗体的windowstate属性.
取值三个:
Form1.windowstate=0------正常
Form1.windowstate=1-----最小化
Form1.windowstate=2-----最大化
按钮属性练习:
Command1.FontSize=16
Command1.FontItalic=True
Command1.Caption="
确定"
Command1.Enabled=False
Command2.FontSize=14
Command2.Caption="
取消"
学习总结:
1数学函数的使用.
掌握int（）及rnd（）两个函数的应用.
2窗体对象的属性\方法\事件
事件:
Keypress事件-----是一个带有参数keysacii的事件.
属性:
Picture-------用来给窗体添加图形背景.loadpictue（图片地址）函数的应用.
Visble-------窗体的可见属性
Enabled-----窗体的可操作属性
二、VB中的基本控件
（一）控件的公共属性
1、name-----控件对象的名称。
在程序中，用name来表示对象。
它只能在属性窗口中来改变，程序中不可变，程序中用name来表示对象本身。
2、caption----控件对象的标题。
可以在属性窗口及程序中改变。
部分控件没有caption属性。
3、visible-----控件的可见性。
例：
在窗体上加入两个按钮。
单击窗体时，按钮一不可见，按钮二的标题为“命令按钮二”。
Command1.Visible=False
命令按钮二"
练习：
单击按钮二，按钮一出现，并且标题为“命令按钮一”。
PrivateSubCommand2_Click（）
Command1.Visible=True
命令按钮一"
4、enabled------可响应用户事件的。
用来设置对象是否能响应用户的事件。
Text1.Enabled=True
Text1.Text="
"
Text1.Enabled=False
在窗体上加入一个标签及一个按钮。
单击窗体时，标签的背景色变为黄色，并且不可用。
按钮则不可见。
Label1.BackColor=RGB（255,255,0）
Label1.Enabled=False
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:
Print“a=”;
a,”b=”;
b
A=a+b:
b=a+b
2、列举VB中控件的基本属性及含义。
（二）标签控件（label）
1、系统给标签的命名形式为label1,label2,…
2、标签作用：
程序设计中，经常使用标签的caption来完成结果的输出或者用于显示提示用户的信息。
2、标签的特殊属性
Alignment--------标签的对齐方式。
L1.Alignment=0‘标签名可以由用户在属性口中设置。
L1.Alignment=2
PrivateSubCommand3_Click（）
L1.Alignment=1
L1.BackColor=RGB（255,0,0）
Autosize---------标签的大小随内容的多少而变化。
Borderstyle------标签是否有边框。
Backstyle--------标签的背景模式。
Wordwrap------标签的加行变动。
3、标签的事件方法
Click
Dblclick
Move（移动方法）
（三）按钮控件
1、系统给按钮的名称command1,command2,…
2、按钮的作用：
接收用户的单击操作。
3、特殊属性：
Default--------设置按钮的默认属性为“enter”键。
Cancel-------设置按钮的默认属性为“esc”键。
Style---------设置按钮的外观属性。
4、常用事件与方法
Setfocus（设置焦点方法）
注意：
按钮无双击操作。
上机练习：
P70例3.10
P73例3.12
P79上机调试4
left属性的使用"
Text1.Left=Form1.Width-Text1.Width
Text1.Left=（Form1.Width-Text1.Width）/2
（四）文本框（text）
1、系统给文本框的名称形如text1,text2,……
2、文本框的作用：
程序设计中用于交互式输入数据；
输出程序的运行结果。
3、文本框特殊属性：
Maxlength-------表示文本框可接收字符的最大长度。
Multiline----------文本框允许多行输入。
（用来设置多行文本框与单行文本框）
Passwordchar--------用来设置文本框的密码输入。
PrivateSubText2_Change（）
Text1.Text=Text2.Text
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）取当前日期
Label1.Caption="
今天是"
&
Year（Date）&
"
年"
Month（Date）&
月"
Day（Date）&
日"
PrivateSubTimer1_Timer（）
Text1.Text=Time（）
1、P96例4.11
2、北京欢迎你小动画：
‘定义三个全程变量，str1表示显示的字符串，n,m用来记数，n是字符串的长度。
Publicstr1AsString
PublicnAsInteger,mAsInteger
str1="
中国2008，北京欢迎你！
n=Len（str1）‘求字符串的长度保存在n中
m=1
‘如果m大于n，表示字符串已显示完
Ifm<
=nThen
Label1.Caption=Label1.Caption+Mid（str1,m,1）
m=m+1
Else
EndIf
改进程序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）
PrivateSubOption2_Click（）
IfOption2.Value=TrueThen
Form1.BackColor=RGB（0,255,0）
PrivateSubOption3_Click（）
IfOption3.Value=TrueThen
Form1.BackColor=RGB（0,0,255）
2、带开关的时钟。
PrivateSubOption1_Click（）‘开启时钟
Timer1.Enabled=True
PrivateSubOption2_Click（）‘关闭时钟
Timer1.Enabled=False
1、P92例4.8
2、随机加减法器
DimmAsInteger,sAsInteger
Dimtotal1AsInteger,count1AsInteger
Timer1.Enabled=True
a=Int（900*Rnd+100）
b=Int（900*Rnd+100）
Ifa>
bThen
Text1.Text=a&
-"
b&
="
c=a-b
+"
c=a+b
Text2.SetFocus
total1=total1+1
IfVal（Text2.Text）=cThen
count1=count1+1
Text2.Text="
Picture1.Cls
Picture1.Print"
你共答了"
total1&
题，"
其中答对了"
count1&
题"
Timer1.Enabled=False
Text3.Text="
02:
00"
DimtempAsString
DimscoreAsInteger
m=Val（Left（Text3.Text,2））
s=Val（Right（Text3.Text,2））
Ifs>
0Then
s=s-1
Ifm>
m=m-1
s=59
EndIf
Ifm=0Ands=0Then
Text2.Enabled=False
score=Int（count1/total1*100）
MsgBox"
答题时间到"
Chr（13）&
Chr（10）&
你的成绩为"
score
10Then
temp="
0"
m&
:
temp=m&
Ifs<
temp=temp&
s
Text3.Text=temp
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
‘条件式用来判断组合框的输入框是否为空，如果不为空则是用户要添加的列表项。
Len（）用来求字符串长度。
IfLen（Combo1.Text）>
Combo1.AddItemCombo1.Text
Text1.Text=Combo1.ListCount
Combo1.Text="
Combo1.SetFocus
DimindAsInteger
‘ind用来记录表项在组合框内的顺序。
当值为-1时，没有选中的列表项。
ind=Combo1.ListIndex
Ifind<
>
-1Then
Combo1.RemoveItemind
Combo1.Clear
Text1.Text=Combo1.ListCount
PrivateSubCommand4_Click（）
End
Combo1.Ad
升级会员 