|
在这个程序中有2个说明
1． 由于快捷菜单是在单击右键时弹出，因此，在该段代码中用一个IF语句来判断用户所单击的键，如果单击的是右键（Button
的参数值为2），则使用窗体的PopupMenu方法显示快捷菜单。
PopupMenu方法的一般格式是：
[窗体名]. PopupMenu 菜单名, flages, x, y, BoldCommand
其中x, y用来指定快捷菜单出现的位置，缺省则表示显示在鼠标当前的位置。
参数flages用来定义快捷菜单基准点与操作方法。
参数BoldCommand的作用是指定在快捷菜单中以粗体显示菜单项的名称，一个快捷菜单中只能有一个菜单项以粗体显示。
Private Sub Command1_MouseUp(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu popcom
End If
End Sub
2．
在VB中，控件放置在窗体过图片框等对象中，而窗体又放置在屏幕对象中，这些能够放置其他对象的对象成为容器，如窗体、图片框与屏幕都是容器。每个容器都有一个坐标系统，其默认的设置是：容器做上角为坐标原点，横向向右为X轴的正方向，纵向向下Y轴的正方向。
自定义坐标系统常用的方法是Scale方法，其语句格式如下：
[对象]. Scale[(x1,y1),(x2,y2)]
其中对象可以是窗体或图片框，参数(x1,y1)是用来定义对象左上角的坐标值，参数 (x2,y2)用来定义对象右下角的坐标值。
例如：Picture1.Scale (-20, 20)-(20, -20)是将坐标原点设置在Picture1中心。
1．制作应用程序界面
适当调整窗体Form1的大小，然后在上面放置1个图片工具框和1个按钮，调整各控件在窗体中的位置。
2．设置控件属性
a) Form1的Caption属性为：绘图
b) Command1的Caption属性为：start
c) Picture1的BackCocr的背景属性的为白色
d) 菜单标题和名称：请选择，popcom
e) 菜单项目1和名称1：设置坐标系，popset
f) 菜单项目2和名称2：正弦曲线，popsina
g) 菜单项目3和名称3：开口向上的抛物线，poppws
h) 菜单项目4和名称4：开口向下的抛物线，poppwx
i) 菜单项目5和名称5：-，fg
j) 菜单项目6和名称6：退出，exit
3．程序代码如下
Private Sub Command1_MouseUp(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu popcom '如果单击的是右键（Button 的参数值为2）
End If
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub poppws_Click()‘绘制开口上的抛物线
'用For循环绘点，使其按抛物线规律变化。步长值很小，使之形成动画效果
For X = -10 To 10 Step 0.0005
Y = X ^ 2 / 5
Picture1.PSet (X, Y), vbGreen
Next X
Picture1.CurrentX = 0 '指定位置显示描述文字
Picture1.CurrentY = 10
Picture1.ForeColor = vbBlack
Picture1.Print "开口上抛物线"
End Sub
Private Sub poppwx_Click() ‘绘制开口下的抛物线
'用For循环绘点，使其按抛物线规律变化。步长值很小，使之形成动画效果
For X = -10 To 10 Step 0.0005
Y = -X ^ 2 / 5
Picture1.PSet (X, Y), vbBlack
Next X
Picture1.CurrentX = 0'指定位置显示描述文字
Picture1.CurrentY = -10
Picture1.ForeColor = vbBlack
Picture1.Print "开口下抛物线"
End Sub
Private Sub popset_Click() ‘设置坐标系和绘制坐标系
Picture1.Cls '首先清除picture1内的图形
'Scale方法设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-20, 20)-(20, -20)
Picture1.DrawWidth = 1 '设置绘线宽度
Picture1.Line (-20, 0)-(20, 0), vbBlue '绘坐标系的X轴及箭头线
Picture1.Line (18, 1)-(20, 0), vbBlue
Picture1.Line -(18, -1), vbBlue
Picture1.ForeColor = vbBlue
Picture1.Print "X"
Picture1.Line (0, 20)-(0, -20), vbBlue '绘坐标系的Y轴及箭头线
Picture1.Line (1, 18)-(0, 20), vbBlue
Picture1.Line -(-1, 18), vbBlue
Picture1.Print "Y"
Picture1.CurrentX = 1 '指定位置显示原点O
Picture1.CurrentY = -1
Picture1.Print "O"
Picture1.DrawWidth = 2 '重设绘线宽度
End Sub
Private Sub popsina_Click() ‘绘制正弦曲线
For X = -20 To 20 Step 0.0005
Y = 10 * Sin(X)
Picture1.PSet (X, Y), vbRed
Next
Picture1.CurrentX = -10
Picture1.CurrentY = 0
Picture1.ForeColor = vbBlack
Picture1.Print "正弦曲线"
End Sub
4 程序说明：
在快捷菜单中不显示菜单标题，因此，菜单标题可以自由设定。快捷菜单不出现在菜单栏中，因此，需要将菜单标题的Visible（可见）属性设置为False（取消对可见复选框的选中。
|
