Moved remaining strings to resource (managers)

This commit is contained in:
Michael J. Seiferling
2015-12-24 11:19:53 -06:00
parent 51ca315edd
commit 88e0fa9afd
14 changed files with 817 additions and 131 deletions
+6 -5
View File
@@ -1,4 +1,5 @@
Imports System.Net
Imports GBM.My.Resources
Imports System.Net
Public Class mgrCommon
@@ -34,9 +35,9 @@ Public Class mgrCommon
Public Shared Function BooleanYesNo(ByVal bBool As Boolean) As String
If bBool Then
Return "Yes"
Return mgrCommon_Yes
Else
Return "No"
Return mgrCommon_No
End If
End Function
@@ -44,7 +45,7 @@ Public Class mgrCommon
Dim fbBrowser As New SaveFileDialog
fbBrowser.Title = sTitle
fbBrowser.DefaultExt = sExtension
fbBrowser.Filter = sFileType & " files (*." & sExtension & ")|*." & sExtension
fbBrowser.Filter = FormatString(mgrCommon_FilesFilter, New String() {sFileType, sExtension, sExtension})
fbBrowser.InitialDirectory = sDefaultFolder
fbBrowser.FileName = sDefaultFile
@@ -59,7 +60,7 @@ Public Class mgrCommon
Dim fbBrowser As New OpenFileDialog
fbBrowser.Title = sTitle
fbBrowser.DefaultExt = sExtension
fbBrowser.Filter = sFileType & " files (*." & sExtension & ")|*." & sExtension
fbBrowser.Filter = FormatString(mgrCommon_FilesFilter, New String() {sFileType, sExtension, sExtension})
fbBrowser.InitialDirectory = sDefaultFolder
fbBrowser.Multiselect = bMulti