没有合适的资源?快使用搜索试试~ 我知道了~
VB基本控件.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 26 浏览量
2022-06-26
09:41:23
上传
评论
收藏 283KB DOC 举报
温馨提示
试读
34页
VB基本控件.doc
资源推荐
资源详情
资源评论
VB 基本控件
教学目的:
1、 熟悉 VB 中基本控件的属性及事件。
2、 掌握 VB 中常用控件的特点及使用方法。
教学重点:
1、 VB 中控件基本概念的理解。
2、 VB 中基本控件的属性设置及事件编程。
课时安排:
理论教学安排 16 课时,上机练习 16 课时
VB 基本控件(一)
一、 窗体
属性:……
事件:……
Load()-----载入的窗体不在屏幕上显示.如果显示,必须调用 show 方法.
unload()
click()
dblclick()
keypress(keyascii as integer)----按键事件.
例如:
Private Sub Form_KeyPress(KeyAscii As Integer)
print keyascii;
End Sub
窗体方法:
Print,cls
练习:VB 函数例 2.1 改进
Private Sub Command1_Click()
Dim x As Integer, a As Integer
Dim b As Integer, c As Integer
x = Val(Text1.Text)
a = Int(x / 10)
b = x Mod 10
c = b * 10 + a
Text2.Text = c
End Sub
作业:
1 试写出输入一个三位数,交换三位数的程序代码.
例如.输入”123”,则输出”321”
2 写出产生随机三位整数的随机数公式.
3 写出利用 int 函数进行四舍五入取整的公式.你能利用它实现精确到小数点后两位的方法
吗?
P36 例 2.2
随机函数 rnd 及取整函数 int 的应用.
Rnd----用来产生 0 到 1 之间的随机数.
Private Sub Form_Click()
Dim x As Single
Randomize
x = Rnd
Print x
End Sub
产生其它范围的随机数.通过对 rnd 进行变化来实现.
Rnd*100-----用来产生(0,100)之间的随机数.
Int(rnd*100)-----用来产生(0,100)之间的随机整数.
产生[a,b]随机整数,使用:
Int((b-a+1)*rnd+a)
例 2.2
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Randomize
a = Int(90 * Rnd + 10)
b = Int(90 * Rnd + 10)
c = a + b
Print "产生的两个随机数为"; a, b
Print "和为"; c
End Sub
改进程序:
在窗体上加上标签 label1.加上按钮 command1,按钮的标题为”产生随机数”.单击按钮时,在标
签显示所产生的三位随机数.
Dim a As Integer
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 消失.
Private Sub C1_Click()
C2.Visible = True
C1.Visible = False
End Sub
Private Sub C2_Click()
C1.Visible = True
C2.Visible = False
End Sub
Private Sub Form_Load()
C1.Visible = True
C2.Visible = False
End Sub
P46 上机练习 4:
窗体的 windowstate 属性.
取值三个:
Form1.windowstate=0------正常
Form1.windowstate=1-----最小化
Form1.windowstate= 2-----最大化
按钮属性练习:
Private Sub Form_Click()
Command1.FontSize = 16
Command1.FontItalic = True
Command1.Caption = "确定"
Command1.Enabled = False
Command2.FontSize = 14
Command2.Caption = "取消"
End Sub
学习总结:
1 数学函数的使用.
掌握 int()及 rnd()两个函数的应用.
2 窗体对象的属性\方法\事件
事件:
Keypress 事件-----是一个带有参数 keysacii 的事件.
属性:
Picture-------用来给窗体添加图形背景.loadpictue(图片地址)函数的应用.
Visble-------窗体的可见属性
Enabled-----窗体的可操作属性
二、VB 中的基本控件
(一)控件的公共属性
1、name-----控件对象的名称。在程序中,用 name 来表示对象。它只能在属性窗口中来改
变,程序中不可变,程序中用 name 来表示对象本身。
2、caption----控件对象的标题。可以在属性窗口及程序中改变。部分控件没有 caption 属
性。
3、visible-----控件的可见性。
例:
在窗体上加入两个按钮。单击窗体时,按钮一不可见,按钮二的标题为“命令按钮二”。
Private Sub Form_Click()
Command1.Visible = False
Command2.Caption = "命令按钮二"
End Sub
练习:
单击按钮二,按钮一出现,并且标题为“命令按钮一”。
Private Sub Command2_Click()
Command1.Visible = True
Command1.Caption = "命令按钮一"
End Sub
4、enabled------可响应用户事件的。用来设置对象是否能响应用户的事件。
Private Sub Command1_Click()
Text1.Enabled = True
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text1.Enabled = False
End Sub
练习:
在窗体上加入一个标签及一个按钮。单击窗体时,标签的背景色变为黄色,并且不可用。
按钮则不可见。
Private Sub Form_Click()
Label1.BackColor = RGB(255, 255, 0)
Label1.Enabled = False
Command1.Visible = False
End Sub
5、位置及大小属性(left,top,width,height)
6、色彩属性(bgcolor,forecolor)
作业:
1、 写出下列 print 语句的输出效果。
(1)Dim a as integer,b as integer
Print “a=”,”b=”
A=9:b=7
Print a,b
(2) Print 1;2;3,”1”;”2”;”3”
Print 1;
print
Print 2
(3) Dim a as integer,b as integer
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--------标签的对齐方式。
Private Sub Command1_Click()
L1.Alignment = 0 ‘标签名可以由用户在属性口中设置。
End Sub
Private Sub Command2_Click()
L1.Alignment = 2
End Sub
Private Sub Command3_Click()
L1.Alignment = 1
End Sub
Private Sub Form_Load()
L1.BackColor = RGB(255, 0, 0)
L1.Alignment = 1
End Sub
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
剩余33页未读,继续阅读
资源评论
智慧安全方案
- 粉丝: 3650
- 资源: 59万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功