Question

vb 做出图画中的画直线的效果

vb想做出类似于图画（winxp自带的那个绘图工具）中画直线的效果，可不可以实现？API也行。。
line我也知道啊 - -！ 我是说要鼠标按下，移动的时候一条线跟着鼠标移动，在没有放开鼠标的时候，会一直出现，放开鼠标后确定下来 。。

Answer 1

在窗体上加入控件line1，然后复制下面代码，运行后在窗体上拖放鼠标即可。

Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True
Line1.Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Line1
.X1 = X
.Y1 = Y
.X2 = X
.Y2 = Y
.Visible = True
End With
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Line1
If Button = 1 Then
.X2 = X
.Y2 = Y
End If
End With
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Line1
If Button = 1 Then
.Visible = False
Line (.X1, .Y1)-(.X2, .Y2)
End If
End With
End Sub

Answer 2

vb有一个shape控件可以做一条直线出来，判断鼠标按下时显示这条直线，同时固定一端(X1和Y1)，鼠标移动时修改这条直线的另一端的(X2和Y2)，然后在鼠标松开时用Line(X1,Y1)-(X2,Y2)画线并隐藏直线控件就可以了

Answer 3

line (0,100)-(100,200)

Answer 4

可以实现而且无须api