Visual Basic

Public Sub WebBrowser_Page_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)



end sub

Protected Sub WebBrowser_PageChild_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)

//Swing back to the parent pages
AddHandler g_WB.DocumentCompleted, AddressOf html_automation_reseller_product_page.WebBrowser_Page_DocumentCompleted //Shared Object?
g_DDL.Text = g_complete_Url
g_WB.Navigate(g_complete_Url)

end sub

Imports Microsoft.VisualBasic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms
Namespace DataGridRichTextBox


    Public Class DataGridRichTextBoxColumn
        Inherits DataGridTextBoxColumn

        Private _source As CurrencyManager
        Private _rowNum As Integer
        Private _isEditing As Boolean



        Public Sub New()
            _source = Nothing
            _isEditing = False
        End Sub 'New



        Protected Overloads Sub PaintText(ByRef g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByRef Text As String, ByVal alligntoright As Boolean)

        End Sub

        Protected Overloads Sub PaintText(ByRef g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByRef Text As String, ByRef s1 As System.Drawing.Brush, ByRef s2 As System.Drawing.Brush, ByVal alligntoright As Boolean)
        End Sub

        Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal _source As CurrencyManager, ByVal num As Integer)
        End Sub

        Protected Overloads Overrides Sub SetColumnValueatrow(ByVal _source As CurrencyManager, ByVal num As Integer, ByVal obj As Object)
        End Sub

    End Class 'DataGridComboBoxColumn
End Namespace







Here is where I add the derived class as an object to the datagrid : - 



Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Drawing




Public Class DataGridMine
    Inherits DataGrid



    Public r_counter, column_num, x1 As Integer

    Public x13 As Integer

#Region " Windows Form Designer generated code "


    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents SqlSelectCommand2 As New SqlCommand
    Friend WithEvents DataSet51 As New tasks_trial2.DataSet5
    Public WithEvents DataGridTableStyle1 As New DataGridTableStyle



    Public WithEvents task_name_col, parent_col As New DataGridTextBoxColumn


    Public WithEvents description_col As New DataGridRichTextBox.DataGridRichTextBoxColumn



    Friend WithEvents SqlDataAdapter3 As New SqlDataAdapter

    Friend WithEvents SqlDataAdapter2 As New SqlDataAdapter
    Friend WithEvents SqlSelectCommand3 As New SqlCommand




    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        CType(Priority_code_table1, System.ComponentModel.ISupportInitialize).BeginInit()



        SuspendLayout()



        Me.DataMember = "tasks"
        Me.DataSource = DataSet51
        Me.Location = New Point(8, 230)
        Me.Size = New Size(1117, 384)
        Me.TabIndex = 0


        Me.TableStyles.AddRange(New DataGridTableStyle() {DataGridTableStyle1})


  

        SqlDataAdapter2.SelectCommand = SqlSelectCommand2
        SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "tasks")})

        SqlSelectCommand2.CommandText = ""
        SqlSelectCommand2.Connection = SqlConnection10


        DataGridTableStyle1.DataGrid = Me



        DataGridTableStyle1.AllowSorting = False

        column_num = 3

        DataGridTableStyle1.HeaderForeColor = SystemColors.ControlText
        DataGridTableStyle1.MappingName = "tasks"
        DataGridTableStyle1.SelectionBackColor = Color.Aquamarine
        DataGridTableStyle1.SelectionForeColor = Color.Black
        DataGridTableStyle1.PreferredRowHeight = 10
        DataGridTableStyle1.PreferredColumnWidth = 75



        description_col.HeaderText = "Description"
        description_col.MappingName = "description"
        description_col.Width = 260



.....................


' where column is description_col.

  Public Sub add_columns(ByRef dgrid1 As DataGridMine, ByVal column As Object)

        dgrid1.DataGridTableStyle1.GridColumnStyles.AddRange(New DataGridColumnStyle() {column})

    End Sub

Public Sub sPrnEmptyTabel(ByVal Personen As Int16, ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal StartY As Int16)
    Dim g As Graphics = e.Graphics
    Dim nLijnLengte, nX As Integer
    Dim n1CharX = g.MeasureString("A", Me.Font).Width
    Dim n1CharY = Me.Font.Height
    nLijnLengte = Personen * nAfstand + nNaamBreedte + 3 * nPuntBreedte + nVoorsprongBreedte
    For nY As Integer = 1 To Personen
        g.DrawLine(New Pen(Color.Black), 0, StartY + nNaamBreedte + (nY - 1) * nAfstand, nLijnLengte, StartY + nNaamBreedte + (nY - 1) * nAfstand) 'horizontale lijnen

        g.DrawLine(New Pen(Color.Black), nNaamBreedte + (nY - 1) * nAfstand, StartY, nNaamBreedte + (nY - 1) * nAfstand, StartY + nNaamBreedte + (Personen) * nAfstand) 'vertikale lijnen
        For nX = 1 To Personen
            If nY = nX Then
                g.FillRectangle(Brushes.Red, nNaamBreedte + nAfstand * (nX - 1), StartY + nNaamBreedte + (nY - 1) * nAfstand, nAfstand, nAfstand)
                g.DrawString("*", New Font(Me.Font.Name, 20), Brushes.White, nNaamBreedte + nAfstand * (nX - 1), StartY + nNaamBreedte + (nY - 1) * nAfstand)
            Else
                Dim x1, x2, y1, y2 As Integer
                x1 = nNaamBreedte + nAfstand * (nX - 1)
                y1 = StartY + nNaamBreedte + (nY - 1) * nAfstand
                x2 = x1 + nAfstand
                y2 = y1 + nAfstand
                g.DrawLine(Pens.Green, x2 - 5, y1 + 5, x1 + 5, y2 - 5)
            End If
        Next nX
        g.DrawLine(New Pen(Color.Black), nNaamBreedte + (nY) * nAfstand, StartY, nNaamBreedte + (nY) * nAfstand, StartY + nNaamBreedte + (Personen) * nAfstand) 'vertikale lijnen
    Next nY

    g.DrawLine(New Pen(Color.Black), 0, StartY + nNaamBreedte + (Personen) * nAfstand, nLijnLengte, StartY + nNaamBreedte + Personen * nAfstand) 'horizontale eindlijn

    For n As Integer = 1 To 4
        g.DrawLine(New Pen(Color.Black), nNaamBreedte + (Personen) * nAfstand + n * nPuntBreedte, StartY + 0, nNaamBreedte + (Personen) * nAfstand + n * nPuntBreedte, StartY + nNaamBreedte + (Personen) * nAfstand)       'lijn voor de som vd punten
    Next
    With g
        .TranslateTransform(0.0F, nNaamBreedte)
        .RotateTransform(270)
        Dim a As New List(Of String)
        a.Add(LangSet.Table.tblWhite)
        a.Add(LangSet.Table.tblBlack)
        a.Add(LangSet.Table.tblGames)
        a.Add(LangSet.Table.tblTotal)
        For X As Integer = 0 To 3
            Dim sKopTekst = " " & a(X)
            g.DrawString(sKopTekst, New Font(Me.Font, FontStyle.Regular), Brushes.Black, -StartY, nNaamBreedte + (Personen + 3) * nAfstand + (X - 1) * nPuntBreedte)
        Next
        .RotateTransform(-270)
        .TranslateTransform(0.0F, -nNaamBreedte)
        sCopyRight(e, fGetResInfo("Titel1") & " " & fGetResInfo("Titel2"))
    End With
End Sub

Dim obj() As Object = New JavaScriptSerializer().Deserialize(Of Object)(pHTML)
sPR(idx).m_partNumber = obj(idx)(0).ToString
sPR(idx).m_shortDescription = obj(idx).Item("sItemName").ToString

{
        "sUrl": "/Itemdesc.asp?ic=CLK-WCP-1PK",
        "sItemCode": "CLK-WCP-1PK",
        "sItemName": "WaveCenter Wireless Port License",
        "sItemImage": "CLK-WCP-1PK_50.jpg",
        "sItemOrigImage": "CLK-WCP-1PK.jpg",
        "sItemPrice": "$315.00",
        "sRegularPrice": "$749.99",
        "sItemStock": "7",
        "bAllowSaleUnit": "F",
        "sMeasureDesc": "EACH",
        "sItemOrder": "Order"
    },

Public Class Form1
    Dim DT1 As DataTable
    Private rowIndexFromMouseDown As Int32
    Dim MouseDwn As String

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        FillDataInGrids()
    End Sub

    Private Sub FillDataInGrids()
        DT1 = New DataTable

        'Table 1 has four columns
        DT1.Columns.Add("Name", Type.GetType("System.String"))
        DT1.Columns.Add("Designation", Type.GetType("System.String"))
        DT1.Columns.Add("Department", Type.GetType("System.String"))
        DT1.Columns.Add("Salary", Type.GetType("System.String"))

        'Now Add some Rows in the first DataTable
        Dim Dr As DataRow
        For i = 1 To 40
            Dr = DT1.NewRow
            Dr("Name") = "Tom " & i.ToString("D3")
            Dr("Designation") = "Developer " & i.ToString("D3")
            Dr("Department") = "Engg " & i.ToString("D3")
            Dr("Salary") = "100" & i.ToString("D3")
            DT1.Rows.Add(Dr)
        Next i

        DGV2.Columns.Add("Name", "Name")
        DGV2.Columns.Add("Designation", "Designation")
        DGV2.Columns.Add("Department", "Department")
        DGV2.Columns.Add("Salary", "Salary")
        DGV2.Rows.Add(5)

        'Now Bind the DataGrid to datatable 1
        DGV1.DataSource = DT1
    End Sub

    Private Sub DGV1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles DGV1.MouseDown
        rowIndexFromMouseDown = DGV1.HitTest(e.X, e.Y).RowIndex
        If rowIndexFromMouseDown <> -1 Then
            If Control.MouseButtons = MouseButtons.Left Then
                Dim hit As DataGridView.HitTestInfo = DGV1.HitTest(e.X, e.Y)
                DGV1.DoDragDrop(DGV1.Rows(hit.RowIndex), DragDropEffects.Copy)
                MouseDwn = DGV1.Name
            End If
        End If
    End Sub

    Private Sub DGV2_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub DGV2_DragOver(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragOver
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub DGV2_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragDrop
        Dim clientPoint As Point = DGV2.PointToClient(New Point(e.X, e.Y))
        Dim hit As DataGridView.HitTestInfo = DGV2.HitTest(clientPoint.X, clientPoint.Y)
        Dim myType As Type = GetType(DataGridViewRow)
        Dim r As DataGridViewRow = DGV1.Rows(e.Data.GetData(myType).Index)
        Dim i As Integer

        If hit.RowIndex = -1 Then
            i = DGV2.NewRowIndex
        Else
            i = hit.RowIndex
        End If
        DGV2.Rows.Insert(i)

        For j As Integer = 0 To r.Cells.Count - 1
            DGV2.Rows(i).Cells(j).Value = r.Cells(j).Value
        Next
        MouseDwn = ""
    End Sub
End Class