You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
2.6 KiB
75 lines
2.6 KiB
Public Class frmDatumspruefung
|
|
|
|
Dim spaltentitel As New TKB.VV.Utils.Tabellenspalte
|
|
Private Sub frmDatumspruefung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
|
pd = New Printing.PrintDocument
|
|
GetFormImage()
|
|
pd.Print()
|
|
|
|
End Sub
|
|
Public Sub Spalten_Aktualisieren()
|
|
Try
|
|
Dim dt As DataTable = Me.C1Pruefresultate.DataSource
|
|
Me.spaltentitel.Spaltentitel_aktualisieren(Me.C1Pruefresultate, "Datumspruefung", dt)
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
Private WithEvents pd As Printing.PrintDocument
|
|
' storage for form image
|
|
Dim formImage As Bitmap
|
|
' create API prototype
|
|
Private Declare Function BitBlt Lib "gdi32.dll" Alias _
|
|
"BitBlt" (ByVal hdcDest As IntPtr, _
|
|
ByVal nXDest As Integer, ByVal nYDest As _
|
|
Integer, ByVal nWidth As Integer, _
|
|
ByVal nHeight As Integer, ByVal _
|
|
hdcSrc As IntPtr, ByVal nXSrc As Integer, _
|
|
ByVal nYSrc As Integer, _
|
|
ByVal dwRop As System.Int32) As Long
|
|
|
|
|
|
|
|
Private Sub GetFormImage()
|
|
Dim g As Graphics = Me.CreateGraphics()
|
|
Dim s As Size = Me.Size
|
|
formImage = New Bitmap(s.Width, s.Height, g)
|
|
Dim mg As Graphics = Graphics.FromImage(formImage)
|
|
Dim dc1 As IntPtr = g.GetHdc
|
|
Dim dc2 As IntPtr = mg.GetHdc
|
|
' added code to compute and capture the form
|
|
' title bar and borders
|
|
Dim widthDiff As Integer = _
|
|
(Me.Width - Me.ClientRectangle.Width)
|
|
Dim heightDiff As Integer = _
|
|
(Me.Height - Me.ClientRectangle.Height)
|
|
Dim borderSize As Integer = widthDiff \ 2
|
|
Dim heightTitleBar As Integer = heightDiff - borderSize
|
|
BitBlt(dc2, 0, 0, _
|
|
Me.ClientRectangle.Width + widthDiff, _
|
|
Me.ClientRectangle.Height + heightDiff, dc1, _
|
|
0 - borderSize, 0 - heightTitleBar, 13369376)
|
|
|
|
g.ReleaseHdc(dc1)
|
|
mg.ReleaseHdc(dc2)
|
|
End Sub
|
|
|
|
Private Sub pd_PrintPage(ByVal sender As Object, _
|
|
ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
|
|
Handles pd.PrintPage
|
|
e.Graphics.DrawImage(formImage, 100, 100)
|
|
End Sub
|
|
|
|
|
|
End Class |