Label控件 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控件接受用户的输入的字符串数据。 属性: 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("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 当点击或按下快捷键时发生。 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 当点击或按下快捷键时发生。 Frame控件 Frame控件主要用于为OptionButton控件分组。 属性: Caption 表示分组所提示的内容。 例:Frame1.Caption="性别":Frame2.Caption="民族" 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当计时器计时到间隔时间时发生。 DriveListBox控件 DriveListBox控件提供一个驱动器列表。 属性: Drive表示当前选择的驱动器盘符。 事件: Change当驱动器选择发生变化时发生。 DirListBox控件 DirListBox控件提供一个目录列表。 属性: Path表示当前目录的路径。 事件: Change当目录选择发生变化时发生。 FileListBox控件 FileListBox控件提供一个文件列表。 属性: Path表示当前文件列表所在的路径。 Filename表示选择的文件名(不含路径)。 Pattern决定列什么样的文件。 例:*.* 列所有文件。*.bmp 列BMP图片文件。 Click当点击列表框的一项数据时发生。 CommandDialog控件 CommandDialog控件包括了Windows操作系统提供的6种公用对话框。(仅介绍前四种对话框) Open 、Save 、Color 、Font 、Printer 、Help Open对话框 和 Save对话框 属性: Filename表示选择的文件名(含路径)。 Filter决定列什么样的文件。 格式:“说明|过滤|说明|过滤|...” 例:Filter="Text|*.txt|Picture|*.bmp;*.gif" 方法: ShowOpen弹出Open对话框。 ShowSave弹出Save对话框。 例:打开一个正文文件,把文件名赋给变量fn。 Dim fn As String CDlg1.Filter="Text|*.txt" CDlg1.ShowOpen fn=CDlg1.Filename Color对话框 属性: Color选择的颜色。 方法: ShowColor弹出Color对话框。 例:修改标签控件的Label1颜色。 CDlg1.Color=Label1.ForeColor CDlg1.ShowColor Label1.ForeColor=CDlg1.Color Font对话框 属性: Flags决定字体的集合。 FontBold是否加粗。 FontItalic是否斜体。 FontName字体名称。 FontSize字体大小。 方法: ShowFont弹出Font对话框。 例:修改标签控件Label1的字体。 CDlg1.FontName=Label1.FontName CDlg1.FontSize=Label1.FontSize CDlg1.Flags=cdlCFScreenFonts CDlg1.ShowFont Label1.FontBold=CDlg1.FontBold Label1.FontItalic=CDlg1.FontItalic Label1.FontName=CDlg1.FontName Label1.FontSize=CDlg1.FontSize