刚学习VB，请教大家

sunchenhui90 发布于 2013-01-12 11:45， 891 次点击

求好心人帮忙
Dim startx, starty As Single
Dim drawing As Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Button <> 1 Then Exit Sub
     Picture1.AutoRedraw = False
     startx = X
     starty = Y
     drawing = Not drawing
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If drawing Then
    Picture1.Cls
    Picture1.Line (startx, starty)-(X, Y)
    Picture1.MousePointer = 2
    End If
End Sub
怎么用动态数组连续的画线？

11 回复

sunchenhui902013-01-12 12:20

==================================================

sunchenhui902013-01-12 12:31

等待好心人的出现

sunchenhui902013-01-12 14:01

。。。。。。

sunchenhui902013-01-12 14:03

高手们，不就是弹指一挥间的事吗，帮帮忙吧

邵帅2013-01-12 14:35

mousedown：
    drawing=true;
    记录当前点的位置；
mousemove:
    if drawing then
        由当前点和记录点画线
        重新记录当前点
    end if
mouseup
    drawing=false

sunchenhui902013-01-12 19:50

回复 6楼邵帅

谢谢大神答复，你说的这个我知道，但是我想把这个程序改成数组的

邵帅2013-01-12 22:40

回复 7楼 sunchenhui90

数组的？什么意思，说清楚一些吧。

sunchenhui902013-01-13 09:54

回复 8楼邵帅

就是以上一条线的终点为下条线的起点不停地画线

#10

seafish0112013-01-13 10:09

回复 9楼 sunchenhui90

那下一条线的终点在哪？
还是说你的意思是像画笔一样画画？
MouseMove:
Me.Line -(x, y), linecolor

#11

sunchenhui902013-01-13 10:20

回复 10楼 seafish011

下条线的终点就是鼠标点击的坐标，有些类似画多边形那样的

#12

李静2013-01-17 14:33

回复 9楼 sunchenhui90

邵帅写的可以实现啊，在鼠标移动时的当前点既是上一条直线的终点也是下一条直线的起点啊。只需把这个点记录就行啊。

只有本站会员才能查看附件，请登录

[ 本帖最后由李静于 2013-1-17 14:44 编辑 ]