递延所得税有关制度:(2) VB用户界面设计
窗体
一、Form 属性
·Name 属性:用于在属性窗口定义对象的名称,以便在程序中引用。它只能在设计时赋值。对于任何一个可以在属性窗口设置其属性的对象必须设置该属性的值,VB自动为每一个对象给定一个缺省值。
·Caption 属性:属性用于获取、设置窗体的标题。
·BorderStyle 属性:用于设置窗体的边框。它常用的有两个值:
普通窗体(2-Sizable):可修改窗体的尺寸。
对话框(3-FixedDialog):不能修改窗体的尺寸。
·Top,Left,Width,Height 属性:它们分别表示该窗体在父窗体或屏幕的位置(Top,Left)和大小(Width,Height)。
·ScaleTop,ScaleLeft,ScaleWidth,ScaleHeight 属性:它们分别表示该窗体工作区的位置和大小。
二、Form 方法
1、显示一个窗体。
FormX.Show[vbModal]
没有vbModeless表示以非模式方式显示一个窗体。
带有vbModal表示以模式方式显示一个窗体。
2、隐藏一个窗体。
FormX.Hide
隐藏窗体并不把窗体从内存中卸载,要卸载窗体需要使用语句:
Unload FormX
或:UnLoad Me (Me 表示当前窗体)
三、Form 事件
1、Load 事件:当窗体加载到内存时发生
Private Sub Form_Load()
... '常把初始化代码放在此处
End Sub
2、Resize 事件:当窗体改变其尺寸时发生
Private Sub Form_Resize()
... '常在此处修改其它控件的尺寸
End Sub
3、Unload 事件: 当窗体从内存卸载时发生
Private Sub Form_Unload(Cancel As Integer)
... '在窗体卸载前做一些扫尾工作。
'如关闭文件、提示存盘等
End Sub
[参数:]
Cancel 表示:是否放弃卸载。带进来时=0,表示可以卸载。在代码中将其0,表示放弃卸载。
[例:]
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你想退出吗?", vbYesNo, "退出") = vbNo Then
Cancel = True
End If
End Sub
标签控件
Label 控件主要用于在窗体中显示提示信息,常与Text控件一起使用。
[属性]
·Caption 表示标签的内容。
[例:]
Label1.Caption = "N&ame:"
控件在窗体中显示Name:,&号跟的字母是快捷键字母,即当我们按下Alt+A时,Label1的Click事件将会发生。这种快捷键定义方法对于菜单和许多其它控件同样适用。
·Font 表示控件的字体。
·ForeColor 表示控件的当前颜色。
·Enabled 表示控件是否使能。
=True 使能。
=False 禁止(控件显示为灰色)。
·Visible 表示控件是否可见
=True 可见。
=False 不可见。
·Top,Left,Width,Height 表示控件在窗体中的位置和尺寸。
[事件:]
Click 当点击或按下快捷键时发生,常用于使和它一起使用的Text控件获得输入交点。
[例:]
Private Sub Label1_Click()
Text1.SetFocus
End Sub
文本控件
Text控件接受用户的输入的字符串数据。
[属性:]
·Text 表示用户输入的内容。
[例:]
Label1.Caption = Text1.Text
将Text1控件接收用户输入的数据通过Label1控件显示出来。
·SelStart 表示用户选中一段文字的起始位置。第一个字符位置为0。
·SelLength 表示用户选中文字的长度。
·SelText 表示用户选中文字的内容。
[例:]
0123456789
这时:SelStart=5,SelLength=4,SelText="5678"
·MultiLine 表示是否是多行输入。
=True 是多行输入。
=False 不是多行输入(缺省) 。
·ScrollBars 多行情况下是否需要滚动条。
=0 没有。
=1 有水平。
=2 有垂直。
=3 水平、垂直都有。
·Password 表示口令字符。Text属性返回用户输入数据,屏幕上显示该字符。
[方法:]
·SetFocus 使当前控件获得输入交点。
[事件:]
·KeyPress 当在控件上按下按键时发生。
Private Sub Text1_KeyPress(KeyAscii As Integer)
End Sub
·KeyAscii 表示用户按键的ASCII码,如果在事件中将它改为0,则认为没有按键。
[例:]
编写只允许输入数字的Text控件。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
·Change 当控件内容改变时发生。
·LostFoucus 当控件失去输入交点时发生。
·GotFoucus 当控件获得输入交点时发生。
通常我们在Text控件获得输入交点时全选它的内容,方便用户直接修改数据。代码如下:
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
按钮、框架
一、CommandButton控件
CommandButton控件接受用户的命令。
[属性:]
·Caption 表示按钮所显示的内容
例:Command1.Caption="&OK"
[事件:]
·Click 当点击或按下快捷键时发生。
二、Frame控件
Frame控件主要用于为OptionButton控件分组。
[属性:]
·Caption 表示分组所提示的内容。
例:Frame1.Caption="性别":Frame2.Caption="民族"
单复选框
一、CheckBox控件
CheckBox控件检查某个选项是否被选中。
[属性:]
·Caption 表示检查框所提示的内容。
[例:]
Check1.Caption = "Windows &98": Check2.Caption = "Windows &NT"
·Value 表示检查框是否被选中。
=0 未选中。
=1 选中。
[例:]
Check1.Value = 1: Check2.Value = 0
[事件:]
·Click 当点击或按下快捷键时发生。
二、OptionButton控件
OptionButton控件检查一个选项是否被选中,它与CheckBox的区别是:
CheckBox 是多选多项。
OptionButton 是多选一项。
[属性:]
·Caption 表示检查框所提示的内容。
[例:]
Option1.Caption="男":Option2.Caption="女"
·Value 表示检查框是否被选中。
=False 未选中。
=True 选中。
[例:]
Option1.Value=False:Option2.Value=True
[事件:]
·Click 当点击或按下快捷键时发生。
列表框和组合框
一、ListBox控
ListBox控件用于在一组列表中选择其中的一项或多项。
[属性:]
·Text 表示当前操作项内容。
·ListCount 表示当前列表框中总数据项数。
·ListIndex 表示当前操作项下标,第1项=0。
·List(i) 表示第i项表项内容。
·MultiSelect 表示是否允许多选择。
·Selected(i) 表示第i项是否被选中。
·SelCount 表示被选中的项数。
·Sort 表示是否排序。
[方法:]
· AddItem 向列表框增加一项数据。
· ListX.AddItem(Item As String)
· RemoveItem 删除第i项
· ListX.RemoveItem(i As Integer)
[事件:]
· Click 当点击列表框中的一项数据时发生。
二、ComboBox控件
ComboBox控件与ListBox基本相同,它的优点在于占用的面积小,除了可以在选项中选择外还可以输入其它数据。它的缺点是不能多选择。
[属性:]
· Text 存放从选项中选择的数据或用户输入的数据。
其它方法与事件和ListBox相同。
图片和时钟控件
一、Image控件
Image控件用于显示一张图片。
[属性:]
·Picture 存放图片的数据。
通常我们使用LoadPicture函数读入一张图片。
[例:]
ImageX.Picture = LoadPicture("C:\1.bmp")
[注:]
LoadPicture支持Bmp、Jpg、Gif、等多种格式图片文件。
·Stretch 显示图片的方式。
=True 以控件的尺寸显示图片。
=False 以图片的原尺寸显示图片。
二、Timer控件
Timer控件以固定间隔时间名触发它的Timer事件。
[属性:]
·Enabled 表示是否起动计时器。
=True 启动。
=False 关闭。
·Intertval 表示触发Timer事件的间隔时间以毫秒为单位,即:1000=1秒。
[事件:]
·Timer当计时器计时到间隔时间时发生。