Welcome Guest! To enable all features, please Login or Register.

Notification

Icon
Error

Options
View
Last Go to last post Unread Go to first unread post
#1 Posted : Thursday, May 11, 2006 12:55:17 PM(UTC)
David9908

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?

 

 

Try the latest version of LEADTOOLS for free for 60 days by downloading the evaluation: https://www.leadtools.com/downloads

Wanna join the discussion? Login to your LEADTOOLS Support accountor Register a new forum account.

#2 Posted : Monday, May 15, 2006 7:49:52 AM(UTC)

Amin  
Amin

Groups: Manager, Tech Support
Posts: 353


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.
LEAD Logo
 
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.

Powered by YAF.NET | YAF.NET © 2003-2019, Yet Another Forum.NET
This page was generated in 0.086 seconds.