📄 xxzb.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "排版信息准备"
ClientHeight = 7785
ClientLeft = 60
ClientTop = 345
ClientWidth = 11160
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7785
ScaleWidth = 11160
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdInFile
Caption = "载 入"
Height = 375
Left = 10080
TabIndex = 12
Top = 4620
Width = 975
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 10380
Top = 1080
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.CommandButton cmdSave
Caption = "保 存"
Height = 375
Left = 10080
TabIndex = 11
Top = 4044
Width = 975
End
Begin VB.CommandButton cmdDel
Caption = "删 除"
Height = 375
Left = 10080
TabIndex = 10
Top = 3468
Width = 975
End
Begin VB.CommandButton cmdEdit
Caption = "编 辑"
Height = 375
Left = 10080
TabIndex = 9
Top = 2892
Width = 975
End
Begin VB.CommandButton cmdUp
Caption = "上 移"
Height = 375
Left = 10080
TabIndex = 8
Top = 2316
Width = 975
End
Begin VB.CommandButton cmdDown
Caption = "下 移"
Height = 375
Left = 10080
TabIndex = 7
Top = 1740
Width = 975
End
Begin VB.ComboBox cboDay
Height = 300
ItemData = "xxzb.frx":0000
Left = 8820
List = "xxzb.frx":0061
Style = 2 'Dropdown List
TabIndex = 17
Top = 6360
Width = 675
End
Begin VB.ComboBox cboMonth
Height = 300
ItemData = "xxzb.frx":00D8
Left = 7755
List = "xxzb.frx":0100
Style = 2 'Dropdown List
TabIndex = 16
Top = 6360
Width = 675
End
Begin VB.ComboBox cboYear
Height = 300
ItemData = "xxzb.frx":012B
Left = 6462
List = "xxzb.frx":0141
TabIndex = 15
Top = 6360
Width = 915
End
Begin VB.TextBox txtNoSum
Appearance = 0 'Flat
Height = 210
Left = 7860
TabIndex = 14
Top = 5985
Width = 675
End
Begin VB.TextBox txtNoHZ
Appearance = 0 'Flat
Height = 210
Left = 5760
TabIndex = 13
Top = 5985
Width = 1035
End
Begin VB.TextBox rtxtWord
Appearance = 0 'Flat
Height = 4455
Left = 420
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 1380
Width = 4275
End
Begin VB.CommandButton cmdEXIT
Caption = "退 出"
Height = 435
Left = 9000
TabIndex = 19
Top = 7020
Width = 1275
End
Begin VB.CommandButton cmdOutWord
Caption = "输 出 到 WORD 中"
Height = 435
Left = 5700
TabIndex = 18
Top = 7020
Width = 2595
End
Begin VB.Frame famClass
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "类别："
ForeColor = &H80000008&
Height = 1275
Left = 420
TabIndex = 20
Top = 5940
Width = 4335
Begin VB.OptionButton optQYZH
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "企业纵横"
ForeColor = &H80000008&
Height = 180
Left = 240
TabIndex = 37
Top = 637
Width = 1095
End
Begin VB.OptionButton optZHBD
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "综合报道"
ForeColor = &H80000008&
Height = 195
Left = 2760
TabIndex = 36
Top = 630
Width = 1035
End
Begin VB.OptionButton optSCDT
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "市场动态"
ForeColor = &H80000008&
Height = 180
Left = 1500
TabIndex = 35
Top = 637
Width = 1095
End
Begin VB.OptionButton optZXCX
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "综信采撷"
ForeColor = &H80000008&
Height = 180
Left = 240
TabIndex = 33
Top = 960
Width = 1095
End
Begin VB.OptionButton optHGDX
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "宏观动向"
ForeColor = &H80000008&
Height = 195
Left = 240
TabIndex = 4
Top = 300
Width = 1095
End
End
Begin VB.CommandButton cmdTJ
Caption = "提 交"
Height = 375
Left = 720
TabIndex = 5
Top = 7320
Width = 1155
End
Begin VB.CommandButton cmdQC
Caption = "清 除"
Height = 375
Left = 2940
TabIndex = 6
Top = 7320
Width = 1155
End
Begin VB.ListBox lstTitles
Height = 4740
ItemData = "xxzb.frx":0169
Left = 5460
List = "xxzb.frx":016B
TabIndex = 22
Top = 420
Width = 4515
End
Begin VB.TextBox txtSource
Appearance = 0 'Flat
Height = 255
Left = 1140
TabIndex = 2
Top = 720
Width = 2475
End
Begin VB.TextBox txtTitle
Appearance = 0 'Flat
Height = 240
Left = 1140
TabIndex = 1
Top = 240
Width = 3495
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "预计输入WORD后共 页"
Height = 180
Left = 5460
TabIndex = 34
Top = 5220
Width = 2160
End
Begin VB.Label Label12
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "日"
ForeColor = &H80000008&
Height = 180
Left = 9600
TabIndex = 32
Top = 6420
Width = 180
End
Begin VB.Label Label11
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "月"
ForeColor = &H80000008&
Height = 180
Left = 8538
TabIndex = 31
Top = 6420
Width = 180
End
Begin VB.Label Label10
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "年"
ForeColor = &H80000008&
Height = 180
Left = 7479
TabIndex = 30
Top = 6420
Width = 180
End
Begin VB.Label Label9
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "出刊日期："
ForeColor = &H80000008&
Height = 180
Left = 5460
TabIndex = 29
Top = 6420
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "期"
Height = 180
Left = 8640
TabIndex = 28
Top = 6000
Width = 180
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总第"
Height = 180
Left = 7440
TabIndex = 27
Top = 6000
Width = 360
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "期"
Height = 180
Left = 6900
TabIndex = 26
Top = 6000
Width = 180
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第"
Height = 180
Left = 5460
TabIndex = 25
Top = 6000
Width = 180
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "标题列表："
Height = 180
Left = 5160
TabIndex = 24
Top = 180
Width = 900
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -