📄 jsd.frm
字号:
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Index = 2
Left = 4200
TabIndex = 20
Top = 4080
Width = 1692
End
Begin VB.Label Label29
BackStyle = 0 'Transparent
Caption = "2"
Height = 372
Index = 2
Left = 360
TabIndex = 19
Top = 2520
Width = 372
End
Begin VB.Label Label30
BackStyle = 0 'Transparent
Caption = "3"
Height = 252
Index = 2
Left = 360
TabIndex = 18
Top = 3120
Width = 372
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Caption = "4"
Height = 252
Index = 2
Left = 360
TabIndex = 17
Top = 3600
Width = 372
End
Begin VB.Line Line11
X1 = 8892
X2 = 8892
Y1 = 2160
Y2 = 3012
End
Begin VB.Line Line12
X1 = 9192
X2 = 9192
Y1 = 2160
Y2 = 3012
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "角"
Height = 180
Index = 2
Left = 8940
TabIndex = 16
Top = 2280
Width = 180
End
Begin VB.Label Label33
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分"
Height = 180
Index = 2
Left = 9240
TabIndex = 15
Top = 2280
Width = 180
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 0
Left = 9264
TabIndex = 14
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 1
Left = 8964
TabIndex = 13
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 2
Left = 8664
TabIndex = 12
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 3
Left = 8376
TabIndex = 11
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 4
Left = 8076
TabIndex = 10
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 5
Left = 7788
TabIndex = 9
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 6
Left = 7488
TabIndex = 8
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 7
Left = 7200
TabIndex = 7
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 8
Left = 6900
TabIndex = 6
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 9
Left = 6612
TabIndex = 5
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 10
Left = 6312
TabIndex = 4
Top = 2640
Width = 108
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 11
Left = 6024
TabIndex = 3
Top = 2640
Width = 108
End
End
Begin VB.CommandButton Command2
Caption = "返 回"
Height = 252
Left = 9360
TabIndex = 1
Top = 6120
Width = 1212
End
Begin VB.CommandButton Command1
Caption = "打 印"
Height = 252
Left = 7800
TabIndex = 0
Top = 6120
Width = 1212
End
End
Attribute VB_Name = "jsd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Dim ii As Integer
Dim lis As Object
Dim name1 As String
Dim g As String
g = "lin"
Dim Found, MyObject, MyCollection
'Printer.NewPage
Found = False ' 设置变量初始值。
For Each MyObject In Me
' 对每个成员作一次迭代。
name1 = MyObject.Name
'If InStr(1, MyObject.Name, "lin") > 0 Then ' 如果 Text 属性值等于“Hello”。)
If MyObject.BorderStyle > 0 Then
'If MyObject Is Line Then
x1 = MyObject.x1
x2 = MyObject.x2
y1 = MyObject.y1
y2 = MyObject.y2
dw = MyObject.BorderWidth
Printer.DrawWidth = dw
Printer.Line (x1, y1)-(x2, y2)
Else
x1 = MyObject.Left
y1 = MyObject.Top
Printer.Font.Name = MyObject.Font.Name
Printer.Font.Bold = MyObject.Font.Bold
Printer.Font.Italic = MyObject.Font.Italic
Printer.Font.Underline = MyObject.Font.Underline
Printer.Font.Size = MyObject.Font.Size
Printer.CurrentX = x1
Printer.CurrentY = y1
Printer.Print MyObject.Caption
'Exit For ' 退出循环。
End If
x1 = 0: x2 = 0: y1 = 0: y2 = 0
20:
Next
'Form2.Show
Printer.EndDoc
'Printer.NewPage
End Sub
Private Sub Label51_Click(Index As Integer)
End Sub
Private Sub Label57_Click(Index As Integer)
If Index = 0 Then
Label57(0).Caption = InputBox("输入合同调整人姓名")
End If
End Sub
Private Sub Label57_DblClick(Index As Integer)
Label57(0).Caption = InputBox("输入合同调整人姓名")
End Sub
Private Sub Label35_Click()
Label35.Caption = InputBox("输入合同调整人姓名")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -