📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form frmHASJ
BorderStyle = 1 'Fixed Single
Caption = "航海世纪之征服世界☆专用版 %Major.%Minor.%Revision"
ClientHeight = 2580
ClientLeft = 45
ClientTop = 330
ClientWidth = 6255
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2580
ScaleWidth = 6255
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Height = 735
Left = 120
TabIndex = 0
Top = 0
Width = 6015
Begin VB.ComboBox cbxLR
Height = 315
Left = 4440
TabIndex = 4
Top = 360
Width = 1095
End
Begin VB.ComboBox cbxFX
Height = 315
Left = 2400
TabIndex = 3
Top = 360
Width = 1215
End
Begin VB.ComboBox cbxSP
Height = 315
Left = 240
TabIndex = 2
Top = 360
Width = 1455
End
Begin VB.Label Label3
Caption = "利润流通:"
Height = 255
Left = 4440
TabIndex = 7
Top = 120
Width = 1455
End
Begin VB.Label Label2
Caption = "发现物:"
Height = 255
Left = 2400
TabIndex = 6
Top = 120
Width = 1455
End
Begin VB.Label Label1
Caption = "商品产地:"
Height = 255
Left = 240
TabIndex = 5
Top = 120
Width = 1455
End
End
Begin VB.Frame Frame2
Height = 1455
Left = 120
TabIndex = 1
Top = 720
Width = 6015
Begin VB.TextBox txtContent
Height = 1095
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Text = "Form1.frx":1AFA
Top = 240
Width = 5775
End
End
Begin VB.Label lblCopyRight
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Copyright Marksoft.NET[2002-2008]"
Height = 195
Left = 3600
TabIndex = 9
Top = 2280
Width = 2550
End
End
Attribute VB_Name = "frmHASJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim arrLR As New Dictionary
Dim arrSP As New Dictionary
Dim arrFX As New Dictionary
Dim arrCR As New Dictionary
Dim i As Long
Private Sub cbxFX_Click()
txtContent = arrFX(cbxFX.Text)
End Sub
Private Sub cbxLR_Click()
txtContent = arrLR(cbxLR.Text)
For i = 0 To arrSP.Count - 1
If InStr(arrSP.Items(i), cbxLR.Text) > 0 Then
txtContent.Text = txtContent.Text & vbCrLf & (i + 1) & ":" & Chr(9) & arrSP.Keys(i) & vbCrLf & Chr(9) & "{" & arrSP.Items(i) & "}"
End If
Next
End Sub
Private Sub cbxSP_Click()
txtContent = arrSP(cbxSP.Text)
End Sub
Private Sub Form_Load()
If (App.PrevInstance) Then
MsgBox "本程序只能运行一个实例!" + vbCrLf + "呼出窗体: Ctrl+K" + vbCrLf + "隐藏窗体: Ctrl+H", vbInformation + vbOKOnly, "程序正在运行"
End
End If
lblCopyRight.Caption = Trim("(C) Marksoft.NET [2002-2008] All rights reserved.")
arrLR("海鲜") = " 雅典.马德拉 江户地区 "
arrLR("香蕉") = " 雅典 江户地区 "
arrLR("甘橘") = " 威尼斯 江户地区 "
arrLR("葡萄") = " 阿尔及尔 江户地区 "
arrLR("大豆") = " 阿尔及尔 江户地区 "
arrLR("玉米") = " 莫桑比克.开普敦 地中海及北欧地区 "
arrLR("盐") = " 雅典.汉堡 江户地区 "
arrLR("棉织品") = " 阿尔及尔.热那亚 江户地区 "
arrLR("橄榄油") = " 阿姆斯特丹.威尼斯 江户地区 "
arrLR("玻璃制品") = " 雅典.里斯本 江户地区 "
arrLR("镜子") = " 塞维利亚 江户地区 "
arrLR("花粉") = " 三堡垒 地中海及北欧地区 "
arrLR("米酒") = " 江户 地中海及北欧地区 "
arrLR("香滨") = " 波尔多 江户地区 "
arrLR("餐具") = " 伦敦 江户地区 "
arrLR("雕刻") = " 的黎波里 江户地区 "
arrLR("威士忌") = " 威尼斯.巴塞罗那.伦敦 江户地区 "
arrLR("地毯") = " 汉堡.奥斯陆.马德拉 江户地区 "
arrLR("臧红花") = " 波尔多 江户地区 "
arrLR("白兰地") = " 伊斯坦堡.里斯本 波尔多.马德拉 "
arrLR("朗姆酒") = " 汉堡.雷克亚莫克 江户地区 "
arrLR("吊灯") = " 雷克亚莫克 江户地区 "
arrLR("黄酒") = " 直沽 地中海及北欧地区 "
arrLR("茶叶") = " 长崎.江户 地中海及北欧地区 "
arrFX("奥林匹亚") = "-231.3,273.5 雅典北面 "
arrFX("阿波罗神殿") = "-230, -266.1 雅典附近 "
arrFX("三色堇") = "-223.2 -253.2 雅典附近 "
arrFX("德罗特宁霍姆王宫") = "-224.1, -265.9 雅典附近 "
arrFX("欧洲伯劳") = "-226.3, -255.8 雅典附近 "
arrFX("白蚁") = "-315.9, -243.4 雅典附近 "
arrFX("欧石楠") = "-224.5, -266.4 雅典附近 "
arrFX("罗德斯岛巨像遗址") = "-220.8, -261.3 雅典附近 "
arrFX("花海鳝") = "-240.1, -248.4 雅典附近海上 "
arrFX("坚鸟") = "-139.5, -344.9 雅典-威海岸 "
arrFX("糜鹿") = "-216.5, -237.0 雅典附近 "
arrFX("欧洲赤松") = "-222.2, -242.2 雅典附近 "
arrFX("阿提密丝神殿") = "-230.0, -257.4 雅典附近 "
arrFX("灰雁") = "-244.0, -214.7 克里特边上 "
arrFX("生石花") = "-243.8, -214.1 克里特边上 "
arrFX("地钱") = "-445.2, -333.5 黑海 "
arrFX("洞穴修道院") = "-515.2 -328.3 黑海 "
arrFX("万代兰") = "-517.6 -336.1 黑海 "
arrFX("褐鹈鹕") = "-423.3, -426.1 黑海 "
arrFX("荔枝") = "-408.8, -400.0 黑海 "
arrFX("海芋") = "-385.9, -430.7 黑海 "
arrFX("极乐鸟") = "-487.2 -375.3 黑海 "
arrFX("穿山甲") = "-515, -352.8 黑海 "
arrFX("博亚那教堂") = "-306.9, -307.6 伊海峡 "
arrFX("圣索菲亚大教堂") = "-309.1, -310.4 伊海峡 "
arrFX("蓝孔雀") = "-441, -220 伊到贝的路上 "
arrFX("保加利亚玫瑰") = "-304.9, -306.7 伊斯坦堡附近 "
arrFX("阿勒颇古城") = "-414.7, -153.5 贝鲁特附近 "
arrFX("卡巴斯古城") = "-421.1, -165.8 贝鲁特附近 "
arrFX("阿拉伯大羚羊") = "-430.5, -195.0 贝鲁特附近 "
arrFX("纹面腹蛇") = "-282.1, -291.8 贝到伊的转角处 "
arrFX("蜗牛") = "-382.4, -234.1 贝到伊的海岸线拐角附近 "
arrFX("巴勒贝克") = "-431.3, -190.3 贝鲁特附近 "
arrFX("安杰尔") = "-383.2, -136.4 贝鲁特附近 "
arrFX("扶桑") = "-399.8, -137.3 贝鲁特附近 "
arrFX("丁香") = "-402.3, -139.5 贝鲁特附近 "
arrFX("鸽子树") = "-420.2, -169.8 贝鲁特附近 "
arrFX("帕温泉") = "-404.4, -220.0 塞浦路斯岛 "
arrFX("阿布辛拜勒神庙") = "-351.6, -148.1 亚历山大附近 "
arrFX("单峰骆驼") = "-347.4, -149.7 亚附近 "
arrFX("峰猴") = "-343.7, -150.5 亚附近 "
arrFX("小狐猴") = "-326.9, -150.9 亚附近 "
arrFX("鳄鱼神庙") = "-315.4 -153.3 亚附近 "
arrFX("北非大羚羊") = "-362.9, -150 .5 亚历山大附近 "
arrFX("哈谢晋苏") = "-366.77, -149.5 亚历山大附近 "
arrFX("非洲栋") = "-384.5, -125.6 亚历山大附近 "
arrFX("底比斯古城") = "-346.5, -150.1 亚历山大附近 "
arrFX("门侬雕像") = "-337.2 -150.8 亚附近 "
arrFX("变色晰易") = "-369.7 -150.2 亚附近 "
arrFX("法罗斯灯塔") = "-377.2 -147.9 亚附近 "
arrFX("扫尾豪猪") = "-380.2 -143.6 亚附近 "
arrFX("非洲驯鹿") = "-375.2 -149.1 亚附近 "
arrFX("尼罗河鳄") = "-371.5 -150.0 亚附近 "
arrFX("彩绘教堂") = "-387.7 -134.8 亚附近 "
arrFX("双峰骆驼") = "-333.0 -150.1 亚附近 "
arrFX("金合欢") = "-291.3 -157.6 亚附近 "
arrFX("含羞草-303.3") = "-158.0 亚附近 "
arrFX("龟背竹") = "-315.4 -153.6 亚附近 "
arrFX("非洲白犀牛") = "-329.5 -149.6 亚附近 "
arrFX("猴面包树") = "-35.5, -175.9 的城去亚历山大的北非沿海 "
arrFX("黑犀") = "-231.1, -156.7 的城去亚历山大的北非沿海 "
arrFX("非洲象") = "-216.5 -157.4 的城去亚历山大的北非沿海 "
arrFX("长颈鹿") = "-150.6, -126.1 的城去亚历山大的北非沿海 "
arrFX("白犀") = "-110.6 -144.2 的城去亚历山大的北非沿海 "
arrFX("非洲鸵鸟-106.3") = "-148.1 的城去亚历山大的北非沿海 "
arrFX("狒狒") = "-15, -252 的黎波里附近 "
arrFX("角马") = "-3.5, -213 的黎波里附近 "
arrFX("貂羚") = "-3.9, -201.9 的黎波里附近 "
arrFX("阿尔及利亚鸟") = "-27.4 -180.5 的黎波里附近 "
arrFX("密獾") = "-98.9 -154.5 的黎波里附近 "
arrFX("沙漠玫瑰") = "-234.0 -156.0 的城去亚历山大的北非沿海 "
arrFX("胡椒树") = "-257.0 -154.8 的城去亚历山大的北非沿海 "
arrFX("红桧") = "-276.6 -156.7 的城去亚历山大的北非沿海 "
arrFX("佛罗伦萨的主教堂") = "-62.6 -365.3 威尼斯附近 "
arrFX("罗马万神庙") = "-41.5 -388.6 威尼斯边上 "
arrFX("庞贝古城") = "-119.9 -296.0 威尼斯附近 "
arrFX("短命菊") = "-119.6, -292.7 威尼斯附近 "
arrFX("冬青") = "-130.9, -294.1 威尼斯附近 "
arrFX("欧洲角龟") = "-88.6, -385.9 威尼斯附近 "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -