how to do datatable without database

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • dinitiae
    New Member
    • Feb 2014
    • 3

    how to do datatable without database

    Code:
    ' copy this code in a new proyect
    
    Public Class Form1
        WithEvents DataGridView1 As DataGridView, PBX As PictureBox
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                DataGridView1 = New DataGridView
                DataGridView1.Location = New Point(100, 100)
                DataGridView1.Size = New Point(300, 200)
                DataGridView1.Visible = True
                Me.Controls.Add(DataGridView1)
    
                PBX = New PictureBox
                PBX.Location = New Point(420, 100)
                PBX.Size = New Point(200, 200)
                PBX.BorderStyle = BorderStyle.FixedSingle
                PBX.SizeMode = PictureBoxSizeMode.StretchImage
                PBX.Visible = True
                Me.Controls.Add(PBX)
    
                Dim DT(1) As DataTable
    
                DT(1) = New DataTable
                Dim DC As DataColumn
                DC = New DataColumn("Column1", GetType(Object))
    
                DT(1).Columns.Add(DC)
                DC.ColumnName = "A"
    
                DC = New DataColumn("Column2")
                DT(1).Columns.Add(DC)
                DC.ColumnName = "B"
    
                Dim IMG1 As Image = Image.FromFile("C:\MMS FILES\RESOURCES\SCR1.jpg")
                Dim IMG2 As Image = Image.FromFile("C:\MMS FILES\RESOURCES\Perfx.jpg")
    
                DT(1).Rows.Add(IMG1, "222")
                DT(1).Rows.Add(IMG2, "YYY")
    
                DataGridView1.DataSource = DT(1)
    
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
    
        End Sub
    
        Private Sub DataGridView2_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
            On Error Resume Next
            PBX.Image = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
    
        End Sub
    
    End Class
    Last edited by Rabbit; Feb 8 '14, 06:31 AM. Reason: Please use [CODE] and [/CODE] tags when posting code or formatted data.
  • Frinavale
    Recognized Expert Expert
    • Oct 2006
    • 9749

    #2
    What is the problem?
    What type of application are you working on?

    Comment

    Working...