如何在屏幕上画虚线矩形框？

最新推荐文章于 2021-05-21 20:11:43 发布

原创最新推荐文章于 2021-05-21 20:11:43 发布 · 2.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #button

该VB程序通过响应鼠标操作绘制线条，并可在按下鼠标中键时更改绘图样式和模式。程序使用了Form_MouseDown和Form_MouseMove事件来跟踪鼠标位置并绘制线条。

Dim preX As Single, preY As Single
Dim x0 As Single, y0 As Single
Dim preDrawStyle As Long, preDrawMode As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
x0 = X
y0 = Y
preX = X
preY = Y
Case 2
preDrawMode = Form1.DrawMode
preDrawStyle = Form1.DrawStyle
Form1.DrawStyle = 2
Form1.DrawMode = 10
Form1.Line (x0, y0)-(preX, preY), , B
Form1.DrawStyle = preDrawStyle
Form1.DrawMode = preDrawMode
End Select
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
preDrawMode = Form1.DrawMode
preDrawStyle = Form1.DrawStyle
Form1.DrawStyle = 2
Form1.DrawMode = 10
Form1.Line (x0, y0)-(preX, preY), , B
preX = X
preY = Y
Form1.Line (x0, y0)-(preX, preY), , B
Form1.DrawStyle = preDrawStyle
Form1.DrawMode = preDrawMode
End If
End Sub