printmodule.bas

汽车维修管理软件。其中包含三个编辑控件。

Attribute VB_Name = "PrintModule"
'Public Sub RepairBill(ByRef objPrint As Object, ByVal pWidht As Long, ByVal pHeight As Long, ByVal pPage As Long, ByVal pPaintRate As Double)

'End Sub
Public Sub LineRate(ByRef pDC As PictureBox, ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal pRate As Double)
pDC.Line (x1 * pRate, y1 * pRate)-(x2 * pRate, y2 * pRate)
End Sub

Public Sub PrintRate(ByRef pDC As PictureBox, ByRef pMsg As String, ByVal x As Long, ByVal y As Long, ByVal pFontSize As Long, ByRef pReat As Double)
pDC.CurrentX = x * pReat
pDC.CurrentY = y * pReat
pDC.FontSize = pFontSize * pReat
pDC.Print pMsg
End Sub