通用可视化开发语言实指导书.docVIP

实习一 熟悉并掌握VB集成开发环境 属性名 设置值 Text1 Text vb6.0程序应用示例 Text Multiline True Command1 Caption 编辑文本 Command2 Caption 禁止编辑 Text1 Locked False 效果如图1所示。 图1 控制文本框的编辑状态 3、编写代码 Private Sub Command1_Click() Text1.Locked = True End Sub Private Sub Command2_Click() Text1.Locked = False End Sub 4、运行程序 通过不同的方式运行程序，观察运行结果，体会VB开发语言的特点。 5．完成实习报告 内容包括：目的、开发VB程序的一般步骤、VB的特点及实习体会，同时将第四章习题4.7，4.8的结果写入实习报告。  实习二 简单文本编辑器 一、实习目的 学会根据要求设计窗体界面，并对窗体进行合理布局； 掌握标签、文本框、单选、复选框、框架等控件的使用； 掌握用程序代码方式设置属性的方法。 掌握inputbox和MSGbox函数的使用。 二、原理与方法 VB中的控件时预定义的对象，可由工具箱中直接添加到窗体上，自由构建自己需要的界面。对象的属性可由属性窗口设置，也可由代码进行设置或修改。 三、实习仪器与数据 电脑、Visual Basic 6.0 四、实习步骤 1、添加窗体和控件 添加一个窗体，在指定位置添加控件，并设置控件属性。具体属性见下表。 表2 窗体或控件属性表 对象名 属性名 设置值 Form1 caption 简单文本编辑器 Frame1 caption 字体 Frame2 caption 字型 Frame3 caption 字号 Frame4 caption 字色 Option1 caption 宋体 Option2 caption 黑体 Option3 caption 隶书 Option4 caption 8号字 Option5 caption 14号字 Option6 caption 24号字 Option7 caption 蓝色 Option8 caption 绿色 Option9 caption 红色 Check1 caption 粗体 Check2 caption 斜体 Check3 caption 下划线 Command1 caption 确定 Command2 caption 取消 效果如图2所示。 图2 简单文本编辑器界面 2、编写代码 Private Sub Command1_Click() If Option1.Value = True Then Text1.Font.Name = 宋体 End If If Option2.Value = True Then Text1.Font.Name = 黑体 End If If Option3.Value = True Then Text1.Font.Name = 隶书 End If If Option7.Value = True Then Text1.ForeColor = vbBlue End If If Option8.Value = True Then Text1.ForeColor = vbGreen End If If Option9.Value = True Then Text1.ForeColor = vbRed End If If Check1.Value = vbChecked Then Text1.Font.Bold = True Else Text1.Font.Bold = False End If If Check2.Value = 1 Then Text1.Font.Italic = True Else Text1.Font.Italic = False End If If Check3.Value = 1 Then Text1.Font.Underline = True Else Text1.Font.Underline = False End If If Option4.Value = True Then Text1.Font.Size = 8 End If If Option5.Value = True Then Text1.Font.Size = 14 End If End Sub Private Sub Command2_Click() End End Sub 3、运行程序 运行程序，观察运行结果，