[VB6 ] 繪圖方面問題

[aabcd2 (請叫我雲少爺)]

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