📄 情书生成器.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form Form9
BorderStyle = 1 'Fixed Single
Caption = "情书生成器"
ClientHeight = 5910
ClientLeft = 3075
ClientTop = 3195
ClientWidth = 8070
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "情书生成器.frx":0000
LinkTopic = "Form9"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "情书生成器.frx":030A
ScaleHeight = 5910
ScaleWidth = 8070
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Interval = 205
Left = 4230
Top = 495
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4905
Top = 495
_ExtentX = 847
_ExtentY = 847
_Version = 327680
CancelError = -1 'True
DefaultExt = ".txt"
FileName = "love.txt"
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "楷体_GB2312"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1905
Left = 0
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 3615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 0
TabIndex = 1
Top = 0
Width = 4065
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuOpen
Caption = "打开(&O)"
End
Begin VB.Menu mnuSave
Caption = "保存(&S)"
End
Begin VB.Menu mnuSaveAs
Caption = "另存为(A)"
End
Begin VB.Menu a1
Caption = "-"
End
Begin VB.Menu mnuFrint
Caption = "打印(&P)"
End
Begin VB.Menu mnuPageset
Caption = "页面设置(&I)"
End
Begin VB.Menu a3
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuNew
Caption = "新建(&N)"
Begin VB.Menu mnuNewLove
Caption = "情书(&N)"
End
Begin VB.Menu mnuNewText
Caption = "文本(B)"
End
End
Begin VB.Menu mnuPart
Caption = "局部(&R)"
Begin VB.Menu mnuCut
Caption = "剪切(&T)"
End
Begin VB.Menu mnuCopy
Caption = "复制(&C)"
End
Begin VB.Menu mmnupaste
Caption = "粘贴(&P)"
End
Begin VB.Menu mnuDelete
Caption = "删除(&D)"
End
End
Begin VB.Menu mnuInterger
Caption = "整体(I)"
Begin VB.Menu mnuCutAll
Caption = "剪切(&T)"
End
Begin VB.Menu mnuCopyAll
Caption = "复制(&C)"
End
Begin VB.Menu mnuDeleteAll
Caption = "删除(&D)"
End
Begin VB.Menu a7
Caption = "-"
End
Begin VB.Menu mnuFont1
Caption = "字体(&F)"
Begin VB.Menu mnuFont
Caption = "设定(&I)"
End
Begin VB.Menu mnuMoReng
Caption = "默认(&D)"
End
End
Begin VB.Menu mnuColor1
Caption = "颜色(&C)"
Begin VB.Menu mnuColorBeiJing
Caption = "背景(&B)"
End
Begin VB.Menu mnuColorFont
Caption = "文字(S)"
End
End
Begin VB.Menu a9
Caption = "-"
End
Begin VB.Menu mnuCheckAll
Caption = "全选(&A)"
End
End
Begin VB.Menu mnuEdit
Caption = "修改(&E)"
Begin VB.Menu mnuShe
Caption = "她的资料(&E)"
Begin VB.Menu mnuFanMing
Caption = "芳名(&F)"
End
Begin VB.Menu mnuTuofu
Caption = "头发(&O)"
End
Begin VB.Menu mnuYingJing
Caption = "眼睛(&Y)"
End
Begin VB.Menu mnuXingGang
Caption = "性感(&G)"
End
Begin VB.Menu mnuXingGe
Caption = "性格(&X)"
End
End
Begin VB.Menu mnuI
Caption = "我的资料(&W)"
Begin VB.Menu mnuDaMian
Caption = "大名(&N)"
End
End
Begin VB.Menu mnuIt
Caption = "它的资料(&I)"
Begin VB.Menu mnuDay
Caption = "修改日期(&Y)"
End
End
Begin VB.Menu a11
Caption = "-"
End
Begin VB.Menu mnuStart
Caption = "开始修改(&S)"
End
Begin VB.Menu mnuStop
Caption = "停止修改(&T)"
End
Begin VB.Menu a13
Caption = "-"
End
Begin VB.Menu mnuTime
Caption = "插入日期(&D)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuAbout
Caption = "关于(&A)..."
End
End
Begin VB.Menu mnuAbc
Caption = "开始编辑"
Visible = 0 'False
Begin VB.Menu mnuAbc1
Caption = "开始编辑(&S)"
End
End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim exitnext As Boolean
Dim open1 As Boolean
Option Explicit
Private Sub Form_Load()
If LoadStop1 = True Then
mnuStop_Click
LoadStop1 = False
End If
exitnext = True
open1 = False
加载内容
Label1.Caption = 内容
Text1.Text = 内容
If LoadFrom9 = True Then
mnuStop_Click
LoadFrom9 = False
mnuStop.Enabled = False
End If
If loadDayture = True Then
Label1.Visible = False
Text1.Visible = True
loadDayture = False
End If
End Sub
Private Sub Form_Resize()
Form9.Show
Text1.Width = Form9.ScaleWidth
Text1.Height = Form9.ScaleHeight
Label1.Width = Form9.ScaleWidth
Label1.Height = Form9.ScaleHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
If exitnext = True Then
Dim msg As Byte
If 内容 = Text1.Text Then
msg = MsgBox("您确定要退出本程序吗？", 1 + 32, "确认")
If msg = 1 Then
Cancel = 0
Else
Cancel = 1
End If
Else
msg = MsgBox("内容已修改，是否保存？", 3 + 32, "确认")
If msg = 2 Then
Cancel = 1
ElseIf msg = 6 Then
mnuSave_Click
Cancel = 0
Unload Me
Else
Cancel = 0
End If
End If
Else
End If
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuAbc, vbPopupMenuRightButton
End If
End Sub
Private Sub mmnupaste_Click()
Text1.SelText = Clipboard.GetText
End Sub
Private Sub mnuAbc1_Click()
mnuStart_Click
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show
End Sub
Private Sub mnuCheckAll_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub mnuColorBeiJing_Click()
On Error GoTo err
CommonDialog1.Color = Text1.BackColor
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
err:
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -