data6.dat

学习VB的经典资料 vb一点通 看后很快就会了 初学者的帮手

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("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 当点击或按下快捷键时发生。 
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