📄 httzyl.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 0
Left = 9240
TabIndex = 19
Top = 1800
Width = 732
End
Begin VB.Label Label41
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label41"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 1920
TabIndex = 18
Top = 3360
Width = 735
End
Begin VB.Label Label42
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label42"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 0
Left = 3120
TabIndex = 17
Top = 3360
Width = 852
End
Begin VB.Label Label43
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label43"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 0
Left = 4320
TabIndex = 16
Top = 3360
Width = 852
End
Begin VB.Label Label44
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label44"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 5880
TabIndex = 15
Top = 3360
Width = 735
End
Begin VB.Label Label45
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 6960
TabIndex = 14
Top = 3600
Width = 105
End
Begin VB.Label Label46
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 7254
TabIndex = 13
Top = 3600
Width = 105
End
Begin VB.Label Label47
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 7548
TabIndex = 12
Top = 3600
Width = 105
End
Begin VB.Label Label48
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 7842
TabIndex = 11
Top = 3600
Width = 105
End
Begin VB.Label Label49
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 8136
TabIndex = 10
Top = 3600
Width = 105
End
Begin VB.Label Label50
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 8430
TabIndex = 9
Top = 3600
Width = 105
End
Begin VB.Label Label51
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 8724
TabIndex = 8
Top = 3600
Width = 105
End
Begin VB.Label Label52
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 9018
TabIndex = 7
Top = 3600
Width = 105
End
Begin VB.Label Label53
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 9312
TabIndex = 6
Top = 3600
Width = 105
End
Begin VB.Label Label54
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 9606
TabIndex = 5
Top = 3600
Width = 105
End
Begin VB.Label Label55
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label55"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 3120
TabIndex = 4
Top = 4080
Width = 735
End
Begin VB.Label Label56
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "||"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 0
Left = 3000
TabIndex = 3
Top = 4560
Width = 216
End
Begin VB.Label Label57
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label57"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 0
Left = 3000
TabIndex = 2
Top = 5040
Width = 852
End
End
End
End
Attribute VB_Name = "httzyl"
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)
''debug.Print MyObject.Name, x1, x2, y1, y2
Else
x1 = MyObject.Left
y1 = MyObject.Top
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 Command2_Click()
Unload Me
End Sub
Private Sub Label56_Click(Index As Integer)
Label56(0).Caption = InputBox("输入备注")
End Sub
Private Sub Label57_Click(Index As Integer)
Label57(0).Caption = InputBox("输入合同调整人姓名")
End Sub
Private Sub Label58_Click(Index As Integer)
Label58(0).Caption = InputBox("输入开票单位")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -