VB6.0 命令按钮单击事件处理

事件处理程序:

Private Sub Command1_Click()

代码说明:

  • 定义常量 PI。
  • 声明变量 a 为双精度浮点数。
  • 清除图形框 Picture1。
  • 设置图形框背景色为白色。
  • 设置图形框缩放模式为自定义。
  • 设置自定义坐标系范围。
  • 设置线条宽度。
  • 绘制 X 轴和 Y 轴。
  • 绘制 X 轴和 Y 轴箭头。
  • 设置文本颜色为蓝色。
  • 在 X 轴和 Y 轴上标注刻度。
  • 设置原点字母输出位置。
  • 绘制正弦曲线。

结束事件处理程序:

End Sub

ppt 文件大小:3.47MB