diff --git a/GBM/Forms/frmFileFolderSearch.Designer.vb b/GBM/Forms/frmFileFolderSearch.Designer.vb index 7b792a6..4f3ab2e 100644 --- a/GBM/Forms/frmFileFolderSearch.Designer.vb +++ b/GBM/Forms/frmFileFolderSearch.Designer.vb @@ -71,12 +71,12 @@ Partial Class frmFileFolderSearch ' 'lblResults ' - Me.lblResults.AutoSize = True Me.lblResults.Location = New System.Drawing.Point(9, 36) Me.lblResults.Name = "lblResults" - Me.lblResults.Size = New System.Drawing.Size(45, 13) + Me.lblResults.Size = New System.Drawing.Size(463, 13) Me.lblResults.TabIndex = 1 - Me.lblResults.Text = "Results:" + Me.lblResults.Text = "Search Results" + Me.lblResults.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'frmFileFolderSearch ' diff --git a/GBM/Forms/frmFileFolderSearch.vb b/GBM/Forms/frmFileFolderSearch.vb index 10e1ffc..6bc475d 100644 --- a/GBM/Forms/frmFileFolderSearch.vb +++ b/GBM/Forms/frmFileFolderSearch.vb @@ -168,15 +168,17 @@ Public Class frmFileFolderSearch Private Sub EndSearch() Dim oResult As MsgBoxResult - If FoundItem = "Cancel" Then FoundItem = String.Empty + If Not bShutdown Then + If FoundItem = "Cancel" Then FoundItem = String.Empty - If oDrives.Count > iCurrentDrive And FoundItem = String.Empty Then - oResult = mgrCommon.ShowMessage(frmFileFolderSearch_SwitchDrives, New String() {oDrives(iCurrentDrive).RootDirectory.ToString}, MsgBoxStyle.YesNo) - If oResult = MsgBoxResult.Yes Then - Search(oDrives(iCurrentDrive)) + If oDrives.Count > iCurrentDrive And FoundItem = String.Empty Then + oResult = mgrCommon.ShowMessage(frmFileFolderSearch_SwitchDrives, New String() {oDrives(iCurrentDrive).RootDirectory.ToString}, MsgBoxStyle.YesNo) + If oResult = MsgBoxResult.Yes Then + Search(oDrives(iCurrentDrive)) + End If + Else + SearchComplete() End If - Else - SearchComplete() End If End Sub diff --git a/GBM/Forms/frmIncludeExclude.vb b/GBM/Forms/frmIncludeExclude.vb index 827a346..154f6e6 100644 --- a/GBM/Forms/frmIncludeExclude.vb +++ b/GBM/Forms/frmIncludeExclude.vb @@ -335,6 +335,10 @@ Public Class frmIncludeExclude Private Sub lstBuilder_AfterLabelEdit(sender As Object, e As LabelEditEventArgs) Handles lstBuilder.AfterLabelEdit If Not e.Label Is Nothing Then + If e.Label = String.Empty Then + e.CancelEdit = True + End If + If lstBuilder.Items.ContainsKey(e.Label) Then e.CancelEdit = True Else diff --git a/GBM/My Project/Resources.Designer.vb b/GBM/My Project/Resources.Designer.vb index a0c476b..4c3b60a 100644 --- a/GBM/My Project/Resources.Designer.vb +++ b/GBM/My Project/Resources.Designer.vb @@ -842,7 +842,7 @@ Namespace My.Resources Return ResourceManager.GetString("frmFileFolderSearch_btnOk", resourceCulture) End Get End Property - + ''' ''' Looks up a localized string similar to Search. ''' @@ -851,16 +851,16 @@ Namespace My.Resources Return ResourceManager.GetString("frmFileFolderSearch_FormName", resourceCulture) End Get End Property - + ''' - ''' Looks up a localized string similar to Results:. + ''' Looks up a localized string similar to Search Results. ''' Friend ReadOnly Property frmFileFolderSearch_lblResults() As String Get Return ResourceManager.GetString("frmFileFolderSearch_lblResults", resourceCulture) End Get End Property - + ''' ''' Looks up a localized string similar to Search Complete!. ''' @@ -869,7 +869,7 @@ Namespace My.Resources Return ResourceManager.GetString("frmFileFolderSearch_SearchComplete", resourceCulture) End Get End Property - + ''' ''' Looks up a localized string similar to Do you wish to search the [PARAM] drive?. ''' @@ -878,7 +878,7 @@ Namespace My.Resources Return ResourceManager.GetString("frmFileFolderSearch_SwitchDrives", resourceCulture) End Get End Property - + ''' ''' Looks up a localized string similar to >. ''' diff --git a/GBM/My Project/Resources.resx b/GBM/My Project/Resources.resx index 3d1fb5d..c879fe8 100644 --- a/GBM/My Project/Resources.resx +++ b/GBM/My Project/Resources.resx @@ -1589,7 +1589,7 @@ &OK - Results: + Search Results Search Complete!