1:  Imports System.Reactive.Concurrency

   2:  Imports System.Reactive.Linq

   3:  Imports System.Threading

   4:  Imports System.Collections.Generic

   5:  Imports System.ComponentModel

   6:  Imports System.Data

   7:  Imports System.Drawing

   8:  Imports System.Linq

   9:  Imports System.Text

  10:  Imports System.Windows.Forms

  11:  Imports System.IO

  12:   

  13:  ''' <summary>

  14:  ''' Provides an example of using the RxFramework to get directory listings using a background thread.

  15:  ''' </summary>

  16:  Partial Public Class DirectoriesForm

  17:   

  18:   

  19:      ' The current observer that is observing on one of the observables.

  20:      Private Observer As IDisposable

  21:   

  22:      ' An observable providing a directory as soon as it is encountered.

  23:      Private Directories As IObservable(Of String)

  24:   

  25:      ' An observable providing directories in groups.

  26:      Private BufferedDirectories As IObservable(Of IList(Of String))

  27:   

  28:      Private Sub DirectoriesForm_Load(sender As Object, e As EventArgs) Handles Me.Load

  29:          FolderBrowseStyleComboBox.SelectedIndex = 0

  30:          FolderBrowseTypeComboBox.SelectedIndex = 0

  31:          Me.butStop.Enabled = False

  32:      End Sub

  33:   

  34:   

  35:      Private Sub butOpen_Click(sender As Object, e As EventArgs) Handles butOpen.Click

  36:          Dim FB As New FolderBrowserDialog

  37:          FB.Description = "Select folder to observe"

  38:          If FB.ShowDialog = DialogResult.OK Then

  39:              Dim SyncContext = SynchronizationContext.Current

  40:              FolderBrowseStyleComboBox.Enabled = False

  41:              FolderBrowseTypeComboBox.Enabled = False

  42:              SearchPatternTextBox.Enabled = False

  43:              TreeViewDirectories.Nodes.Clear()

  44:              FileCount = 0

  45:              FolderCount = 0

  46:              If FolderBrowseStyleComboBox.Text = "Flat" Then

  47:   

  48:                  ' Observe the enumeration of all directories using the winforms thread.

  49:                  Directories = GetAllContents(FB.SelectedPath, SearchPatternTextBox.Text, FolderBrowseTypeComboBox.Text).

  50:                  ToObservable(Scheduler.ThreadPool).

  51:                  ObserveOn(SyncContext)

  52:   

  53:                  If Observer Is Nothing Then

  54:                      ' Observe on the single directories.

  55:                      Observer = Directories.Subscribe(AddressOf outputDirectory)

  56:                      'Observer = Directories.Finally(Sub() MsgBox("Finish"))

  57:                  End If

  58:   

  59:              ElseIf FolderBrowseStyleComboBox.Text = "Tree" Then

  60:                  ' Observe the enumeratino of all directories, but buffered in groups

  61:                  ' of 1000 entries each second, and then observe that group on the winforms thread.

  62:   

  63:                  BufferedDirectories = Observable.

  64:                  Interval(TimeSpan.FromSeconds(1), Scheduler.ThreadPool).

  65:                  Zip(

  66:                  GetAllContents(FB.SelectedPath, SearchPatternTextBox.Text, FolderBrowseTypeComboBox.Text).

  67:                  ToObservable(Scheduler.ThreadPool).

  68:                  Buffer(1000),

  69:                  Function(a, b) b

  70:                  ).

  71:                  ObserveOn(SyncContext)

  72:   

  73:                  If Observer Is Nothing Then

  74:                      ' observe on the buffered directories.

  75:                      Observer = BufferedDirectories.Subscribe(AddressOf outputDirectories)

  76:                      'Dim Z As IList(Of String) = BufferedDirectories.Finally(Sub() MsgBox("Finish"))

  77:                  End If

  78:              End If

  79:              butStop.Enabled = True

  80:          End If

  81:      End Sub

  82:   

  83:      ' Clear out the running observer

  84:      Private Sub butStop_Click(sender As Object, e As EventArgs) Handles butStop.Click

  85:          If Observer IsNot Nothing Then

  86:              Observer.Dispose()

  87:              Observer = Nothing

  88:              butStop.Enabled = False

  89:              FolderBrowseStyleComboBox.Enabled = True

  90:              FolderBrowseTypeComboBox.Enabled = True

  91:              SearchPatternTextBox.Enabled = True

  92:          End If

  93:      End Sub

  94:   

  95:      ' We check to see if the handle is created because when

  96:      ' the form is disposing this may still be trying to observe.

  97:      Private Sub outputDirectory(path As String)

  98:          If TreeViewDirectories.IsHandleCreated Then

  99:              TreeViewDirectories.Nodes.Add(path)

 100:          End If

 101:      End Sub

 102:   

 103:      Private TreeNodes As New Dictionary(Of String, TreeNode)()

 104:      ' We check to see if the handle is created because when

 105:      ' the form is disposing this may still be trying to observe.

 106:      Private Sub outputDirectories(paths As IEnumerable(Of String))

 107:          If TreeViewDirectories.IsHandleCreated Then

 108:              Try

 109:                  TreeViewDirectories.BeginUpdate()

 110:                  For Each path__1 In paths

 111:                      Dim sb = New StringBuilder()

 112:                      Dim pieces = path__1.Split(Path.DirectorySeparatorChar)

 113:                      Dim parent As TreeNode = Nothing

 114:                      For i As Integer = 0 To pieces.Length - 1

 115:                          Dim child As TreeNode = Nothing

 116:                          sb.Append(pieces(i))

 117:                          sb.Append(Path.DirectorySeparatorChar)

 118:                          If Not TreeNodes.TryGetValue(sb.ToString(), child) Then

 119:                              If parent IsNot Nothing Then

 120:                                  child = parent.Nodes.Add(pieces(i))

 121:                              Else

 122:                                  child = TreeViewDirectories.Nodes.Add(pieces(i))

 123:                              End If

 124:                              TreeNodes(sb.ToString()) = child

 125:                          End If

 126:                          parent = child

 127:                      Next

 128:                  Next

 129:              Finally

 130:                  TreeViewDirectories.EndUpdate()

 131:              End Try

 132:          End If

 133:      End Sub

 134:   

 135:      Shared FileCount As Integer

 136:      Shared FolderCount As Integer

 137:      'This is another thread than form

 138:      Private Iterator Function GetAllContents(path As String, SearchPattern As String, SearchType As String) As IEnumerable(Of String)

 139:          If SearchType <> "FolderOnly" Then

 140:              Dim Files As String() = Nothing

 141:              Try

 142:                  Files = Directory.GetFiles(path, SearchPattern, SearchOption.TopDirectoryOnly)

 143:              Catch generatedExceptionName As IOException

 144:              Catch generatedExceptionName As UnauthorizedAccessException

 145:              End Try

 146:              If Files IsNot Nothing Then

 147:                  For Each One In Files

 148:                      FileCount += 1

 149:                      If FileCount Mod 10 = 0 Then UpdateFileLabel(FileCount.ToString)

 150:                      Yield One

 151:                  Next

 152:              End If

 153:          End If

 154:   

 155:          Dim Subdirs As String() = Nothing

 156:          Try

 157:              Subdirs = Directory.GetDirectories(path)

 158:          Catch generatedExceptionName As IOException

 159:          Catch generatedExceptionName As UnauthorizedAccessException

 160:          End Try

 161:          If Subdirs IsNot Nothing Then

 162:              For Each subdir In Subdirs

 163:                  Debug.Print(subdir.ToString)

 164:                  FolderCount += 1

 165:                  If FolderCount Mod 10 = 0 Then UpdateFolderLabel(FolderCount.ToString)

 166:                  Yield subdir

 167:                  For Each grandchild In GetAllContents(subdir, SearchPattern, SearchType)

 168:                      FolderCount += 1

 169:                      If FolderCount Mod 10 = 0 Then UpdateFolderLabel(FolderCount.ToString)

 170:                      Debug.Print(grandchild.ToString)

 171:                      Yield grandchild

 172:                  Next

 173:              Next

 174:          End If

 175:          Debug.Print("Finish " & path)

 176:      End Function

 177:   

 178:      Public Sub UpdateFolderLabel(ProgressTXT As String)

 179:          InvokeOnUiThreadIfRequired(Sub() FolderCountLabel.Text = ProgressTXT)

 180:          InvokeOnUiThreadIfRequired(Sub() StatusStrip1.Refresh())

 181:      End Sub

 182:   

 183:      Public Sub UpdateFileLabel(ProgressTXT As String)

 184:          InvokeOnUiThreadIfRequired(Sub() FileCountLabel.Text = ProgressTXT)

 185:          InvokeOnUiThreadIfRequired(Sub() StatusStrip1.Refresh())

 186:      End Sub

 187:   

 188:      Dim SelectedNode As TreeNode

 189:      Private Sub treeViewDirectories_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewDirectories.AfterSelect

 190:          If SelectedNode Is Nothing Then

 191:              SelectedNode = TreeViewDirectories.TopNode

 192:              TreeViewDirectories.SelectedNode = TreeViewDirectories.TopNode

 193:          Else

 194:              SelectedNode = TreeViewDirectories.SelectedNode

 195:          End If

 196:          TreeViewDirectories.SelectedNode.Expand()

 197:          Dim X As MainForm = ParentForm

 198:          X.SetNewFile(e.Node.FullPath)

 199:      End Sub

 200:   

 201:      Private Sub UpToolStripButton_Click(sender As Object, e As EventArgs) Handles UpToolStripButton.Click

 202:          If TreeViewDirectories.SelectedNode Is Nothing Then

 203:              SelectedNode = TreeViewDirectories.TopNode

 204:              TreeViewDirectories.SelectedNode = TreeViewDirectories.TopNode

 205:              TreeViewDirectories.SelectedNode.Expand()

 206:          End If

 207:          TreeViewDirectories.SelectedNode = TreeViewDirectories.SelectedNode.PrevVisibleNode

 208:      End Sub

 209:   

 210:      Private Sub DownToolStripButton_Click(sender As Object, e As EventArgs) Handles DownToolStripButton.Click

 211:          If TreeViewDirectories.SelectedNode Is Nothing Then

 212:              SelectedNode = TreeViewDirectories.TopNode

 213:              TreeViewDirectories.SelectedNode = TreeViewDirectories.TopNode

 214:              TreeViewDirectories.SelectedNode.Expand()

 215:          End If

 216:          TreeViewDirectories.SelectedNode = TreeViewDirectories.SelectedNode.NextVisibleNode

 217:      End Sub

 218:  End Class

   4:      Dim BF As BrowserForm

  ...   

  25:      Public Sub SetNewFile(FileName As String)

  26:          ToolStripStatusLabel.Text = FileName

  27:          Dim X = IO.Path.GetExtension(FileName)

  28:          If X <> "" Then

  29:              BF.BrowseNewFile(FileName)

  30:              EF.EditNewFile(FileName)

  31:          End If

And Below you can see a name of controls variables in browser form.

And without spell checking and context menu Browser form is so simple.

   1:  Imports System.ComponentModel

   2:   

   3:  Public Class BrowserForm

   4:   

   5:      Property HtmlPanel As TheArtOfDev.HtmlRenderer.WinForms.HtmlPanel

   6:      Dim HtmlTxt1 As String

   7:      Dim WorkingFileName As String

   8:      Dim WithEvents BGW1 As BackgroundWorker

   9:      Dim BGW1_Prm As New Object

  10:   

  11:      Public Sub BrowseNewFile(FileName As String)

  12:          WorkingFileName = FileName

  13:          BGW1 = New BackgroundWorker

  14:          BGW1_Prm = New With {FileName}

  15:          BGW1.RunWorkerAsync(BGW1_Prm)

  16:      End Sub

  17:   

  18:      Private Sub BrowserForm_Load(sender As Object, e As EventArgs) Handles Me.Load

  19:          HtmlPanel = New TheArtOfDev.HtmlRenderer.WinForms.HtmlPanel

  20:          HtmlPanel.BackColor = System.Drawing.SystemColors.Control

  21:          HtmlPanel.BorderStyle = BorderStyle.Fixed3D

  22:          HtmlPanel.Dock = DockStyle.Fill

  23:          ToolStripContainer1.ContentPanel.Controls.Add(HtmlPanel)

  24:      End Sub

  25:   

  26:      Private Sub RefrestToolStripButton_Click(sender As Object, e As EventArgs) Handles RefrestToolStripButton.Click

  27:          BrowseNewFile(WorkingFileName)

  28:      End Sub

  29:   

  30:      Private Sub BGW1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BGW1.DoWork

  31:          HtmlTxt1 = My.Computer.FileSystem.ReadAllText(e.Argument.FileName)

  32:      End Sub

  33:   

  34:      Private Sub BGW1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BGW1.RunWorkerCompleted

  35:          HtmlPanel.Text = HtmlTxt1

  36:          HtmlPanel.Refresh()

  37:      End Sub

  38:  End Class

Also to full understanding package.config is very important - look for is below.

   1:  <?xml version="1.0" encoding="utf-8"?>

   2:  <packages>

   3:    <package id="HtmlRenderer.Core" version="1.5.0.5" targetFramework="net452" />

   4:    <package id="HtmlRenderer.WinForms" version="1.5.0.6" targetFramework="net452" />

   5:    <package id="NHunspell" version="1.2.5554.16953" targetFramework="net452" />

   6:    <package id="System.Reactive" version="4.2.0-preview.566" targetFramework="net48" />

   7:    <package id="System.Reactive.Linq" version="4.2.0-preview.566" targetFramework="net48" />

   8:    <package id="System.Runtime.CompilerServices.Unsafe" version="4.5.2" targetFramework="net48" />

   9:    <package id="System.Threading.Tasks.Extensions" version="4.5.2" targetFramework="net48" />

  10:    <package id="System.ValueTuple" version="4.5.0" targetFramework="net48" />

  11:  </packages>

I'm sorry, no time to more detail description.

Order a job

Comments ( )