Simply Visual Basic 2010 Screen Saver App
ghase
screensaver.zipScreenSaver/ScreenSaver/bin/Debug/ScreenSaver.exe
__MACOSX/ScreenSaver/ScreenSaver/bin/Debug/._ScreenSaver.exe
ScreenSaver/ScreenSaver/bin/Debug/ScreenSaver.pdb
__MACOSX/ScreenSaver/ScreenSaver/bin/Debug/._ScreenSaver.pdb
ScreenSaver/ScreenSaver/bin/Debug/ScreenSaver.vshost.exe
ScreenSaver/ScreenSaver/bin/Debug/ScreenSaver.vshost.exe.manifest
ScreenSaver/ScreenSaver/bin/Debug/ScreenSaver.xml
ScreenSaver
__MACOSX/ScreenSaver/ScreenSaver/bin/Debug/._ScreenSaver.xml
ScreenSaver/ScreenSaver/My Project/Application.Designer.vb
'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.239 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My 'NOTE: This file is auto-generated; do not modify it directly. To make changes, ' or if you encounter build errors in this file, go to the Project Designer ' (go to Project Properties or double-click the My Project node in ' Solution Explorer), and make changes on the Application tab. ' Partial Friend Class MyApplication <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false Me.EnableVisualStyles = true Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.ScreenSaver.ScreenSaverForm End Sub End Class End Namespace
__MACOSX/ScreenSaver/ScreenSaver/My Project/._Application.Designer.vb
ScreenSaver/ScreenSaver/My Project/Application.myapp
<?xml version="1.0" encoding="utf-16"?> <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <MySubMain>true</MySubMain> <MainForm>ScreenSaverForm</MainForm> <SingleInstance>false</SingleInstance> <ShutdownMode>0</ShutdownMode> <EnableVisualStyles>true</EnableVisualStyles> <AuthenticationMode>0</AuthenticationMode> <SaveMySettingsOnExit>true</SaveMySettingsOnExit> </MyApplicationData>
__MACOSX/ScreenSaver/ScreenSaver/My Project/._Application.myapp
ScreenSaver/ScreenSaver/My Project/AssemblyInfo.vb
Imports System Imports System.Reflection Imports System.Runtime.InteropServices ' General Information about an assembly is controlled through the following ' set of attributes. Change these attribute values to modify the information ' associated with an assembly. ' Review the values of the assembly attributes <Assembly: AssemblyTitle("ScreenSaver")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("ScreenSaver")> <Assembly: AssemblyCopyright("Copyright © 2008")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("deba0764-c185-4925-95a5-a23a18ff4b5c")> ' Version information for an assembly consists of the following four values: ' ' Major Version ' Minor Version ' Build Number ' Revision ' ' You can specify all the values or you can default the Build and Revision Numbers ' by using the '*' as shown below: ' <Assembly: AssemblyVersion("1.0.*")> <Assembly: AssemblyVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
__MACOSX/ScreenSaver/ScreenSaver/My Project/._AssemblyInfo.vb
ScreenSaver/ScreenSaver/My Project/Resources.Designer.vb
'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.239 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Namespace My.Resources 'This class was auto-generated by the StronglyTypedResourceBuilder 'class via a tool like ResGen or Visual Studio. 'To add or remove a member, edit your .ResX file then rerun ResGen 'with the /str option, or rebuild your VS project. '''<summary> ''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo '''<summary> ''' Returns the cached ResourceManager instance used by this class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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("ScreenSaver.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property '''<summary> ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set resourceCulture = value End Set End Property End Module End Namespace
__MACOSX/ScreenSaver/ScreenSaver/My Project/._Resources.Designer.vb
ScreenSaver/ScreenSaver/My Project/Resources.resx
text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
__MACOSX/ScreenSaver/ScreenSaver/My Project/._Resources.resx
ScreenSaver/ScreenSaver/My Project/Settings.Designer.vb
'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.239 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase 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 addedHandlerLockObject As New Object <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 #End If Return defaultInstance End Get End Property End Class End Namespace Namespace My <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Friend Module MySettingsProperty <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ Friend ReadOnly Property Settings() As Global.ScreenSaver.My.MySettings Get Return Global.ScreenSaver.My.MySettings.Default End Get End Property End Module End Namespace
__MACOSX/ScreenSaver/ScreenSaver/My Project/._Settings.Designer.vb
ScreenSaver/ScreenSaver/My Project/Settings.settings
__MACOSX/ScreenSaver/ScreenSaver/My Project/._Settings.settings
ScreenSaver/ScreenSaver/obj/Debug/DesignTimeResolveAssemblyReferences.cache
ScreenSaver/ScreenSaver/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.exe
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/._ScreenSaver.exe
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.pdb
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/._ScreenSaver.pdb
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.Resources.resources
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/._ScreenSaver.Resources.resources
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.ScreenSaverForm.resources
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/._ScreenSaver.ScreenSaverForm.resources
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.vbproj.FileListAbsolute.txt
C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\bin\Debug\ScreenSaver.exe C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\bin\Debug\ScreenSaver.pdb C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\bin\Debug\ScreenSaver.xml C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ResolveAssemblyReference.cache C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.Resources.resources C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.ScreenSaverForm.resources C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.vbproj.GenerateResource.Cache C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.exe C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.xml C:\Solutions\Tutorial27_CheckWriterSolutions\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.pdb C:\Examples\Tutorial27_CheckWriter\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.exe C:\Examples\Tutorial27_CheckWriter\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.xml C:\Examples\Tutorial27_CheckWriter\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.pdb C:\books\2012\SimplyVB2010\Examples\ch26\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.exe C:\books\2012\SimplyVB2010\Examples\ch26\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.xml C:\books\2012\SimplyVB2010\Examples\ch26\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.pdb B:\CSCI 310\ch25\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.exe B:\CSCI 310\ch25\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.xml B:\CSCI 310\ch25\Exercises\ScreenSaver\ScreenSaver\obj\Debug\ScreenSaver.pdb
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.vbproj.GenerateResource.Cache
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/._ScreenSaver.vbproj.GenerateResource.Cache
ScreenSaver/ScreenSaver/obj/Debug/ScreenSaver.xml
ScreenSaver
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/._ScreenSaver.xml
ScreenSaver/ScreenSaver/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
__MACOSX/ScreenSaver/ScreenSaver/obj/Debug/TempPE/._My Project.Resources.Designer.vb.dll
ScreenSaver/ScreenSaver/ScreenSaver.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class ScreenSaverForm Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.screenSaverTimer = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() ' 'screenSaverTimer ' Me.screenSaverTimer.Enabled = True Me.screenSaverTimer.Interval = 1000 ' 'ScreenSaverForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.Black Me.ClientSize = New System.Drawing.Size(434, 314) Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "ScreenSaverForm" Me.Text = "Screen Saver" Me.ResumeLayout(False) End Sub Friend WithEvents screenSaverTimer As System.Windows.Forms.Timer End Class
__MACOSX/ScreenSaver/ScreenSaver/._ScreenSaver.Designer.vb
ScreenSaver/ScreenSaver/ScreenSaver.resx
text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 17, 17
__MACOSX/ScreenSaver/ScreenSaver/._ScreenSaver.resx
ScreenSaver/ScreenSaver/ScreenSaver.vb
Public Class ScreenSaverForm ' create a specified graphic on the form Private Sub DisplayShape() End Sub ' DisplayShape ' invoked each time screenSaverTimer ticks Private Sub ScreenSaverTimer_Tick(sender As System.Object, e As System.EventArgs) Handles screenSaverTimer.Tick DisplayShape() ' draws another shape End Sub ' screenSaverTimer_Tick End Class ' ScreenSaverForm ' ************************************************************************** ' * (C) Copyright 1992-2013 by Deitel & Associates, Inc. and * ' * Pearson Education, Inc. All Rights Reserved. * ' * * ' * DISCLAIMER: The authors and publisher of this book have used their * ' * best efforts in preparing the book. These efforts include the * ' * development, research, and testing of the theories and programs * ' * to determine their effectiveness. The authors and publisher make * ' * no warranty of any kind, expressed or implied, with regard to these * ' * programs or to the documentation contained in these books. The authors * ' * and publisher shall not be liable in any event for incidental or * ' * consequential damages in connection with, or arising out of, the * ' * furnishing, performance, or use of these programs. * ' **************************************************************************
__MACOSX/ScreenSaver/ScreenSaver/._ScreenSaver.vb
ScreenSaver/ScreenSaver/ScreenSaver.vbproj
Debug AnyCPU 9.0.21022 2.0 {917B212F-11CF-4080-A361-85D4280A73B4} WinExe ScreenSaver.My.MyApplication ScreenSaver ScreenSaver 512 WindowsForms v4.0 On Binary On On 3.5 true full true true bin\Debug\ ScreenSaver.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 pdbonly false true true bin\Release\ ScreenSaver.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 3.5 3.5 3.5 Form ScreenSaver.vb Form True Application.myapp True True Resources.resx True Settings.settings True VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer ScreenSaver.vb Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb
__MACOSX/ScreenSaver/ScreenSaver/._ScreenSaver.vbproj
ScreenSaver/ScreenSaver/ScreenSaver.vbproj.user
__MACOSX/ScreenSaver/ScreenSaver/._ScreenSaver.vbproj.user
ScreenSaver/ScreenSaver.sln
Microsoft Visual Studio Solution File, Format Version 11.00 # Visual Basic Express 2010 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ScreenSaver", "ScreenSaver\ScreenSaver.vbproj", "{917B212F-11CF-4080-A361-85D4280A73B4}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {917B212F-11CF-4080-A361-85D4280A73B4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {917B212F-11CF-4080-A361-85D4280A73B4}.Debug|Any CPU.Build.0 = Debug|Any CPU {917B212F-11CF-4080-A361-85D4280A73B4}.Release|Any CPU.ActiveCfg = Release|Any CPU {917B212F-11CF-4080-A361-85D4280A73B4}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal
