TheCurle/acedotnet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First attempt at recreating ACEPM

Browse Source
This commit is contained in:
Curle 2024-01-28 23:04:59 +00:00
commit e3a889bc9a
10 changed files with 1977 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored Normal file
View File

@ -0,0 +1,3 @@
bin/
obj/
.vs/

25
ACEdotnet.sln Normal file
View File

@ -0,0 +1,25 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17
VisualStudioVersion = 17.8.34330.188
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ACEdotnet", "ACEdotnet.vbproj", "{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Debug|Any CPU.Build.0 = Debug|Any CPU
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Release|Any CPU.ActiveCfg = Release|Any CPU
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {28C11CDB-B928-444D-AA9D-B57D1DCAF9E4}
EndGlobalSection
EndGlobal

33
ACEdotnet.vbproj Normal file
View File

@ -0,0 +1,33 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>WinExe</OutputType>
<TargetFramework>net8.0-windows</TargetFramework>
<StartupObject>ACEdotnet.My.MyApplication</StartupObject>
<UseWindowsForms>true</UseWindowsForms>
<MyType>WindowsForms</MyType>
<AppDesignerFolder>Acedotnet</AppDesignerFolder>
</PropertyGroup>
<ItemGroup>
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Update="Acedotnet\Application.Designer.vb">
<DesignTime>True</DesignTime>
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<None Update="Acedotnet\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
</Project>

8
ACEdotnet.vbproj.user Normal file
View File

@ -0,0 +1,8 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup>
<Compile Update="Acepm.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
</Project>

45
Acedotnet/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,45 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' 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
Me.HighDpiMode = HighDpiMode.DpiUnaware
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.ACEdotnet.Acepm
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace

10
Acedotnet/Application.myapp Normal file
View File

@ -0,0 +1,10 @@
<?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>Acepm</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

477
Acepm.Designer.vb generated Normal file
View File

@ -0,0 +1,477 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Acepm
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()
DLAP = New Button()
DLBP = New Button()
InA = New Button()
InText = New TextBox()
InB = New Button()
TS = New Button()
InputText = New Button()
InstrText = New Button()
Up = New Button()
Down = New Button()
Button6 = New Button()
Writer = New Button()
Reader = New Button()
Enter = New Button()
Run = New Button()
Oneshot = New Button()
InitCards = New Button()
Exitt = New Button()
Button14 = New Button()
Frame1 = New GroupBox()
Instruction = New CheckBox()
Hexadecimal = New CheckBox()
Dec = New CheckBox()
MCV = New TextBox()
Label1 = New Label()
TCAText = New TextBox()
TCBText = New TextBox()
mcText = New TextBox()
TotalText = New TextBox()
OutText = New TextBox()
Label2 = New Label()
Label3 = New Label()
Trackk = New TextBox()
DL = New TextBox()
EnterAt = New TextBox()
Label4 = New Label()
CardNumber = New TextBox()
PunchNumber = New TextBox()
Frame1.SuspendLayout()
SuspendLayout()
'
' DLAP
'
DLAP.Location = New Point(25, 25)
DLAP.Name = "DLAP"
DLAP.Size = New Size(25, 25)
DLAP.TabIndex = 0
DLAP.Text = "A"
DLAP.UseVisualStyleBackColor = True
'
' DLBP
'
DLBP.Location = New Point(225, 25)
DLBP.Name = "DLBP"
DLBP.Size = New Size(25, 25)
DLBP.TabIndex = 1
DLBP.Text = "B"
DLBP.UseVisualStyleBackColor = True
'
' InA
'
InA.Location = New Point(625, 25)
InA.Name = "InA"
InA.Size = New Size(25, 25)
InA.TabIndex = 2
InA.Text = "A"
InA.UseVisualStyleBackColor = True
'
' InText
'
InText.Location = New Point(656, 25)
InText.Name = "InText"
InText.Size = New Size(200, 23)
InText.TabIndex = 3
'
' InB
'
InB.Location = New Point(625, 50)
InB.Name = "InB"
InB.Size = New Size(25, 25)
InB.TabIndex = 4
InB.Text = "B"
InB.UseVisualStyleBackColor = True
'
' TS
'
TS.Location = New Point(656, 50)
TS.Name = "TS"
TS.Size = New Size(55, 25)
TS.TabIndex = 5
TS.Text = "TS"
TS.UseVisualStyleBackColor = True
'
' InputText
'
InputText.Location = New Point(717, 50)
InputText.Name = "InputText"
InputText.Size = New Size(55, 25)
InputText.TabIndex = 6
InputText.Text = "Input"
InputText.UseVisualStyleBackColor = True
'
' InstrText
'
InstrText.Location = New Point(778, 50)
InstrText.Name = "InstrText"
InstrText.Size = New Size(55, 25)
InstrText.TabIndex = 7
InstrText.Text = "Instr."
InstrText.UseVisualStyleBackColor = True
'
' Up
'
Up.Location = New Point(656, 137)
Up.Name = "Up"
Up.Size = New Size(50, 25)
Up.TabIndex = 8
Up.Text = "Up"
Up.UseVisualStyleBackColor = True
'
' Down
'
Down.Location = New Point(712, 137)
Down.Name = "Down"
Down.Size = New Size(50, 25)
Down.TabIndex = 9
Down.Text = "Down"
Down.UseVisualStyleBackColor = True
'
' Button6
'
Button6.Location = New Point(768, 137)
Button6.Name = "Button6"
Button6.Size = New Size(50, 25)
Button6.TabIndex = 10
Button6.Text = "Zero"
Button6.UseVisualStyleBackColor = True
'
' Writer
'
Writer.Location = New Point(625, 300)
Writer.Name = "Writer"
Writer.Size = New Size(50, 25)
Writer.TabIndex = 11
Writer.Text = "Write"
Writer.UseVisualStyleBackColor = True
'
' Reader
'
Reader.Location = New Point(681, 300)
Reader.Name = "Reader"
Reader.Size = New Size(50, 25)
Reader.TabIndex = 12
Reader.Text = "Read"
Reader.UseVisualStyleBackColor = True
'
' Enter
'
Enter.Location = New Point(625, 350)
Enter.Name = "Enter"
Enter.Size = New Size(50, 25)
Enter.TabIndex = 13
Enter.Text = "Enter"
Enter.UseVisualStyleBackColor = True
'
' Run
'
Run.Location = New Point(710, 350)
Run.Name = "Run"
Run.Size = New Size(50, 25)
Run.TabIndex = 14
Run.Text = "Run"
Run.UseVisualStyleBackColor = True
'
' Oneshot
'
Oneshot.Location = New Point(765, 350)
Oneshot.Name = "Oneshot"
Oneshot.Size = New Size(50, 25)
Oneshot.TabIndex = 15
Oneshot.Text = "1-Shot"
Oneshot.UseVisualStyleBackColor = True
'
' InitCards
'
InitCards.Location = New Point(625, 400)
InitCards.Name = "InitCards"
InitCards.Size = New Size(100, 25)
InitCards.TabIndex = 16
InitCards.Text = "Init. Cards"
InitCards.UseVisualStyleBackColor = True
'
' Exitt
'
Exitt.Location = New Point(625, 450)
Exitt.Name = "Exitt"
Exitt.Size = New Size(50, 25)
Exitt.TabIndex = 17
Exitt.Text = "EXIT"
Exitt.UseVisualStyleBackColor = True
'
' Button14
'
Button14.Location = New Point(700, 450)
Button14.Name = "Button14"
Button14.Size = New Size(50, 25)
Button14.TabIndex = 18
Button14.Text = "Punch Card"
Button14.UseVisualStyleBackColor = True
'
' Frame1
'
Frame1.Controls.Add(Instruction)
Frame1.Controls.Add(Hexadecimal)
Frame1.Controls.Add(Dec)
Frame1.Location = New Point(625, 81)
Frame1.Name = "Frame1"
Frame1.Size = New Size(250, 50)
Frame1.TabIndex = 19
Frame1.TabStop = False
Frame1.Text = "Word Format"
'
' Instruction
'
Instruction.AutoSize = True
Instruction.Location = New Point(179, 22)
Instruction.Name = "Instruction"
Instruction.Size = New Size(49, 19)
Instruction.TabIndex = 22
Instruction.Text = "Instr"
Instruction.UseVisualStyleBackColor = True
'
' Hexadecimal
'
Hexadecimal.AutoSize = True
Hexadecimal.Location = New Point(21, 22)
Hexadecimal.Name = "Hexadecimal"
Hexadecimal.Size = New Size(47, 19)
Hexadecimal.TabIndex = 20
Hexadecimal.Text = "Hex"
Hexadecimal.UseVisualStyleBackColor = True
'
' Dec
'
Dec.AutoSize = True
Dec.Location = New Point(106, 22)
Dec.Name = "Dec"
Dec.Size = New Size(46, 19)
Dec.TabIndex = 21
Dec.Text = "Dec"
Dec.UseVisualStyleBackColor = True
'
' MCV
'
MCV.Location = New Point(625, 137)
MCV.Name = "MCV"
MCV.Size = New Size(25, 23)
MCV.TabIndex = 20
'
' Label1
'
Label1.AutoSize = True
Label1.Location = New Point(625, 176)
Label1.Name = "Label1"
Label1.Size = New Size(172, 15)
Label1.TabIndex = 21
Label1.Text = "TCA TCB m.c. total m.c."
'
' TCAText
'
TCAText.Location = New Point(624, 194)
TCAText.Name = "TCAText"
TCAText.Size = New Size(25, 23)
TCAText.TabIndex = 22
'
' TCBText
'
TCBText.Location = New Point(655, 194)
TCBText.Name = "TCBText"
TCBText.Size = New Size(25, 23)
TCBText.TabIndex = 23
'
' mcText
'
mcText.Location = New Point(686, 194)
mcText.Name = "mcText"
mcText.Size = New Size(25, 23)
mcText.TabIndex = 23
'
' TotalText
'
TotalText.Location = New Point(717, 194)
TotalText.Name = "TotalText"
TotalText.Size = New Size(100, 23)
TotalText.TabIndex = 23
'
' OutText
'
OutText.Location = New Point(686, 237)
OutText.Name = "OutText"
OutText.Size = New Size(100, 23)
OutText.TabIndex = 23
'
' Label2
'
Label2.AutoSize = True
Label2.Location = New Point(625, 239)
Label2.Name = "Label2"
Label2.Size = New Size(45, 15)
Label2.TabIndex = 21
Label2.Text = "Output"
'
' Label3
'
Label3.AutoSize = True
Label3.Location = New Point(636, 272)
Label3.Name = "Label3"
Label3.Size = New Size(154, 15)
Label3.TabIndex = 21
Label3.Text = "DRUM / CARDS Track DL"
'
' Trackk
'
Trackk.Location = New Point(737, 300)
Trackk.Name = "Trackk"
Trackk.Size = New Size(25, 23)
Trackk.TabIndex = 22
'
' DL
'
DL.Location = New Point(768, 300)
DL.Name = "DL"
DL.Size = New Size(25, 23)
DL.TabIndex = 22
'
' EnterAt
'
EnterAt.Location = New Point(680, 350)
EnterAt.Name = "EnterAt"
EnterAt.Size = New Size(25, 23)
EnterAt.TabIndex = 22
'
' Label4
'
Label4.Location = New Point(731, 400)
Label4.Name = "Label4"
Label4.Size = New Size(61, 20)
Label4.TabIndex = 24
Label4.Text = "Read Card"
'
' CardNumber
'
CardNumber.Location = New Point(798, 400)
CardNumber.Name = "CardNumber"
CardNumber.Size = New Size(25, 23)
CardNumber.TabIndex = 22
'
' PunchNumber
'
PunchNumber.Location = New Point(761, 452)
PunchNumber.Name = "PunchNumber"
PunchNumber.Size = New Size(25, 23)
PunchNumber.TabIndex = 22
'
' Acepm
'
AutoScaleDimensions = New SizeF(7.0F, 15.0F)
AutoScaleMode = AutoScaleMode.Font
ClientSize = New Size(866, 492)
Controls.Add(Label4)
Controls.Add(OutText)
Controls.Add(TotalText)
Controls.Add(mcText)
Controls.Add(TCBText)
Controls.Add(DL)
Controls.Add(PunchNumber)
Controls.Add(CardNumber)
Controls.Add(EnterAt)
Controls.Add(Trackk)
Controls.Add(TCAText)
Controls.Add(Label2)
Controls.Add(Label3)
Controls.Add(Label1)
Controls.Add(MCV)
Controls.Add(Frame1)
Controls.Add(Button14)
Controls.Add(Exitt)
Controls.Add(InitCards)
Controls.Add(Oneshot)
Controls.Add(Run)
Controls.Add(Enter)
Controls.Add(Reader)
Controls.Add(Writer)
Controls.Add(Button6)
Controls.Add(Down)
Controls.Add(Up)
Controls.Add(InstrText)
Controls.Add(InputText)
Controls.Add(TS)
Controls.Add(InB)
Controls.Add(InText)
Controls.Add(InA)
Controls.Add(DLBP)
Controls.Add(DLAP)
Name = "Acepm"
Text = "Acepm"
Frame1.ResumeLayout(False)
Frame1.PerformLayout()
ResumeLayout(False)
PerformLayout()
End Sub
Friend WithEvents DLAP As Button
Friend WithEvents DLBP As Button
Friend WithEvents InA As Button
Friend WithEvents InText As TextBox
Friend WithEvents InB As Button
Friend WithEvents TS As Button
Friend WithEvents InputText As Button
Friend WithEvents InstrText As Button
Friend WithEvents Up As Button
Friend WithEvents Down As Button
Friend WithEvents Button6 As Button
Friend WithEvents Writer As Button
Friend WithEvents Reader As Button
Friend WithEvents Enter As Button
Friend WithEvents Run As Button
Friend WithEvents Oneshot As Button
Friend WithEvents InitCards As Button
Friend WithEvents Exitt As Button
Friend WithEvents Button14 As Button
Friend WithEvents Frame1 As GroupBox
Friend WithEvents Instruction As CheckBox
Friend WithEvents Hexadecimal As CheckBox
Friend WithEvents Dec As CheckBox
Friend WithEvents MCV As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents TCAText As TextBox
Friend WithEvents TCBText As TextBox
Friend WithEvents mcText As TextBox
Friend WithEvents TotalText As TextBox
Friend WithEvents OutText As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Trackk As TextBox
Friend WithEvents DL As TextBox
Friend WithEvents EnterAt As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents CardNumber As TextBox
Friend WithEvents PunchNumber As TextBox
End Class

120
Acepm.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

1227
Acepm.vb Normal file
View File

File diff suppressed because it is too large Load Diff

29
ApplicationEvents.vb Normal file
View File

@ -0,0 +1,29 @@
Imports Microsoft.VisualBasic.ApplicationServices
Namespace My
' The following events are available for MyApplication:
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
' Example:
' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
'
' ' Setting the application-wide default Font:
' e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
'
' ' Setting the HighDpiMode for the Application:
' e.HighDpiMode = HighDpiMode.PerMonitorV2
'
' ' If a splash dialog is used, this sets the minimum display time:
' e.MinimumSplashScreenDisplayTime = 4000
' End Sub
Partial Friend Class MyApplication
End Class
End Namespace