This topic and its replies were posted before the current version of LEADTOOLS was released and may no longer be applicable.
#1
Posted
:
Thursday, May 11, 2006 12:50:17 PM(UTC)
Groups: Registered
Posts: 18
When I run the following Codes i copied from the LEAD help file
' This sample swaps the Default and Move annotation cursors
Private Sub SampleAnnAutoCursors ()
Dim hCursorMove As IPictureDisp
Dim hCursorDefault As IPictureDisp
' Get copy of original cursors
hCursorDefault = RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_DEFAULT)
hCursorMove = RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_MOVE)
' Change
RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_DEFAULT) = hCursorMove
RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_MOVE) = hCursorDefault
End Sub
An Error occurred: invilid
use of property. Why?
#2
Posted
:
Monday, May 15, 2006 7:44:52 AM(UTC)
Groups: Manager, Tech Support
Posts: 367
Was thanked: 1 time(s) in 1 post(s)
Since the 2 cursor variables are of type Object (IPictureDisp), assigning to them must be preceded by the Set keyword in VB6.
' Get copy of original cursors
Set hCursorDefault = RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_DEFAULT)
Set hCursorMove = RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_MOVE)
I have sent a correction request to our documentation team.
Amin Dodin
Senior Support Engineer
LEAD Technologies, Inc.
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.