October 21st, 1999, 07:07 AM
Hi!
I want to fill a polygon on my activex.
I need to do the activeX transparent , becouse of this I can't use FillColor and I try to use CreateSolidBrush(color). I see that CreateSolidBrush return long , but SelectObject use integer. How can I do it ?
Thanks!
Dim hBr as Long
Dim oldObj as Integer
hBr = CreateSolidBrush(vbRed)
oldObj = SelectObject(me.hDC, CInt(hBr))
'In this place I got error !
Polygon me.hDC, XY(0), 3
SelectObject me.hDC, oldObj
I want to fill a polygon on my activex.
I need to do the activeX transparent , becouse of this I can't use FillColor and I try to use CreateSolidBrush(color). I see that CreateSolidBrush return long , but SelectObject use integer. How can I do it ?
Thanks!
Dim hBr as Long
Dim oldObj as Integer
hBr = CreateSolidBrush(vbRed)
oldObj = SelectObject(me.hDC, CInt(hBr))
'In this place I got error !
Polygon me.hDC, XY(0), 3
SelectObject me.hDC, oldObj