实验8 高级界面设计.doc

实验8 高级界面设计 实验目的： 掌握Windows基本控件的使用方法 掌握菜单的规划、设计和使用方法 掌握通用对话框控件的使用用法 掌握RichTextBox 控件的使用 综合应用所学的知识，编制具有可视化界面的多窗体应用程序 实验8.1框架Private Sub Form_Load() yuanxi = 药学院 renyuan = 学生 Text1 = 我是 yuanxi 的 renyuan End Sub Private Sub Option1_Click(Index As Integer) yuanxi = Option1(Index).Caption Text1 = 我是 yuanxi 的 renyuan End Sub Private Sub Option2_Click(Index As Integer) renyuan = Option2(Index).Caption Text1 = 我是 yuanxi 的 renyuan End Sub 实验8.2字符格式化 操作提示： 1．设定字体时，注意“楷体”、“仿宋”这两种字体是习惯性称呼，真正的名称为“楷体_GB2312”和“仿宋_GB2312”。 2．单击复选框时不一定处于选中状态，因此需要先判断再应用效果，以下两种方法都可以实现该判断功能(以“粗体”为例)： 方法一、If语句的双分支结构： If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If 方法二、IIF()函数： Text1.FontBold = IIf(Check1.Value = 1, True, False) 3．水平滚动条的Max属性为30、Min属性为5、SmallChange属性为1、LargeChange属性为5。 4．为了实现单击和拖动滚动条时都可以即时显示效果 实验8.3列表框Private Sub Command1_Click() List1.AddItem Text1.Text Text1.Text = 新条目添加完毕后清空Text1 Text1.SetFocus 将焦点放回Text1准备再次输入 End Sub Private Sub Command2_Click() Text1.Text = List1.Text Text1.SetFocus End Sub Private Sub Command3_Click() List1.List(List1.ListIndex) = Text1.Text 替换 Text1.Text = Text1.SetFocus End Sub Private Sub List1_DblClick() List2.AddItem List1.Text List2中添加条目 List1.RemoveItem List1.ListIndex List1中删除条目 End Sub Private Sub List2_DblClick() List2.RemoveItem List2.ListIndex End Sub 3．调试运行。 实验8.4小球碰壁 操作提示： 1．设计如图所示的程序界面。注意Shape1的形状、窗体的标题和背景图片。 2．添加一个Timer控件，将Interval属性设为大于0的值，例如10。 3．定义一个标识变量Shuiping，值为1或-1，为1时Shape1向右移动，为-1时向左移动；同理定义变量Chuizhi。 4．在Timer事件过程中，先将小球移动，然后判断它是否碰到了窗体边界。 5．小球碰到窗体右边框的判断条件是： Shape1.Left = Form1.ScaleWidth - Shape1.Width 实验8.5示波器 绘制如图所示的坐标系，坐标原点在窗体上的坐标为(650, 1500)。 一个周期的长度为2000，即2π的在窗体上的坐标为(2650, 1500)。 3．一个周期的正弦波用20个点来描绘(沿X轴从0到2π有20个圆黑点)，共绘制3个周期(60个圆黑点)。 4．通过Timer事件使得该波形动起来，一个完整的示波周期由40帧图像构成。即初相从0到2π被划分为40段，=0、、、……、。 5．单击“演示/暂停”可以开始/中断示波演示过程。 6．单击“退出”按钮结束程序运行。 图8-5 Timer控件练习——正弦示波器 实验步骤： 1．绘制X轴直线(250,1500)-(7000,1500)，Y轴直线(650