mo+vb实现沿国界运动
来源:互联网 发布:淘宝卖家信誉度怎么看 编辑:程序博客网 时间:2024/05/17 07:37
Dim ploygon As MapObjects2.Polygon
Dim Num As Integer
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Num = 0
Dim recs1 As MapObjects2.Recordset
Dim p1 As MapObjects2.Point
Set Layer1 = Map1.Layers(0)
Set p1 = Map1.ToMapPoint(X, Y)
Set recs1 = Layer1.SearchByDistance(p1, 0.1, "")
Timer1.Interval = 0
If Not recs1.EOF And Map1.Layers(0).Visible = True Then
Set ploygon = recs1("Shape").Value
Timer1.Interval = 10
End If
End Sub
Private Sub Timer1_Timer()
On Error GoTo error
Dim poly As New MapObjects2.Polygon
If ploygon.Parts(0).Count <= 0 Then
Timer1.Interval = 0
Num = 0
Exit Sub
End If
Dim pt As New MapObjects2.Point
Dim pts As New MapObjects2.Points
If Map1.TrackingLayer.EventCount > 0 Then
Map1.TrackingLayer.ClearEvents
End If
pt.X = ploygon.Parts(0).Item(Num).X
pt.Y = ploygon.Parts(0).Item(Num).Y
Map1.TrackingLayer.AddEvent pt, 0
Num = Num + 1
error:
End Sub
Private Sub Form_Load()
Num = 0
Map1.TrackingLayer.SymbolCount = 1
With Map1.TrackingLayer.Symbol(0)
.SymbolType = moFillSymbol
.Color = moRed
.Style = 0
.Size = 1
.OutlineColor = moRed
End With
End Sub
程序可以任意选择多边形对象进行沿国界运动!!
Dim Num As Integer
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Num = 0
Dim recs1 As MapObjects2.Recordset
Dim p1 As MapObjects2.Point
Set Layer1 = Map1.Layers(0)
Set p1 = Map1.ToMapPoint(X, Y)
Set recs1 = Layer1.SearchByDistance(p1, 0.1, "")
Timer1.Interval = 0
If Not recs1.EOF And Map1.Layers(0).Visible = True Then
Set ploygon = recs1("Shape").Value
Timer1.Interval = 10
End If
End Sub
Private Sub Timer1_Timer()
On Error GoTo error
Dim poly As New MapObjects2.Polygon
If ploygon.Parts(0).Count <= 0 Then
Timer1.Interval = 0
Num = 0
Exit Sub
End If
Dim pt As New MapObjects2.Point
Dim pts As New MapObjects2.Points
If Map1.TrackingLayer.EventCount > 0 Then
Map1.TrackingLayer.ClearEvents
End If
pt.X = ploygon.Parts(0).Item(Num).X
pt.Y = ploygon.Parts(0).Item(Num).Y
Map1.TrackingLayer.AddEvent pt, 0
Num = Num + 1
error:
End Sub
Private Sub Form_Load()
Num = 0
Map1.TrackingLayer.SymbolCount = 1
With Map1.TrackingLayer.Symbol(0)
.SymbolType = moFillSymbol
.Color = moRed
.Style = 0
.Size = 1
.OutlineColor = moRed
End With
End Sub
程序可以任意选择多边形对象进行沿国界运动!!
- mo+vb实现沿国界运动
- mo
- 在MO动态图层中添加位图VB,C#
- 基于VB.NET和MO的等值线的生成
- 【英语】英语无国界
- 无国界游离
- 【运动控制】运动控制类实现
- 运动模糊的实现
- JS实现抛物线运动
- opencv实现运动追踪
- canvas实现方块运动
- JS 实现抛物线运动
- VC+MO 实现线地图取点坐标
- VC+MO实现地图的放大,缩小和漫游
- java swing实现小球沿正弦曲线运动的代码
- java swing实现小球沿正弦曲线运动的代码
- 名词解释:MO
- Mo cuishle
- 新网站收录情况的seo分析
- 静态html文件js读取url参数
- svn+ant实现nightly build自动发布
- 公司5周年庆典,阳朔游玩
- Using SVN with Ant
- mo+vb实现沿国界运动
- Wince边做边学8
- 学Linux的原因
- SQL常用的函数
- Wince边做边学5
- IIS - Server Application Unavailable
- 入职培训—中国软件评测中心简介
- Java资源
- socket编程原理