[VB6 ] 繪圖方面問題

看板Visual_Basic作者aabcd2 (請叫我雲少爺)時間19年前 (2006/09/29 01:15)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

我的程式裡面是要可以用滑鼠畫不同圖形用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