📄 form1.frm
字号:
Top = 2760
Width = 840
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "1"
Height = 255
Index = 2
Left = 1320
TabIndex = 20
Top = 2760
Width = 255
End
Begin VB.Line Line7
Index = 2
X1 = 5640
X2 = 5640
Y1 = 2640
Y2 = 3960
End
Begin VB.Line Line8
Index = 2
X1 = 6840
X2 = 6840
Y1 = 2640
Y2 = 3960
End
Begin VB.Line Line9
Index = 2
X1 = 1200
X2 = 10440
Y1 = 3960
Y2 = 3960
End
Begin VB.Line Line10
Index = 2
X1 = 6840
X2 = 10440
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line14
Index = 2
X1 = 9540
X2 = 9540
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line15
Index = 2
X1 = 9240
X2 = 9240
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line16
Index = 2
X1 = 8940
X2 = 8940
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line17
Index = 2
X1 = 8640
X2 = 8640
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line18
Index = 2
X1 = 8340
X2 = 8340
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line19
Index = 2
X1 = 8040
X2 = 8040
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line20
Index = 2
X1 = 7740
X2 = 7740
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line21
Index = 2
X1 = 7440
X2 = 7440
Y1 = 3120
Y2 = 3960
End
Begin VB.Line Line22
Index = 2
X1 = 7140
X2 = 7140
Y1 = 3120
Y2 = 3960
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
Height = 180
Index = 2
Left = 9606
TabIndex = 19
Top = 3240
Width = 180
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "拾"
Height = 180
Index = 2
Left = 9312
TabIndex = 18
Top = 3240
Width = 180
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "百"
Height = 180
Index = 2
Left = 9018
TabIndex = 17
Top = 3240
Width = 180
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "千"
Height = 180
Index = 2
Left = 8724
TabIndex = 16
Top = 3240
Width = 180
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "万"
Height = 180
Index = 2
Left = 8430
TabIndex = 15
Top = 3240
Width = 180
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "拾"
Height = 180
Index = 2
Left = 8136
TabIndex = 14
Top = 3240
Width = 180
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "百"
Height = 180
Index = 2
Left = 7842
TabIndex = 13
Top = 3240
Width = 180
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "千"
Height = 180
Index = 2
Left = 7548
TabIndex = 12
Top = 3240
Width = 180
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "亿"
Height = 180
Index = 2
Left = 7254
TabIndex = 11
Top = 3240
Width = 180
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "拾"
Height = 180
Index = 2
Left = 6960
TabIndex = 10
Top = 3240
Width = 180
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "大 写"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 1800
TabIndex = 9
Top = 4080
Width = 975
End
Begin VB.Line Line23
Index = 2
X1 = 1200
X2 = 10440
Y1 = 4440
Y2 = 4440
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "备 注"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 1800
TabIndex = 8
Top = 4560
Width = 975
End
Begin VB.Line Line24
BorderWidth = 2
Index = 2
X1 = 1200
X2 = 11040
Y1 = 4920
Y2 = 4920
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "开票人："
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 1680
TabIndex = 7
Top = 5040
Width = 975
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = "收款单位（章）："
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 5160
TabIndex = 6
Top = 5040
Width = 1695
End
Begin VB.Label Label29
BackStyle = 0 'Transparent
Caption = "2"
Height = 375
Index = 2
Left = 1320
TabIndex = 5
Top = 3480
Width = 375
End
Begin VB.Label Label30
BackStyle = 0 'Transparent
Caption = "3"
Height = 255
Index = 2
Left = 1320
TabIndex = 4
Top = 4080
Width = 375
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Caption = "4"
Height = 255
Index = 2
Left = 1320
TabIndex = 3
Top = 4560
Width = 375
End
End
End
End
Attribute VB_Name = "dyyll"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
Dim y2 As Integer
Dim dw As Integer
'定义标签参数
Dim cx As Integer
Dim cy As Integer
Dim fsz As Integer
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 Form_Resize()
Me.Label2(2).Caption = jl_qym & "售煤收款单 "
End Sub
Private Sub HScroll1_Change()
Me.Picture1.Left = -Me.HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Me.Picture1.Left = -Me.HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Me.Picture1.Top = -Me.VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Me.Picture1.Top = -Me.VScroll1.Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -