form1.frm

能够自动生成“情书”

    "每当我有意或无意间轻触到它的时候，我的全身便燃起了熊熊烈火。" + Chr(13) + Chr(10) + _
    "请饶恕我的口不择言，我是如此疯狂地爱着你。" + Chr(13) + Chr(10) + _
    "如果你认为我仅仅是爱你的外表，那么你错了，" + Chr(13) + Chr(10) + _
    "你是如此的" + Text4(3).Text + "，" + Chr(13) + Chr(10) + _
    "这些才是我爱你的真正原因?" + Chr(13) + Chr(10) + _
    "啊，我的宝贝，救救我这颗已被神箭射穿的心灵吧！" + Chr(13) + Chr(10) + _
    "让我们珍惜这份情缘，" + Chr(13) + Chr(10) + _
    "携起手来，" + Chr(13) + Chr(10) + _
    "一起走向永远，永远......" + Chr(13) + Chr(10) + _
    "                                       爱你的： " + _
    Text2.Text
    Command3.Enabled = True
    Save.Enabled = True
    Exit Sub
End If


If List1.Selected(1) Then
 If Text2.Text = "" Or Text3.Text = "" Or Text5(0).Text = "" Or Text5(1).Text = "" Or Text5(2).Text = "" Then
  MsgBox "不要这么心急！还没添完", vbOKOnly, "错误"
  Exit Sub
 End If
 Text1.Locked = False
 Text1.Text = "亲爱的" + Text3.Text + Chr(13) + Chr(10) + "你仿佛有一种魔力," + Chr(13) + Chr(10) + "使我每次见到你都会感到自己的心在狂跳不止," + Chr(13) + Chr(10) + "我知道你根本没有意识到我的存在," + Chr(13) + Chr(10) + "但你的容颜," + Chr(13) + Chr(10) + "已在我逐渐变冷的心中点燃了熊熊烈火," + Chr(13) + Chr(10) + "好几次我想鼓起勇气想你表明心中的感受," + Chr(13) + Chr(10) + "区被你那一双" + Text5(0).Text + "眼睛压了回去," + Chr(13) + Chr(10) + "我是如此的害怕看你的双眼," + Chr(13) + Chr(10) + "只好把话留在心里?" + Chr(13) + Chr(10) + "我努力的强迫自己不去想你," + Chr(13) + Chr(10) + "不要打扰你平静的生活," + Chr(13) + Chr(10) + "尽管如此,当我闭上双眼," + Chr(13) + Chr(10) + "你的身影又浮现在我的眼前?" + Chr(13) + Chr(10) + "我挥手让他散去," + Chr(13) + Chr(10) + "他却纹丝不动," + Chr(13) + Chr(10) + "我终于明白," + Chr(13) + Chr(10) + _
 "你对于我来说不只是一阵过眼云烟," + Chr(13) + Chr(10) + _
 "而是深深的印在了我的每一个角落?" + Chr(13) + Chr(10) + _
 "在我的心中,有一件为你敞开们的小屋," + Chr(13) + Chr(10) + _
 "它的名字叫'爱' ," + Chr(13) + Chr(10) + _
 "我始终把他藏在那最温暖的角落," + Chr(13) + Chr(10) + _
 "等待着你能住在里面我期望有一天," + Chr(13) + Chr(10) + _
 "你也能把你的心扉向我敞开," + Chr(13) + Chr(10) + _
 "不要让我的梦想一个美丽的泡泡一样破灭," + Chr(13) + Chr(10) + "美丽的东西都是应该" + Text5(1).Text + ",对吗?" + Chr(13) + Chr(10) + "让我的梦想变成现实吧!" + Chr(13) + Chr(10) + "不要让他在折磨我," + Chr(13) + Chr(10) + "我会付出我的一切,关心你,爱护你," + Chr(13) + Chr(10) + "让你这朵美丽的花朵," + Text5(2) + Chr(13) + Chr(10) + "哪怕是有狂风暴雨,," + Chr(13) + Chr(10) + "我的温暖都会在你身边!," + Chr(13) + Chr(10) + "                    爱你的：" + Text2.Text
 Command3.Enabled = True
 Save.Enabled = True
 Exit Sub
End If


If List1.Selected(2) Then
 If Text2.Text = "" Or Text3.Text = "" Or Text6(0).Text = "" Or Text6(1).Text = "" Or Text6(2).Text = "" Or Text6(3).Text = "" Then
  MsgBox "不要这么心急！还没添完", vbOKOnly, "错误"
  Exit Sub
 End If
 Text1.Locked = False
 Text1.Text = "亲爱的" + Text3.Text + Chr(13) + Chr(10) + "我的身体里有一百座的核子反应炉" + Chr(13) + Chr(10) + "只要一想到你就像" + Text6(0).Text + "般" + Chr(13) + Chr(10) + "心形的眼珠即时著了火 '泡'你是我今晚的任务" + Chr(13) + Chr(10) + "围绕围绕著你跑了360个400米 我是个真爱的超人 你是地球" + Chr(13) + Chr(10) + "我是我是我是苍蝇你是果冻 完美地跌倒最重要 我为你俯冲" + Chr(13) + Chr(10) + "荷尔蒙是威力最大的爆炸 把你的理智我的害羞都冲垮" + Chr(13) + Chr(10) + "可不可以靠近过来说说爱 要知道冷漠是最没礼貌的落後态度" + Chr(13) + Chr(10) + "让我让我对你发射我最强烈的温柔 烧烧的痞子电磁波" + Chr(13) + Chr(10) + "恋爱是青春嘴里的一颗糖 我来替你剥开外面的包装" + Chr(13) + Chr(10) + "抱著我如果你尴尬很紧张 我用最美的Pose带你到" + Text6(1).Text + Chr(13) + Chr(10) + "噢!让我让我对你发射我最强烈的温柔 喔!烧烧的痞子电磁波" + Chr(13) + Chr(10) + "啊!发呆是最危险的自虐狂 寂寞是最邪恶的地狱谷耶!" + Chr(13) + Chr(10) + "让我们离开无 聊聊的" + Text6(2).Text + _
 "飞到电影院看《" + Text6(3) + "》!" + Chr(13) + Chr(10) + "让我让我对你发射我最强烈的温柔 烧烧的痞子电磁波" + Chr(13) + Chr(10) + _
 "呵呵呵!呵呵呵!呵呵呵呵呵!" + Chr(13) + Chr(10) + _
 "                         爱你的：" + Text2.Text
 Command3.Enabled = True
 Save.Enabled = True
 Exit Sub
End If



If List1.Selected(3) Then
 If Text2.Text = "" Or Text3.Text = "" Or Text7(0).Text = "" Or Text7(1).Text = "" Or Text7(2).Text = "" Or Text7(3).Text = "" Or Text7(4).Text = "" Or Text7(5).Text = "" Or Text7(6).Text = "" Or Text7(7).Text = "" Or Text7(8).Text = "" Then
  MsgBox "不要这么心急！还没添完", vbOKOnly, "错误"
  Exit Sub
 End If
 Text1.Locked = False
 Text1.Text = "亲爱的" + Text3.Text + Chr(13) + Chr(10) + "我们的感情，在十一届三中全会以来党的一系列正确方针政策的指引下在党的亲切关怀下，在领导的亲自过问下，" + Text7(0).Text + "年来正沿着健康的道路蓬勃发展，这主要表现在：" + Chr(13) + Chr(10) + "一、我们共通话" + Text7(1).Text + _
 "次。平均每" + Str(Val(Text7(0).Text) / Val(Text7(1).Text)) + "天一次。其中，我给你打了" + Text7(2).Text + "次，占" + Format(Val(Text7(2).Text) / Val(Text7(1).Text), "0%") + "；你给我打了" + Str(Val(Text7(1).Text) - Val(Text7(2).Text)) + "次，占" + Format(1 - Val(Text7(2).Text) / Val(Text7(1).Text), "0%") + "；每次通话最长的达" + Text7(3).Text + "分钟，最短的也有" + Text7(4).Text + "分钟......" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
 "二、我们约会共" + Text7(5).Text + "次，平均每" + Str(Val(Text7(0).Text) / Val(Text7(5).Text)) + "天一次。其中我主动约你" + Text7(6).Text + "次，占" + Format(Val(Text7(6).Text) / Val(Text7(5).Text), "0%") + "；你约我" + Str(Val(Text7(5).Text) - Val(Text7(6).Text)) + "次，占" + Format(1 - Val(Text7(6).Text) / Val(Text7(5).Text), "0%") + " ；每次约会最长的达" + Text7(7).Text + "小时，最短的也有" + Text7(8).Text + "小时......" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
 "以上充分证明了一年的交往我们已形成了爱情的共识，我们爱情的主流是互相了解、互相关心、互相帮助，是平等互利的。" + Chr(13) + Chr(10) + "当做任何事物都是一分为二的，缺点的存在是不可避免的，" + Chr(13) + Chr(10) + "我们两人虽然都是积极的，但是从以上的数据发展还不太平衡，积极性还存在一定的差距，这是前进中的缺点。" + Chr(10) + Chr(13) + "我相信在新的一年里，我们一定回发扬成绩，克服缺点，再接再厉，携手前进，开创我们爱情的新局面......" + Chr(13) + Chr(10) + _
        "因此，我提出三点意见供你参考：" + Chr(13) + Chr(10) + _
        "一是要围绕一个'爱'字......" + Chr(13) + Chr(10) + _
        "二是要狠抓一个'亲'字......" + Chr(13) + Chr(10) + _
        "三是要落实一个'合'字......" + Chr(13) + Chr(10) + _
        "让我们宏扬团结拼搏坚韧不拔的精神，共同振兴我们的爱情，争取我们的爱情达到一个新的高度，登上一个新台阶。" + Chr(13) + Chr(10) + "本着'我们的婚事我们办，办好婚事为我们'的精神共创辉煌。" + Chr(13) + Chr(10) + _
       "                        爱你的：" + Text2.Text
 

 Command3.Enabled = True
 Save.Enabled = True
 Exit Sub
End If



End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text1.Locked = True

If List1.Selected(0) Then
 For i = 0 To 3
  Text4(i).Text = ""
 Next i
End If

If List1.Selected(1) Then
 For i = 0 To 2
  Text5(i).Text = ""
 Next i
End If
If List1.Selected(2) Then
 For i = 0 To 3
  Text6(i).Text = ""
 Next i
End If
If List1.Selected(3) Then
 For i = 0 To 8
  Text7(i).Text = ""
 Next i
End If
Command3.Enabled = False
Save.Enabled = False

End Sub

Private Sub Command3_Click()
On Error Resume Next
filehandle = FreeFile
'CommonDialog1.Filter = "Text Files|*.txt|All Files (*.*)|*.*"
'CommonDialog1.ShowSave
'If CommonDialog1.FileName <> "" Then
' Open CommonDialog1.FileName For Output As #filehandle
' Print #filehandle, Text1.Text
' Close #filehandle
'End If
'Exit Sub

'Err:
 'MsgBox "因为控件没有发现，所以文件保存为在程序同路径下　LoveExpert.txt文件", vbOKOnly, "抱歉！"
 MsgBox "文件保存为在程序同路径下　LoveExpert.txt文件", vbOKOnly, "文件保存结果！"
 Open App.Path + "\LoveExpert.txt" For Append As #filehandle
 Print #filehandle, Text1.Text
 Close #filehandle
End Sub

Private Sub Exit_Click()

Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next
If App.PrevInstance = True Then
 Beep
 End
End If
Form1.Visible = True
SoundBuffer = LoadResData(101, "CUSTOM")
wFlags = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY 'Or SND_NOSTOP
'BackSound = LoadResData(102, "CUSTOM")
mciSendString "close MyWav", vbNullString, 0, 0
mciSendString "open " & App.Path & "\why.mid alias MyWav", vbNullString, 0, 0
mciSendString "play MyWav FROM 0", vbNullString, 0, 0
i = Month(Date)
Select Case i
 Case 1
  Label2.Caption = "一月"
  Label4.Caption = "水仙花"
  Label6.Caption = "尊敬"
 Case 2
  Label2.Caption = "二月"
  Label4.Caption = "紫罗兰"
  Label6.Caption = "诚实，谦让"
 Case 3
  Label2.Caption = "三月"
  Label4.Caption = "郁金香"
  Label6.Caption = "爱的倾诉"
 Case 4
  Label2.Caption = "四月"
  Label4.Caption = "康乃馨"
  Label6.Caption = "纯粹的爱情"
 Case 5
  Label2.Caption = "五月"
  Label4.Caption = "蔷薇"
  Label6.Caption = "美、爱，恋情"
 Case 6
  Label2.Caption = "六月"
  Label4.Caption = "杷子"
  Label6.Caption = "我的幸福"
 Case 7
  Label2.Caption = "七月"
  Label4.Caption = "剑兰"
  Label6.Caption = "谨慎，坚固"
 Case 8
  Label2.Caption = "八月"
  Label4.Caption = "大莉花"
  Label6.Caption = "华丽"
 Case 9
  Label2.Caption = "九月"
  Label4.Caption = "龙胆花"
  Label6.Caption = "在你伤心时我尤其爱你"
 Case 10
  Label2.Caption = "十月"
  Label4.Caption = "大波斯菊"
  Label6.Caption = "少女的纯洁与爱情"
 Case 11
  Label2.Caption = "十一月"
  Label4.Caption = "菊花"
  Label6.Caption = "高尚，清高"
 Case 12
  Label2.Caption = "十二月"
  Label4.Caption = "卡特丽亚"
  Label6.Caption = "美人"
End Select
List1.AddItem "传统型"
List1.AddItem "无敌型"
List1.AddItem "思春型"
List1.AddItem "革命数码型"
List1.Selected(0) = True
Frame7.ForeColor = &HFF&
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
mciSendString "close MyWav", vbNullString, 0, 0
frmAbout.Show
End Sub

Private Sub Knoledge1_Click()
Call Label8_Click
Frame7.Visible = True
Frame7.Caption = "情人节的由来"

Text8.Text = "                  情人节的来历" + Chr(13) + Chr(10) + _
  "  中国人现在用近乎狂热的热情过起了圣诞节一样，情人节也已经悄悄渗透到了无数年轻人的心目当中，成为中国传统节日之外的又一个重要节日。情人节的来历和意义可能并不一定为大多数人所知。下面所要介绍的，不过是众多关于情人节的传说中的一个。" + Chr(13) + Chr(10) + "  在古罗马时期，二月十四日是为表示对约娜的尊敬而设的节日。约娜是罗马众神的皇后，罗马人同时将她尊奉为妇女和婚姻之神。接下来的二月十五日则被称为“卢帕撒拉节”，是用来对约娜治下的其他众神表示尊敬的节日。" + Chr(13) + Chr(10) + "  在古罗马，年轻人和少女的生活是被严格分开的。然而，在卢帕撒拉节，小伙子们可以选择一个自己心爱的姑娘的名字刻在花瓶上。这样，过节的时候，小伙子就可以与自己选择的姑娘一起跳舞，庆祝节日。如果被选中的姑娘也对小伙子有意的话，他们便可一直配对，而且最终他们会坠入爱河并一起步入教堂结婚。后人为此而将每年的二月十四日定为情人节。" + Chr(13) + Chr(10) + _
  "  在西方，情人节不但是表达情意的最佳时刻，也是向自己心爱的人求婚的最佳时刻。在这一点上，情人节体现出的，不正是古罗马人设计这个节日的本意吗？ 　公元三世纪时，古罗马有一位暴君叫 克劳多斯（Claudius）。离暴君的宫殿不远，有一座非常漂亮的神庙。修士瓦沦丁（Valentine） 　　就住在这里。罗马人非常崇敬他，男女老幼，不论贫富贵贱，总会群集在他的周围，在祭坛的熊熊圣火前，聆听瓦沦丁的祈祷。" + Chr(13) + Chr(10) + "古罗马的战事一直连绵不断，暴君克劳多斯征召了大批公民前往战场，人们怨声载道。男人们不愿意离开家庭，小伙子们不忍与情人分开。克劳多斯暴跳如雷，他传令人们不许举行婚礼，甚至连所有已订了婚的也马上要解除婚约。许多年轻人就这样告别爱人，悲愤地走向战场。年轻的姑娘们也由于失去爱侣，抑郁神伤。 　　瓦沦丁对暴君的虐行感到非常难过。当一对情侣来到神庙请求他的帮助时，瓦沦帝尼在神圣的祭坛前为它们悄悄地举行了婚礼。人们一传十，十传百，很多人来到这里，在瓦沦丁的帮助下结成伴侣。" + Chr(13) + Chr(10) + _
  "  消息终于传进了宫殿，传到了暴君的耳里。克劳多斯又一次暴跳如雷，他命令士兵们冲进神庙，将瓦沦丁从一对正在举行婚礼的新人身旁拖走，投入地牢。人们苦苦哀求暴君的劾免，但都徒劳而返。瓦沦丁终于在地牢里受尽折磨而死。悲伤的朋友们将他安葬于圣普拉 教堂。那一天是2月14日，那一年是公元270年。 　　另外的版本似乎没有这一个精彩。传说中瓦沦丁是最早的基督徒之一，那个时代做一名基督徒意味着危险和死亡。为掩护其他殉教者，瓦沦丁被抓住，投入了监牢。在那里他治愈了典狱长女儿失明的双眼。当暴君听到着一奇迹时，他感到非常害怕，于是将瓦沦丁斩首示众。据传说，在行刑的那一天早晨，瓦沦丁给典狱长的女儿写了一封情意绵绵的告别信，落款是:From　your Valentine （寄自你的瓦沦丁） 　　历史学家们更愿意刨根揪底，他们关于情人节的演绎似乎令人信服。其实远远早于公元270年，当罗马城刚刚奠基时，周围还是一片荒野，成群的狼四处游荡。在罗马人崇拜的众神中，畜牧神卢波库斯（Lupercus）掌管着对牧羊人和羊群的保护。每年二月中，罗马人会举行盛大的典礼来庆祝牧神节。那时的日历与现在相比，要稍微晚一些，所以牧神节实际上是对即将来临的春天的庆祝。" + Chr(13) + Chr(10) + _
  "  也有人说这个节日是庆祝 法乌努斯" + Chr(13) + Chr(10) + _
  "  神（Faunus），它类似于古希腊人身羊足，头上有角的潘神（ Pan ），主管畜牧和农业。 　　牧神节的起源实在是过于久远了，连公元前一世纪的学者们都无法确认。但是这一节日的重要性是不容置疑的。 　　例如史料记载，安东尼（Mark Antony）就是在公元前44年的牧神节上将王冠授与凯撒（Julius Caesar）的。" + Chr(13) + Chr(10) + "每年的二月十五日，修士们会聚集在罗马城中巴沦丁Palantine）山上的一个洞穴旁，据说在这里，古罗马城的奠基者 （Romilus andRemus）被一只母狼扶育长大。在节日的各项庆典中，有一项是年轻的贵族们，手持羊皮鞭，在街道上奔跑。年轻妇女们会聚集在街道两旁，祈望羊皮鞭抽打到她们头上。人们相信这样会使她们更容易生儿育女。在拉丁语中，羊皮鞭被叫做 februa，鞭打叫做 fabruatio， 实际上都含有'纯洁'的意思。二月的名字（February）就是由此而来。" + Chr(13) + Chr(10) + _
  "  随着罗马势力在欧洲的扩张，牧神节的习俗被带到了现在的法国和英国等地。人们最乐此不疲的一项节日活动类似于摸彩。年轻女子们的名字被放置于盒子内，然后年轻男子上前抽取。抽中的一对男女成为情人，时间是一年或更长。 　　基督教的兴起使人们纪念众神的习俗逐渐淡漠。教士们不希望人们放弃节日的欢乐，于是将牧神节（Lupercalia）改成瓦沦丁节（ Valentine's Day），并移至二月十四日。这样，关于瓦沦丁修士的传说和古老的节日就被自然地结合在一起。这一节日在中世纪的英国最为流行。未婚男女的名字被抽出后，他们会互相交换礼物，女子在这一年内成为男子的Valentine。 　　在男子的衣袖上会绣上女子的名字，照顾和保护该女子于是成为该男子的神圣职责。" + Chr(13) + Chr(10) + _
  "  有史可查的现代意义上的瓦沦丁情人是在十五世纪早期。法国年轻的奥尔良大公在阿根科特（Agincourt）战役中被英军俘虏，然后被关在伦敦塔中很多年。他写给妻子很多首情诗，大约60首保存至今。用鲜花做瓦沦丁节的信物在大约两百年后出现。法王亨利四世（Henry IV）的一个女儿在瓦沦丁节举行了一个盛大的晚会。所有女士从选中她做Valentine的男士那里获得一束鲜花。 　　就这样，延续着古老的意大利，法国和英国习俗，我们得以在每年的二月十四日向自己的朋友传递爱的信息。鲜花，心形糖果，用花边和摺穗掩盖了送物人名字的信物，不仅仅是代表着一份份真挚的爱，更是对敢于反抗暴政的瓦沦丁修士的最好缅怀。"

End Sub

Private Sub Knoledge2_Click()
Call Label8_Click
Frame7.Visible = True
Frame7.Caption = "巧克力爱情物语"

Text8.Text = "                 巧克力爱情物语" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  正如花有花语，巧克力也有自己的爱情物语，送不同的巧克力表示不同的意义，不妨仔细看看：" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  牛奶巧克力 表示你觉得对方很纯品，很乖巧，是个可爱的小精灵。" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  黑巧克力 表示你觉得对方有个性，很神秘，深不可测。" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  白巧克力 表示你觉得对方超凡脱俗，不食人间烟火。" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  果仁巧克力 表示你觉得与对方一起很温馨，很想随时陪伴左右。" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  心型巧克力 表示“我心属于你”。" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  卡通巧克力 表示你很欣赏对方的天真烂漫?" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
  "  带玩具的巧克力 表示你与对方的关系正介于情人和朋友之间?"
 

End Sub

Private Sub Knoledge3_Click()
Call Label8_Click
Frame7.Visible = True
Frame7.Caption = "送花的数目含义"

Text8.Text = "                 送花的数目含义  " + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
             "1     朵 唯一的爱" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
             "2     朵 你侬我侬" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
             "3     朵 我爱你" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"4     朵 誓言与承诺" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"5     朵 无悔" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "6     朵 顺利" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "7     朵 喜相逢" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "8     朵 弥补" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"9     朵 长相守" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "10    朵 完美的你(你)" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"11    朵 一心一意;最美" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "12    朵 比翼双飞" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"13    朵 暗恋" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "17    朵 好聚好散" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"20    朵 两情相悦" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "21    朵 最爱" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"22    朵 双双对对" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "24    朵 无时无刻想著你" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"33    朵 我爱你;三生三世" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "36    朵 我心属於你" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"44    朵 至死不渝" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "50    朵 无悔的爱" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"56    朵 吾爱" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "57    朵 吾爱吾妻" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"66    朵 细水长流" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "77    朵 求婚" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"88    朵 用心弥补" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "99    朵 天长地久" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"100   朵 白头偕老;爱你一万年" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "101   朵 直到永远" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "108   朵 无尽的爱 " + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "144   朵 爱你生生世世" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"365   朵 天天想你 " + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "999   朵 天长地久" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"1001  朵 直到永远 "
End Sub



Private Sub Knoledge5_Click()
Call Label8_Click
Frame7.Visible = True
Frame7.Caption = "花代表的心思"

Text8.Text = "                   花   语" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + _
"三色篓：思慕、想念我 雏 菊：愉快、纤细、幸福 矢车菊：幸福" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "福禄考：一致同意 瓜叶菊：快活 矮牵牛：（白）存在、（紫）情" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "蕾香蓟: 相信得到答覆 花菱草: 不要拒绝我 美人樱: 诱惑" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "勿忘草：永志勿望 霞 草：（红）期待的喜悦 六佬刎：可怜、同情" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "报春花：初恋、希望 鼠尾草：（白）精力充沛（红）心在燃烧、（紫）智慧" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "松叶菊: 情息 天竺葵: 诈欺?不实 西番莲: 圣爱" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "曼陀罗：诈情、骗受 滨 蓟：孤独 海石竹：体谅、贴心" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "香 蒌: 贞淑?芍 药: 善羞?愤怒 福寿草: 回想 君子兰: 高贵" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "华 草: 服从 非洲菊: 神秘 金莲花: 不稳定?心绪不宁" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "郁金香：爱的表现" + _
"鸢 尾: 使者?爱的传达 风信子: 游戏?内心的喜悦 " + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "白头翁：（白）真实、（红）恋爱、（黄）绝交、（紫）信澄 小苍兰：纯洁" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "娄斗菜：（白）愚钝、（红）挂虑、（紫）胜利 德国鸢尾：神圣" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "孤挺花：多话、多嘴 百 合：尊敬、纯洁 陆莲花：迷人的魅力" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "高雪轮: 骗子 风铃草: 诚信 虞美人: 抚慰" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "翟 麦: 野心 根节兰: 长寿 康乃馨: 伤心" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "黑种草：清新的爱 海 棠：善感 松虫草：追念" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "蝴蝶花：反抗 荷 花：君子 黑百合：诅咒" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "扶 桑：热情 牵牛花：稍纵即逝 石 蒜：冷清、孤独" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "木 莲: 高尚 毛地黄: 晃言 加得利亚兰: 神秘?高贵" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "石 榴：风饶 亚 麻：优美朴实 野蔷薇：自由" + _
"旋 花：恩赐 忍 冬：背弃 茴 香：思念" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "熏衣草：清雅、女人味 柳穿鱼：纤细 卷 耳：快乐" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "橙 花：爱慕 海 芋：纯洁 莲 翘：别碰我" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "梨 花：纯情 罂 粟：华丽、高贵 桃 花：爱慕" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "凤尾眷：思念 杏 花：拜访我 铁线莲：雅致" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "秋水仙: 遗忘 酢酱草: 我不会放弃您?欢悦 燕子花: 幸运到来" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "紫 藤：热恋、欢迎 社鹃花：爱的快乐