实习一熟悉并掌握vb集成开发环境

《实习一熟悉并掌握vb集成开发环境》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实习一熟悉并掌握VB集成开发环境一、实习目的1、熟悉VB的开发环境；2、掌握开发VB程序的一般步骤，学会建立简单的VB应用程序。3、完成课后习题。二、原理与方法VB是面向对象的程序设计语言，把程序和数据封装起来作为一个对象，并为对象赋予应有的属性，在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上。另外VB提供了可视化设计工具，节省了大量编写界面的工作。VB通过事件驱动的方式来实现对象的操作，其程序不是按照规定的路径执行，而是在响应不同的事件时，驱动不同的事件代码，以此来控制对象的行为。三、实习仪器与数据电脑、VisualBasic6.0四、实习步骤1、熟悉VB的

2、开发环境熟悉VB的菜单、工具条、工具窗口、窗体、控件、代码窗口等。结合第三章内容，熟练掌握窗体的常用属性的使用方法，观察窗体对象不同属性运行的效果。2、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表1控制文本框的编辑状态对象名属性名设置值Text1Textvb6.0程序应用示例TextMultilineTrueCommand1Caption编辑文本Command2Caption禁止编辑Text1LockedFalse效果如图1所示。PDF文件使用"pdfFactoryPro"试用版本创建www.fineprint.cn图1控制文本框的编辑状态3、编写

3、代码PrivateSubCommand1_Click()Text1.Locked=TrueEndSubPrivateSubCommand2_Click()Text1.Locked=FalseEndSub4、运行程序通过不同的方式运行程序，观察运行结果，体会VB开发语言的特点。5．完成实习报告内容包括：目的、开发VB程序的一般步骤、VB的特点及实习体会，同时将第四章习题4.7，4.8的结果写入实习报告。PDF文件使用"pdfFactoryPro"试用版本创建www.fineprint.cn实习二简单文本编辑器一、实习目的1、学会根据要求设计窗体界面，并对窗体进行合理布局；2、掌握标签、文

4、本框、单选、复选框、框架等控件的使用；3、掌握用程序代码方式设置属性的方法。4、掌握inputbox和MSGbox函数的使用。二、原理与方法VB中的控件时预定义的对象，可由工具箱中直接添加到窗体上，自由构建自己需要的界面。对象的属性可由属性窗口设置，也可由代码进行设置或修改。三、实习仪器与数据电脑、VisualBasic6.0四、实习步骤1、添加窗体和控件添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。表2窗体或控件属性表对象名属性名设置值Form1caption简单文本编辑器Frame1caption字体Frame2caption字型Frame3caption字号F

5、rame4caption字色Option1caption宋体Option2caption黑体Option3caption隶书Option4caption8号字Option5caption14号字Option6caption24号字Option7caption蓝色Option8caption绿色Option9caption红色Check1caption粗体Check2caption斜体Check3caption下划线PDF文件使用"pdfFactoryPro"试用版本创建www.fineprint.cnCommand1caption确定Command2caption取消效果如图2所示。图

6、2简单文本编辑器界面2、编写代码PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.Font.Name="宋体"EndIfIfOption2.Value=TrueThenText1.Font.Name="黑体"EndIfIfOption3.Value=TrueThenText1.Font.Name="隶书"EndIfIfOption7.Value=TrueThenText1.ForeColor=vbBlueEndIfIfOption8.Value=TrueThenText1.ForeColor=vbGreenEndIfIfOp

7、tion9.Value=TrueThenPDF文件使用"pdfFactoryPro"试用版本创建www.fineprint.cnText1.ForeColor=vbRedEndIfIfCheck1.Value=vbCheckedThenText1.Font.Bold=TrueElseText1.Font.Bold=FalseEndIfIfCheck2.Value=1ThenText1.Font.Italic=TrueElseText1.Font