@@ -168,6 +168,7 @@ public partial class TreeViewSearchForm : MetroForm
168168Private form As TreeViewSearchForm
169169'To assign the TreeViewAdv to TreeViewSearchForm
170170form = New TreeViewSearchForm( Me .treeViewAdv1)
171+
171172'To show the search dialog
172173Private Sub treeViewAdv1_PreviewKeyDown( ByVal sender As Object , ByVal e As PreviewKeyDownEventArgs)
173174 If e.Modifiers = Keys.Control AndAlso e.KeyValue = Keys.F Then
@@ -182,6 +183,7 @@ Partial Public Class TreeViewSearchForm
182183 Private dialog As TreeViewAdvFindReplaceDialog = Nothing
183184 'Initialize the TreeViewAdv
184185 Private TreeView As TreeViewAdv
186+
185187 'To pass the TreeviewAdv argument to the form.
186188 Public Sub New ( ByVal tree As TreeViewAdv)
187189 InitializeComponent()
@@ -190,40 +192,40 @@ Partial Public Class TreeViewSearchForm
190192 dialog = New TreeViewAdvFindReplaceDialog( Me .TreeView)
191193 End Sub
192194
193- 'To get the TreeViewSearchNavigation
195+ 'To get the TreeViewSearchNavigation
194196 Private Sub comboBox3_SelectedIndexChanged( ByVal sender As Object , ByVal e As EventArgs)
195197 dialog.TreeViewSearchNavigation = CType ( Me .SearchRangeCombo.Items( Me .comboBox3.Items.IndexOf( Me .comboBox3.SelectedItem)), TreeViewSearchNavigation)
196198 End Sub
197199
198- 'To get the TreeViewSearchRange
200+ 'To get the TreeViewSearchRange
199201 Private Sub SearchRangeCombo_SelectedIndexChanged( ByVal sender As Object , ByVal e As EventArgs) Handles SearchRangeCombo.SelectedIndexChanged
200202 dialog.TreeViewSearchRange = CType ( Me .SearchRangeCombo.Items( Me .SearchRangeCombo.Items.IndexOf( Me .SearchRangeCombo.SelectedItem)), TreeViewSearchRange)
201203 End Sub
202204
203- 'To get the TreeViewSearchOption
205+ 'To get the TreeViewSearchOption
204206 Private Sub SearchOptionCombo_SelectedIndexChanged( ByVal sender As Object , ByVal e As EventArgs) Handles SearchOptionCombo.SelectedIndexChanged
205207 dialog.TreeViewSearchOption = CType ( Me .SearchOptionCombo.Items( Me .SearchOptionCombo.Items.IndexOf( Me .SearchOptionCombo.SelectedItem)), TreeViewSearchOption)
206208 End Sub
207209
208- 'To Find TreeNodeAdv
210+ 'To Find TreeNodeAdv
209211 Private Sub button1_Click( ByVal sender As Object , ByVal e As EventArgs) Handles button1.Click
210212 dialog.Find( Me .findTextBox.Text)
211213 End Sub
212214
213- 'To Find All the TreeNodeAdv
215+ 'To Find All the TreeNodeAdv
214216 Private Sub button2_Click( ByVal sender As Object , ByVal e As EventArgs) Handles button2.Click
215217 dialog.FindAll( Me .findTextBox.Text)
216218 End Sub
217219
218- 'To Replace the TreeNodeAdv
220+ 'To Replace the TreeNodeAdv
219221 Private Sub button3_Click( ByVal sender As Object , ByVal e As EventArgs) Handles button3.Click
220222 Me .TreeView.SelectedNodes.Clear()
221223 If dialog.Find( Me .findTextBox.Text) Then
222224 dialog.Replace( Me .replaceTextbox.Text)
223225 End If
224226 End Sub
225227
226- 'To Replace All the TreeNodeAdv
228+ 'To Replace All the TreeNodeAdv
227229 Private Sub button4_Click( ByVal sender As Object , ByVal e As EventArgs) Handles button4.Click
228230 Me .TreeView.SelectedNodes.Clear()
229231 If dialog.FindAll( Me .findTextBox.Text) Then
0 commit comments