📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 5220
ClientLeft = 45
ClientTop = 330
ClientWidth = 8685
Icon = "Form1.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5220
ScaleWidth = 8685
StartUpPosition = 2 '屏幕中心
Begin VB.CheckBox Check1
Caption = "修改生效"
ForeColor = &H00C00000&
Height = 255
Left = 4200
TabIndex = 21
Top = 4320
Width = 1095
End
Begin VB.CheckBox Check2
Caption = "手动修改"
ForeColor = &H00C00000&
Height = 255
Left = 4200
TabIndex = 20
Top = 4080
Width = 1215
End
Begin VB.TextBox Text2
Height = 330
Index = 3
Left = 5400
TabIndex = 19
Text = "Text2"
Top = 2640
Width = 3135
End
Begin VB.TextBox Text2
Height = 330
Index = 0
Left = 5400
TabIndex = 18
Text = "Text2"
Top = 915
Width = 3135
End
Begin VB.TextBox Text2
Height = 330
Index = 2
Left = 5400
TabIndex = 17
Text = "Text2"
Top = 2070
Width = 3135
End
Begin VB.TextBox Text2
Height = 330
Index = 1
Left = 5400
TabIndex = 16
Text = "Text2"
Top = 1485
Width = 3135
End
Begin VB.CommandButton Command5
Caption = "Command5"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5820
TabIndex = 11
Top = 4680
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "Command4"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4200
TabIndex = 10
Top = 4680
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "Command3"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7440
TabIndex = 9
Top = 4200
Width = 1095
End
Begin VB.ComboBox Cb1
Height = 300
Left = 240
TabIndex = 8
Text = "Combo1"
Top = 5040
Width = 2055
End
Begin MSComctlLib.ProgressBar ProBar
Height = 210
Left = 4200
TabIndex = 6
Top = 3765
Width = 4335
_ExtentX = 7646
_ExtentY = 370
_Version = 393216
Appearance = 1
End
Begin VB.ComboBox Cb
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "Form1.frx":08CA
Left = 5400
List = "Form1.frx":08CC
Style = 2 'Dropdown List
TabIndex = 4
Top = 360
Width = 3135
End
Begin VB.CommandButton Command2
Caption = "Command2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7440
TabIndex = 3
Top = 4680
Width = 1095
End
Begin RichTextLib.RichTextBox RTBox
Height = 4695
Left = 120
TabIndex = 2
Top = 360
Width = 3975
_ExtentX = 7011
_ExtentY = 8281
_Version = 393217
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
TextRTF = $"Form1.frx":08CE
End
Begin VB.TextBox Text1
BackColor = &H8000000F&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 1
Text = "Text1"
Top = 112
Width = 7455
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 720
Top = 3600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "Command1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5820
TabIndex = 0
Top = 4200
Width = 1095
End
Begin VB.Label Label2
Caption = " 绿色为可修改项目，其中 FamilyName 决定了最终中文字体名称的显示。你可以命名为自己喜欢的任意字符名称！"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 615
Left = 4320
TabIndex = 22
Top = 3120
Width = 4215
End
Begin VB.Label Label8
Caption = "FileLength："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 4200
TabIndex = 15
Top = 2700
Width = 1095
End
Begin VB.Label Label6
Caption = "FamilyName："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Left = 4200
TabIndex = 14
Top = 975
Width = 1095
End
Begin VB.Label Label5
Caption = "FontType："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 4200
TabIndex = 13
Top = 2130
Width = 1095
End
Begin VB.Label Label4
Caption = "FontName："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 210
Left = 4200
TabIndex = 12
Top = 1545
Width = 1095
End
Begin VB.Label Label3
Caption = "安装的字体："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 4200
TabIndex = 7
Top = 420
Width = 1335
End
Begin VB.Label Label1
Caption = "文件路径："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 5
Top = 120
Width = 1095
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'******************************************************************************
'联系：
'功能： 修改 Adobe Premiere 6.5 或者 Adobe Premiere Pro 1.5 中所带字体文件，
' （“C:\Program Files\Common Files\Adobe\TypeSpt\AdobeFnt07.lst”）
' 使之能正确显示中文。
'******************************************************************************
Dim X As String
Dim i As Long, j As Long, ii As Long, jj As Long, kk As Long, CurId As Long
Dim FileName As String
Dim OpenFileSuccess As Boolean
Dim xxx As String
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Type AdobeField ' 小节内字段结构类型。
FieldName As String ' 节点名
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -