ツールチップの制御

 2016/9/1 (木)    

'IFeatureLayerの取得
Dim pFeatureLayer As IFeatureLayer
Set pFeatureLayer = pLayer
 
'ツールチップを表示するフィールド名を指定
pFeatureLayer.DisplayField = "JCODE"
 
'ツールチップの表示をOn
pFeatureLayer.ShowTips = True
 
'指定した座標・トレランスでツールチップ情報を表示
Dim strToolTip As String
strToolTip = pFeatureLayer.TipText(135, 35, 0.1)
MsgBox strToolTip

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.