Draw

 

Remarks Methods Samples

ED
not used
RT
avaliable

Remarks:Top

DrawAPI Functions for Drawing within a DynPicture or Element Object. For more details you can also take a look at Microsoft's MSDN.

Methods:Top

ArcTo Draw3dRect Ellipse
FillSolidRect LineTo MoveTo
Pie Rectangle RoundRect
SetBkColor SetBkMode SetPolyFillMode
SetROP2 SetTextColor TextOut

Samples:Top

'declare picture object
Dim WithEvents zPIC As DynPicture

Private Sub Project_Active()
	'set picture object
	Set zPIC = thisProject.DynPictures.Item("Picture 0")
End Sub

Private Sub zPIC_Draw(ByVal hdc As stdole.OLE_HANDLE, ByVal Left As Long, ByVal Top As Long, ByVal Bottom As Long, ByVal Right As Long)
	'will draw a blue rectangle into the Picture...
	zPIC.DrawApi.FillSolidRect hdc, 100, 100, 300, 200, vbBlue
End Sub

Private Sub Project_Inactive()
	'release object
	Set zPIC = Nothing
End Sub