Unfortunately I can't suggest a VB Script, but the following C-Script should do what you want.

{
HWND hWnd = NULL;
int iRet;
BOOL oke;
char szTagName[100];
LINKINFO lplink;
CMN_ERROR err;

oke = PDLRTGetLink(1,lpszPictureName, lpszObjectName, "OutputValue", &lplink,NULL,NULL,&err);
sprintf(szTagName,lplink.szLinkName);
hWnd = FindWindow(NULL,lpszPictureName);
iRet = MessageBox (hWnd, szTagName, "Tag Name", MB_OK | MB_APPLMODAL);
}


regards,
Aidan

whiteford

Hi,

Thanks for the reply.
Can you please suggest VB script.Customer insist use of VB script only.


Regards,

If you have to use VBS, the easiest thing to do would be to rename the IO Field to match that of the connected tag.

The VB script required then to bring up a message box would be;

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

MsgBox(Item.ObjectName &vbCrLf)

End Sub

(The C-script is the better method as it looks at the actual connection, the above C-Script needs the following tweak; change the value MB_APPLMODAL to MB_SYSTEMMODAL, this will prevent the message box from losing the active layer)

regards,
Aidan

Hi,

For anyone looking for answers i used this:

GetLinkedVariable(lpszPictureName,lpszObjectName,"OutputValue")

Where "OutputValue" is the property field of the tag you want the name of.

Cheers,

Al