diff --git a/webmouse.sln b/webcrab.sln similarity index 82% rename from webmouse.sln rename to webcrab.sln index ff0aa13..47d868f 100755 --- a/webmouse.sln +++ b/webcrab.sln @@ -1,7 +1,7 @@  Microsoft Visual Studio Solution File, Format Version 11.00 # Visual Studio 2010 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "webmouse", "webmouse\webmouse.vbproj", "{78548D07-15EF-4268-9126-BB8FA39889C8}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "webcrab", "webcrab\webcrab.vbproj", "{78548D07-15EF-4268-9126-BB8FA39889C8}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution diff --git a/webmouse/App.config b/webcrab/App.config similarity index 100% rename from webmouse/App.config rename to webcrab/App.config diff --git a/webmouse/My Project/Application.Designer.vb b/webcrab/My Project/Application.Designer.vb similarity index 94% rename from webmouse/My Project/Application.Designer.vb rename to webcrab/My Project/Application.Designer.vb index 1e1232b..3e3eb4c 100755 --- a/webmouse/My Project/Application.Designer.vb +++ b/webcrab/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.webmouse.main + Me.MainForm = Global.webcrab.main End Sub End Class End Namespace diff --git a/webmouse/My Project/Application.myapp b/webcrab/My Project/Application.myapp similarity index 100% rename from webmouse/My Project/Application.myapp rename to webcrab/My Project/Application.myapp diff --git a/webmouse/My Project/AssemblyInfo.vb b/webcrab/My Project/AssemblyInfo.vb similarity index 100% rename from webmouse/My Project/AssemblyInfo.vb rename to webcrab/My Project/AssemblyInfo.vb diff --git a/webmouse/My Project/Resources.Designer.vb b/webcrab/My Project/Resources.Designer.vb similarity index 79% rename from webmouse/My Project/Resources.Designer.vb rename to webcrab/My Project/Resources.Designer.vb index b382d76..6fc69de 100755 --- a/webmouse/My Project/Resources.Designer.vb +++ b/webcrab/My Project/Resources.Designer.vb @@ -11,6 +11,7 @@ Option Strict On Option Explicit On +Imports System Namespace My.Resources @@ -21,40 +22,40 @@ Namespace My.Resources ''' ''' A strongly-typed resource class, for looking up localized strings, etc. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' ''' Returns the cached ResourceManager instance used by this class. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("webmouse.Resources", GetType(Resources).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("webcrab.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property - + ''' ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property diff --git a/webmouse/My Project/Resources.resx b/webcrab/My Project/Resources.resx similarity index 100% rename from webmouse/My Project/Resources.resx rename to webcrab/My Project/Resources.resx diff --git a/webmouse/My Project/Settings.Designer.vb b/webcrab/My Project/Settings.Designer.vb similarity index 57% rename from webmouse/My Project/Settings.Designer.vb rename to webcrab/My Project/Settings.Designer.vb index faf2b18..1a90047 100755 --- a/webmouse/My Project/Settings.Designer.vb +++ b/webcrab/My Project/Settings.Designer.vb @@ -13,42 +13,42 @@ Option Explicit On Namespace My - - _ + + _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) - + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean + Private Shared addedHandler As Boolean - Private Shared addedHandlerLockObject As New Object + Private Shared addedHandlerLockObject As New Object - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub #End If #End Region - + Public Shared ReadOnly Property [Default]() As MySettings Get - + #If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If #End If Return defaultInstance End Get @@ -64,9 +64,9 @@ Namespace My Friend Module MySettingsProperty _ - Friend ReadOnly Property Settings() As Global.webmouse.My.MySettings + Friend ReadOnly Property Settings() As Global.webcrab.My.MySettings Get - Return Global.webmouse.My.MySettings.Default + Return Global.webcrab.My.MySettings.Default End Get End Property End Module diff --git a/webmouse/My Project/Settings.settings b/webcrab/My Project/Settings.settings similarity index 100% rename from webmouse/My Project/Settings.settings rename to webcrab/My Project/Settings.settings diff --git a/webmouse/My Project/app.manifest b/webcrab/My Project/app.manifest similarity index 100% rename from webmouse/My Project/app.manifest rename to webcrab/My Project/app.manifest diff --git a/webmouse/input.vb b/webcrab/input.vb similarity index 100% rename from webmouse/input.vb rename to webcrab/input.vb diff --git a/webmouse/main.Designer.vb b/webcrab/main.Designer.vb similarity index 100% rename from webmouse/main.Designer.vb rename to webcrab/main.Designer.vb diff --git a/webmouse/main.resx b/webcrab/main.resx similarity index 100% rename from webmouse/main.resx rename to webcrab/main.resx diff --git a/webmouse/main.vb b/webcrab/main.vb similarity index 100% rename from webmouse/main.vb rename to webcrab/main.vb diff --git a/webmouse/webmouse.vbproj b/webcrab/webcrab.vbproj similarity index 91% rename from webmouse/webmouse.vbproj rename to webcrab/webcrab.vbproj index 43f8fb5..6c104c1 100755 --- a/webmouse/webmouse.vbproj +++ b/webcrab/webcrab.vbproj @@ -8,9 +8,9 @@ 2.0 {78548D07-15EF-4268-9126-BB8FA39889C8} WinExe - webmouse.My.MyApplication - webmouse - webmouse + webcrab.My.MyApplication + webcrab + webcrab 512 WindowsForms v4.0 @@ -23,7 +23,7 @@ true true bin\Debug\ - webmouse.xml + webcrab.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -33,7 +33,7 @@ true true bin\Release\ - webmouse.xml + webcrab.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -98,7 +98,6 @@ Settings.settings True -