VB基本程序控件编程

《VB基本程序控件编程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章VB基本控件编程命令按钮、标签及文本框选择性控件滚动条与时钟控件图形控件基本控件综合实例本章学习目标熟练掌握命令按钮、标签框、文本框的常用属性、事件和方法掌握单选按钮、复选框的编程方法，尤其是单选按钮与框架控件的配合使用正确使用列表框、组合框进行项目的显示、增加和删除，并注意二者的差异掌握使用滚动条、时钟控件编程的技巧与方法正确运用图片框和图像框显示图形文件，并区分这两种控件的差异能合理运用各种VB标准控件进行综合编程命令按钮命令按钮编程示例演示－显示不同风格的命令按钮的应用程序命令按钮相关知识点如何设置含背景图案的命令按钮如何为命令按钮设置提示信息如何设置命令按钮的快捷方

2、式与单击命令按钮等价的方法焦点、Tab键顺序问题与单击命令按钮等价的方法按Tab键将焦点移到相应按钮上，然后按回车键按命令按钮的快捷键（Alt+有下划线的字母，如果该命令按钮设置了快捷键的话）标签框的常用属性属性功能说明BackStyle设定label控件背景是透明（值0）还是不透明（值1）当窗体有背景时，为使标签透明显示其上，可用此属性。例：在窗体背景图上用标签显示一信息。AutoSize决定是否能自动改变大小（调节水平方向长度）以正好显示全部内容当要在标签控件中显示多行文本时，或文本的长度可变时，就可设置Autosize为TrueWordWrap决定是否能自动调节垂直方向的长

3、度以显示全部内容（欲起作用，Autosize必须为True）当AutoSize和WordWrap都为True时，文本将会自动换行，而不会增加Label控件的大小文本框的常用属性TextpasswordcharMultiLineMaxLengthScrollBarsLocked文本框的常用事件Change当文本框中的内容发生变化时GetFocus当对象获得焦点时产生该事件LostFocus在一个对象失去焦点时产生该事件除了大多数控件都响应的Click、Dbclick、KeyPress等事件外，文本框的常用事件还包括：如何实现两个文本框的内容同步改变选择性控件复选框(CheckBox

4、)单选按钮(OptionButton)列表框(ListBox)组合框(ComboBox)单选、复选控件编程示例运行初始界面设置部分字体后的界面复选框、单选按钮的常用属性EnabledValue表示复选框或单选按钮的状态：(1)复选框：0－未选中(Unchecked)，1－选中，(Checked)2－灰色不可选(Grayed)；(2)单选按钮：False－未选中，True－选中Style设置复选框或单选按钮的外观Picture框架的使用框架是一个容器框架控件的常用属性创建框架时的注意事项改进的单选复选编程示例列表框编程示例列表框编程示例.vbp实现方法界面设计代码设计●与列表框相关

5、的操作●确定命令按钮的可用状态的操作列表框的ListCount属性列表框的AddItem方法列表框的RemovItem方法列表框的ListIndex属性参考代码PrivateSubCommand1_Click()List1.AddItemText1.Text'将"文本框"中的内容添加到"列表框"中Text1.Text=""'清除"文本框"Text1.SetFocusLabel3.Caption=List1.ListCount'显示列表框中客户数目EndSub'添加按钮的事件处理过程：'删除按钮的事件处理过程：PrivateSubCommand2_Click()DimIndAsIn

6、teger‘定义一个整型变量IndInd=List1.ListIndex'获取索引IfInd>=0Then'确保选定列表项目List1.RemoveItemInd'将其从"列表框"中删除Label3.Caption=List1.ListCount'显示数目EndIfCommand2.Enabled=List1.ListIndex<>-1'若"列表框"中没有项目，则禁用此按钮。EndSub'单击列表框选中某一客户时使删除有效PrivateSubList1_Click()Command2.Enabled=List1.ListIndex<>-1EndSub'文本框内容改变事件处理过程P

7、rivateSubText1_Change()'Text1文本框中至少有一个字符时，允许"添加"按钮。Command1.Enabled=Text1.Text<>""EndSub'清除按钮的事件处理过程PrivateSubCommand3_Click()List1.Clear'清空"列表框"。Command2.Enabled=False'禁用"删除"按钮。Label3.Caption=List1.ListCount'显示数目。EndSub列表框的重要属性MultiSelectTex