vb第10章电子讲稿(其他常用控件及语句)

《vb第10章电子讲稿(其他常用控件及语句)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第10其他常用的语句及控件本章主要内容其他一些常用语句框架(Frame)滚动条(ScrollBar)图形方法和图形控件菜单设计工具栏和状态栏键盘与鼠标事件对话框通用对话框(CommonDialog)文件系统控件第10章其他常用的语句及控件10.1.1强制显式声明变量语句(OptionExplicit)避免因为写错变量名而导致错误例如，交换变量a、b的值Temp=aa=bb=Tmp'把Temp写错成Tmp运行结果是使b的值为0。若改成：OptionExplicit‘模块级声明DimaAsInteger,bAsInteger,TempAsInteger...Temp=aa=bb=

2、Tmp运行时VB就会发出警告“Variablenotdefined”(变量未定义)，只有把Tmp改为Temp后才恢复正常10.1其他常用语句10.1.2自定义数据类型用户可以利用Type语句定义自己的数据类型[Private

3、Public]Type数据类型名元素名1As类型名1[元素名2As类型名2]……EndTypeTypeRsk_Rec编号AsString*3’用汉字表示字段名姓名AsString*8性别AsBoolean出生日期AsDate基本工资AsLongEndType这里的Rsk_Rec是一个用户定义的数据记录类型，它由5个元素(字段)组成1.直接输出把信息直接送往打印机格式

4、：Printer.Print[表达式表](1)Page属性：设置当前页号格式：Printer.Page(2)NewPage方法：实现换页操作格式：Printer.NewPage(3)EndDoc方法：结束文件打印格式：Printer.EndDoc例10.3在打印机上打印文字“计算机程序设计”PrivateSubCommand1_Click()Printer.FontName="隶书"Printer.FontSize=12Printer.Print“计算机程序设计”'将文本放到Printer对象中Printer.EndDoc‘打印结束EndSub10.1.3打印机输出2.窗体输出先把要输出的

5、信息送到窗体上，再用PrintForm方法把窗体上的内容打印出来格式：[窗体名.]PrintForm功能：把窗体上的信息输出到打印机1.框架的用途作为容器放置其他控件对象，将这些控件对象分成可标识的控件组；框架内的所有控件将随框架一起移动、显示和消失。2.常用属性Name属性和Caption属性3.事件可以响应Click和Dblclick事件。在应用程序中一般不需要编写有关框架的事件过程10.2框架(Frame)例10.5控制文本的字体、字号及颜色设计步骤如下：(1)创建应用程序的用户界面和设置对象属性在窗体上设置3个框架Frame1、Frame2和Frame3(2)编写程序代码功能要求：

6、在三个框架中分别选择字体、字号和颜色，单击“确定”按钮后，文本框中的文本相应属性会发生变化PrivateSubForm_Load()Option1.Value=TrueOption3.Value=TrueOption5.Value=TrueText1.FontName="宋体"Text1.FontSize=16Text1.ForeColor=RGB(0,0,255)EndSubPrivateSubCommand1_Click()IfOption1.ValueThenText1.FontName="宋体"ElseText1.FontName="幼圆"EndIfIfOption3.ValueT

7、henText1.FontSize=16ElseText1.FontSize=20EndIfIfOption5.ValueThenText1.ForeColor=RGB(0,0,255)ElseText1.ForeColor=RGB(255,0,0)EndIfEndSub10.3滚动条1.滚动条的用途为不能自动支持滚动的应用程序和控件提供滚动功能，也可作为数据输入的工具。水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)最小值(Min)，最大值(Max)；移动滚动块时，代表的值随之改变2.常用属性(1)Min、Max属性：Min属性的默认值为0，Max属性的默认值为32

8、767。(2)Value属性：设置滚动块在滚动条中的位置值(3)SmallChange最小变动值属性(4)LargeChange最大变动值属性3.事件滚动条控件可以识别10个事件，其中最常用的是Scroll和Change事件(1)Scroll事件：当用鼠标拖动滚动块时，即触发Scroll事件(2)Change事件：当改变Value属性值时，即触发Change事件当释放滚动块、单击滚动条内空白处或滚动箭头时，Change事