📄 ymsz_frm.frm
字号:
Left = -72900
TabIndex = 98
Top = 1470
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 8
BuddyControl = "Text1(1)"
BuddyDispid = 196613
BuddyIndex = 1
OrigLeft = 2244
OrigTop = 1536
OrigRight = 2484
OrigBottom = 1824
Max = 32
Min = 3
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown1
Height = 288
Index = 10
Left = -73104
TabIndex = 99
Top = 3000
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 5
BuddyControl = "Text2(0)"
BuddyDispid = 196647
BuddyIndex = 0
OrigLeft = 2244
OrigTop = 1908
OrigRight = 2484
OrigBottom = 2196
Increment = 5
Max = 200
Min = 5
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = 0 'False
End
Begin MSComCtl2.UpDown UpDown1
Height = 288
Index = 11
Left = -70572
TabIndex = 100
Top = 3012
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 5
BuddyControl = "Text2(1)"
BuddyDispid = 196647
BuddyIndex = 1
OrigLeft = 2244
OrigTop = 2280
OrigRight = 2484
OrigBottom = 2568
Increment = 5
Max = 200
Min = 5
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = 0 'False
End
Begin MSComCtl2.UpDown UpDown1
Height = 285
Index = 2
Left = -72900
TabIndex = 109
Top = 1740
Visible = 0 'False
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 2
BuddyControl = "Text1(2)"
BuddyDispid = 196613
BuddyIndex = 2
OrigLeft = 2244
OrigTop = 1908
OrigRight = 2484
OrigBottom = 2196
Max = 40
Min = 2
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown1
Height = 285
Index = 3
Left = -72900
TabIndex = 110
Top = 2040
Visible = 0 'False
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 2
BuddyControl = "Text1(3)"
BuddyDispid = 196613
BuddyIndex = 3
OrigLeft = 2244
OrigTop = 2280
OrigRight = 2484
OrigBottom = 2568
Max = 40
Min = 2
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "(下次启动生效)"
Height = 180
Left = -74895
TabIndex = 126
Top = 2475
Width = 1260
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "底边距："
Height = 180
Left = -73560
TabIndex = 123
Top = 2955
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "正文打印行数："
Height = 180
Left = -74820
TabIndex = 120
Top = 2280
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "字与字竖间距："
Height = 180
Index = 4
Left = -74808
TabIndex = 114
Top = 2076
Visible = 0 'False
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "字与字横间距："
Height = 180
Index = 5
Left = -74808
TabIndex = 113
Top = 1776
Visible = 0 'False
Width = 1260
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "毫米"
Height = 180
Index = 4
Left = -72630
TabIndex = 112
Top = 1800
Visible = 0 'False
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "毫米"
Height = 180
Index = 5
Left = -72615
TabIndex = 111
Top = 2085
Visible = 0 'False
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "毫米"
Height = 180
Index = 3
Left = -70320
TabIndex = 17
Top = 3060
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "毫米"
Height = 180
Index = 2
Left = -72828
TabIndex = 15
Top = 3048
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "表格顶边距："
Height = 180
Index = 3
Left = -72336
TabIndex = 13
Top = 3048
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "表格左边距："
Height = 180
Index = 2
Left = -74796
TabIndex = 12
Top = 3024
Width = 1080
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "毫米"
Height = 180
Index = 1
Left = -72615
TabIndex = 9
Top = 1515
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "毫米"
Height = 180
Index = 0
Left = -72615
TabIndex = 8
Top = 1215
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "表格横线间距："
Height = 180
Index = 1
Left = -74808
TabIndex = 6
Top = 1500
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "表格竖线间距："
Height = 180
Index = 0
Left = -74796
TabIndex = 4
Top = 1212
Width = 1260
End
End
End
Attribute VB_Name = "ymsz_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Sub Check1_Click(Index As Integer)
Command1(1).Enabled = True
If Check1(Index).Value = 1 Then
Text2(1 - Index).Enabled = False
UpDown1(11 - Index).Enabled = False
If Index = 0 Then '垂直
Shape1.Top = Int((Picture1(1).Height - Shape1.Height) / 2)
Shape3.Top = Shape1.Top
Shape2.Top = Shape1.Top + Shape2.Height
Label3(0).Top = (Shape2.Top - Shape1.Top) / 2 + Shape1.Top - 90
Label3(3).Top = Shape3.Top + (Shape3.Height - 180) / 2
Label3(4).Top = Label3(3).Top
Else
Shape1.Left = Int((Picture1(1).Width - Shape1.Width) / 2)
Shape2.Left = Shape1.Left
Shape3.Left = Shape1.Left + Shape3.Width
Label3(0).Left = (Shape3.Left - Shape1.Left) / 2 + Shape1.Left - 48
Label3(3).Left = Label3(0).Left
Label3(4).Left = Shape2.Left + (Shape2.Width - 96) / 2
End If
Else
Text2(1 - Index).Enabled = True
UpDown1(11 - Index).Enabled = True
If Index = 0 Then
UpDown1_Change 11
Else
UpDown1_Change 10
End If
End If
End Sub
Private Sub Check2_Click(Index As Integer)
Command1(1).Enabled = True
End Sub
Private Sub Check3_Click(Index As Integer)
Command1(1).Enabled = True
If Index = 0 Then
If Check3(0).Value = 0 Then
Text5(0).Enabled = False
Text6(0).Enabled = False
Text6(1).Enabled = False
UpDown3(0).Enabled = False
UpDown3(1).Enabled = False
Text3(0).Enabled = False
Text7(0).Enabled = False
Check2(0).Enabled = False
Check2(1).Enabled = False
Check2(2).Enabled = False
Command2(0).Enabled = False
Command3(0).Enabled = False
Command3(2).Enabled = False
Check6(0).Enabled = False
Else
Text5(0).Enabled = True
Text6(0).Enabled = True
Text6(1).Enabled = True
UpDown3(0).Enabled = True
UpDown3(1).Enabled = True
Text3(0).Enabled = True
Text7(0).Enabled = True
Check2(0).Enabled = True
Check2(1).⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -