📄 fm2.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H8000000C&
BorderStyle = 4 'Fixed ToolWindow
ClientHeight = 3390
ClientLeft = 15
ClientTop = 15
ClientWidth = 5175
ControlBox = 0 'False
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3390
ScaleMode = 0 'User
ScaleWidth = 5175
ShowInTaskbar = 0 'False
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 2700
Left = 960
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 360
Width = 4115
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "http://caiez.yeah.net"
ForeColor = &H8000000E&
Height = 255
Index = 1
Left = 1570
TabIndex = 13
Top = 3120
Width = 1935
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "http://caiez.yeah.net"
Height = 255
Index = 0
Left = 1560
TabIndex = 12
Top = 3120
Width = 1935
End
Begin VB.Shape Shape2
Height = 2790
Left = 80
Top = 300
Width = 870
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用方法"
Height = 180
Index = 7
Left = 165
MousePointer = 99 'Custom
TabIndex = 11
Top = 2595
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "保存编辑"
Height = 180
Index = 8
Left = 170
MousePointer = 99 'Custom
TabIndex = 10
Top = 2880
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "乱七八糟"
Height = 180
Index = 6
Left = 165
MousePointer = 99 'Custom
TabIndex = 9
Top = 2295
Width = 735
End
Begin VB.Shape Shape3
Height = 2790
Left = 80
Top = 300
Width = 5030
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其它语句"
Height = 180
Index = 5
Left = 165
MousePointer = 99 'Custom
TabIndex = 8
Top = 1995
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "调侃语句"
Height = 180
Index = 4
Left = 170
MousePointer = 99 'Custom
TabIndex = 7
Top = 1680
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "回答语句"
Height = 180
Index = 3
Left = 170
MousePointer = 99 'Custom
TabIndex = 6
Top = 1365
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "赞美语句"
Height = 180
Index = 2
Left = 170
MousePointer = 99 'Custom
TabIndex = 5
Top = 1035
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "爱情语句"
Height = 180
Index = 1
Left = 165
MousePointer = 99 'Custom
TabIndex = 4
Top = 700
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "常用语句"
Height = 180
Index = 0
Left = 170
MousePointer = 99 'Custom
TabIndex = 3
Top = 360
Width = 720
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编 辑 框-常 用 语 句"
ForeColor = &H8000000E&
Height = 180
Index = 1
Left = 1710
TabIndex = 2
Top = 120
Width = 1800
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编 辑 框_常 用 语 句"
Height = 180
Index = 0
Left = 1620
TabIndex = 1
Top = 120
Width = 1800
End
Begin VB.Image Image2
Height = 135
Index = 3
Left = 5040
Picture = "FM2.frx":0000
Stretch = -1 'True
Top = 3240
Width = 135
End
Begin VB.Image Image2
Height = 135
Index = 2
Left = 5040
Picture = "FM2.frx":0442
Stretch = -1 'True
Top = 0
Width = 135
End
Begin VB.Image Image2
Height = 135
Index = 1
Left = 0
Picture = "FM2.frx":0884
Stretch = -1 'True
Top = 3240
Width = 135
End
Begin VB.Image Image2
Height = 135
Index = 0
Left = 0
Picture = "FM2.frx":0CC6
Stretch = -1 'True
Top = 0
Width = 135
End
Begin VB.Shape Shape1
BackColor = &H00C0C0C0&
BackStyle = 1 'Opaque
Height = 3375
Left = 0
Shape = 4 'Rounded Rectangle
Top = 0
Width = 5175
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Form2.Left = Form1.Left + Form1.Width
Form2.Top = Form1.Top
End Sub
Private Sub Label2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2(Index).BorderStyle = 1
End Sub
Private Sub Label2_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2(Index).BorderStyle = 0
Select Case Index
Case 0
awf "常用语句.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-常 用 语 句"
Label1(1).Caption = "编 辑 框-常 用 语 句"
Case 1
awf "爱情语句.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-爱 情 语 句"
Label1(1).Caption = "编 辑 框-爱 情 语 句"
Case 2
awf "赞美语句.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-赞 美 语 句"
Label1(1).Caption = "编 辑 框-赞 美 语 句"
Case 3
awf "回答语句.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-回 答 语 句"
Label1(1).Caption = "编 辑 框-回 答 语 句"
Case 4
awf "调侃语句.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-调 侃 语 句"
Label1(1).Caption = "编 辑 框-调 侃 语 句"
Case 5
awf "其它语句.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-其 它 语 句"
Label1(1).Caption = "编 辑 框-其 它 语 句"
Case 6
awf "乱七八糟.txt"
cai = Label2(Index).Caption & ".txt"
Label1(0).Caption = "编 辑 框-乱 七 八 糟"
Label1(1).Caption = "编 辑 框-乱 七 八 糟"
Case 7
Case 8
saveF cai
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -