标题: [多媒体] 画折线出问题了？高手指点一下！ [打印本页]

---

作者: 12qw12qw    时间: 2008-10-7 11:19     标题: 画折线出问题了？高手指点一下！

Dim x1, y1, x2, y2, left_c As Integer

Private Sub Form_Load()
left_c = 0
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
left_c = 0
Else
If left_c = 0 Then
x1 = X
y1 = Y
left_c = 1
Else
x2 = X
y2 = Y
Picture1.Line (x1, y1)-(x2, y2)
End If
End If
End Sub

---

作者: 12qw12qw    时间: 2008-10-7 11:20     标题: 运行可以但是没显示

在form上建立一个picture控件，在这个控件里面花折线，，，，，谁能指点一下？

---

作者: Nothing    时间: 2008-10-7 20:55

将Picture1的AutoRedraw属性设置为True

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0