📄 famous2_frm.frm
字号:
VERSION 5.00
Begin VB.Form famous2_frm
BackColor = &H00400000&
Caption = "南昌市旅游景点之二"
ClientHeight = 7965
ClientLeft = 4155
ClientTop = 1875
ClientWidth = 7845
ForeColor = &H000000FF&
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7965
ScaleWidth = 7845
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "翠岩禅寺佛像"
ForeColor = &H000000FF&
Height = 495
Left = 5880
TabIndex = 8
Top = 7320
Width = 1575
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "雨中的水观音亭"
ForeColor = &H000000FF&
Height = 495
Left = 3120
TabIndex = 7
Top = 7320
Width = 1575
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "文峰塔"
ForeColor = &H000000FF&
Height = 495
Left = 720
TabIndex = 6
Top = 7200
Width = 1215
End
Begin VB.Image Image9
BorderStyle = 1 'Fixed Single
Height = 1860
Left = 5760
Picture = "famous2_frm.frx":0000
Top = 5280
Width = 1560
End
Begin VB.Image Image8
BorderStyle = 1 'Fixed Single
Height = 1845
Left = 3000
Picture = "famous2_frm.frx":26C9
Top = 5280
Width = 1560
End
Begin VB.Image Image7
BorderStyle = 1 'Fixed Single
Height = 1845
Left = 480
Picture = "famous2_frm.frx":3880
Top = 5280
Width = 1530
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "腾王阁"
ForeColor = &H000000FF&
Height = 495
Left = 5880
TabIndex = 5
Top = 4680
Width = 1575
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "八一新桥"
ForeColor = &H000000FF&
Height = 495
Left = 3240
TabIndex = 4
Top = 4800
Width = 1815
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "八一起义纪念馆"
ForeColor = &H000000FF&
Height = 495
Left = 480
TabIndex = 3
Top = 4800
Width = 1695
End
Begin VB.Image Image6
BorderStyle = 1 'Fixed Single
Height = 1845
Left = 5640
Picture = "famous2_frm.frx":4F82
Top = 2760
Width = 1545
End
Begin VB.Image Image5
BorderStyle = 1 'Fixed Single
Height = 1845
Left = 3000
Picture = "famous2_frm.frx":6780
Top = 2760
Width = 1560
End
Begin VB.Image Image4
BorderStyle = 1 'Fixed Single
Height = 1860
Left = 480
Picture = "famous2_frm.frx":8427
Top = 2760
Width = 1545
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "八一纪念碑"
ForeColor = &H000000FF&
Height = 495
Left = 5880
TabIndex = 2
Top = 2160
Width = 1215
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "八一公园"
ForeColor = &H000000FF&
Height = 495
Left = 3240
TabIndex = 1
Top = 2280
Width = 1215
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "八一大桥（全）"
ForeColor = &H000000FF&
Height = 495
Left = 480
TabIndex = 0
Top = 2280
Width = 1455
End
Begin VB.Image Image3
BorderStyle = 1 'Fixed Single
Height = 1860
Left = 5640
Picture = "famous2_frm.frx":A571
Top = 240
Width = 1545
End
Begin VB.Image Image2
BorderStyle = 1 'Fixed Single
Height = 1860
Left = 3000
Picture = "famous2_frm.frx":B696
Top = 240
Width = 1545
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1860
Left = 480
Picture = "famous2_frm.frx":CBB3
Top = 240
Width = 1560
End
End
Attribute VB_Name = "famous2_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'点击图片，可以弹出提示框，内空是该图片的一些景点介绍
Private Sub Image1_Click()
MsgBox "八一大桥不仅是一项宏伟的现代化交通设施，也是南昌一大景观。该大桥桥型与城市环境协调，大桥外型雄伟壮观，巍巍高塔与两岸高楼对应。纵横设计采用竖曲线，像长虹卧波，具有曲线美。南引桥三层，全互通立交，喇叭型，气势宏大。四个圆圈像蝴蝶飞舞，圈内矗立着体现江西历史文化的得阳楼、郁孤台、牡丹亭。龙珠阁四个楼台亭阁。大桥南岸桥头石雕黑白双猫，寓意深刻。北岸铸铜双狮，威武雄壮。整座大桥挺拔雄伟，气势恢宏，宛如巨龙横卧在赣江之上，与江两岸旖旎风光连成一体，交相辉映，形成南昌一道新的旅游风景线。经过路线：1、南昌旅游观光巴士路线 2、1路 3、2路", vbOKOnly, "景点简介"
End Sub
Private Sub Image2_Click()
MsgBox "八一公园 位于市区中心东湖之中，北临民德路，南临中山路东滨苏圃路，面积约13公顷，唐宪宗元和三年（802年），观察使韦丹为除水患，首倡治湖、浚淤植柳、后遂有、万柳堤及黄金堤。杜牧曾赞其为‘十顷平湖柳堤合’。自此以后东湖即为著名风景湖。明代以后，分成东、西、北三湖，民国以后，以红石垒岸，北湖又成南、北二湖，今之西湖、有桥涵相通，宋以后统称为东湖。东湖之中有三座小岛，其中两岛于八一公园之中，即百花洲和少年宫所在地。百花洲一名始于宋代，欧阳修有五绝诗《酬圣俞百花洲》，向子埋《蝶恋花》词序中有’百花洲老桂盛开‘句。南宋绍兴年间，豫章节度使张澄建‘讲武亭’于南洲，以习水军，清乾隆十一年（ 1746年）布政使彭家屏书立‘百花洲’三字，巨碑后断损。1983年11月重新勒石，并建石质碑亭一座。", vbOKOnly, "景点简介"
End Sub
Private Sub Image3_Click()
MsgBox "英雄城南昌的标志性建筑---八一起义纪念碑经过改造后，更显其雄伟挺拔的气势。7月25日，已开始拆除防护网的纪念碑主体初展雄姿。坐落在南昌八一广场的八一起义纪念碑，始建于上个世纪70年代，高约44米。当时，纪念碑高于周边建筑物，气势雄伟，成为南昌标志性建筑。经过改造后，其形状与原来保持一致，位置东移6米至新广场中轴线上，同时增高8米左右，使其显得更加挺拔、庄重。", vbOKOnly, "景点简介"
End Sub
Private Sub Image4_Click()
MsgBox "为了纪念和宣传这一光辉的历史，早在1956年就成立了南昌八一起义纪念馆。40多年来，接待观众逾1000万人次。南昌起义暨建军70周年之际，五座革命旧址经过维修，再现了历史的光辉；辅助陈列全面更新，充分运用声、光、电等现代科技展览手段，极具吸引力、感染力，已达国内一流水平，令人留连忘返。路线经过: 南昌旅游观光巴士路线", vbOKOnly, "景点简介"
End Sub
Private Sub Image5_Click()
MsgBox "新八一大桥不仅是一项宏伟的现代化交通设施，也是南昌一大景观。该大桥桥型与城市环境协调，大桥外型雄伟壮观，巍巍高塔与两岸高楼对应。纵横设计采用竖曲线，像长虹卧波，具有曲线美。南引桥三层，全互通立交，喇叭型，气势宏大。四个圆圈像蝴蝶飞舞，圈内矗立着体现江西历史文化的得阳楼、郁孤台、牡丹亭。龙珠阁四个楼台亭阁", vbOKOnly, "景点简介"
End Sub
Private Sub Image6_Click()
MsgBox "'江南三大名楼'之一的腾王阁，屡毁屡建达二十八次之多。新落成的腾王阁，较一千三百多年前的建筑更嵯峨雄壮，充分表现'飞阁流丹，下临无地'的气势。投资建造了'马当神'号豪华游艇供游客畅游赣江；建造了滕王阁宾馆、贵宾宴会厅、仿古展演厅、名人字画厅等。登楼眺望，南昌景致尽收眼底。 ", vbOKOnly, "景点简介"
End Sub
Private Sub Image7_Click()
MsgBox "位于安义县城东侧潦河畔。始建于明代崇帧三年（1630年），塔七级，高约七丈，以砖石砌成六面形，逐级有台阶、板楼、门窗、可供游人眺望。", vbOKOnly, "景点简介"
End Sub
Private Sub Image8_Click()
MsgBox "位于南湖湖心，始建于唐代。明正德年间，曾为宁王朱宸濠之妻娄妃的’梳妆台‘；万历年间，一度为相国张位别墅，称’杏花楼‘。汤显祖在此曾有吟咏。清时，因祀娄妃，募捐修建，始名’因是庵‘。乾隆五十三年（ 1788年）重修时改称’观音亭‘，又称’水观音亭‘。1919年民间募捐重修。1983年底重加修缮。现南昌画院设在此。 ", vbOKOnly, "景点简介"
End Sub
Private Sub Image9_Click()
MsgBox "在南昌市北18公里处的港下村地段，掩映着一片金碧辉煌的建筑群，这便是湾里区最大的佛教禅地天宁古寺。天宁古寺有过极盛的年华，随着沧桑的变迁，战乱屡经文革摧残，古寺荡然无存。至85年9月仅存一座高不到 二米、面积不足18平方米，风雨飘摇的观音间，神龛上只有一张图像供游客参拜，当年61岁的万仁英同志，诚虔地来此剃发为尼，授法号叫释顺因，并将她多年的积蓄六千元赞助寺内作经费。在古寺住持垂范下，用了七年时间，建成了一座气派轩昂，规模宏伟的综合性寺庙。建筑面积达五千平方米，屹立在湾里区南端，接待八方香客和游人。新落成的寺门巍峨壮观，四合院的佛殿肃穆典雅，砖混二层结构，殿宇椽摩栋接，秀丽堂皇，大雄宝殿，帷帐低垂，如来端坐中央，四大天王双脸微下垂，净水观音托净瓶，两旁十八金身罗汉，雕刻精致，情态逼真，栩栩如生。后殿海岛，菩萨148尊，韦驮殿降龙伏虎。东西两殿为禅房尼姑卧室及客厅、客房。每当金鸡报晓，或夕阳西沉，大宁古寺灯火通明，四十多位尼姑、居士仪表整肃，鹄立佛前，香烟溢芬。近五年来天宁寺赢得了良好声誉，而今古寺的佛事盛况，应是当今国泰民丰的缩影和写照。", vbOKOnly, "景点简介"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -