情人节表白网页源码

篇一：2016年情人节经典表白台词

七夕情人节经典表白词

牛郎+织女+鹊桥=凄美爱情神话;情人节+爱妻日+老人节=白头偕老;昨天+今天+明天=海枯石栏;我+你+真爱=完美爱情寓言。七夕情人节快乐!

七夕节快到了，是没有情人的情人节吧?心里不是滋味吧?不过没关系，我已经帮你在月老那走了后门，他说等他下岗，你的姻缘就到了，呵，预祝七夕快乐!

七夕表白策略：拿根喜鹊毛，把它摇一摇，对天为爱来祷告，爱她痴心永不倒;树枝找一根，银河划一道，请她一起跳一跳，相依相伴直到老。祝表白成功!

七夕鹊桥架银河，牛郎织女来相会。短信频发只为你，爱你之心愿会意。两情知在久长时，也要相守朝朝暮。今夜窗外月甚明，表白爱你到长久。

我一男性朋友欲在扣扣向喜欢的女生表白。男：你喜欢什么样的男生阿?女：恩恩其实你照镜子吧!男听了激动万分刚要回过去：我就知道你也女生很快接着发来：反正不是你这样的…

看到了吧?倾心了吧?偷想了吧?跟踪了吧?为自己创造机会了吧?想表白了吧?别瞎想了!快趁着七夕这大吉的日子道出你的真情啊!月老一定会帮忙的!

幽怀情思送温馨，琴瑟箫笛绕梁音，情歌曲曲入画来，素心傲雪古传今，冬寒尚未随冰去，早有佳音入君心。想你，就在每一首乐曲里，吟唱着我今生的福分。

某男费了九牛二虎只力，给心仪的女生写好一封情书，他在最后添上：我答好这份考卷，静候你的录取通知!!!没过多久，回信来了，信上只有四个字：名额已满。某男不死心，又发了一封信：那我报名下一期怎么样?这次的回信是：等下期开学再说!

夜色柔丽，月照七夕。我紧握手机，编辑字字珠玑，穿越记忆中的往昔，传去我久违的友意，捎来你依然的气息。

男人如器，铜浇铁铸，心性难移;女人如水，无论方圆，都会与器贴在一起。所以，恋爱前的女人，请慎选你的容器。恋爱中的男人更要善待伴侣。七夕快乐!

柔情恰似常流水，爱意情浓生无悔，佳人有约似春梦，真心实意乐相逢，七夕今夕是何夕，鹊桥诠释真情意，爱情不是仅相思，明月照亮连理枝，祝快乐七夕。

七夕有情人的继续甜蜜，没情人的不要泄气，有目标的加倍努力，没目标的继续寻觅，想浪漫的烛光晚餐，想实在的月下相聚。月老低调地给你发信息，保密!

欢迎您订阅爱情充值卡，本卡有效期为一生，卡号为：5201314，充值卡密码为： 女：我和你前女友有什么区别?男：她是一盘没下完的棋;你是一盘下不完的棋。女;假如你失去了我，你会怎样?男：茶不思饭不想，我只想去喝酒!

七夕将至，愿你在七夕收获七份大礼，一份祝福，一份微笑，一份收获，一份喜悦，一份健康，一份平安，一份真情。最后祝你幸福一生，爱情甜蜜。

品一壶好茶，让人回味许久;忆一段往事，让人感触许久。写一段日记，让人沉浸许久;发一条短信，送上我祝福，你开心我开心，将会持续许久。七夕快乐!

七夕伴七喜：一喜痴情男女喜相逢，二喜鲜花美酒伴歌唱，三喜鹊桥来相会，四喜月老来帮忙，五喜今宵共团圆，六喜你我牵手来相伴，七喜天长地久爱意浓!篇二：七夕情人节表白的话

七夕情人节表白的话

你是我最思念的人，朵朵玫瑰似我的热情;你是我最爱的人，片片巧克力就是我的心。亲爱的，七夕赏月，行不!

你有一千个一万个让我讨厌的理由，但是只有唯一一个例外，我还是爱你的!亲爱的，情人节快乐!

天上人间，岁岁年年，今宵团圆，唯愿永远。对你的那种特别的感情，只想告诉你，今生不变!七夕到了，祝有情人终成眷属!

今夜我们相处两地，玉簪银河隔不断卿卿之情，两地之遥阻不了郎情妾意，我俩亦有心灵相约的鹊桥!亲爱的，七夕之日，你知道我在想你么?

没房没车没地位，没有勇气把你追;想你想得难入睡，念你念到心憔悴;发条短信问问你，能否给我个机会?

上不了青天，可以乘飞机;观不了大海，可以观小溪;爬不了长城，可以怕楼梯。说这么多，只为引出一句话：娶不了公主，我就娶你!你准备准备吧!嘿嘿…

如果说牛郎和织女的相会需要鹊桥相助，那我们的相会只需电话联系，亲爱的，今晚见个面吧!

你我好比两个半圆球，拼到一起就是一个整体，感情就是粘合剂，感情越深粘的越牢 这一生遇上你是我最大的幸福，我的宝贝，你好吗?我想，我除了很想你，还是想你，我很爱很爱你!!! 这特别的日子，愿你特别的快乐!!特别的爱给特别的你!!

你是一朵百合，散发出沁人心脾的芳香，我只想伫立在你的身旁，看着你、呵护着你，用爱滋润着你，让你开得更娇艳，因为我只愿作你一生的园丁!

你是春天里的风，吹绿了我枯竭的心;你是夏日里的水，滋润了我干涸的心;你是秋季里谷，成熟了我希望的心;你是冬天里的火，照亮了我冰冷的心!

如果有一天，不再喜欢你了，我的生活会不会又像从前那样堕落，颓废…我不想再要那样的生活，所以，在我还没有放弃你之前，请你，至少要喜欢上我……

人生不止，寂寞不已。寂寞人生爱无休，寂寞是爱永远的主题。我和我的影子独处。它说它有悄悄话想跟我说，它说它很想念你，原来我和我的影子都在想你。

或许你已忘记了我，但我会等你的，直到感动上天，感动你为止!

不高也不帅，老大没人爱，房子还没盖，车子也想买，对你只有爱，外加空钱袋，如果七夕答应嫁给我，唯有爱似海!

我一直喜欢睡觉，可是现在我失眠了，上天告诉我，只有你能治好我!

据说是上帝用亚当的肋骨造了一个夏娃，于是才有男孩从千万人之中寻找那个自己身上肋骨变的女孩，好好爱她。亲爱的，我确信你就是那个我要用一生寻找、认真疼爱的、自己身上肋骨变的女孩。你知道吗?当你心情不好的时候，我的胸口会很疼，真的。我爱你! 独的夜要你陪我才不寂寞;伤心的时刻要你在身边我才能入睡;快乐的一切要你分享才值得;繁华的街要你陪我才不疲惫;独自的我要与你依偎才算完美。篇三：表白的话_情人节表白的话六则

表白的话:情人节表白的话六则

1、在这个与众不同的情人节里，我把誓言一生一世戴在你的手指上，纵然一生平平淡淡，同尝甘苦，我愿永远为你挡风遮雨共度朝朝暮暮。

2、有情才有爱，有爱才有情，明日二月十四日，古今情人佳节日，送上祝福加问候，幸福开心愿你有，情人陪伴享时光，朋友相伴一起玩，情人节快乐!

3、生活中有你，即使是再苦的生活也不觉累;因为有你，即使再大的艰难险阻我也无所畏;因为有你，再大的波折我也不会丝毫担忧;有你，我就拥有了全世界。愿你知晓，我对你的爱，一生不变!

4、因为爱你才亲吻了你，我亲吻你只是因为爱你;为了表示我心中那份真诚的爱、火热的爱，我希望从今以后天天可以亲吻到你。呵呵，今天就是亲吻情人的节日，我想要子啊你的脸颊上留下亲吻你的印记，让时间见证我疼爱你一辈子的誓言!

5、白云亲吻了蓝天，所以会晴空万里;鱼儿亲吻了河流，所以河流会清澈明朗;雨水亲吻了大地，所以打地一片生机;我决定在这充满爱的日子里吻你一下，让你幸福无限，亲爱的，情人节到了，愿你永远快乐你的最爱。

6、明天就是情人节，小的特意提前送来祝福约时间。明晚八点零八分，情人酒吧来约会。

短信发出邀请至，真心等你来赴约。幸福时刻来相伴，愿你陪我过节日不见不散。

篇二：表白程序 VB源码

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'mcisendstring播放音乐的API函数

Private Declare Function timeGetTime Lib "winmm.dll" () As Long '用于制作延时函数 Dim WithEvents imgMG As Image '申明控件数组

Dim i As Integer '全局变量

Dim imgBox(999) As Image '记录控件数组的数组

Dim ratio As Double

Private Sub Form_Load()

Me.Show

Me.BorderStyle = 0

Me.WindowState = 2

Picture1.Top = 0

Picture1.Left = 0

Picture1.Width = 20480 '图片框宽度等于屏幕宽度

Picture1.Height = 11510 '

ratio = Picture1.Width / Picture1.Height

Picture1.Scale (-ratio / 2, 1)-(ratio / 2, -1)

Picture1.BackColor = vbWhite

DrawLines 0, 0

Image1(0).Picture = LoadPicture(App.Path & "\红玫瑰.gif")

Label1.Top = 0

Label1.Left = 0

Label1.FontBold = True

Label1.ForeColor = vbRed

Label1.Caption = ""

Label2.Visible = False

'Call BB

End Sub

Private Sub Label2_Click()

mciSendString "close movie", 0&, 0, 0

Unload Me '退出程序

End Sub

Private Sub BB() '本程序主要的函数，功能都在里实现

Call MusicPlay '播放音乐

For j = 1 To 99

X = Rnd * 20480

Y = Rnd * 11510

i = i + 1

Load Image1(i)

Image1(i).Picture = Image1(0).Picture

Image1(i).Width = Image1(0).Width

Image1(i).Height = Image1(0).Height

Image1(i).Top = Y

Image1(i).Left = X

Image1(i).Visible = True

Sleep2 200

Label1.Caption = i & "送上99朵玫瑰，代表我的心！"

Next j

Label1.Caption = "我们一起长长久久" '随机“画”出99朵玫瑰

nullMeiGui i '“察”去玫瑰清屏，下同

Label1.Caption = ""

MeiGui "TX.tat"

Label1.Caption = "你和你的名字在我心中"

Sleep2 3000

nullMeiGui i '画出桃心

Label1.Caption = ""

MeiGui "ILU.tat"

Label1.Caption = "I LOVE U"

Sleep2 3000

nullMeiGui i '画出i love u

Label1.Caption = ""

MeiGui "XHM.tat"

Label1.Caption = "喜欢吗？"

Y = MsgBox("告诉我你喜欢吗？", vbYesNo, "我想知道")

If Y = vbYes Then

nullMeiGui i

MeiGui "XL.tat"

Label1.Caption = "你喜欢，我很开心"

Open App.Path & "\DA.tat" For Append As #1

Print #1, "我喜欢"

Close #1

Else

nullMeiGui i

MeiGui "KL.tat"

Label1.Caption = "你不喜欢，我很难过"

Open App.Path & "\DA.tat" For Append As #1

Print #1, "我不喜欢"

Close #1

End If

Label2.Visible = True

Label2.ForeColor = vbRed

Label2.Caption = "点这里退出"

Label2.Top = Picture1.Height - Label2.Height

Label2.Left = Picture1.Width / 2 - Label2.Width / 2

End Sub

Private Sub MusicPlay() '音乐播放函数

mName = App.Path & "\DDN.mp3" '获取音乐文件地址及文件名，音乐文件放在当前文件夹下，App.Path即为我去程序所在当前文件夹路径

mciSendString "close movie", 0&, 0, 0

mciSendString "open " & mName & " TYPE MPEGVideo Alias movie", 0&, 0, 0 '注意open后有个空格，TYPE前有个空格，否则播放不成功

mciSendString "play movie repeat", 0&, 0, 0

mciSendString "play movie", 0&, 0, 0

End Sub

Private Sub MeiGui(ByVal strFile As String) '用玫瑰绘制想要写的字或图片，文件是事先做好的,可以通过代码下面的代码完成

Open App.Path & "\" & strFile For Input As #1

While Not EOF(1)

Sleep2 (200)

Input #1, X, Y

i = i + 1

Load Image1(i)

Image1(i).Picture = Image1(0).Picture

Image1(i).Width = Image1(0).Width

Image1(i).Height = Image1(0).Height

Image1(i).Top = Y - Image1(0).Height / 2

Image1(i).Left = X - Image1(0).Width / 2

Image1(i).Visible = True

Wend

Close #1

End Sub

Private Sub nullMeiGui(ByVal N As Integer) '通过释放控件数组清屏

For j = N To 1 Step -1

Sleep2 (200)

Unload Image1(j)

Next j

i = 0

End Sub

Private Function Sleep2(T As Long) '延时函数

Dim Savetime As Long

Savetime = timeGetTime '记下开始时的时间，以毫秒为单位

While timeGetTime < Savetime + T '循环等待

DoEvents '转让控制权

Wend

End Function

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '用点描记出要绘制的图画或文字，记录的数据保存在c_drawable.tat，复制出去可用

Picture1.FillStyle = 0

Picture1.FillColor = vbRed

Picture1.Circle (X, Y), 0.01, vbRed

Open App.Path & "\c_drawable.tat" For Append As #1

Print #1, X & "f,", "0.0f,", Y & "f,"; 记录点击的位置

Close #1

End Sub

Private Sub DrawLines(ByVal X As Long, ByVal Y As Long) '画网格，描记图形时用

Picture1.FillStyle = 0

Picture1.FillColor = vbRed

Picture1.Line (0, 1)-(0, -1)

Picture1.Line (-ratio / 2, 0)-(ratio / 2, 0)

End Sub

程序中用到的图片资源：红玫瑰.gif ILU.tat文件记录的数据

1575 2295

1530 3450

1575 4590

1515 5775

1485 6885

1470 8025

3885 2310

3855 3465

3900 4590

3840 5760

3840 6900

3765 7995

4560 8040

5610 7995

7065 3045

6015 4065

5865 5340

6015 6420

6675 7320

7140 7590

7755 7080

8160 6165

8160 4995

7665 3840

8535 2850

8805 3765

9090 4980

9315 5985

9555 6870

100507485

107556660

112205595

114304515

篇三：夫妻情人节表白短信大全 情侣篇

情人节，这是一个向情人表白的好机会。如果你想用礼物来打动喜欢的人，那就不能少了一张祝福卡片。下面的情人节祝福语可能会给你许多灵感。

夫妻篇：

1、我无法保证、无法向你承诺什么，但我会做到：如果有一天你有饥饿的感觉，那时你定会看到，我已含笑饿死在你的怀抱中。

2、看到你，我怕触电；看不到你，我需要充电；如果没有你，我想我会断电。爱你是我的职业，想你是我的事业，抱你是我的特长，吻你是我的专业！

3、情人节，我愿做一条鱼，任你红烧、白煮、清蒸，然后躺在你温柔的胃里。

4、对你的思念太重，压断了电话线，烧坏了手机卡，掏尽了钱包袋，吃光了安眠药，哎！可是我还是思念你。

5、我爱的人名花有主，爱我的人惨不忍睹，不是在放荡中变坏，就是在沉默中变态。——献给情人节！

6、如果你流泪，我愿是你手里的手纸；如果你醒来，我愿是你眼中的眼屎；如果你热死了，我愿是你身上仅剩的布三尺。

7、你好像我身上的虱子，没了你 我就混身不自在。

8、知道情人节我想吃什么吗?煮你，炒你，清蒸你；烤你，焖你，红烧你；炸你，煎你，凉拌你！

9、爱你一万年

夸张

爱你五千年 无望 爱你一千年 荒唐 爱你一百年 太长 接连爱你70年 只要我身体健康 这是我的强项

10、你的照片放在我的办公桌上，清晨看着你，上午看着你，中午看着你，下午看着你，傍晚看着你，晚上看着你。“咕噜咕噜，老婆，什么时候开饭呀?”

11、亲爱的老公记住了：如果结婚后老公在情人节不送花给老婆，老婆就在家里的花瓶里插上一把青菜。

12、闪过拉登的盯梢，避过美国大选的人潮，躲过矿难的剧烈爆炸，绕过东南亚的海啸袭击。经历这种种危险，只为和你说一句：朋友，情人节快乐！

13、今天好像是老婆大人的第二生日吧?鲜花摆在客厅里，巧克力搁在抽屉里，新衣服挂在衣柜里，薪水放在钱包里，而我……躺在床上^_^

14、我想每天送你一束玫瑰，但我没有钱；我也想每天都送你巧克力，又怕你长多了肉来打我，所以我只能从今天开始每天都给你发短信来表达我对你的爱。

15、自从有了你，我就成了“没心没肝”的人，因为我的心、我的肝都被你“偷走”了……这个情人节，能让我和我的心、肝团员一下吗?

16、心情预报：今夜到明早想你，预计下午转为很想你，受此情绪影响，傍晚将转为暴想，此类天气将持续到见你为止。

17、甜蜜蜜，你笑得甜蜜蜜，好象花儿开在春风里，开在春风里。为什么我笑的这么甜?因为你给我发了短信息。

《情人节表白网页源码》由：免费论文网互联网用户整理提供；
链接地址：http://www.csmayi.cn/show/165481.html
转载请保留,谢谢!

• 上一篇：情人节小礼物
• 下一篇：情人节祝福语诗句