thomas0yang的专栏

<br />1，实现图元根据数据库中X,Y字段的数据变化而改变位置<br />2，自己要另起一个线程，更改数据库的x，y的值<br /> <br />Private Sub Form_Load()<br />'1创建图层<br />Dim lyr As Layer<br />Set lyr = Map1.Layers.CreateLayer("Car")<br />Set Map1.Layers.AnimationLayer = lyr                '定义为动态图层<br />'2新建图元

<br />'1创建图层<br />Dim lyr As Layer<br />Set lyr = Map1.Layers.CreateLayer("Car")<br />Set Map1.Layers.AnimationLayer = lyr                '定义为动态图层<br />'2新建图元<br />Dim newobj As New MapXLib.Feature 'stand-alone object<br />Dim obj As MapXLib.Feature  'to h

<br />1.数据绑定<br />Private Sub mnuLinkdata_Click()<br /> '*************************连接数据库*******************<br /> Dim conn As ADODB.Connection<br /> Set conn = New ADODB.Connection<br /> conn.ConnectionString = "driver=sql server;server=127.0.0.