آموزش اضافه کردن رشته های فایل Resx . به DataTable و نمایش در DtataDrid

در این ویدئو ریسورس های رشته ای از یک فایل ریسورس (Resources File) .ResX به DataTable اضافه می شه که در DataGrid نمایش داده بشن....

https://aparat.com/v/QLX9s

   Dim OFD As New OpenFileDialog With {.Filter = "Resources File|*.resx"}

        Dim FileName As String = ""

        With OFD

            .SupportMultiDottedExtensions = False

            .Multiselect = False

ReBrowse:

            If .ShowDialog(Me) = DialogResult.Cancel Then Exit Sub

            FileName = .FileName

            If IO.Path.GetFileNameWithoutExtension(FileName).Contains(".") = True Then

                FileName = IO.Path.GetFileNameWithoutExtension(FileName)

                FileName = IO.Path.GetFileNameWithoutExtension(FileName)

                FileName = String.Format("{0}\{1}.resx", FileIO.FileSystem.GetParentPath(.FileName), FileName)

            End If

            Me.ToolStripTextBox1.Text = FileName

            resReader = New Resources.ResXResourceReader(FileName)

            Resources.Clear()

            Resources.Add("(Default)", resReader)

            Dim Name, Value As Object

            resReader.GetEnumerator.Reset()

            Dim dict As IDictionaryEnumerator = resReader.GetEnumerator

            Do While dict.MoveNext = True

                ' resSet.GetEnumerator.MoveNext()

                Name = dict.Key

                Value = dict.Value

                If TypeOf (Value) Is String Then

                    With MultiLanguageDataTable

                        .Rows.Add(Name, Value)

                    End With

                End If

            Loop

               End With