include "mapbasic.def"
include "icons.def"
include "menu.def"
declare sub main'作用是创建菜单和工具条declare sub make_base
declare sub input_linqu
declare sub optimize_1way
declare sub optimize_2way
declare sub pn_plan
declare sub evaluate_pn
declare sub indoor_dt
declare sub google_earth
declare sub help_info
declare sub export_temp
declare sub about_pnoptimizer
declare sub exit_pnoptimizer
declare sub find_info
declare sub display_nbr
declare sub display_hand
declare sub del_neighbour
declare sub add_neighbour
'#########################################################################################
'该sub main的作用是创建启动时加载菜单和工具条
'#########################################################################################
Sub main
'------------------------------------------------------------创建菜单
Create Menu "&CDMA Optimizer" As
"生成基站图层" calling make_base,
"导入邻区表(*.txt).." calling input_linqu,
"导入切换[PSMM]表(*.txt).." calling input_psmm,
"(-",
"1-way邻区优化(A＞B＞C)" calling optimize_1way,
"2-way邻区优化(A＜B＞C＞D)" calling optimize_2way,
"(-",
"
N规划"calling pn_plan,
"
N复用评估" calling evaluate_pn,
"(-",
"室内路测数据分析"calling indoor_dt,
"(-",
'"室内路测数据分析" as "室内路测数据分析",
"导出Google Earth(KML)文件" calling google_earth,
"(-",
"使用帮助" calling help_info,
"导出模板(工参|邻区|切换关系)" calling export_temp,
"(-",
"关于本软件" calling about_pnoptimizer,
"(-",
"退出" calling exit_pnoptimizer
alter menu bar add "CDMA Optimizer"
'-------------------------------------------------------------创建工具条
Create buttonpad "CDMA Optimizer" As
pushbutton Calling find_info
helpmsg "\n查询(PN/站号/小区号/站名..)"
Icon 103'定义按钮图标，楼主示例程序里面有个程序有个全部ID和对应的图标
ID 9300 '定义按钮ID，方便后面调用，每个按钮分配不同的ID。
separator
ToolButtonCalling display_nbr
helpmsg "\n显示邻区"
Icon 111
'CursorMI_CURSOR_FINGER_UP
ID 9301
'separator
ToolButtonCalling display_hand
helpmsg "\n显示切换关系"
Icon 105
'CursorMI_CURSOR_FINGER_UP
ID 9302
separator
ToolButtonCalling del_neighbour
helpmsg "\n删除邻区"
Icon 101
'CursorMI_CURSOR_FINGER_UP '这句的意思应该是默认图标为未选择状态
ID 9303
'separator
ToolButtonCalling add_neighbour
helpmsg "\n增加邻区"
Icon 98
'CursorMI_CURSOR_FINGER_UP
ID 9304
ToolbarPosition(1,4)'定义按钮位置，这个根据需求自己修改。
Show
Fixed
end sub
sub make_base
note "hello"
end sub
sub input_linqu
note "hello"
end sub
sub optimize_1way
note "hello"
end sub
sub optimize_2way
note "hello"
end sub
sub pn_plan
note "hello"
end sub
sub evaluate_pn
note "hello"
end sub
sub indoor_dt
note "hello"
end sub
sub google_earth
note "hello"
end sub
sub help_info
note "hello"
end sub
sub export_temp
note "hello"
end sub
sub about_pnoptimizer
note "hello"
end sub
sub exit_pnoptimizer
note "hello"
end sub
sub find_info
note "hello"
end sub
sub display_nbr
note "hello"
end sub
sub display_hand
note "hello"
end sub
sub del_neighbour
note "hello"
end sub
sub add_neighbour
note "hello"
end sub
关注楼主