cmd声明函数里查找office3.pdfVIP

DimcmdAsSTRING

cmd=DeclareFunctionMBDoubleCharPtrToStringLib

+chr$(34)+chemin_vmApi+chr$(34)+(stringInAsInteger,stringOutAs

String)AsInteger

RunCommandcmd

cmd=DeclareFunctionMBDoubleToSingleLib

+chr$(34)+chemin_vmApi+chr$(34)+(ByValdMBfloatAsFloat,iMBInt

AsInteger)AsInteger

RunCommandcmd

cmd=DeclareFunctionMBSingleToDoubleLib

+chr$(34)+chemin_vmApi+chr$(34)+(ByValfMBIntAsInteger,dMBfloat

AsFloat)AsInteger

RunCommandcmd

cmd=DeclareFunctionMBGetRGBColorForValueLib

+chr$(34)+chemin_vmApi+chr$(34)+(ByValGridIDAsInteger,ByVal

dValueAsFloat,dwColorAsInteger)AsInteger

RunCommandcmd

cmd=DeclareFunctionMBGridCalculatorLib

+chr$(34)+chemin_vmApi+chr$(34)+(ptrOpt()AsOPERATIONLIST,ByVal

numOperationsAsInteger,pszNewGrimeAsString,newGridDescAs

String,pszZUnitAsString,ByValbZUnitAsSmallInt,ByVal

ProgressUpdateAsInteger)AsInteger

RunCommandcmd

cmd=DeclareFunctionMBSetInflectionsLib

+chr$(34)+chemin_vmApi+chr$(34)+(ByValGridIDAsInteger,ByVal

usIpsAsSmallInt,pfZValue()AsFloat,pdwColor()AsInteger)As

Integer

RunCommandcmd

cmd=DeclareFunctionMBUpdateClassColorLib

+chr$(34)+chemin_vmApi+chr$(34)+(ByValGridIDAsInteger,ByVal

uClassNumAsSmallInt,ByValdwColorAsInteger)AsInteger

RunCommandcmd

cmd=DeclareFunctionMBViewShedLib

+chr$(34)+chemin_vmApi+chr$(34)+(ByValwNumberofPointsAs

SmallInt,pstViewShedInfo()AsVIEWSHED_PARAMETERS,ByValGridIDAs

Integer,pszViewshedTableName,pszZUnitDescriptionAsString,ByVal

wEarthCorrectionAsSmallInt,ByValProgressUpdateAsInteger)As

Integer

RunCommandcmd

HereishowyoucangetClassinformationfromaGRCforVBMB

programmers.

cmd=DeclareFunctionMBGetGRCDictLib+chr$(34)+chemin_vmApi

+chr$(34)+(ByValGridIDAsInteger,stGRCDict()AsMB_GRC_DICT)As

Integer

RunCommandcmd

cmd=DeclareFunct