writner.zip

  • Hcrdy
    了解作者
  • C#
    开发工具
  • 8KB
    文件大小
  • zip
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 0
    下载次数
  • 2019-03-30 21:19
    上传日期
用vb写的移动测距,效率很高的,希望大家喜欢
writner.zip
  • mdistanceofusemobilemethod.doc
    67KB
内容介绍
<html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta charset="utf-8"> <meta name="generator" content="pdf2htmlEX"> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"> <link rel="stylesheet" href="https://static.pudn.com/base/css/base.min.css"> <link rel="stylesheet" href="https://static.pudn.com/base/css/fancy.min.css"> <link rel="stylesheet" href="https://static.pudn.com/prod/directory_preview_static/626825184f8811599ef56c31/raw.css"> <script src="https://static.pudn.com/base/js/compatibility.min.js"></script> <script src="https://static.pudn.com/base/js/pdf2htmlEX.min.js"></script> <script> try{ pdf2htmlEX.defaultViewer = new pdf2htmlEX.Viewer({}); }catch(e){} </script> <title></title> </head> <body> <div id="sidebar" style="display: none"> <div id="outline"> </div> </div> <div id="pf1" class="pf w0 h0" data-page-no="1"><div class="pc pc1 w0 h0"><img class="bi x0 y0 w1 h1" alt="" src="https://static.pudn.com/prod/directory_preview_static/626825184f8811599ef56c31/bg1.jpg"><div class="c x0 y1 w2 h2"><div class="t m0 x1 h3 y2 ff1 fs0 fc0 sc0 ls0 ws0">Option Explicit</div><div class="t m0 x1 h3 y3 ff1 fs0 fc0 sc0 ls0 ws0">'***************************************<span class="_ _0"></span>***************************************</div><div class="t m0 x1 h3 y4 ff1 fs0 fc0 sc0 ls0 ws0">*****</div><div class="t m0 x1 h4 y5 ff1 fs0 fc0 sc0 ls0 ws0">'<span class="ff2">&#33719;&#21462;&#25351;&#23450;&#31383;&#21475;&#30340;&#35774;&#22791;&#22330;&#26223;</span></div><div class="t m0 x1 h3 y6 ff1 fs0 fc0 sc0 ls0 ws0">Private Declare Function GetDC Lib "user32" (ByV<span class="_ _1"></span>al hwnd <span class="_ _2"></span>As Long) <span class="_ _2"></span>As Long</div><div class="t m0 x1 h4 y7 ff1 fs0 fc0 sc0 ls0 ws0">'<span class="ff2">&#20026;&#25351;&#23450;&#30340;&#35774;&#22791;&#22330;&#26223;&#25351;&#23450;&#19968;&#20010;&#26032;&#30340;&#24403;&#21069;&#30011;&#31508;&#20301;&#32622;</span></div><div class="t m0 x1 h3 y8 ff1 fs0 fc0 sc0 ls0 ws0">Private<span class="_ _3"></span> <span class="_ _3"></span>Declare<span class="_ _3"></span> <span class="_ _3"></span>Function<span class="_ _3"></span> <span class="_ _3"></span>MoveT<span class="_ _2"></span>oEx <span class="_ _3"></span>Lib<span class="_ _3"></span> <span class="_ _3"></span>"gdi32"<span class="_ _3"></span> <span class="_ _3"></span>(ByV<span class="_ _1"></span>a<span class="_ _3"></span>l <span class="_ _4"></span>hdc As <span class="_ _3"></span>Long,<span class="_ _3"></span> <span class="_ _3"></span>ByV<span class="_ _1"></span>al<span class="_ _3"></span> <span class="_ _3"></span>X<span class="_ _3"></span> As <span class="_ _3"></span>Long,<span class="_ _3"></span> <span class="_ _3"></span>ByV<span class="_ _1"></span>al</div><div class="t m0 x1 h3 y9 ff1 fs0 fc0 sc0 ls0 ws0">Y<span class="_ _2"></span> <span class="_ _0"></span>As Long, lpPoint <span class="_ _2"></span>As P<span class="_ _0"></span>OINT<span class="_ _2"></span>AP<span class="_ _0"></span>I) <span class="_ _2"></span>As Long</div><div class="t m0 x1 h4 ya ff1 fs0 fc0 sc0 ls0 ws0">'<span class="ff2">&#20174;&#24403;&#21069;&#20301;&#32622;&#36830;&#21040;&#19968;&#20010;&#25351;&#23450;&#30340;&#28857;</span></div><div class="t m0 x1 h3 yb ff1 fs0 fc0 sc0 ls0 ws0">Private Declare <span class="_ _3"></span>Function LineT<span class="_ _2"></span>o Lib "gdi32" (ByV<span class="_ _1"></span>al <span class="_ _3"></span>hdc <span class="_ _2"></span>As Long, <span class="_ _3"></span>ByV<span class="_ _1"></span>al X <span class="_ _2"></span>As <span class="_ _3"></span>Long, ByV<span class="_ _1"></span>al Y<span class="_ _2"></span> <span class="_ _2"></span>As</div><div class="t m0 x1 h3 yc ff1 fs0 fc0 sc0 ls0 ws0">Long) <span class="_ _2"></span>As Long</div><div class="t m0 x1 h3 yd ff1 fs0 fc0 sc0 ls0 ws0">Private T<span class="_ _5"></span>ype POINT<span class="_ _5"></span>API</div><div class="t m0 x1 h3 ye ff1 fs0 fc0 sc0 ls0 ws0"> lngX <span class="_ _2"></span>As Long</div><div class="t m0 x1 h3 yf ff1 fs0 fc0 sc0 ls0 ws0"> lngY<span class="_ _2"></span> <span class="_ _2"></span>As Long</div><div class="t m0 x1 h3 y10 ff1 fs0 fc0 sc0 ls0 ws0">End T<span class="_ _5"></span>ype</div><div class="t m0 x1 h3 y11 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_apiPoint <span class="_ _2"></span>As POINT<span class="_ _5"></span>API</div><div class="t m0 x1 h4 y12 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_lngMapDc <span class="_ _2"></span>As Long '<span class="ff2">&#35774;&#22791;&#22330;&#26223;&#21464;&#37327;</span></div><div class="t m0 x1 h4 y13 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_dblMoveX <span class="_ _2"></span>As Double '<span class="ff2">&#27599;&#27425;&#32472;&#32447;&#30340;&#36215;&#28857;</span> X</div><div class="t m0 x1 h4 y14 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_dblMoveY<span class="_ _2"></span> <span class="_ _2"></span>As Double '<span class="_ _3"></span><span class="ff2">&#27599;&#27425;&#32472;&#32447;&#30340;&#36215;&#28857;</span> Y</div><div class="t m0 x1 h4 y15 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_ptRule <span class="_ _2"></span>As New MapXLib.Point '<span class="ff2">&#27979;&#36317;&#26102;&#30340;&#24403;&#21069;&#28857;</span></div><div class="t m0 x1 h4 y16 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_ptsRule <span class="_ _2"></span>As New MapXLib.Points '<span class="ff2">&#27979;&#36317;&#26102;&#30340;&#28857;&#38598;</span>(<span class="ff2">&#29992;&#26469;&#29983;&#25104;&#30452;&#32447;</span>)</div><div class="t m0 x1 h4 y17 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_blnRulerFlag <span class="_ _2"></span>As Boolean '<span class="ff2">&#27979;&#37327;&#26631;&#24535;</span></div><div class="t m0 x1 h4 y18 ff1 fs0 fc0 sc0 ls0 ws0">Dim<span class="_ _6"> </span> <span class="_ _6"> </span>m_dblDistanceT<span class="_ _5"></span>emp<span class="_ _6"> </span> <span class="_ _7"></span>As<span class="_ _6"> </span> <span class="_ _6"> </span>Double<span class="_ _6"> </span> <span class="_ _8"> </span> <span class="_ _8"> </span> <span class="_ _9"> </span> <span class="_ _8"> </span> <span class="_ _8"> </span> <span class="_ _9"> </span> <span class="_ _8"> </span> <span class="_ _9"> </span> <span class="_ _8"> </span> <span class="_ _8"> </span> <span class="_ _9"> </span> <span class="_ _8"> </span> <span class="_ _9"> </span> <span class="_ _8"> </span> <span class="_ _6"> </span>'<span class="_ _a"> </span><span class="ff2">&#27979;<span class="_ _8"> </span>&#36317;<span class="_ _9"> </span>&#26102;<span class="_ _8"> </span>&#20174;<span class="_ _b"> </span></span>Map1_MouseDown<span class="_ _b"> </span><span class="ff2">&#21040;</span></div><div class="t m0 x1 h4 y19 ff1 fs0 fc0 sc0 ls0 ws0">Map1_MouseMove<span class="_ _c"> </span><span class="ff2">&#30340;&#30452;&#32447;&#36317;&#31163;</span></div><div class="t m0 x1 h4 y1a ff1 fs0 fc0 sc0 ls0 ws0">Dim<span class="_ _7"></span> <span class="_ _d"> </span>m_dblDistanceSum<span class="_ _7"></span> <span class="_ _4"></span>As<span class="_ _7"> </span> <span class="_ _d"> </span>Double<span class="_ _7"></span> <span class="_"> </span> <span class="_ _c"> </span> <span class="_"> </span> <span class="_ _c"> </span> <span class="_"> </span> <span class="_ _c"> </span> <span class="_ _c"> </span> <span class="_"> </span> <span class="_ _c"> </span> <span class="_"> </span> <span class="_ _c"> </span> <span class="_"> </span> <span class="_ _c"> </span> <span class="_ _c"> </span> <span class="_"> </span> <span class="_ _7"></span>'<span class="_ _9"> </span><span class="ff2">&#27979;<span class="_ _e"> </span>&#36317;<span class="_ _c"> </span>&#26102;<span class="_ _e"> </span>&#20174;<span class="_ _e"> </span>&#31532;<span class="_ _e"> </span>&#19968;<span class="_ _c"> </span>&#27425;<span class="_ _f"> </span></span>Map1_T<span class="_ _5"></span>oolUse<span class="_ _10"> </span><span class="ff2">&#21040;</span></div><div class="t m0 x1 h4 y1b ff1 fs0 fc0 sc0 ls0 ws0">Map1_DblChick<span class="_ _c"> </span><span class="ff2">&#30340;&#25240;&#32447;&#36317;&#31163;</span></div><div class="t m0 x1 h4 y1c ff1 fs0 fc0 sc0 ls0 ws0">Dim m_dblRuleW<span class="_ _2"></span>indowLeft <span class="_ _2"></span>As Double '"<span class="_ _3"></span><span class="ff2">&#36317;&#31163;</span>"<span class="ff2">&#31383;&#20307;&#30340;&#24038;&#36793;&#20301;&#32622;</span></div><div class="t m0 x1 h4 y1d ff1 fs0 fc0 sc0 ls0 ws0">Dim m_dblRuleW<span class="_ _2"></span>indowT<span class="_ _2"></span>op <span class="_ _2"></span>As Double '"<span class="ff2">&#36317;&#31163;</span>"<span class="ff2">&#31383;&#20307;&#30340;&#39030;&#37096;&#20301;&#32622;</span></div><div class="t m0 x1 h3 y1e ff1 fs0 fc0 sc0 ls0 ws0">'***************************************<span class="_ _0"></span>***************************************</div><div class="t m0 x1 h3 y1f ff1 fs0 fc0 sc0 ls0 ws0">*****</div><div class="t m0 x1 h4 y20 ff1 fs0 fc0 sc0 ls0 ws0">Dim m_sngMoveX<span class="_ _3"></span> <span class="_ _2"></span>As Sing<span class="_ _3"></span>le <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span>'<span class="_ _6"> </span><span class="ff2">&#30001;<span class="_ _e"> </span></span>Map1_MouseMove<span class="_ _c"> </span><span class="ff2">&#20256;<span class="_ _3"></span>&#32473;<span class="_ _e"> </span></span>Map1_MapV<span class="_ _2"></span>iewChange</div><div class="t m0 x1 h4 y21 ff2 fs0 fc0 sc0 ls0 ws0">&#30340;&#22320;&#22270;&#23631;&#24149;&#22352;&#26631;<span class="_ _c"> </span><span class="ff1">X</span></div><div class="t m0 x1 h4 y22 ff1 fs0 fc0 sc0 ls0 ws0">Dim <span class="_ _3"></span>m_sngMoveY<span class="_ _0"></span> <span class="_ _2"></span>As <span class="_ _3"></span>Single <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span> <span class="_ _3"></span>'<span class="_ _7"></span><span class="ff2">&#30001;<span class="_ _c"> </span></span>Map1_MouseMove<span class="_"> </span><span class="ff2">&#20256;&#32473;<span class="_ _e"> </span></span>Map1_MapV<span class="_ _5"></span>ie<span class="_ _3"></span>wChange</div><div class="t m0 x1 h4 y23 ff2 fs0 fc0 sc0 ls0 ws0">&#30340;&#22320;&#22270;&#23631;&#24149;&#22352;&#26631;<span class="_ _c"> </span><span class="ff1">Y</span></div><div class="t m0 x1 h4 y24 ff1 fs0 fc0 sc0 ls0 ws0">Const PolyRulerT<span class="_ _5"></span>ool <span class="_ _2"></span>As Integer = 101 '<span class="ff2">&#25240;&#32447;&#27979;&#36317;&#24037;&#20855;&#32534;&#21495;</span></div><div class="t m0 x1 h3 y25 ff1 fs0 fc0 sc0 ls0 ws0">Private Sub Command1_Click()</div><div class="t m0 x1 h3 y26 ff1 fs0 fc0 sc0 ls0 ws0"> Dim lyrT<span class="_ _5"></span>emp <span class="_ _2"></span>As MapXLib.Layer</div></div></div><div class="pi" data-data='{"ctm":[1.611850,0.000000,0.000000,1.611850,0.000000,0.000000]}'></div></div> </body> </html>
评论
    相关推荐
    • windows编程
      windows编程基本理论
    • Windows编程体系
      有关window编程的课件及源码,比较基础的windows编程讲解,适合windows编程的初学者,且里边的知识比较实用,且对windows程序运行讲解得较清楚
    • windows编程
      c语言编程,visual studio编程,真的不错的代码示例
    • windows编程API手册
      详细讲述了windows API函数的功能与用法,全面细致!奉献出来与大家共同学习!
    • Windows编程圣经
      这是一个帮助文档,包含了Windows常用的各种各样的api,还有例子共大家参考。
    • Windows编程新手教程
      本教程主要包括了windows开发基础知识,以及注意点和技巧
    • Windows编程书籍合集
      Windows编程书籍合集 全部CHM格式,包含以下电子书: Windows Shell 扩展编程完全指南 Windows WDM 驱动程序编程指南 Windows 脚本编程
    • Windows编程四大件
      Programing Windows By Charles Petzold Programming Applications for Microsoft Windows Programming Windows with MFC 2nd ed Programming with Microsoft Visual C++.NET(6th ed)
    • Windows编程PPT课件
      课件以C++为编程基础,从Windows基础知识到Windows内部开发环境,全面讲解,以实例说明,由浅入深,通俗易懂,如果您想了解Windows编程,很适合
    • 南邮Windows编程课件
      南京邮电大学Windows编程课件1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111