📄 form1.frm
字号:
Width = 1095
End
Begin VB.TextBox Text5
Height = 270
Index = 1
Left = 2520
TabIndex = 20
Top = 840
Width = 2415
End
Begin VB.TextBox Text5
Height = 270
Index = 2
Left = 2880
TabIndex = 21
Top = 1440
Width = 2055
End
Begin VB.Label Label35
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "您认为它有一双"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 240
TabIndex = 46
Top = 360
Width = 1365
End
Begin VB.Label Label36
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "眼睛"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 3480
TabIndex = 45
Top = 360
Width = 390
End
Begin VB.Label Label37
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "您认为美丽的东西都应该"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 240
TabIndex = 44
Top = 885
Width = 2145
End
Begin VB.Label Label38
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "若她是一朵美丽的花，你愿她"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 240
TabIndex = 43
Top = 1485
Width = 2535
End
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "您的大名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 360
TabIndex = 41
Top = 285
Width = 975
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "你爱人的芳名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 2640
TabIndex = 40
Top = 285
Width = 1365
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "这个月是："
Height = 180
Left = 600
TabIndex = 39
Top = 5280
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFC0FF&
ForeColor = &H00FF0000&
Height = 180
Left = 1560
TabIndex = 38
Top = 5280
Width = 90
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "应该送别人："
Height = 180
Left = 2520
TabIndex = 37
Top = 5280
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFC0FF&
ForeColor = &H000000FF&
Height = 180
Left = 3720
TabIndex = 36
Top = 5280
Width = 90
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FFC0FF&
Caption = "含义："
Height = 180
Left = 4800
TabIndex = 35
Top = 5280
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00FFC0FF&
ForeColor = &H00C243C2&
Height = 180
Left = 5640
TabIndex = 34
Top = 5280
Width = 90
End
Begin VB.Line Line1
BorderColor = &H00C000C0&
X1 = 5640
X2 = 5640
Y1 = 0
Y2 = 5160
End
Begin VB.Line Line2
BorderColor = &H00C000C0&
X1 = 0
X2 = 7320
Y1 = 5160
Y2 = 5160
End
Begin VB.Menu File
Caption = "文件"
Begin VB.Menu NewFile
Caption = "全部清除"
Shortcut = ^N
End
Begin VB.Menu Save
Caption = "保存情书"
Enabled = 0 'False
Shortcut = ^S
End
Begin VB.Menu n1
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出"
Shortcut = ^E
End
End
Begin VB.Menu Knoledge
Caption = "爱情知识"
Begin VB.Menu Knoledge1
Caption = "情人节的由来"
End
Begin VB.Menu Knoledge2
Caption = "巧克力爱情物语"
End
Begin VB.Menu Knoledge3
Caption = "送花的数目含义"
End
Begin VB.Menu Knoledge5
Caption = "花代表的心思"
End
End
Begin VB.Menu About
Caption = "关于"
Begin VB.Menu About1
Caption = "关于本软件"
Shortcut = ^H
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(lpszSoundName As Any, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
'Const SND_LOOP = &H8
Const SND_MEMORY = &H4
'Const SND_NOSTOP = &H10
Dim SoundBuffer() As Byte
'Dim BackSound() As Byte
Dim wFlags As Long
Dim Increase As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As Any, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub About1_Click()
Beep
frmAbout.Show 1
End Sub
Private Sub Command1_Click()
If List1.Selected(0) Then
If Text2.Text = "" Or Text3.Text = "" Or Text4(0).Text = "" Or Text4(1).Text = "" Or Text4(2).Text = "" Or Text4(3).Text = "" Then
MsgBox "不要这么心急！还没添完", vbOKOnly, "错误"
Exit Sub
End If
Text1.Locked = False
Text1.Text = "Dear " + Text3.Text + Chr(13) + Chr(10) + "我的宝贝，你可知道," + Chr(13) + Chr(10) + _
"我是多么的爱你?" + Chr(13) + Chr(10) + _
"你那" + Text4(0).Text + "的头发,它是那样的令人陶醉，" + Chr(13) + Chr(10) + _
"更不用说你那对" + Text4(1).Text + "的眼睛，" + Chr(13) + Chr(10) + _
"它让我如此的痴迷, _" + Chr(13) + Chr(10) + _
"就好象一汪秋水频频荡漾，又似夜晚的繁星点点闪亮。" + Chr(13) + Chr(10) + _
"但最令我疯狂的，还是你那" + Text4(2).Text + "，" + Chr(13) + Chr(10) + _
"它总是充满了诱惑，让我产生犯罪的念头，" + Chr(13) + Chr(10) + _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -