新Visual Basic程序设计教程 教学课件 何振林 7995.pptVIP

⑶菜单编辑器的使用 ⑷ 菜单项增减 在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。这同控件数组一样，使用菜单数组。步骤如下： 　　①在菜单设计时，加入一个菜单项，其Index为0(菜单数组)，Visible为False。 　　②在程序运行时，通过Load方法向菜单数组增加新的菜单项。同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少菜单项。 ⑸ 弹出菜单(快捷菜单) ⑴绘制李萨如曲线，其函数如下： 七、上机实验补充题 ⑵用Circle方法在窗体上绘制由圆环构成的艺术图案，如右图所示。 提示：本题的算法如下：等分半径为r的圆周为n份，以等分点为圆心，半径r1绘制n个圆。为此，首先要确定圆心坐标(x0,y0)，然后在确定圆周上一点 (x1,y1)，如右下图所示，所示有以下公式： x1=x0+x=x0+r*cos(θ) 其中：0 ≤θ≤2π y1=y0+y=y0+r*sin(θ) x y 主要程序代码如下：Private Sub Form_Click() Const PI = 3.1415926 Dim r, x, y, x0, y0 r = Form1.ScaleHeight / 4 指定圆的半径 x0 = Form1.ScaleWidth / 2 y0 = Form1.ScaleHeight / 2 定圆心 st = PI / 20 等分圆周20份 For i = 0 To 2 * PI Step st x = x0 + r * Cos(i) y = y0 + r * Sin(i) Circle (x, y), r * 0.8 Next End Sub ←返回目录 ⑶用Line方法绘制函数f(x)=x2在区间[a,b]之间积分面积图，如图下图左一所示。 提示：为了能绘制任意区间[a,b]上函数f(x) 积分面积图，可在窗体上放置一个图形框和两个文本框。文本框用于指定积分上下限的值，图形框用于绘图。根据区间[a,b]的值设置图形框的左上角坐标为（a-1，b?b+1），右下角坐标为（b+1，-1）。将区间[a,b]等分为n 份，在每一等分点i上，用Line方法连线到（i,i*i）。 ⑷用Circle方法绘制如上图左二所示图形。 提示：要绘制的圆由小到大，只需要在循环中改变圆心坐标x和半径r，圆心的另一坐标y可保持不变，例如，取窗体高度的1/2，半径r取x/2。 ⑸使用自定义坐标：Scale (-4, 4)-(4, -8)。然后，按照阿基米德螺线x=αcos(α)，y= αsin(α)，绘制0~2π之间的展开直线，如上图右三所示。 ⑹设计一个时钟程序，要求以钟表刻度的形式显示时间，如上图右四所示。 第11章 多重窗体和多文档窗体 一、多重窗体 　　前面的应用程序都是只有一个窗体的简单程序。在实际应用中，单一窗体往往不能满足需要，须通过多个窗体来实现，这就是多重窗体。在多重窗体中，每个窗体可以有自己的界面和程序代码，分别完成不同的功能。 新建 现存 ⑴添加窗体 操作方法：“工程|添加窗体” 添加“现存”窗体时要注意： 防止多个窗体的name相同而不能添加； 添加的窗体实际是将其它工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。 一个工程中有多个窗体，应分别取不同的文件名保存在磁盘上，VBP工程文件中记录了该工程的所有窗体文件名。 ⑵ 保存窗体 　　“启动对象”是程序启动时被VB自动装载的对象，可通过“工程”菜单的“工程属性”所激活的“工程属性”对话框中选择“启动对象”。 　　可以用作启动对象的只有两种对象之一： ①工程中的一个窗体； ②标准模块中的Sub Main过程。 　　默认的启动对象是第一个窗体。 ⑶设置启动对象 　　例如，在标准模块中的一个典型的Main()过程，代码如下： Sub main() Dim d As Date If Weekday(d) = 1 Or Weekday(d) = 7 Then 判断是否为周末 Load Form2 加载窗体Form2 Form2.Show 显示窗体Form2 Else Form1.Show