Visual Basic

Swiss Mantoro wrote:

crinv.SelectionFormula="{inventory.invcod)='" & Me.textbox1.Text & "'"

<br />
        Private Declare Function PrintWindow Lib "user32.dll" (ByVal _<br />
              hwnd As IntPtr, ByVal hdcBlt As IntPtr, ByVal nFlags As _<br />
              UInt32) As Boolean<br />
        Dim screenGrab As Bitmap<br />
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br />
            Me.SendToBack()<br />
            screenGrab = New Bitmap(Me.Width, Me.Height)<br />
            Dim g As Graphics = Graphics.FromImage(screenGrab)<br />
            Dim hdc As IntPtr = g.GetHdc<br />
            Me.PrintWindow(Me.Handle, hdc, Nothing)<br />
            g.ReleaseHdc(hdc)<br />
            g.Flush()<br />
            g.Dispose()<br />
            screenGrab.Save("C:\please.bmp", System.Drawing.Imaging.ImageFormat.Bmp)<br />
        End Sub<br />

Dim clientOffsetPoint As System.Drawing.Point
clientOffsetPoint = Me.PointToClient(New System.Drawing.Point(Me.Left, Me.Top))
clientOffsetPoint.X *= -1
clientOffsetPoint.Y *= -1