通过点坐标转换进行SuperMap Objects 的点选，并获得该记录的记录集，用来读取存储在其中的相关属性。下面的两个功能是在这段代码的基础上实现的。范例中显示的图片文件和AVI文件分别存放在Pic和Avi目录下。

Dim pnt As New soGeoPoint
Dim DTV As soDatasetVector
Dim Rcd As soRecordset
'转换平面坐标为地理坐标
pnt.x = SuperMap1.PixelToMapX(ScaleX(x, vbTwips, vbPixels))
pnt.y = SuperMap1.PixelToMapY(ScaleX(y, vbTwips, vbPixels))
'获取用来查询的数据集
Set DTV = SuperMap1.Layers(1).Dataset
'在相应的数据集上进行空间选择，并保存记录
Set Rcd = DTV.QueryEx(pnt, scsPointInPolygon, "")
If Rcd Is Nothing Then Exit Sub
If Rcd.RecordCount < 1 Then Exit Sub
SuperMap1.Selection.RemoveAll
'把查到的记录追加到选择集合中，并高亮显示
SuperMap1.Selection.FromRecordset Rcd
SuperMap1.Refresh       '刷新
Rcd.MoveFirst           '定位记录到第一条记录

• 通过记录的选择显示相应的图片

    在该范例使用的数据源中，属性表中有一个字段是专门用来存放要显示的图片的路径、文件名称等信息的，在选中对象时就读出该信息，再由PictureBox来完成显示图片的任务。

If IsNull(Trim(Rcd.GetFieldValue("Pic"))) Then
     FrmPic.Hide
     FrmAvi.Hide
     Exit Sub
End If
flname = Trim(Rcd.GetFieldValue("Pic"))     '读取图片名称
FrmPic.Image1.Picture = LoadPicture(App.Path & "\" & flname)   '装载图片并显示
FrmPic.Image1.Refresh
FrmPic.Show

• 通过记录的选择来播放AVI影像

    在该范例使用的数据源中，属性表中有一个字段是专门用来存放要播放AVI文件的路径、文件名称等信息的，在选中对象时就读出该信息，再由MediaPlayer控件来完成播放AVI影像的任务。

If IsNull(Trim(Rcd.GetFieldValue("Avi"))) Then '没有任何信息，退出播放
     FrmPic.Hide
     FrmAvi.Hide
     Exit Sub
End If
flname = Trim(Rcd.GetFieldValue("Avi"))        '读取AVI名称
FrmAvi.MdPlayer.Open (App.Path & "\" & flname) '装载AVI并显示
FrmAvi.Show