ReoGrid Forum

[email protected]

Member

Registered: 2014-08-09

Posts: 24

VB.net

Hi,
Forget about my questions.

My working solution

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim resxDir As String = "C:\TestReoGrid\Resources"
        Dim grid As New Unvell.ReoGrid.ReoGridControl
        grid.Dock = DockStyle.Fill
        Me.Controls.Add(grid)
        Dim di As New DirectoryInfo(resxDir)
        For Each fi In di.GetFiles()
            If fi.Name = "TRQuote.rgf" Then
                Using s As New System.IO.FileStream(Application.StartupPath & "\" & "TRQuote.rgf", System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite)
                    grid.Load(s)
                    grid.Show()
                End Using
            End If
        Next fi
    End Sub

Peter