Function CircleX(hDC As Long,x As Long,y As Long,r As Long,_
hR,hG,hB,dR,dG,dB)As Long
Dim i As Long
Dim Pen As Long,OldPen As Long
Dim Brs As Long,OldBrs As Long
For i=0 To r
Brs=CreateSolidBrush(RGB((hR-dR)/(r)*(i)+dR,(hG-dG)/(r)*(i)+dG,(hB-dB)/(r)*(i)+dB))
Pen=CreatePen(PS_SOLID,1,RGB((hR-dR)/(r)*(i)+dR,(hG-dG)/(r)*(i)+dG,(hB-dB)/(r)*(i)+dB))
OldBrs=SelectObject(hDC,Brs)
OldPen=SelectObject(hDC,Pen)
Ellipse(hDC,x-(r-i),y-(r-i),x+(r-i),y+(r-i))
SelectObject(hDC,OldBrs)
DeleteObject(Brs)
SelectObject(hDC,OldPen)
DeleteObject(Pen)
Next
EndFunction
hDC
描画するデバイスコンテキストを指定します。 x
中心のX座標を指定します。 y
中心のY座標を指定します。 r
円の半径を指定します。 hR,hG,hB
中心のRGB値を分けて指定します。(RGB値の分解の仕方知らなかったんで) dR,dG,dB
一番外側ののRGB値を分けて指定します。(RGB値の分解の仕方知らなかったんで)
Function CircleX(hDC As Long,x As Long,y As Long,r As Long,hRGB As Long,dRGB As Long)As Long
Dim hR,hG,hB,dR,dG,dB
Dim i As Long
Dim Pen As Long,OldPen As Long
Dim Brs As Long,OldBrs As Long
hR=GetRValue(hRGB)
hG=GetGValue(hRGB)
hB=GetBValue(hRGB)
dR=GetRValue(dRGB)
dG=GetGValue(dRGB)
dB=GetBValue(dRGB)
For i=0 To r
Brs=CreateSolidBrush(RGB((hR-dR)/(r)*(i)+dR,(hG-dG)/(r)*(i)+dG,(hB-dB)/(r)*(i)+dB))
Pen=CreatePen(PS_SOLID,1,RGB((hR-dR)/(r)*(i)+dR,(hG-dG)/(r)*(i)+dG,(hB-dB)/(r)*(i)+dB))
OldBrs=SelectObject(hDC,Brs)
OldPen=SelectObject(hDC,Pen)
Ellipse(hDC,x-(r-i),y-(r-i),x+(r-i),y+(r-i))
SelectObject(hDC,OldBrs)
DeleteObject(Brs)
SelectObject(hDC,OldPen)
DeleteObject(Pen)
Next
EndFunction