病狗问题代码实现:求助：基于VB MAPX如何实现通过代码在地图上新建图层

  '弹出对话框确定图层保存的路径 CommonDialog1。DefaultExt = "tab" CommonDialog1。DialogTitle = "Pick a location for your layer" CommonDialog1。
  Filter = "MapInfo Tables (*。tab)|*。tab" CommonDialog1。ShowSave If Len(CommonDialog1。Filename) = 0 Then Exit Sub End If Dim lyr As Layer Dim friendlyName As String '从文件名中删除。
  tab扩展名 friendlyName = Left$(CommonDialog1。FileTitle, _ Len(CommonDialog1。FileTitle) - 4) On Error GoTo CreateErr '创建新图层 Set lyr = Map1。
  Layers。CreateLayer(friendlyName, _ CommonDialog1。Filename) lyr。Editable = True 'UpdateControls True Exit SubCreateErr: MsgBox "无法创建图层: """ & friendlyName & """ 于病狗问题代码实现： """ & _ CommonDialog1。
  Filename & """: " & Error



查看原帖>>。

实现JS代码实现单击单元格背景变色需要哪些代码？

  【实例代码】html xmlns=病狗问题代码实现。w3。org/1999/xhtml headtitle标题页-学无忧（。com）/titlestyle。clickTD{ background-color:#ff0000; text-decoration:none;}/stylescript language=javascriptfunction colorChange(t) {for (var i=0; it。
  rows。length; i ) //遍历行 for (var j=0; jt。rows[i]。cells。length; j )//遍历列 t。rows[i]。cells[j]。className = t。rows[i]。cells[j] == event。
  srcElement ? 'clickTD' : '' //改变背景色}/script/headbodytable border=1 onClick=colorChange(this)trtd第一行/tdtd第一行第二列/td/trtrtd第二行/tdtd第二行第二列/td/tr/tablep/body/html。
  

JS代码实现滚动的表格使用什么代码？

  【实例代码】htmlheadtitle无标题文档-学无忧（。com）/title/headbodyscript type=text/javascript marque(320,196,icefable1,box1left) var scrollElem; var stopscroll; var stoptime; var preTop; var leftElem; var currentTop; var marqueesHeight;//为表格添加事件function marque(width,height,marqueName,marqueCName){try{ marqueesHeight = height; stopscroll = false; scrollElem = document。
  getElementById(mydiv); with(scrollElem){style。width = width;style。height = marqueesHeight;style。overflow = 'hidden';noWrap = true; } scrollElem。
  onmouseover = new Function('stopscroll = true'); scrollElem。onmouseout = new Function('stopscroll = false'); preTop = 0; currentTop = 0; stoptime = 0; leftElem = document。
  getElementById(mydiv); scrollElem。appendChild(leftElem。cloneNode(true)); init_srolltext();}catch(e) {}}//表格滚动的初始化function init_srolltext(){ scrollElem。
  scrollTop = 0; setInterval('scrollUp()', 18);}//向上滚动的方法function scrollUp(){ if(stopscroll) return; currentTop = 1; if(currentTop == marqueesHeight 1) { stoptime = 1; currentTop -= 1; if(stoptime == (marqueesHeight)*1) { //停顿时间 currentTop = 0; stoptime = 0; } }else{ preTop = scrollElem。
  scrollTop; scrollElem。scrollTop = 1; if(preTop == scrollElem。scrollTop){ scrollElem。scrollTop = marqueesHeight; scrollElem。
  scrollTop = 1; } }}/Script/body/html。