Visual Basic

Dim MyCommand As New Odbc.OdbcCommand("INSERT INTO ls_orderitems (OrderDate, OrderCustomer, OrderAcctNum, OrderType, OrderSoNum, OrderItemPartNum, OrderItemPartDesc, OrderItemQty, OrderItemQtyRec, OrderItemQtyDtRec, OrderItemBO, OrderItemBODt,OrderItemCanceled, OrderItemCanceledDt, OrderItemNotes, OrderItemPONum, OrderItemRetailPrice, OrderItemSalePrice, Status, InsertDate) VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ,?, ?, ?, ?, ?)<br />
<br />
If OrderDate.Trim <> "" Then<br />
MyCommand.Parameters.Add("@OrderDate", CDate(OrderDate))<br />
Else<br />
MyCommand.Parameters.Add("@OrderDate", DBNull.Value)<br />
End If

Public Class MyRTB
    Inherits RichTextBox
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = &H444 AndAlso m.WParam.ToInt32 = 1 Then m.WParam = New System.IntPtr(3)

        MyBase.WndProc(m)
    End Sub
End Class

<br />
Option Explicit On<br />
<br />
Imports System<br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Imports System.Runtime.InteropServices<br />
Imports System.Drawing.Printing<br />
<br />
<br />
''' <summary><br />
''' The rich text box print control class was developed by Microsoft, information about<br />
''' this control can be found in your help files at:  <br />
''' ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.KB.v10.en/enu_kbvbnetkb/vbnetkb/811401.htm<br />
''' In general, their intent was to create a rich text box control with print capability<br />
''' embedded into the control.<br />
''' </summary><br />
''' <remarks>This control class replaces the use of the regular RichTextBox control; the<br />
''' purpose of this extension was specifically to facilitate printing the contents<br />
''' of a rich text box control.</remarks><br />
<br />
    Public Class RichTextBoxPrintCtrl<br />
    Inherits RichTextBox<br />
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)<br />
        If m.Msg = &H444 AndAlso m.WParam.ToInt32 = 1 Then m.WParam = New System.IntPtr(3)<br />
        MyBase.WndProc(m)<br />
    End Sub<br />
        ' Convert the unit that is used by the .NET framework (1/100 inch) <br />
        ' and the unit that is used by Win32 API calls (twips 1/1440 inch)<br />
        Private Const AnInch As Double = 14.4<br />
<br />
        <StructLayout(LayoutKind.Sequential)> _<br />
         Private Structure RECT<br />
            Public Left As Integer<br />
            Public Top As Integer<br />
            Public Right As Integer<br />
            Public Bottom As Integer<br />
        End Structure<br />
<br />
        <StructLayout(LayoutKind.Sequential)> _<br />
        Private Structure CHARRANGE<br />
            Public cpMin As Integer          ' First character of range (0 for start of doc)<br />
            Public cpMax As Integer          ' Last character of range (-1 for end of doc)<br />
        End Structure<br />
<br />
        <StructLayout(LayoutKind.Sequential)> _<br />
        Private Structure FORMATRANGE<br />
            Public hdc As IntPtr             ' Actual DC to draw on<br />
            Public hdcTarget As IntPtr       ' Target DC for determining text formatting<br />
            Public rc As Rect                ' Region of the DC to draw to (in twips)<br />
            Public rcPage As Rect            ' Region of the whole DC (page size) (in twips)<br />
            Public chrg As CHARRANGE         ' Range of text to draw (see above declaration)<br />
        End Structure<br />
<br />
        Private Const WM_USER As Integer = &H400<br />
        Private Const EM_FORMATRANGE As Integer = WM_USER + 57<br />
<br />
        Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr<br />
<br />
        ' Render the contents of the RichTextBox for printing<br />
        '	Return the last character printed + 1 (printing start from this point for next page)<br />
        Public Function Print(ByVal charFrom As Integer, ByVal charTo As Integer, ByVal e As PrintPageEventArgs) As Integer<br />
<br />
            ' Mark starting and ending character <br />
            Dim cRange As CHARRANGE<br />
            cRange.cpMin = charFrom<br />
            cRange.cpMax = charTo<br />
<br />
            ' Calculate the area to render and print<br />
            Dim rectToPrint As RECT<br />
            rectToPrint.Top = e.MarginBounds.Top * AnInch<br />
            rectToPrint.Bottom = e.MarginBounds.Bottom * AnInch<br />
            rectToPrint.Left = e.MarginBounds.Left * AnInch<br />
            rectToPrint.Right = e.MarginBounds.Right * AnInch<br />
<br />
            ' Calculate the size of the page<br />
            Dim rectPage As RECT<br />
            rectPage.Top = e.PageBounds.Top * AnInch<br />
            rectPage.Bottom = e.PageBounds.Bottom * AnInch<br />
            rectPage.Left = e.PageBounds.Left * AnInch<br />
            rectPage.Right = e.PageBounds.Right * AnInch<br />
<br />
            Dim hdc As IntPtr = e.Graphics.GetHdc()<br />
<br />
            Dim fmtRange As FORMATRANGE<br />
            fmtRange.chrg = cRange                 ' Indicate character from to character to <br />
            fmtRange.hdc = hdc                     ' Use the same DC for measuring and rendering<br />
            fmtRange.hdcTarget = hdc               ' Point at printer hDC<br />
            fmtRange.rc = rectToPrint              ' Indicate the area on page to print<br />
            fmtRange.rcPage = rectPage             ' Indicate whole size of page<br />
<br />
            Dim res As IntPtr = IntPtr.Zero<br />
<br />
            Dim wparam As IntPtr = IntPtr.Zero<br />
            wparam = New IntPtr(1)<br />
<br />
            ' Move the pointer to the FORMATRANGE structure in memory<br />
            Dim lparam As IntPtr = IntPtr.Zero<br />
            lparam = Marshal.AllocCoTaskMem(Marshal.SizeOf(fmtRange))<br />
            Marshal.StructureToPtr(fmtRange, lparam, False)<br />
<br />
            ' Send the rendered data for printing <br />
            res = SendMessage(Handle, EM_FORMATRANGE, wparam, lparam)<br />
<br />
            ' Free the block of memory allocated<br />
            Marshal.FreeCoTaskMem(lparam)<br />
<br />
            ' Release the device context handle obtained by a previous call<br />
            e.Graphics.ReleaseHdc(hdc)<br />
<br />
            ' Return last + 1 character printer<br />
            Return res.ToInt32()<br />
        End Function<br />
<br />
    End Class<br />
<br />

If m.Msg = &H444 AndAlso m.WParam.ToInt32 = 1 Then
console.writeline(m.tostring) 
m.WParam = New System.IntPtr(3)
End IF

'Inherits' can only appear once within a 'Class' statment and can only specify one class.

<br />
msg=0x81 (WM_NCCREATE) hwnd=0x40670 wparam=0x0 lparam=0x3addbf4 result=0x0<br />
msg=0x7c (WM_STYLECHANGING) hwnd=0x40670 wparam=0xfffffffffffffff0 lparam=0x3add300 result=0x0<br />
msg=0x7d (WM_STYLECHANGED) hwnd=0x40670 wparam=0xfffffffffffffff0 lparam=0x3add300 result=0x0<br />
msg=0x7c (WM_STYLECHANGING) hwnd=0x40670 wparam=0xffffffffffffffec lparam=0x3add300 result=0x0<br />
msg=0x7d (WM_STYLECHANGED) hwnd=0x40670 wparam=0xffffffffffffffec lparam=0x3add300 result=0x0

You made a dll

You need to change the code and recompile the dll.

console.WriteLine(m.ToString)

manni_n wrote:

can u meet me online....
my yahoo id is cool_mani_n@yahoo.co.in

manni_n wrote:

its like i wanna incluede calculator given in windows to my form....