|
阅读：1615回复：1
求ＶＢ＋ＭＯ中SQL查询代码！！！！！
<P>本人做毕业设计，急需SＱＬ查询带帽，要有Ｃｏｍｂｏ１可以显示当前图层，Ｌｉｓｔ１显示属性字段，ＬＩｓｔ２显示字段值，要有一些按钮或Ｃｏｍｂｏｌ２显示＝，＜，＞，＜＝，＞＝，．．．急用，那位GIS大侠有这方面源代码能否发送给我！对每个能帮助我的人我都会不盛感激！！！！！！！！！！！！</P>
<P> 我的邮箱：ｘｉａｌｉｙｕ１９８４＠１６３．ｃｏｍ </P> <P>.</P> |
|
|
1楼#
发布于：2009-03-29 23:20
<P>补充：最好是查询后Ｍａｐ１相应的地方能闪烁！！！！！！！</P>
<P>（那位仁兄有建立点，面缓冲区的代码能否也发过来，不盛感激！）</P> <P>附上我编的我认为很好用的放大，缩小，漫游代码，请大家指点！</P> <P>在Map1_MouseDown事件中加上</P> <P> Dim pt As New MapObjects2.Point<BR> Dim r As MapObjects2.Rectangle<BR> <BR> '******************************<BR> '****** ******<BR> '****** 实现地图放大功能 ******<BR> '****** ******<BR> '******************************<BR> If Toolbar1.Buttons("ZoomIn").Value = tbrPressed Then<BR> Set r = Map1.TrackRectangle '从图上拖出一个矩形框来放大<BR> Set pt = Map1.ToMapPoint(X, Y) '将图幅移至以(X，Y)为中心的位置<BR> Map1.CenterAt pt.X, pt.Y<BR> Set r = Map1.Extent<BR> r.ScaleRectangle (0.5)<BR> Set Map1.Extent = r<BR> Set pt = Nothing<BR> Screen.MousePointer = vbHourglass<BR> Map1.Refresh<BR> Screen.MousePointer = vbDefault<BR> '******************************<BR> '****** ******<BR> '****** 实现地图缩小功能 ******<BR> '****** ******<BR> '******************************<BR> ElseIf Toolbar1.Buttons("ZoomOut").Value = tbrPressed Then<BR> Set pt = Map1.ToMapPoint(X, Y)<BR> Map1.CenterAt pt.X, pt.Y<BR> Set r = Map1.Extent<BR> r.ScaleRectangle (1.5)<BR> Set Map1.Extent = r<BR> Set pt = Nothing<BR> <BR> Screen.MousePointer = vbHourglass<BR> Map1.Refresh<BR> Screen.MousePointer = vbDefault<BR> '******************************<BR> '****** ******<BR> '****** 实现地图漫游功能 ******<BR> '****** ******<BR> '******************************<BR> '实现地图漫游功能<BR> ElseIf Toolbar1.Buttons("Pan").Value = tbrPressed Then<BR> Map1.Pan '跟踪鼠标并平移地图<BR> End If</P> |
|
