📄 nihongdeng2.frm
字号:
Width = 1575
Begin VB.CheckBox Check1
Alignment = 1 'Right Justify
Caption = "下划线"
Height = 255
Index = 2
Left = 120
TabIndex = 12
Top = 960
Width = 975
End
Begin VB.CheckBox Check1
Alignment = 1 'Right Justify
Caption = "粗 体"
Height = 255
Index = 0
Left = 120
TabIndex = 10
Top = 240
Width = 975
End
Begin VB.CheckBox Check1
Alignment = 1 'Right Justify
Caption = "斜 体"
Height = 255
Index = 1
Left = 120
TabIndex = 9
Top = 600
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Left = 720
TabIndex = 7
Text = "36"
Top = 1320
Width = 360
End
Begin ComCtl2.UpDown UpDown1
Height = 270
Left = 1080
TabIndex = 8
Top = 1320
Width = 270
_ExtentX = 476
_ExtentY = 476
_Version = 327681
Value = 90
BuddyControl = "Text1"
BuddyDispid = 196629
OrigLeft = 2895
OrigTop = 1080
OrigRight = 3165
OrigBottom = 1455
Max = 90
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "字 号"
Height = 180
Left = 165
TabIndex = 11
Top = 1365
Width = 540
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click(Index As Integer)
Dim ZtStyle(0 To 2) As Boolean
If ChangeMe = True Then
If Check1(0).Value = 1 Then
ZtStyle(0) = True
Else
ZtStyle(0) = False
End If
If Check1(1).Value = 1 Then
ZtStyle(1) = True
Else
ZtStyle(1) = False
End If
If Check1(2).Value = 1 Then
ZtStyle(2) = True
Else
ZtStyle(2) = False
End If
Form2.Text4.FontBold = ZtStyle(0)
Form2.Text4.FontItalic = ZtStyle(1)
Form2.Text4.FontUnderline = ZtStyle(2)
If EditHzFlag = True Then
Form1.Label3(SelectMe).FontBold = ZtStyle(0)
Form1.Label3(SelectMe).FontItalic = ZtStyle(1)
Form1.Label3(SelectMe).FontUnderline = ZtStyle(2)
Form1.Label1(SelectMe).FontBold = Form1.Label3(SelectMe).FontBold
Form1.Label1(SelectMe).FontItalic = Form1.Label3(SelectMe).FontItalic
Form1.Label1(SelectMe).FontUnderline = Form1.Label3(SelectMe).FontUnderline
End If
End If
End Sub
Private Sub Command1_Click()
If EditHzFlag = True Then
If Form2.Text4.Text = Empty Then
MsgBox "文字不能为空", 48, "错误"
Exit Sub
End If
If Form2.Combo1.Text <> Empty Then
If Form2.Combo1.Text = "无" Then
If Form2.Label3.Caption <> "无" Then
HzXuHao(Val(Form2.Label3.Caption)) = TotalHz
End If
Else
For i = 0 To TotalHz - 1
If HzXuHao(i) = SelectMe Then
HzXuHao(i) = TotalHz
End If
Next i
HzXuHao(Val(Form2.Combo1.Text)) = SelectMe
End If
End If
End If
Unload Form2
Form1.Enabled = True
Form1.SetFocus
Form1.Refresh
End Sub
Private Sub Command2_Click()
m = NowHz
m = m + Len(Text4.Text)
If m > TotalHz Then
MsgBox "文字不能超过" & TotalHz, 48, "错误"
Exit Sub
End If
j = 0
For i = 0 To m - 1
If Form1.Label1(i).Visible = False Then
Form1.Label3(i).Visible = False
Form1.Label3(i).Caption = Mid(Text4.Text, j + 1, 1)
Form1.Label3(i).FontBold = Text4.FontBold
Form1.Label3(i).FontItalic = Text4.FontItalic
Form1.Label3(i).FontUnderline = Text4.FontUnderline
Form1.Label3(i).Font = Text4.Font
Form1.Label3(i).FontSize = Text4.FontSize
Form1.Label3(i).ForeColor = HzColor
Form1.Label1(i).Visible = True
Form1.Label1(i).Caption = Form1.Label3(i).Caption
Form1.Label1(i).FontBold = Form1.Label3(i).FontBold
Form1.Label1(i).FontItalic = Form1.Label3(i).FontItalic
Form1.Label1(i).FontUnderline = Form1.Label3(i).FontUnderline
Form1.Label1(i).Font = Form1.Label3(i).Font
Form1.Label1(i).FontSize = Form1.Label3(i).FontSize
Form1.Label1(i).ForeColor = Form1.Label3(i).ForeColor
Form1.Label1(i).Left = Form1.Label3(i).Left
Form1.Label1(i).Top = Form1.Label3(i).Top
Form1.Label1(i).Height = Form1.Label3(i).Height
Form1.Label1(i).Width = Form1.Label3(i).Width + HzWidthDefault
j = j + 1
End If
Next i
NowHz = m
Text4.Text = Empty
End Sub
Private Sub Command3_Click()
Form1.Label3(SelectMe).Visible = False
Form1.Label3(SelectMe).FontBold = False
Form1.Label3(SelectMe).FontItalic = False
Form1.Label3(SelectMe).FontUnderline = False
Form1.Label3(SelectMe).Font = HzFontDefault
Form1.Label3(SelectMe).FontSize = HzSizeDefault
Form1.Label3(SelectMe).ForeColor = HzColorDefault
Form1.Label1(SelectMe).Visible = False
Form1.Label1(SelectMe).FontBold = Form1.Label3(SelectMe).FontBold
Form1.Label1(SelectMe).FontItalic = Form1.Label3(SelectMe).FontItalic
Form1.Label1(SelectMe).FontUnderline = Form1.Label3(SelectMe).FontUnderline
Form1.Label1(SelectMe).Font = Form1.Label3(SelectMe).Font
Form1.Label1(SelectMe).FontSize = Form1.Label3(SelectMe).FontSize
Form1.Label1(SelectMe).ForeColor = Form1.Label3(SelectMe).ForeColor
Form1.Label1(SelectMe).Left = Form1.Label3(SelectMe).Left
Form1.Label1(SelectMe).Top = Form1.Label3(SelectMe).Top
Form1.Label1(SelectMe).Height = Form1.Label3(SelectMe).Height
Form1.Label1(SelectMe).Width = Form1.Label3(SelectMe).Width + HzWidthDefault
Form2.Text4.Text = Empty
For i = 0 To TotalHz - 1
If HzXuHao(i) = SelectMe Then
HzXuHao(i) = TotalHz
End If
Next i
If NowHz > 0 Then
NowHz = NowHz - 1
End If
Unload Form2
Form1.Enabled = True
Form1.SetFocus
End Sub
Private Sub Command4_Click()
' 设置“取消”为True
Form1.CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置 Flags 属性
Form1.CommonDialog1.Flags = cdlCCRGBInit
' 显示“颜色”对话框
Form1.CommonDialog1.ShowColor
' 设置窗体的背景颜色为选定的颜色
HzColor = Form1.CommonDialog1.Color
Form2.Text4.ForeColor = HzColor
If EditHzFlag = True Then
Form1.Label3(SelectMe).ForeColor = HzColor
Form1.Label1(SelectMe).ForeColor = Form1.Label3(SelectMe).ForeColor
End If
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub Option1_Click(Index As Integer)
Dim ZT As String
If ChangeMe = True Then
Select Case Index
Case 0
ZT = "宋体"
Case 1
ZT = "黑体"
Case 2
ZT = "仿宋_GB2312"
Case 3
ZT = "楷体_GB2312"
End Select
Form2.Text4.Font = ZT
If EditHzFlag = True Then
Form1.Label3(SelectMe).Font = ZT
Form1.Label1(SelectMe).Font = Form1.Label3(SelectMe).Font
End If
End If
End Sub
Private Sub Text1_Change()
On Error Resume Next
If ChangeMe = True Then
Form2.Text4.FontSize = Val(Text1.Text)
If EditHzFlag = True Then
Form1.Label3(SelectMe).FontSize = Val(Text1.Text)
Form1.Label1(SelectMe).FontSize = Form1.Label3(SelectMe).FontSize
Form1.Label1(SelectMe).Height = Form1.Label3(SelectMe).Height
Form1.Label1(SelectMe).Width = Form1.Label3(SelectMe).Width + HzWidthDefault
End If
End If
End Sub
Private Sub Text2_Change()
On Error Resume Next
If ChangeMe = True And EditHzFlag = True Then
Form1.Label3(SelectMe).Left = Val(Text2.Text)
Form1.Label1(SelectMe).Left = Form1.Label3(SelectMe).Left
HzLeft(SelectMe) = Form1.Label1(SelectMe).Left
End If
End Sub
Private Sub Text3_Change()
On Error Resume Next
If ChangeMe = True And EditHzFlag = True Then
Form1.Label3(SelectMe).Top = Val(Text3.Text)
Form1.Label1(SelectMe).Top = Form1.Label3(SelectMe).Top
HzTop(SelectMe) = Form1.Label1(SelectMe).Top
End If
End Sub
Private Sub Text4_Change()
On Error Resume Next
If ChangeMe = True Then
If EditHzFlag = True Then
If Len(Text4.Text) > 1 Then
MsgBox "文字不能超过1", 48, "错误"
Exit Sub
End If
Form1.Label3(SelectMe).Caption = Text4.Text
Form1.Label1(SelectMe).Caption = Form1.Label3(SelectMe).Caption
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -