haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 幼儿教育 > 幼儿读物幼儿读物

关于VB line方法的一个问题

发布时间:2014-01-04 14:01:20  

关于VB line方法的一个问题


要实现,单击按钮,鼠标在窗体任何位置按下,移动,鼠标弹起,然后在窗体上面绘出以按下和弹起的位置为顶点的线段(大概类似于画图中的画直线)
代码如下 :
Dim drawline1 As Boolean, drawline2 As Boolean, drawlinex, drawliney

Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If drawline1 = True Then
drawline2 = True
drawlinex = X
drawliney = Y
End If

End Sub
Private Sub form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If drawline2 = True Then
Form1.Line (drawlinex, drawliney)-(X, Y)
drawline2 = False
drawline1 = False
End If

End Sub

Private Sub Command1_Click()
drawline1 = True
End Sub

可是,我单击按钮后,按下鼠标,移动,弹起鼠标后。直线不会出现,要再按一次按下按钮,直线才会出现(有时候移动一下窗体也会出现),请教高手,这是为什么。


提问者采纳


加一句解决问题
me.refresh
提问者评价
谢啦!,有一个问题请教你下,我起初在picturebox绘图,加了picture1.rerefresh仍然不管用,怎么回事?


网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com