作者aabcd2 (请叫我云少爷)
看板Visual_Basic
标题[VB6 ] 绘图方面问题
时间Fri Sep 29 01:44:40 2006
我的程式里面是要可以用滑鼠画不同图形
用API的函式来绘制矩形
并且可以藉着点选不同的command button
用不同的颜色来绘制
不过换了颜色之後 先前画的矩形颜色也都会变的跟後者一样
下面是我的程式
拜托各位大大帮我看一下问题在哪里
感激不尽啊～
Private Sub picdesign_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
hpen0 = CreatePen(vbSolid, 0, picdesign.BackColor)
hpenP = CreatePen(vbSolid, 0, vbBlack)
If Button = 1 Then
SelectObject frmdesign.picdesign.hdc, hpenP
For I = 1 To N - 1
If frmdesign.opt_rec.Value = True Then
SelectObject frmdesign.picdesign.hdc, hpenP
Rectangle picdesign.hdc, X1(I), Y1(I), X2(I), Y2(I)
End If
Next I
If frmdesign.opt_rec.Value = True Then
SelectObject frmdesign.picdesign.hdc, hpen0
Rectangle picdesign.hdc, X1(N), Y1(N), X2(N), Y2(N)
End If
If frmdesign.opt_rec.Value = True Then
hpenN = hpen 'hpenN为新的颜色,hpen为读取按钮的颜色
SelectObject frmdesign.picdesign.hdc, hpenN
Rectangle picdesign.hdc, X1(N), Y1(N), X, Y
End If
X2(N) = X: Y2(N) = Y
picdesign.Refresh
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.105.35.158