📄 form49.frm
字号:
Width = 2535
End
Begin VB.Line Line10
X1 = 1320
X2 = 11160
Y1 = 6360
Y2 = 6360
End
Begin VB.Line Line9
X1 = 1320
X2 = 11160
Y1 = 3000
Y2 = 3000
End
Begin VB.Line Line8
X1 = 11160
X2 = 11160
Y1 = 6360
Y2 = 480
End
Begin VB.Line Line7
X1 = 1320
X2 = 11160
Y1 = 2640
Y2 = 2640
End
Begin VB.Line Line1
X1 = 1320
X2 = 11160
Y1 = 2280
Y2 = 2280
End
Begin VB.Line Line5
X1 = 1320
X2 = 11160
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line4
X1 = 1320
X2 = 11160
Y1 = 1560
Y2 = 1560
End
Begin VB.Line Line3
X1 = 1320
X2 = 11160
Y1 = 1200
Y2 = 1200
End
Begin VB.Line Line2
X1 = 1320
X2 = 11160
Y1 = 840
Y2 = 840
End
Begin VB.Label Label1
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "工程编号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1680
TabIndex = 17
Top = 600
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "建设单位："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1680
TabIndex = 16
Top = 1260
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "工程地点："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1680
TabIndex = 15
Top = 2040
Width = 1095
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "联系人及电话："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 1560
TabIndex = 14
Top = 2400
Width = 1455
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "备注："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1920
TabIndex = 13
Top = 2760
Width = 975
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "工程名称："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1680
TabIndex = 12
Top = 1680
Width = 975
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "原件工程编号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 1
Left = 1560
TabIndex = 11
Top = 960
Width = 1455
End
Begin VB.Line Line11
X1 = 1320
X2 = 11160
Y1 = 480
Y2 = 480
End
Begin VB.Line Line6
X1 = 1320
X2 = 1320
Y1 = 6360
Y2 = 480
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "勘测工程作业过程记事表"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 4320
TabIndex = 0
Top = 50
Width = 3375
End
End
Attribute VB_Name = "Form49"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a, a1, a2, a3, a4, a5, a6, a7, a8, a9 As String
Dim b, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15, b16, b17, b18, b19, b20, b21, b22, b23, b24, b25, b26, b27, b28, b29, b30, b31, b32, b33, b34, b35, b36, b37, b38, b39, b40, b41, b42, b43, b44 As String
a = Text1(0).Text
a1 = Text1(1).Text
a2 = Text1(2).Text
a3 = Text1(3).Text
a4 = Text1(4).Text
a5 = Text1(5).Text
a6 = Text1(6).Text
b = Text2(0).Text
b1 = Text2(1).Text
b2 = Text2(2).Text
b3 = Text2(3).Text
b4 = Text2(4).Text
b5 = Text2(5).Text
b6 = Text2(6).Text
b7 = Text2(7).Text
b8 = Text2(8).Text
b9 = Text2(9).Text
b10 = Text2(10).Text
b11 = Text2(11).Text
b12 = Text2(12).Text
b13 = Text2(13).Text
b14 = Text2(14).Text
b15 = Text2(15).Text
b16 = Text2(16).Text
b17 = Text2(17).Text
b18 = Text2(18).Text
b19 = Text2(19).Text
b20 = Text2(20).Text
b21 = Text2(21).Text
b22 = Text2(22).Text
b23 = Text2(23).Text
b24 = Text2(24).Text
b25 = Text2(25).Text
b26 = Text2(26).Text
b27 = Text2(27).Text
b28 = Text2(28).Text
b29 = Text2(29).Text
b30 = Text2(30).Text
b31 = Text2(31).Text
b32 = Text2(32).Text
b33 = Text2(33).Text
b34 = Text2(34).Text
b35 = Text2(35).Text
l = 0
With Form49.Cell2
'////////////////////////////////////////////////////////////公共部分
.DoSetPrintMargin 30, 20, 20, 20
.DoSetColWidth 0, 50
.DoSetColWidth 1, 120
.DoSetColWidth 2, 100
.DoSetColWidth 3, 100
.DoSetColWidth 4, 200
.DoSetColWidth 5, 190
.DoSetColWidth 6, 10
' .DoDrawHLine 1, 5, 1, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 2, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 3, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 4, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 5, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 6, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 7, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 8, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 9, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
' .DoDrawHLine 1, 5, 10, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
' .DoDrawHLine 1, 5, 11, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 12, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 13, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 14, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 15, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 16, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 17, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 18, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 19, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawHLine 1, 5, 20, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
.DoDrawVLine 3, 20, 0, False, vbBlack, 1 '(开始行,结束行,所在列,上下线,颜色,线粗细)
.DoDrawVLine 13, 20, 1, False, vbBlack, 1
.DoDrawVLine 13, 20, 2, False, vbBlack, 1
.DoDrawVLine 13, 20, 3, False, vbBlack, 1
.DoDrawVLine 13, 20, 4, False, vbBlack, 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -