到底什么时间重组成功

何时重组成功

:victory:

通过Mapinfo2Google详细讲解Mapbaisc的在MAPINFO中的利用，适合初学者


我也是今天刚接触mapbasic，属于初学者，准备认真的学习一下，与希望和其他朋友交流一下。MSCBSC 移动通信论坛(h"z,[+}8f,_1o-}5b
|国内领先的通信技术论坛"/M7j$W B"W*X
本文的目的是和其他初学者共同学习，探讨交流。www.mscbsc.com*z9B7U#Q"n9{$I
www.mscbsc.com*f(E8P$_#{(K%y"d'^,L
本文里面如果出现错误与不足还请高手门指出与纠正，谢谢！！ |国内领先的通信技术论坛)d-E!C+f/^(M
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
2j0|#h!A&j.y2{7R9aMSCBSC 移动通信论坛第一节 函数的定义与主函数
9r(L;M,X6O,C爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛"e-K9K!k'\/{%@:I
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ |国内领先的通信技术论坛2X)h-Z2A,`3j.G6m
Include "MapBasic.Def"'头文件，MAPBAISC 开头必须引入MapBasic.Def否则无法执行MapBasic的语句和函数 |国内领先的通信技术论坛#Y$W n7g+I9u4n3e&M8B
移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单*D,f {(M+Z$a&`.T#Q3i'P
Declare Sub Main '声明的主函数，下面的一样都是功能函数， |国内领先的通信技术论坛7s"v8e7U:~9r
具体实现与功能以后会详细讲解，这里就不说了。
-Y4\2O!k8^0g1K6G/}5A;a爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛Declare Sub MnuHelp
-J&]$j#p5u"l)I爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛Declare Sub MnuAbout爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛(f2z K1w*w'{9_
Declare Sub MnuExit
*l)j2^9H(owww.mscbsc.comDeclare Sub SetMsgWin |国内领先的通信技术论坛7]&j5U6^/d;|
Declare Sub MnuKML_ConvertMap爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛2f'z9A/i"q8n3m0F
Declare Sub KML_ConvertMap (ByVal nMap As Integer, ByVal sOutputFile As String)
8Q7p*w4|.e7c
9B/\8Y+q2G:B!o-G爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛Dim sErrorMsg As String5g$A#G2K(N.G

;H5E6o7V9V4l7t移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单Sub Mainwww.mscbsc.com+]-`"X)s%L%^)Y+~
Create Menu "&Mapinfo2Google" As' 建立新目录菜单，&M表示快捷键移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单6@;F${2m!o9_+j)Q
"&Convert map window to KML file..." Calling MnuKML_ConvertMap, '当点击Convert map window to KML file...
o#Q.J(^/a6N4?6i6a爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛调用MnuKM L_ConvertMap
!l'E5e%z!_.M9t7E!A"(-", '显示横杠
%_!X5^+~,|"r3T:gwww.mscbsc.com"&Help" Calling MnuHelp,'帮助，&H表示快捷键www.mscbsc.com9T)Q!b7k/~6j4Y
"&About Mapinfo2Google..." Calling MnuAbout,'关于，&A表示快捷键www.mscbsc.com0Q#u5{)\/_
"E&xit Mapinfo2Google" Calling MnuExit'退出，&x表示快捷键
1d%]/A:S7M*u移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单Alter Menu Bar Add "&Mapinfo2Google" '改变菜单条，简单的说就是在MAPINFO最上面添加Mapinfo2Google的按钮移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单1H,@ D'f6X$Z
End Sub ]6{7X.e3q!v*T%K
爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛!H5w3b$g,c*~
'-------------------- Menu Routines -------------------------------------
7c*B/@'y0l$`,b,rMSCBSC 移动通信论坛
/M&h;I4z7I$NMSCBSC 移动通信论坛Sub MnuAboutMSCBSC 移动通信论坛,Y'k @"Y8w9R&r9^#\-V8s;E(a
Note "Mapinfo to Google Earth Map Converter" & Chr$(10) & Chr$(10)'About Mapinfo2Google 里的内容，& Chr$(10) 是 回车的意思。
$f'r9g.E,v(D"U'[%@"~)Bwww.mscbsc.com& "Mapinfo2Google.mbx" & Chr$(10)爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛6C)H#?0Y;[ U(_/o
& "Version 1.2.1 (8th August, 2005)" & Chr$(10) |国内领先的通信技术论坛,T$z#i/h/H!a/{3Q;s
& "Copyright ?2005 by Cy Carter" & Chr$(10)www.mscbsc.com(X0|5B Z'x.X3v!B-a
& "This is free software distributed under the terms of the GNU General" & Chr$(10)
!a6i(i/v8] T7]6B9?2}1~移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单& "ublic License. See http://www.gnu.org/licenses/licenses.html"
-?6`3`0P#Y%t爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛End Sub
&@1\)P.i*_1f"aMSCBSC 移动通信论坛8u3W,W*k0X,r
sub MnuHelp'help里的内容。
(@9B9h1m0K(Q'p/}移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单Note "HELP for program Mapinfo2Google " & Chr$(10) & Chr$(10)MSCBSC 移动通信论坛#^,a1w-f1k3l-P'y2C3D
& "Exports all visible layers except Rasters, Cosmetic or Thematic " & Chr$(10)移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单1L!u8},Q){6p
& "from the current map window to a Goggle Earth KML file." & Chr$(10) & Chr$(10)
)g-i3V'z0m4M"`-C+j爱立信,诺基亚,西门子,北电,阿尔卡特,朗讯,华为,中兴,中国移动,中国联通,通信专业论坛& "Use Labels of a BASE table to assign a name to each object if required." & Chr$(10)
)A;d5Z2n'M"a#Q!p+f0@ |国内领先的通信技术论坛& "Only objects with centroid within the map window are exported." & Chr$(10)
7X6v)W-J'a#f5L8@:v8oEnd SubMSCBSC 移动通信论坛7I2g(m%t1d"B4S5f4P

;_7p5O1h$q:AMSCBSC 移动通信论坛Sub MnuExit移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单9`,^%i5B8G&_%]#V:r
End Program www.mscbsc.com(G7F'q,d(c;~"`
End Sub
8k+b8w0J0E6o#\'H)L移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单6]3~:_-S"B#\,E*S
以上的内容没有什么难度的，只要学过 VC或者VB的应该一看就懂。
.Z.F!~*n.a |国内领先的通信技术论坛www.mscbsc.com q!h#o(t#J8m5C1U
今天就写到这里，困了！近期会有下文，谢谢支持！！;k%R0e7x/z7i3H)J