文档介绍
VB程序设计教程 陈孟建 沈美莉 编著 * 第二节 绘制线段 (4)窗体鼠标器按下事件段 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = 1) Then ‘按鼠标器的左边键 PSet (X, Y), colorval ‘在鼠标器位置处绘点 End If End Sub (5)窗体鼠标器拖拽事件段 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line -(X, Y), colorval ‘按鼠标器左边键 End If End Sub 运行该程序后,显示结果如下图所示。 VB程序设计教程 陈孟建 沈美莉 编著 * 第二节 绘制线段 VB程序设计教程 陈孟建 沈美莉 编著 * 第二节 绘制线段 【例题6.14】 对例题6.13增加一个改变线宽的功能,增加一个实线和虚线功能,增加一个菜单功能,如下图所示。 VB程序设计教程 陈孟建 沈美莉 编著 * 第二节 绘制线段 (1)按下鼠标器左键绘点 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button = 1) Then ‘按下鼠标器左边键 PSet (X, Y) ‘在鼠标器位置处绘点 menCls.Enabled = -1 ‘令清除指令可操作 End If End Sub (2)鼠标器拖拽后产生的绘图效果 Private Sub Form_MouseMove(But