河北经贸经济管理学院:在vb里面怎么画直线
来源:百度文库 编辑:高校问答 时间:2024/05/04 15:32:17
具体的使用方法,我用LINE函数时,总是画不出来
Option Explicit
Private Type point
X As Long
Y As Long
End Type
Dim oldP As point
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then oldP.X = X: oldP.Y = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Line (oldP.X, oldP.Y)-(X, Y), RGB(255, 0, 0)
End Sub
用line函数