Haegwang/Epole_Class
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
chi
2020-05-24 15:12:23 +09:00
parent 7ef4e8c5fd
commit 38f3d4a51e
135 changed files with 22837 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
.gitignore vendored Normal file
View File

@@ -0,0 +1,6 @@
bin
debug
obj
*.user
*.v12
*.v11

15
CEpole.sln
View File

@@ -1,9 +1,11 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.40629.0
# Visual Studio Version 16
VisualStudioVersion = 16.0.29609.76
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CEpole", "CEpole.vbproj", "{78345183-B834-4478-BD7A-775BFCCE2168}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CEpole_fp5", "Project_fp5\CEpole_fp5.vbproj", "{78345183-B834-4478-BD7A-775BFCCE2168}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CEpole_fp13", "Project_fp13\CEpole_fp13.vbproj", "{2BC2ED74-6A5C-4478-B897-E76F34FC1CCF}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -15,8 +17,15 @@ Global
{78345183-B834-4478-BD7A-775BFCCE2168}.Debug|Any CPU.Build.0 = Debug|Any CPU
{78345183-B834-4478-BD7A-775BFCCE2168}.Release|Any CPU.ActiveCfg = Release|Any CPU
{78345183-B834-4478-BD7A-775BFCCE2168}.Release|Any CPU.Build.0 = Release|Any CPU
{2BC2ED74-6A5C-4478-B897-E76F34FC1CCF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{2BC2ED74-6A5C-4478-B897-E76F34FC1CCF}.Debug|Any CPU.Build.0 = Debug|Any CPU
{2BC2ED74-6A5C-4478-B897-E76F34FC1CCF}.Release|Any CPU.ActiveCfg = Release|Any CPU
{2BC2ED74-6A5C-4478-B897-E76F34FC1CCF}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {DEAFB9B8-294E-46FB-8C51-84BEDCF4777E}
EndGlobalSection
EndGlobal

19
CEpole.vbproj.user
View File

@@ -1,19 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<PublishUrlHistory>
</PublishUrlHistory>
<InstallUrlHistory>
</InstallUrlHistory>
<SupportUrlHistory>
</SupportUrlHistory>
<UpdateUrlHistory>
</UpdateUrlHistory>
<BootstrapperUrlHistory>
</BootstrapperUrlHistory>
<ErrorReportUrlHistory>
</ErrorReportUrlHistory>
<FallbackCulture>ko-KR</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

1
My Project/licenses.licx
View File

@@ -1 +0,0 @@
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457

0
Auth.vb → Project/Auth.vb
View File

BIN
Project/CEpole.v12.suo Normal file
View File

Binary file not shown.

18
CEpole.vbproj → Project/CEpole.vbproj
View File

@@ -55,13 +55,13 @@
<DefineConstants>STYLES=0</DefineConstants>
</PropertyGroup>
<ItemGroup>
<Reference Include="FarPoint.CalcEngine, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.Excel, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.PDF, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.Win, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.Win.Chart, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="FarPoint.CalcEngine, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Excel, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.PDF, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Chart, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
@@ -237,10 +237,6 @@
<Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
<Name>ArinClassV2</Name>
</ProjectReference>
<ProjectReference Include="..\ArinNewFp5_Net4\ArinNewFp\ArinNewFp5Net4.vbproj">
<Project>{3611d55b-71e3-4d92-9efc-43f7d8bb8525}</Project>
<Name>ArinNewFp5Net4</Name>
</ProjectReference>
<ProjectReference Include="..\QRCodeLib\QRCodeLib.csproj">
<Project>{e98126b2-af17-4783-96b9-856d6744dca3}</Project>
<Name>QRCodeLib</Name>

0
C_Epole.vb → Project/C_Epole.vb
View File

0
C_label.vb → Project/C_label.vb
View File

0
ClassDiagram1.cd → Project/ClassDiagram1.cd
View File

0
Common.vb → Project/Common.vb
View File

0
Defalut_PrintForm.Designer.vb → Project/Defalut_PrintForm.Designer.vb generated
View File

0
Defalut_PrintForm.resx → Project/Defalut_PrintForm.resx
View File

0
Defalut_PrintForm.vb → Project/Defalut_PrintForm.vb
View File

0
DrawShape.vb → Project/DrawShape.vb
View File

0
FileToDataTable.vb → Project/FileToDataTable.vb
View File

0
Frm_ConvertINI.Designer.vb → Project/Frm_ConvertINI.Designer.vb generated
View File

0
Frm_ConvertINI.resx → Project/Frm_ConvertINI.resx
View File

0
Frm_ConvertINI.vb → Project/Frm_ConvertINI.vb
View File

0
Frm_Log.Designer.vb → Project/Frm_Log.Designer.vb generated
View File

0
Frm_Log.resx → Project/Frm_Log.resx
View File

0
Frm_Log.vb → Project/Frm_Log.vb
View File

0
Frm_Prnset.Designer.vb → Project/Frm_Prnset.Designer.vb generated
View File

0
Frm_Prnset.resx → Project/Frm_Prnset.resx
View File

0
Frm_Prnset.vb → Project/Frm_Prnset.vb
View File

0
Frm_Shortkey.Designer.vb → Project/Frm_Shortkey.Designer.vb generated
View File

0
Frm_Shortkey.resx → Project/Frm_Shortkey.resx
View File

0
Frm_Shortkey.vb → Project/Frm_Shortkey.vb
View File

0
My Project/Application.Designer.vb → Project/My Project/Application.Designer.vb generated
View File

0
My Project/Application.myapp → Project/My Project/Application.myapp
View File

0
My Project/AssemblyInfo.vb → Project/My Project/AssemblyInfo.vb
View File

0
My Project/Resources.Designer.vb → Project/My Project/Resources.Designer.vb generated
View File

0
My Project/Resources.resx → Project/My Project/Resources.resx
View File

0
My Project/Settings.Designer.vb → Project/My Project/Settings.Designer.vb generated
View File

0
My Project/Settings.settings → Project/My Project/Settings.settings
View File

1
Project/My Project/licenses.licx Normal file
View File

@@ -0,0 +1 @@
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457

0
PropertyGrid.vb → Project/PropertyGrid.vb
View File

0
Resources/landscape.bmp → Project/Resources/landscape.bmp
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.3 KiB

After

Width:  |  Height:  |  Size: 3.3 KiB

0
Resources/가로출력.bmp → Project/Resources/가로출력.bmp
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 15 KiB

After

Width:  |  Height:  |  Size: 15 KiB

0
Resources/세로출력.bmp → Project/Resources/세로출력.bmp
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 16 KiB

After

Width:  |  Height:  |  Size: 16 KiB

0
StyleEdit.Designer.vb → Project/StyleEdit.Designer.vb generated
View File

0
StyleEdit.resx → Project/StyleEdit.resx
View File

0
StyleEdit.vb → Project/StyleEdit.vb
View File

2
Project/desktop.ini Normal file
View File

@@ -0,0 +1,2 @@
[.ShellClassInfo]
IconResource=C:\Windows\system32\SHELL32.dll,17

0
selitem.Designer.vb → Project/selitem.Designer.vb generated
View File

0
selitem.resx → Project/selitem.resx
View File

0
selitem.vb → Project/selitem.vb
View File

0
번호형식완료.txt → Project/번호형식완료.txt
View File

21
Project_fp13/Auth.vb Normal file
View File

@@ -0,0 +1,21 @@
Public Class Auth
'//번호찰프로그램에서 사용할 인증방법
Public Function check_key1(ByVal key As String) As Boolean
'//구존 날짜(해쉬)
Dim k() As String = key.Split("%")
Dim A As String = k(1).Substring(0, 8)
Dim B As String = k(1).Substring(8)
If A.GetHashCode = B Then Return True
Return False
End Function
Public Function Check_key2(ByVal key As String) As Boolean
If key = "" Then Return True
Dim A As String = key.Split("%")(0)
Dim B As String = key.Split("%")(1)
If A.GetHashCode = B Then Return True
Return False
End Function
End Class

BIN
Project_fp13/CEpole.v12.suo Normal file
View File

Binary file not shown.

260
Project_fp13/CEpole_fp13.vbproj Normal file
View File

@@ -0,0 +1,260 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.21022</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{2BC2ED74-6A5C-4478-B897-E76F34FC1CCF}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>CEpole</RootNamespace>
<AssemblyName>CEpole</AssemblyName>
<MyType>Windows</MyType>
<FileUpgradeFlags>
</FileUpgradeFlags>
<OldToolsVersion>3.5</OldToolsVersion>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>false</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>CEpole.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DefineConstants>STYLES=0</DefineConstants>
<PlatformTarget>x86</PlatformTarget>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>false</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\debug\</OutputPath>
<DocumentationFile>CEpole.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DefineConstants>STYLES=0</DefineConstants>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<ItemGroup>
<Reference Include="FarPoint.CalcEngine, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Excel, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Localization, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.PDF, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.PluginCalendar.WinForms, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Chart, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Spread, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.CalcEngine, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="GrapeCity.Spreadsheet, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="GrapeCity.Spreadsheet.Win, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="GrapeCity.Win.PluginInputMan, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.ComponentModel" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
</ItemGroup>
<ItemGroup>
<Compile Include="Auth.vb" />
<Compile Include="Common.vb" />
<Compile Include="C_Epole.vb" />
<Compile Include="C_label.vb" />
<Compile Include="Defalut_PrintForm.Designer.vb">
<DependentUpon>Defalut_PrintForm.vb</DependentUpon>
</Compile>
<Compile Include="Defalut_PrintForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DrawShape.vb" />
<Compile Include="FileToDataTable.vb" />
<Compile Include="Frm_ConvertINI.Designer.vb">
<DependentUpon>Frm_ConvertINI.vb</DependentUpon>
</Compile>
<Compile Include="Frm_ConvertINI.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Frm_Shortkey.Designer.vb">
<DependentUpon>Frm_Shortkey.vb</DependentUpon>
</Compile>
<Compile Include="Frm_Shortkey.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Frm_Log.Designer.vb">
<DependentUpon>Frm_Log.vb</DependentUpon>
</Compile>
<Compile Include="Frm_Log.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Frm_Prnset.Designer.vb">
<DependentUpon>Frm_Prnset.vb</DependentUpon>
</Compile>
<Compile Include="Frm_Prnset.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="PropertyGrid.vb" />
<Compile Include="selitem.Designer.vb">
<DependentUpon>selitem.vb</DependentUpon>
</Compile>
<Compile Include="selitem.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="StyleEdit.Designer.vb">
<DependentUpon>StyleEdit.vb</DependentUpon>
</Compile>
<Compile Include="StyleEdit.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Frm_ConvertINI.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_ConvertINI.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Frm_Prnset.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_Prnset.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Frm_Shortkey.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_Shortkey.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Frm_Log.resx">
<DependentUpon>Frm_Log.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Defalut_PrintForm.resx">
<SubType>Designer</SubType>
<DependentUpon>Defalut_PrintForm.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="selitem.resx">
<SubType>Designer</SubType>
<DependentUpon>selitem.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="StyleEdit.resx">
<DependentUpon>StyleEdit.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<Service Include="{94E38DFF-614B-4CBD-B67C-F211BB35CE8B}" />
</ItemGroup>
<ItemGroup>
<None Include="ClassDiagram1.cd" />
<None Include="Resources\landscape.bmp" />
<None Include="Resources\가로출력.bmp" />
<None Include="Resources\세로출력.bmp" />
<Content Include="번호형식완료.txt" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0%28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0%28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<Folder Include="코드백업\" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\Z_Epole_통신%28FP5%29\SubProject\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
<Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
<Name>ArinClassV2</Name>
</ProjectReference>
<ProjectReference Include="..\..\QRCodeLib\QRCodeLib.csproj">
<Project>{e98126b2-af17-4783-96b9-856d6744dca3}</Project>
<Name>QRCodeLib</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

420
Project_fp13/C_Epole.vb Normal file
View File

@@ -0,0 +1,420 @@
Imports System
Public Class C_Epole
'Structure Str_Alllabels '레이블들을 저장한다.
' Dim ctl As CEpole.C_label
' Dim desc As String
'End Structure
Enum E_DesignMode
Shape = 1
Text = 0
End Enum
Enum E_PatternType
None = 0
Length = 1
Character = 2
End Enum
Enum E_LineType
Union = 0
Separate = 1
sum = 2
None = -1
End Enum
Enum E_PaperOrient
세로 = 0
가로 = 1
End Enum
Enum E_useNotUse
사용 = 1
사용안함 = 0
End Enum
Enum E_Dummytype
현재복사 = 0
다음출력 = 1
End Enum
Public Enum EQR_Incoding
AlphaNumeric
Numeric
[Byte]
End Enum
Public Enum EQR_Version
v1
v2
v3
v4
v5
v6
v7
v8
v9
v10
v11
v12
v13
v14
v15
v16
v17
v18
v19
v20
v21
v22
v23
v24
v25
v26
v27
v28
v29
v30
v31
v32
v33
v34
v35
v36
v37
v38
v39
v40
End Enum
Public Enum EQR_CLEVE
L
M
Q
H
End Enum
Structure S_FullLable
Dim Desc As String '//레이블의설명
Dim Si As Short '//레이블의 시작인덱스 alllabels 의 오프셋이다.
Dim Ei As Short '//레이블의 종료인덱스 alllabels 의 오프셋이다.
Dim text As String '//전체문자열이 들어있음
Dim Pattern As String '//패턴네임을 적는다.
Dim Tag As String '//개체태그입력
Dim LineType As E_LineType '//0혼함 1분리 2통합
Dim NumType As String '//번호형식 9,9,9 의 형식을 보통띈다.
Dim LineMaxChar As Short '//한줄에 최대몇자를 기본으로할때 혼합시 줄의 갯수에 사용한다.
Dim ApplyPattern As E_PatternType '//0없음 1길이 2문자
Dim Moved As Boolean '//이동했는지
Dim CheckBox As System.Windows.Forms.ToolStripMenuItem '//이것과 연계된 체크박스
' Dim SeparatePattern As Boolean '//개별문자에대한 패턴을 적용할지 여부
Dim Fixed As Boolean '//고정문자열이있는지
End Structure
Structure SStyle
Dim Desc As String
Dim File As String
Dim Backimg As String
Dim MarginX As Integer
Dim MarginY As Integer
Dim ScaleX As Single
Dim ScaleY As Single
Dim PrintFontOffset As Integer
Dim Viewimage As Boolean
Dim LandScape As Boolean
Dim Dummy As Boolean
Dim DummyCnt As Short
Dim Dummytype As Short
Dim dummmyx As Short
Dim dummmyy As Short
Dim visible As Boolean '//190223
Dim RowDivCnt As Short '170715
Dim rowdivx As Short
Dim rowdivy As Short
Dim DrawItemRepeat As Boolean
Dim picstyle As Short
Dim CanvasX As Integer
Dim CanvasY As Integer
Dim Filter As String
Dim PATTERNTABLE As DataTable
Dim FixedStyle As Boolean
Dim PrintRange As String
End Structure
Structure SCStyle
Dim Margin As System.Drawing.Point '//인쇄여백
Dim Scale As System.Drawing.Point '//인쇄확대비율
Dim Orient As E_PaperOrient '//종이방향
Dim DummyMargin As System.Drawing.Point
Dim Dummy As E_useNotUse
Dim UseBG As E_useNotUse
Dim PrnBG As E_useNotUse
Dim Dummytype As E_Dummytype '//현재복사,다음출력
End Structure
Enum e_EventMessage
Normal = 0
Parse = 1
End Enum
Enum E_PrintRange
All = 0
Current = 1
Custom = 2
FixedStyle = 3
End Enum
Enum E_DrawType
Box = 0
Line = 1
End Enum
Structure S_Line
Dim X As Single
Dim Y As Single
Dim X2 As Single
Dim Y2 As Single
Dim PenColor As Drawing.Color
Dim PenWidth As Single
End Structure
Structure S_Box
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim PenColor As Drawing.Color
Dim PenWidth As Single
Dim Radius As Single '//휘어짐수치
End Structure
Structure S_Circle
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim PenColor As Drawing.Color
Dim PenWidth As Single
'Dim Radius As Single '//휘어짐수치
End Structure
Structure S_Image
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim FileName As String
End Structure
Structure S_QRCode
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim QRData As String '//표시하고자하는 데이터를 표시 {필드명} 으로 대체가능
Dim Encoding As Integer
Dim Version As Integer
Dim CLeve As Integer
Dim Size As Integer
Dim Format As String '//출력포맷
Dim fColor As System.Drawing.Color
Dim bColor As System.Drawing.Color
End Structure
Structure S_DrawShape
Dim DrawType As E_DrawType
Dim DrawObject As Object
Public Sub New(ByVal DT As E_DrawType, ByVal Obj As Object, ByVal oldtype As Boolean)
DrawType = DT
DrawObject = Obj
End Sub
End Structure
Public Shared Function Get_SavePatternString(ByVal 저장대상 As String, ByVal pc As Boolean, ByVal cp As String, ByVal pl As Boolean, ByVal pstr As String, ByVal plen As Short, _
ByVal pchr As String) As System.Text.StringBuilder
If pc Then cp = "[문자패턴]"
If pl Then cp &= "[길이패턴]"
If cp = "" Then cp = "[패턴없음]"
Dim Msg As New System.Text.StringBuilder("(" & 저장대상 & ")" & " 패턴을 저장합니다")
'//문자패턴이 적용되어있다면 문자패턴으로 적용할 것을 궎장하며 그렇지 않은 경우에는 길이패턴이나 문자패턴을 적절히 권장한다.
'//길이가 5자리이하이고 특수문자(-,;)등이 없는경우에 길이패턴 적용을 권유한다.
Msg.AppendLine()
Msg.AppendLine("패턴 저장방법에는 길이,문자가 있습니다")
Msg.AppendLine("패턴우선순위 : 문자패턴 -> 길이패턴")
Msg.AppendLine()
Msg.AppendLine("현재적용된 패턴 : " & cp)
If pc Then
Msg.AppendLine()
Msg.AppendLine(">> 현재 문자패턴이 적용되어있습니다" & vbCrLf & ">> 문자패턴은 가장우선되는 패턴방식입니다")
Msg.AppendLine(">> 저장시에는 [문자패턴]으로 저장하시기 바랍니다.")
Msg.AppendLine(">> [길이패턴]으로 저장하는것은 의미가 없습니다")
ElseIf pl Then
Msg.AppendLine()
Msg.AppendLine(">> 현재 길이패턴이 적용되어있습니다" & vbCrLf & ">> 패턴은 길이,문자 둘다 저장이 가능합니다")
Else
Msg.AppendLine()
Msg.AppendLine(">> 적용된 패턴이없습니다")
Msg.AppendLine(">> 문자수(길이)가 적은 문자의경우 [길이패턴] 저장을 권장합니다")
End If
Msg.AppendLine()
Msg.AppendLine("길이패턴이란? (문자의 길이가 같을떄 적용)")
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 길이는 = " & plen & " 입니다")
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 길이가 " & plen & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
Msg.AppendLine()
Msg.AppendLine("문자패턴이란? (같은 형태의 문자일때 적용)")
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 형태는 = " & pchr & " 입니다")
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 형태가 " & pchr & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
Msg.AppendLine(" * 1=숫자,0=알파벳문자,H=한글문자,;=특수문자(;),-=특수문자(-)")
Msg.AppendLine()
Msg.AppendLine("패턴우선순위란? (패턴이 중복적용되었을때 높은우선순위가 적용)")
Msg.AppendLine(" 길이,문자 패턴이 둘다 적용되어있을경우 우선순위가 높은")
Msg.AppendLine(" 문자패턴이 최종적으로 적용이 됩니다.(길이패턴은 무시됨)")
Msg.AppendLine()
Msg.AppendLine("# 길이패턴으로 저장하시겠습니까?")
Msg.AppendLine("# 예) 길이저장 , 아니오) 문자저장 , 취소) 취소")
If pc Then Msg.AppendLine("# 문자패턴이 적용되었으므로 [길이패턴] 저장은 의미가 없습니다")
Return Msg
End Function
Public Shared Sub GetAllsection(ByRef stylelist() As SStyle, ByVal FILENAME As String, ByVal CurIdx As Short, ByVal OldType As Boolean)
'//이제 OLD는 사용하징낳는다 3월14일 변경한다.
If OldType = False Then
FileToDataTable.ReadFile_New(stylelist, FILENAME, CurIdx)
Else
'MsgBox("구파일" & FILENAME)
FileToDataTable.ReadFile_OLD(stylelist, FILENAME, CurIdx)
End If
End Sub
Public Shared Function PATTERN_ENC(ByVal SRCSTR As String, Optional hsave As Boolean = False) As String
Dim MSG As New System.Text.StringBuilder
For Each A As Char In SRCSTR.ToCharArray '//모든문자의 숫자번호를 판별한다.
If hsave Then
If A = ";" Then '//구분자라면
MSG.Append(";")
ElseIf A = "H" Then '//h문자별도 처리해줌
MSG.Append("Z")
ElseIf A = "-" Then
MSG.Append("-")
ElseIf Char.IsNumber(A) Then
MSG.Append("1")
ElseIf Asc(A) < 0 Then
MSG.Append("H")
Else
MSG.Append("0")
End If
Else
If A = ";" Then '//구분자라면
MSG.Append(";")
ElseIf A = "-" Then
MSG.Append("-")
ElseIf Char.IsNumber(A) Then
MSG.Append("1")
ElseIf Asc(A) < 0 Then
MSG.Append("H")
Else
MSG.Append("0")
End If
End If
Next
Return MSG.ToString
End Function
Public Shared Function GetPrintersName() As ArrayList
Dim value As Drawing.Printing.PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters
Dim Retval As New ArrayList
For i As Integer = 0 To value.Count - 1
Retval.Add(value(i))
Next
Return Retval
End Function
''' <summary>
''' 데이터와 출력장수(전체,현재,범위,고정스타일)를 판단하여 T,F 반환한다.
''' </summary>
''' <param name="Dv"></param>
''' <param name="CurrPos"></param>
''' <param name="PrintArray"></param>
''' <param name="RangeType"></param>
''' <param name="UserRange"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function Set_PrnRange(ByRef Dv As DataView, ByVal CurrPos As Integer, ByRef PrintArray() As Integer, ByVal RangeType As E_PrintRange, ByVal UserRange As String) As Boolean '//범위내의 페이지번호와 일치하는 번호를 찾아서 배열에 할당한다.
Dim Number As Integer = 0
Dim FindNum As Boolean = False
'printindex = 0 '//배열의 첫번으로 출력을 준비한다.
ReDim PrintArray(0)
PrintArray(0) = 1
If RangeType = E_PrintRange.Custom AndAlso UserRange = "" Then RangeType = E_PrintRange.Current
' MsgBox("rane : " & Dv.Count & "curpos:" & CurrPos)
Select Case RangeType
Case E_PrintRange.FixedStyle '//고정스타일이라면 userrange 에 할당된 숫자만큼 버퍼를 생성한다.
If IsNumeric(UserRange) = False Then
MsgBox("출력장수에 숫자만 입력하세요", MsgBoxStyle.Critical, "확인")
Return False
End If
ReDim PrintArray(Val(UserRange) - 1)
For i As Integer = 0 To Val(UserRange) - 1
PrintArray(i) = CurrPos
Next
Case E_PrintRange.All
ReDim PrintArray(Dv.Count - 1)
For i As Integer = 0 To Dv.Count - 1
PrintArray(i) = i
Next
Case E_PrintRange.Current
' MsgBox("현재")
ReDim PrintArray(0)
PrintArray(0) = CurrPos '/현재카운트보다 1작다 배열은 0부터 시작하기떄문에
Case E_PrintRange.Custom
Dim buff As String = UserRange
ReDim PrintArray(0) : PrintArray(0) = -1
'//먼저 -가 있나없나 판단해서 한페이지용인지 범위용인지 구분한다.
If buff.IndexOf("-") >= 0 Then '//범위이다.
Dim SubBuff() As String = buff.Split("-")
Dim Sttnum As Integer = CInt(SubBuff(0)) '//시작
Dim endnum As Integer = CInt(SubBuff(1)) '//종료값
For SI As Integer = 0 To endnum - Sttnum '//범위갯수만큼 돈다
FindNum = False
Number = CInt(Sttnum + SI) '//페이지만 적엇을 것이므로
For ni As Integer = 0 To Dv.Count - 1 '//현재뷰의 모든데이터를 가지고 검색한다 좌->우 순차검색
If Number = Dv(ni).Row("번호") Then
If PrintArray(0) = -1 Then '//처음데이터이므로
PrintArray(0) = ni
Else '//처음이아니므로 배열을 증가시키고 기입한다.
ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//배열1증가
PrintArray(PrintArray.GetUpperBound(0)) = ni
End If
FindNum = True
Exit For
End If
Next
Next
Else '//페이지번호만 적었을때다
If IsNumeric(buff) Then
Number = CInt(buff) '//페이지만 적엇을 것이므로
For ni As Integer = 0 To Dv.Count - 1 '//현재뷰의 모든데이터를 가지고 검색한다 좌->우 순차검색
If Number = Dv(ni).Row("번호") Then
PrintArray(0) = ni
Exit For
End If
Next
Else
MsgBox("범위(-)를 제외하고 숫자만 입력하세요", MsgBoxStyle.Critical, "입력오류")
End If
End If
End Select
If PrintArray(0) = -1 Then '//배열에 아무것도 없다면
Return False
Else
Return True
End If
End Function
End Class

81
Project_fp13/C_label.vb Normal file
View File

@@ -0,0 +1,81 @@
Imports System.Drawing
Public Class C_label
Public Font As New Font("HY견고딕", 30) '//초기폰트
Public visible As Boolean = True '//표시여부
Public Tag As Object = Nothing '//태그
Public Left, Right, Top, Bottom As Single '//위치정보
Public Height, Width As Single '//크기정보
Public Name As String = "arin" '//컨트롤의 이름
Public Gidx As Short = -1 '//그룹의 인덱스
Public Idx As Short = -1 '//컨트롤인덱스
Public Desc As String '//설명 v_설명과 중복이나 나중에 v_설명을 없앨생각이다.
Public Text As String = "" '//초기 문자값
Public Fixed As Boolean = False
' Public UseHPattern As Boolean = False
Public ForeColor As Color = Color.Black
Public ForeColor2 As Color = Color.Black
Public WordWidth As Single = 100
Public WordHeight As Single = 100
Public Rotate As Single = 0
Public WordSpace As Int16 = 0 '//공백
Public Repeat As Short '//반복횟수
Public RepeatX As Single '//반복x
Public RepeatY As Single '//반복y
Public HasPattern As Boolean = False
Public Property Size() As System.Drawing.SizeF
Get
Return New System.Drawing.Size(Me.Width, Me.Height)
End Get
Set(ByVal value As System.Drawing.SizeF)
Me.Width = value.Width
Me.Height = value.Height
End Set
End Property
Public Property Location() As PointF
Get
Return New Point(Me.Left, Me.Top)
End Get
Set(ByVal value As PointF)
Me.Left = value.X
Me.Top = value.Y
End Set
End Property
''' <summary>
''' 공백기능을 적용한후의 문자열을 반환
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function text2() As String
If WordSpace = 0 Then Return Text
Dim z As New System.Text.StringBuilder
For Each A As Char In Text.ToCharArray
z.Append(A.ToString & Space(WordSpace))
Next
Return (z.ToString.Trim())
End Function
''' <summary>
''' 글씨가 차지하는 크기를 재계산합니다.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetSize() As SizeF
Return System.Windows.Forms.TextRenderer.MeasureText(text2, Font)
End Function
Private Sub RotateAt(ByVal gr As Graphics, ByVal cx As Integer, ByVal cy As Integer, ByVal angle As Single)
gr.ResetTransform()
gr.TranslateTransform(-cx, -cy, Drawing2D.MatrixOrder.Append)
gr.RotateTransform(angle, Drawing2D.MatrixOrder.Append)
gr.TranslateTransform(cx, cy, Drawing2D.MatrixOrder.Append)
End Sub
Public Sub New()
End Sub
End Class

1
Project_fp13/ClassDiagram1.cd Normal file
View File

@@ -0,0 +1 @@

37
Project_fp13/Common.vb Normal file
View File

@@ -0,0 +1,37 @@
Module Common
Public StyleList() As C_Epole.SStyle
Public Eini As ACC.MyINI
''' <summary>
''' 파일명안의 확장자를 변경한다.
''' </summary>
''' <param name="orgname"></param>
''' <param name="newExt"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ReplaceExt(ByVal orgname As String, ByVal newExt As String) As String
Dim OnlyFile As String = orgname.Substring(0, orgname.LastIndexOf("."))
Return CStr(OnlyFile & "." & newExt).Replace("..", ".")
End Function
''' <summary>
''' 배경이미지파일의 절대 또는 상대경로를 반환하비다.
''' </summary>
''' <param name="src"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetImgPath(ByVal src As String) As String
If src.Trim = "" Then Return ""
If src.IndexOf(":") <> -1 Then '//드라이브명이있따면 절대경로이므로 상대로 변경한다.
Return Replace(src.Replace(My.Application.Info.DirectoryPath, ".\"), "\\", "\")
Else
If src.IndexOf(".\") = -1 AndAlso src.IndexOf("..\") = -1 Then
Return Replace(My.Application.Info.DirectoryPath & "\image\" & src, "\\", "\")
Else
Return Replace(src.Replace(".\", My.Application.Info.DirectoryPath & "\"), "\\", "\")
End If
End If
End Function
End Module

100
Project_fp13/Defalut_PrintForm.Designer.vb generated Normal file
View File

@@ -0,0 +1,100 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Defalut_PrintForm
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.BS = New System.Windows.Forms.BindingSource(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.cm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cm_label = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.cm_visible = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.BS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cm.SuspendLayout()
Me.SuspendLayout()
'
'BS
'
'
'cm
'
Me.cm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_label, Me.ToolStripMenuItem1, Me.cm_visible})
Me.cm.Name = "cm"
Me.cm.Size = New System.Drawing.Size(99, 54)
'
'cm_label
'
Me.cm_label.BackColor = System.Drawing.Color.LightSteelBlue
Me.cm_label.Name = "cm_label"
Me.cm_label.Size = New System.Drawing.Size(98, 22)
Me.cm_label.Text = "이름"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(95, 6)
'
'cm_visible
'
Me.cm_visible.Checked = True
Me.cm_visible.CheckOnClick = True
Me.cm_visible.CheckState = System.Windows.Forms.CheckState.Checked
Me.cm_visible.Enabled = False
Me.cm_visible.Name = "cm_visible"
Me.cm_visible.Size = New System.Drawing.Size(98, 22)
Me.cm_visible.Text = "표시"
'
'Defalut_PrintForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(374, 360)
Me.DoubleBuffered = True
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Defalut_PrintForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Default_PrintForm"
CType(Me.BS, System.ComponentModel.ISupportInitialize).EndInit()
Me.cm.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Public WithEvents BS As System.Windows.Forms.BindingSource
Public WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Public Sub New()
' 이 호출은 Windows Form 디자이너에 필요합니다.
InitializeComponent()
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Friend WithEvents cm As System.Windows.Forms.ContextMenuStrip
Friend WithEvents cm_visible As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cm_label As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
End Class

129
Project_fp13/Defalut_PrintForm.resx Normal file
View File

@@ -0,0 +1,129 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="BS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>82, 17</value>
</metadata>
<metadata name="cm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>182, 17</value>
</metadata>
</root>

3521
Project_fp13/Defalut_PrintForm.vb Normal file
View File

File diff suppressed because it is too large Load Diff

327
Project_fp13/DrawShape.vb Normal file
View File

@@ -0,0 +1,327 @@
Imports System.ComponentModel
Public Class DrawShape
End Class
Public Class Shape_Circle
Public Draw_Circle() As C_Epole.S_Circle
Public Sub New()
Draw_Circle = Nothing
End Sub
Public Sub Add(ByVal Obj As C_Epole.S_Circle)
Try
If Me.Draw_Circle Is Nothing Then
ReDim Me.Draw_Circle(0)
Me.Draw_Circle(0) = Obj
' MsgBox("처음" & Obj.X & "/" & Obj.Y & "/" & Obj.Width & "/" & Obj.Height)
Else
If Me.Draw_Circle.GetUpperBound(0) < 0 Then
ReDim Me.Draw_Circle(0)
Me.Draw_Circle(0) = Obj
' MsgBox("처음-1")
Else
ReDim Preserve Me.Draw_Circle(Me.Draw_Circle.GetUpperBound(0) + 1)
Me.Draw_Circle(Me.Draw_Circle.GetUpperBound(0)) = Obj
' MsgBox("추가")
End If
End If
Catch ex As Exception
ReDim Me.Draw_Circle(0)
Me.Draw_Circle(0) = Obj
' MsgBox("에러")
End Try
End Sub
Public Sub Delete(ByVal Idx As Short)
Dim NewBox(Me.Draw_Circle.GetUpperBound(0) - 1) As C_Epole.S_Circle
Dim j As Short = 0
For i As Short = 0 To Me.Draw_Circle.GetUpperBound(0)
If i <> Idx Then
NewBox(j) = Me.Draw_Circle(i)
j += 1
End If
Next
Me.Draw_Circle = NewBox
End Sub
Public Function Count() As Short
Try
Return Me.Draw_Circle.GetUpperBound(0) + 1
Catch ex As Exception
Return 0
End Try
End Function
Property item(ByVal idx As Short) As C_Epole.S_Circle
Get
Return Me.Draw_Circle(idx)
End Get
Set(ByVal value As C_Epole.S_Circle)
Me.Draw_Circle(idx) = value
End Set
End Property
'Public Function Item(ByVal idx As Short) As C_Epole.S_Box
' Return Me.Draw_Box(idx)
'End Function
Public Function Items() As C_Epole.S_Circle()
If Me.Count <= 0 Then Return Nothing
Return Me.Draw_Circle
End Function
End Class
Public Class Shape_Box
Public Draw_Box() As C_Epole.S_Box
Public Sub New()
Draw_Box = Nothing
End Sub
Public Sub Add(ByVal Obj As C_Epole.S_Box)
Try
If Me.Draw_Box Is Nothing Then
ReDim Me.Draw_Box(0)
Me.Draw_Box(0) = Obj
' MsgBox("처음" & Obj.X & "/" & Obj.Y & "/" & Obj.Width & "/" & Obj.Height)
Else
If Me.Draw_Box.GetUpperBound(0) < 0 Then
ReDim Me.Draw_Box(0)
Me.Draw_Box(0) = Obj
' MsgBox("처음-1")
Else
ReDim Preserve Me.Draw_Box(Me.Draw_Box.GetUpperBound(0) + 1)
Me.Draw_Box(Me.Draw_Box.GetUpperBound(0)) = Obj
' MsgBox("추가")
End If
End If
Catch ex As Exception
ReDim Me.Draw_Box(0)
Me.Draw_Box(0) = Obj
' MsgBox("에러")
End Try
End Sub
Public Sub Delete(ByVal Idx As Short)
Dim NewBox(Me.Draw_Box.GetUpperBound(0) - 1) As C_Epole.S_Box
Dim j As Short = 0
For i As Short = 0 To Me.Draw_Box.GetUpperBound(0)
If i <> Idx Then
NewBox(j) = Me.Draw_Box(i)
j += 1
End If
Next
Me.Draw_Box = NewBox
End Sub
Public Function Count() As Short
Try
Return Me.Draw_Box.GetUpperBound(0) + 1
Catch ex As Exception
Return 0
End Try
End Function
Property item(ByVal idx As Short) As C_Epole.S_Box
Get
Return Me.Draw_Box(idx)
End Get
Set(ByVal value As C_Epole.S_Box)
Me.Draw_Box(idx) = value
End Set
End Property
'Public Function Item(ByVal idx As Short) As C_Epole.S_Box
' Return Me.Draw_Box(idx)
'End Function
Public Function Items() As C_Epole.S_Box()
If Me.Count <= 0 Then Return Nothing
Return Me.Draw_Box
End Function
End Class
Public Class Shape_QRcode
Public Draw_QRcode() As C_Epole.S_QRCode
Public Sub New()
Draw_QRcode = Nothing
End Sub
Public Sub Add(ByVal Obj As C_Epole.S_QRCode)
Try
If Me.Draw_QRcode Is Nothing Then
ReDim Me.Draw_QRcode(0)
Me.Draw_QRcode(0) = Obj
' MsgBox("처음" & Obj.X & "/" & Obj.Y & "/" & Obj.Width & "/" & Obj.Height)
Else
If Me.Draw_QRcode.GetUpperBound(0) < 0 Then
ReDim Me.Draw_QRcode(0)
Me.Draw_QRcode(0) = Obj
' MsgBox("처음-1")
Else
ReDim Preserve Me.Draw_QRcode(Me.Draw_QRcode.GetUpperBound(0) + 1)
Me.Draw_QRcode(Me.Draw_QRcode.GetUpperBound(0)) = Obj
' MsgBox("추가")
End If
End If
Catch ex As Exception
ReDim Me.Draw_QRcode(0)
Me.Draw_QRcode(0) = Obj
' MsgBox("에러")
End Try
End Sub
Public Sub Delete(ByVal Idx As Short)
Dim NewQRcode(Me.Draw_QRcode.GetUpperBound(0) - 1) As C_Epole.S_QRCode
Dim j As Short = 0
For i As Short = 0 To Me.Draw_QRcode.GetUpperBound(0)
If i <> Idx Then
NewQRcode(j) = Me.Draw_QRcode(i)
j += 1
End If
Next
Me.Draw_QRcode = NewQRcode
End Sub
Public Function Count() As Short
Try
Return Me.Draw_QRcode.GetUpperBound(0) + 1
Catch ex As Exception
Return 0
End Try
End Function
Property item(ByVal idx As Short) As C_Epole.S_QRCode
Get
Return Me.Draw_QRcode(idx)
End Get
Set(ByVal value As C_Epole.S_QRCode)
Me.Draw_QRcode(idx) = value
End Set
End Property
'Public Function Item(ByVal idx As Short) As C_Epole.S_Box
' Return Me.Draw_Box(idx)
'End Function
Public Function Items() As C_Epole.S_QRCode()
If Me.Count <= 0 Then Return Nothing
Return Me.Draw_QRcode
End Function
End Class
Public Class Shape_line
Public Draw_line() As C_Epole.S_Line
Public Sub New()
Draw_line = Nothing
End Sub
Public Sub Add(ByVal Obj As C_Epole.S_Line)
Try
If Me.Draw_line Is Nothing Then
ReDim Me.Draw_line(0)
Me.Draw_line(0) = Obj
Else
If Me.Draw_line.GetUpperBound(0) < 0 Then
ReDim Me.Draw_line(0)
Me.Draw_line(0) = Obj
Else
ReDim Preserve Me.Draw_line(Me.Draw_line.GetUpperBound(0) + 1)
Me.Draw_line(Me.Draw_line.GetUpperBound(0)) = Obj
End If
End If
Catch ex As Exception
ReDim Me.Draw_line(0)
Me.Draw_line(0) = Obj
End Try
End Sub
Public Sub Delete(ByVal Idx As Short)
Dim NewBox(Me.Draw_line.GetUpperBound(0) - 1) As C_Epole.S_Line
Dim j As Short = 0
For i As Short = 0 To Me.Draw_line.GetUpperBound(0)
If i <> Idx Then
NewBox(j) = Me.Draw_line(i)
j += 1
End If
Next
Me.Draw_line = NewBox
End Sub
Public Function Count() As Short
Try
Return Me.Draw_line.GetUpperBound(0) + 1
Catch ex As Exception
Return 0
End Try
End Function
Public Property Item(ByVal idx As Short) As C_Epole.S_Line
Get
Return Me.Draw_line(idx)
End Get
Set(ByVal value As C_Epole.S_Line)
Me.Draw_line(idx) = value
End Set
End Property
'Public Function Item(ByVal idx As Short) As C_Epole.S_Line
' Return Me.Draw_line(idx)
'End Function
Public Function Items() As C_Epole.S_Line()
If Me.Count <= 0 Then Return Nothing
Return Me.Draw_line
End Function
End Class
Public Class Shape_Image
Public Draw_Image() As C_Epole.S_Image
Public Sub New()
Draw_Image = Nothing
End Sub
Public Sub Add(ByVal Obj As C_Epole.S_Image)
Try
If Me.Draw_Image Is Nothing Then
ReDim Me.Draw_Image(0)
Me.Draw_Image(0) = Obj
' MsgBox("처음" & Obj.X & "/" & Obj.Y & "/" & Obj.Width & "/" & Obj.Height)
Else
If Me.Draw_Image.GetUpperBound(0) < 0 Then
ReDim Me.Draw_Image(0)
Me.Draw_Image(0) = Obj
' MsgBox("처음-1")
Else
ReDim Preserve Me.Draw_Image(Me.Draw_Image.GetUpperBound(0) + 1)
Me.Draw_Image(Me.Draw_Image.GetUpperBound(0)) = Obj
' MsgBox("추가")
End If
End If
Catch ex As Exception
ReDim Me.Draw_Image(0)
Me.Draw_Image(0) = Obj
' MsgBox("에러")
End Try
End Sub
Public Sub Delete(ByVal Idx As Short)
Dim NewBox(Me.Draw_Image.GetUpperBound(0) - 1) As C_Epole.S_Image
Dim j As Short = 0
For i As Short = 0 To Me.Draw_Image.GetUpperBound(0)
If i <> Idx Then
NewBox(j) = Me.Draw_Image(i)
j += 1
End If
Next
Me.Draw_Image = NewBox
End Sub
Public Function Count() As Short
Try
Return Me.Draw_Image.GetUpperBound(0) + 1
Catch ex As Exception
Return 0
End Try
End Function
Property item(ByVal idx As Short) As C_Epole.S_Image
Get
Return Me.Draw_Image(idx)
End Get
Set(ByVal value As C_Epole.S_Image)
Me.Draw_Image(idx) = value
End Set
End Property
'Public Function Item(ByVal idx As Short) As C_Epole.S_Box
' Return Me.Draw_Box(idx)
'End Function
Public Function Items() As C_Epole.S_Image()
If Me.Count <= 0 Then Return Nothing
Return Me.Draw_Image
End Function
End Class

403
Project_fp13/FileToDataTable.vb Normal file
View File

@@ -0,0 +1,403 @@
Public Class FileToDataTable
Public Shared Sub ReadFile_New(ByRef stylelist() As C_Epole.SStyle, ByVal FILENAME As String, ByVal CurIdx As Short)
'//2009-02-27일 각분리된 파일기능추가로 이 프로시져를 둘로 나눈다
Dim FI As New System.IO.FileInfo(FILENAME)
Dim Findkey As String = ""
Dim Line As String
Dim KeyPos As Integer = -1
Dim Seppos As Integer = -1
Dim dr As DataRow
Dim FS As System.IO.FileStream
Dim SR As System.IO.StreamReader
'//테이블데이터초기화
stylelist(CurIdx).PATTERNTABLE = New DataTable
stylelist(CurIdx).PATTERNTABLE.Columns.Add("설명")
stylelist(CurIdx).PATTERNTABLE.Columns.Add("값")
stylelist(CurIdx).Backimg = ""
stylelist(CurIdx).CanvasX = 292
stylelist(CurIdx).CanvasY = 520
stylelist(CurIdx).Desc = "기본설명"
stylelist(CurIdx).dummmyx = 0
stylelist(CurIdx).dummmyy = 50
stylelist(CurIdx).Dummy = False
stylelist(CurIdx).DummyCnt = 1
stylelist(CurIdx).Dummytype = 1
stylelist(CurIdx).DrawItemRepeat = False '//기본값은 사용안함
stylelist(CurIdx).RowDivCnt = 0 '//줄바꿈기능 170715
stylelist(CurIdx).rowdivy = 0
stylelist(CurIdx).rowdivx = 0
stylelist(CurIdx).visible = True
stylelist(CurIdx).File = FI.Name
'MsgBox(stylelist(CurIdx).File)
stylelist(CurIdx).Filter = ""
stylelist(CurIdx).LandScape = False
stylelist(CurIdx).MarginX = 50
stylelist(CurIdx).MarginY = 50
stylelist(CurIdx).picstyle = 1
stylelist(CurIdx).PrintFontOffset = 0
stylelist(CurIdx).ScaleX = 1.5
stylelist(CurIdx).ScaleY = 1.5
stylelist(CurIdx).Viewimage = False
'//파일종류는 CFG(프린터정보) .각태그(개체정보) .ck(체크박스) .layout(화면위치정보)
'//Read_CFG(받아오는 기본파일의 확장자가 CFG 이므로 일단 그대로쓴다)
FS = New System.IO.FileStream(FI.FullName, IO.FileMode.Open)
SR = New IO.StreamReader(FS, System.Text.Encoding.Default)
While SR.Peek > -1
Line = SR.ReadLine.ToUpper
If Line <> "" AndAlso Line.Trim.Substring(0, 2) <> "//" Then '//주석문도아니고 빈줄도 아니라면 읽기시작
If Findkey = "" Then '//아직 셋팅된 키가 없다면
If Line.ToUpper.IndexOf("[") > -1 Then Findkey = Line.Trim("[").ToString.Trim("]").ToString
Else '//셋팅된 키가 있다면 테이블에 추가해준다.
If Line.IndexOf("[") = -1 Then '//그다음 키가왔는가? 아니라면 이전키의 데이터이므로 모두 적용한다
Seppos = Line.IndexOf("=")
If Findkey.ToUpper = "STYLE" Then
Select Case Line.Substring(0, Seppos).ToUpper.Trim
Case "VISIBLE" : stylelist(CurIdx).visible = Line.Substring(Seppos + 1).ToUpper
Case "DESC" : stylelist(CurIdx).Desc = Line.Substring(Seppos + 1).ToUpper
Case "FILE" '이부분은 바로 대체되었다.stylelist(CurIdx).File = Line.Substring(Seppos + 1).ToUpper
Case "BACKIMG" : stylelist(CurIdx).Backimg = Line.Substring(Seppos + 1).ToUpper
Case "CANVASX" : stylelist(CurIdx).CanvasX = Line.Substring(Seppos + 1).ToUpper
Case "CANVASY" : stylelist(CurIdx).CanvasY = Line.Substring(Seppos + 1).ToUpper
Case "DUMMYCNT" : stylelist(CurIdx).DummyCnt = Line.Substring(Seppos + 1).ToUpper
Case "DUMMY" : stylelist(CurIdx).Dummy = Line.Substring(Seppos + 1).ToUpper
Case "DUMMMYX" : stylelist(CurIdx).dummmyx = Line.Substring(Seppos + 1).ToUpper
Case "DUMMMYY" : stylelist(CurIdx).dummmyy = Line.Substring(Seppos + 1).ToUpper
Case "DRAWITEMREPEAT" : stylelist(CurIdx).DrawItemRepeat = Line.Substring(Seppos + 1).ToUpper
Case "ROWDIVCNT" : stylelist(CurIdx).RowDivCnt = Line.Substring(Seppos + 1).ToUpper
Case "ROWDIVX" : stylelist(CurIdx).rowdivx = Line.Substring(Seppos + 1).ToUpper
Case "ROWDIVY" : stylelist(CurIdx).rowdivy = Line.Substring(Seppos + 1).ToUpper
Case "DUMMYTYPE" : stylelist(CurIdx).Dummytype = Line.Substring(Seppos + 1).ToUpper
Case "LANDSCAPE" : stylelist(CurIdx).LandScape = Line.Substring(Seppos + 1).ToUpper
Case "PICSTYLE" : stylelist(CurIdx).picstyle = Line.Substring(Seppos + 1).ToUpper
Case "VIEWIMAGE" : stylelist(CurIdx).Viewimage = Line.Substring(Seppos + 1).ToUpper
Case "FILTER" : stylelist(CurIdx).Filter = Line.Substring(Seppos + 1).ToUpper
Case "FIXEDSTYLE" : stylelist(CurIdx).FixedStyle = Line.Substring(Seppos + 1).ToUpper
Case "PRINTRANGE" : stylelist(CurIdx).PrintRange = Line.Substring(Seppos + 1).ToUpper
Case "MARGINX" : stylelist(CurIdx).MarginX = Line.Substring(Seppos + 1).ToUpper
Case "MARGINY" : stylelist(CurIdx).MarginY = Line.Substring(Seppos + 1).ToUpper
Case "PRINTFONTOFFSET" : stylelist(CurIdx).PrintFontOffset = Line.Substring(Seppos + 1).ToUpper
Case "SCALEX" : stylelist(CurIdx).ScaleX = Line.Substring(Seppos + 1).ToUpper
Case "SCALEY" : stylelist(CurIdx).ScaleY = Line.Substring(Seppos + 1).ToUpper
End Select
End If
Else '//다음키가 발견되었다.
Findkey = Line.Trim("[").ToString.Trim("]").ToString
End If
End If
End If
End While
' MsgBox(StyleList(CurIdx).Filter)
SR.Close()
FS.Close()
'//Read_STyle(CFG CK LAYOUT 외의 실제 스타일및 패턴파일을 가져온다.
'//INI는 더이상 사용하지않는다
'//CFG는 바로위에서 읽는다
'//LAYOUT 은 가로,세로변경시 스스로 가져온다
'//CK 체크박스 역시 바로가져온다
Dim OnlyFname As String = FI.Name.Substring(0, FI.Name.LastIndexOf("."))
For Each eFi As System.IO.FileInfo In FI.Directory.GetFiles(OnlyFname & ".*")
If eFi.Extension.ToUpper <> ".INI" AndAlso _
eFi.Extension.ToUpper <> ".CK" AndAlso _
eFi.Extension.ToUpper <> ".CFG" AndAlso _
eFi.Extension.ToUpper <> ".LAYOUT" Then
FS = New System.IO.FileStream(eFi.FullName, IO.FileMode.Open)
SR = New IO.StreamReader(FS, System.Text.Encoding.Default)
While SR.Peek > -1
Line = SR.ReadLine.ToUpper
If Line <> "" AndAlso Line.Trim.Substring(0, 2) <> "//" Then '//주석문도아니고 빈줄도 아니라면 읽기시작
If Findkey = "" Then '//아직 셋팅된 키가 없다면
If Line.ToUpper.IndexOf("[") > -1 Then Findkey = Line.Trim("[").ToString.Trim("]").ToString
Else '//셋팅된 키가 있다면 테이블에 추가해준다.
If Line.IndexOf("[") = -1 Then '//개별파일의 모든내용은 집어넣는다
Seppos = Line.IndexOf("=")
dr = stylelist(CurIdx).PATTERNTABLE.NewRow
dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper
dr(1) = Line.Substring(Seppos + 1).ToUpper
stylelist(CurIdx).PATTERNTABLE.Rows.Add(dr)
Else '//다음키가 발견되었다.
Findkey = Line.Trim("[").ToString.Trim("]").ToString
End If
End If
End If
End While
SR.Close()
FS.Close()
End If
Next
End Sub
Public Shared Sub ReadFile_OLD(ByRef stylelist() As C_Epole.SStyle, ByVal FILENAME As String, ByVal CurIdx As Short)
'//2009-02-27일 각분리된 파일기능추가로 이 프로시져를 둘로 나눈다
Dim FI As New System.IO.FileInfo(FILENAME)
Dim FS As New System.IO.FileStream(FI.FullName, IO.FileMode.Open)
Dim SR As New IO.StreamReader(FS, System.Text.Encoding.Default)
Dim Findkey As String = ""
Dim Line As String
Dim KeyPos As Integer = -1
Dim Seppos As Integer = -1
Dim dr As DataRow
Dim TxtBuf As String
'Arin.WLog2(Auto_Log, "getallSection : 파일의 모든내용을 테이블로 옴긴다.()", LogFile)
stylelist(CurIdx).PATTERNTABLE = New DataTable
stylelist(CurIdx).PATTERNTABLE.Columns.Add("설명")
stylelist(CurIdx).PATTERNTABLE.Columns.Add("값")
stylelist(CurIdx).PATTERNTABLE.Columns.Add("섹션")
stylelist(CurIdx).PATTERNTABLE.Columns.Add("개체")
stylelist(CurIdx).PATTERNTABLE.Columns.Add("키")
stylelist(CurIdx).PATTERNTABLE.Columns.Add("파일")
'//초기값셋팅
stylelist(CurIdx).Backimg = ""
stylelist(CurIdx).CanvasX = 292
stylelist(CurIdx).CanvasY = 520
stylelist(CurIdx).Desc = "기본설명"
stylelist(CurIdx).dummmyx = 0
stylelist(CurIdx).dummmyy = 50
stylelist(CurIdx).Dummy = False
stylelist(CurIdx).Dummytype = 1
stylelist(CurIdx).File = FILENAME.Substring(FILENAME.LastIndexOf("\") + 1)
'MsgBox(stylelist(CurIdx).File)
stylelist(CurIdx).visible = True
stylelist(CurIdx).Filter = ""
stylelist(CurIdx).LandScape = False
stylelist(CurIdx).MarginX = 50
stylelist(CurIdx).MarginY = 50
stylelist(CurIdx).picstyle = 1
stylelist(CurIdx).PrintFontOffset = 0
stylelist(CurIdx).ScaleX = 1.5
stylelist(CurIdx).ScaleY = 1.5
stylelist(CurIdx).Viewimage = False
'//모든줄을 읽어서 섹션&키 = 설명 으로 한다.
While SR.Peek > -1
Line = SR.ReadLine.ToUpper
If Line <> "" Then
If Findkey = "" Then '//아직 셋팅된 키가 없다면
If Line.ToUpper.IndexOf("[") > -1 Then Findkey = Line.Trim("[").ToString.Trim("]").ToString
Else '//셋팅된 키가 있다면 테이블에 추가해준다.
If Line.IndexOf("[") = -1 Then '//그다음 키가 오기전까지 모두 추가한다.
Seppos = Line.IndexOf("=")
Select Case Line.Substring(0, Seppos).ToUpper
Case "DESC"
If Findkey.ToUpper = "STYLE" Then
stylelist(CurIdx).Desc = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "DESC")
Else
TxtBuf = Line.Substring(0, Seppos).ToUpper.Trim
dr = stylelist(CurIdx).PATTERNTABLE.NewRow
dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper
dr(1) = Line.Substring(Seppos + 1).ToUpper.Trim
dr(2) = Findkey '//섹션
dr(3) = "DESC" '//개체
dr(4) = "" '//키
dr(5) = ""
'//DESC경우에 파일을 찾을수없으므로 데이터베이스내에서검색한다(거의확인됨)
stylelist(CurIdx).PATTERNTABLE.Rows.Add(dr)
End If
Case "FILE" '이부분은 바로 대체되었다.stylelist(CurIdx).File = Line.Substring(Seppos + 1).ToUpper
Case "BACKIMG"
stylelist(CurIdx).Backimg = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "BACKIMG")
Case "CANVASX"
stylelist(CurIdx).CanvasX = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "CANVASX")
Case "CANVASY"
stylelist(CurIdx).CanvasY = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "CANVASY")
Case "DUMMY"
stylelist(CurIdx).Dummy = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "DUMMY")
Case "DUMMYCNT"
stylelist(CurIdx).DummyCnt = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "DUMMYCNT")
Case "DUMMMYX"
stylelist(CurIdx).dummmyx = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "DUMMMYX")
Case "DUMMMYY"
stylelist(CurIdx).dummmyy = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "DUMMMYY")
Case "DUMMYTYPE"
stylelist(CurIdx).Dummytype = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "DUMMYTYPE")
Case "LANDSCAPE"
stylelist(CurIdx).LandScape = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "LANDSCAPE")
Case "MARGINX"
stylelist(CurIdx).MarginX = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "MARGINX")
Case "MARGINY"
stylelist(CurIdx).MarginY = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "MARGINY")
Case "PICSTYLE"
stylelist(CurIdx).picstyle = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "PICSTYLE")
Case "PRINTFONTOFFSET"
stylelist(CurIdx).PrintFontOffset = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "PRINTFONTOFFSET")
Case "SCALEX"
stylelist(CurIdx).ScaleX = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "SCALEX")
Case "SCALEY"
stylelist(CurIdx).ScaleY = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "SCALEY")
Case "VIEWIMAGE"
stylelist(CurIdx).Viewimage = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "VIEWIMAGE")
Case "FILTER"
stylelist(CurIdx).Filter = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "FILTER", "DB")
Case "FIXEDSTYLE"
stylelist(CurIdx).FixedStyle = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "FIXEDSTYLE")
Case "PRINTRANGE"
stylelist(CurIdx).PrintRange = Line.Substring(Seppos + 1).ToUpper
Add_StyleRow(stylelist(CurIdx).PATTERNTABLE, CStr(Findkey & Line.Substring(0, Seppos)).ToUpper, Line.Substring(Seppos + 1).ToUpper, "STYLE", "PRINTRANGE")
Case Else
TxtBuf = Line.Substring(0, Seppos).ToUpper.Trim
dr = stylelist(CurIdx).PATTERNTABLE.NewRow
dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper
dr(1) = Line.Substring(Seppos + 1).ToUpper.Trim
dr(2) = Findkey '//섹션
If TxtBuf.IndexOf("LINETYPE") <> -1 Then
dr(3) = "LINETYPE" '//개체
dr(4) = "" '//키
dr(5) = ""
ElseIf TxtBuf.Trim.IndexOf("NUMTYPE") <> -1 Then
dr(3) = "NUMTYPE" '//개체
dr(4) = "" '//키
dr(5) = ""
ElseIf Findkey.IndexOf("PAGETYPE") <> -1 Then
dr(3) = TxtBuf
dr(4) = ""
dr(5) = "layout"
ElseIf TxtBuf.IndexOf("POS") <> -1 Then
dr(3) = TxtBuf.Substring(0, TxtBuf.IndexOf("POS")) '//개체
dr(4) = "POS" '//키
dr(5) = dr(3).ToString.Substring(0, 1)
If IsNumeric(dr(3).ToString.Substring(dr(3).ToString.Length - 1, 1)) = False Then
dr(3) = "미처리(pos)"
dr(4) = TxtBuf
dr(5) = ""
End If
ElseIf TxtBuf.IndexOf("VISIBLE") <> -1 Then
dr(3) = TxtBuf.Substring(0, TxtBuf.IndexOf("VISIBLE")) '//개체
dr(4) = "VISIBLE" '//키
dr(5) = dr(3).ToString.Substring(0, 1)
If IsNumeric(dr(3).ToString.Substring(dr(3).ToString.Length - 1, 1)) = False Then
dr(3) = "미처리(visible)"
dr(4) = TxtBuf
dr(5) = ""
End If
ElseIf TxtBuf.IndexOf("FONT") <> -1 Then
dr(3) = TxtBuf.Substring(0, TxtBuf.IndexOf("FONT")) '//개체
dr(4) = "FONT" '//키
dr(5) = dr(3).ToString.Substring(0, 1)
If IsNumeric(dr(3).ToString.Substring(dr(3).ToString.Length - 1, 1)) = False Then
dr(3) = "미처리(font)"
dr(4) = TxtBuf
dr(5) = ""
End If
ElseIf TxtBuf.IndexOf("SPACE") <> -1 Then
dr(3) = TxtBuf.Substring(0, TxtBuf.IndexOf("SPACE")) '//개체
dr(4) = "SPACE" '//키
dr(5) = dr(3).ToString.Substring(0, 1)
If IsNumeric(dr(3).ToString.Substring(dr(3).ToString.Length - 1, 1)) = False Then
dr(3) = "미처리(space)"
dr(4) = TxtBuf
dr(5) = ""
End If
ElseIf Findkey.IndexOf("PRINTFORM") <> -1 Then
dr(3) = TxtBuf
dr(4) = ""
dr(5) = "CFG"
ElseIf TxtBuf.IndexOf("MYTEXT") <> -1 Then
dr(3) = TxtBuf.Substring(0, TxtBuf.IndexOf("MYTEXT")) '//개체
dr(4) = "MYTEXT" '//키
dr(5) = dr(3).ToString.Substring(0, 1)
If IsNumeric(dr(3).ToString.Substring(dr(3).ToString.Length - 1, 1)) = False Then
dr(3) = "미처리(mytext)"
dr(4) = TxtBuf
dr(5) = ""
End If
ElseIf TxtBuf.IndexOf("CHECKBOX_") <> -1 Then
dr(3) = "CHECKBOX" '//키
dr(4) = TxtBuf.Substring(8) '//개체
dr(5) = "CK"
Else
dr(3) = "미처리"
dr(4) = TxtBuf
dr(5) = Findkey
End If
stylelist(CurIdx).PATTERNTABLE.Rows.Add(dr)
End Select
Else
Findkey = Line.Trim("[").ToString.Trim("]").ToString
End If
End If
End If
End While
'//데이터테이블 검색해서 DESC,NT,LT 의 파일명을 검색후 찾아낸다
'For Each DD As DataRow In stylelist(CurIdx).PATTERNTABLE.Select("개체 in ('DESC','NUMTYPE','LINETYPE')")
' If DD("섹션") <> "STYLE" Then DD("파일") = Get_FileName(stylelist(CurIdx).PATTERNTABLE, DD("섹션"))
'Next
' MsgBox(StyleList(CurIdx).Filter)
SR.Close()
FS.Close()
FI = Nothing
End Sub
''' <summary>
''' 해당 섹션이 속하는 파일명을 검색해서 반환 (DESc,LT,NT의경우사용한다)
''' </summary>
''' <param name="DataT"></param>
''' <param name="findkey"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Shared Function Get_FileName(ByVal DataT As DataTable, ByVal findkey As String) As String
Dim DR() As DataRow = DataT.Select("섹션='" & findkey & "'")
If DR.GetUpperBound(0) = -1 Then Return ""
For Each DD As DataRow In DR
If DD("파일") <> "" Then Return DD("파일")
Next
Return ""
End Function
Private Shared Sub Add_StyleRow(ByVal Datat As DataTable, ByVal 설명 As String, ByVal 값 As String, ByVal Findkey As String, ByVal 개체 As String, Optional ByVal 파일 As String = "")
Dim Dr As DataRow
Dr = Datat.NewRow
Dr(0) = 설명
Dr(1) = 값
Dr(2) = Findkey '//섹션
Dr(3) = 개체 '//개체
Dr(4) = "" '//키
If 파일 = "" Then
Dr(5) = "CFG"
Else
Dr(5) = 파일
End If
'//DESC경우에 파일을 찾을수없으므로 데이터베이스내에서검색한다(거의확인됨)
Datat.Rows.Add(Dr)
End Sub
End Class

135
Project_fp13/Frm_ConvertINI.Designer.vb generated Normal file
View File

@@ -0,0 +1,135 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_ConvertINI
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.pb = New System.Windows.Forms.ProgressBar
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(31, 23)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(453, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "2009년 03월 수정판 전주번호찰에서는 기존의 스타일 및 패턴을 사용할 수 없습니다"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(31, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(449, 12)
Me.Label2.TabIndex = 1
Me.Label2.Text = "이 프로그램은 구 스타일 및 패턴을 사용이 가능하도록 변환해주는 프로그램입니다"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(31, 75)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(321, 12)
Me.Label3.TabIndex = 2
Me.Label3.Text = "프로그램내에 존재하는 모든 구 스타일 파일을 변환합니다."
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(31, 99)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(197, 12)
Me.Label4.TabIndex = 3
Me.Label4.Text = "변환을 시작하려면 시작을 누르세요"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(33, 128)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(463, 33)
Me.Button1.TabIndex = 4
Me.Button1.Text = "변환시작"
Me.Button1.UseVisualStyleBackColor = True
'
'pb
'
Me.pb.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pb.Location = New System.Drawing.Point(0, 256)
Me.pb.Name = "pb"
Me.pb.Size = New System.Drawing.Size(532, 23)
Me.pb.TabIndex = 5
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(31, 173)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(93, 12)
Me.Label5.TabIndex = 6
Me.Label5.Text = "전체대상 파일수"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(31, 198)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(109, 12)
Me.Label6.TabIndex = 7
Me.Label6.Text = "현재 변환중인 파일"
'
'Frm_ConvertINI
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(532, 279)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.pb)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "Frm_ConvertINI"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "스타일 및 패턴 파일 변환"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents pb As System.Windows.Forms.ProgressBar
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
End Class

120
Project_fp13/Frm_ConvertINI.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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

152
Project_fp13/Frm_ConvertINI.vb Normal file
View File

@@ -0,0 +1,152 @@
Public Class Frm_ConvertINI
Public allini() As System.IO.FileInfo
Dim StyleLista() As C_Epole.SStyle
Public Function GetFileCount() As Short
Try
Return Me.allini.GetUpperBound(0)
Catch ex As Exception
Return 0
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'GetFileList() '//모든파일정보를 수집
Me.Label5.Text = "전체파일대상수 : " & allini.GetUpperBound(0)
Me.Update()
ReadFileToMem() '//파일의 데이터를 분석하여 데이터테이블로 변환한다.
SaveDTtoNewFiletype()
removeInifile()
MsgBox("모든 변환이 완료되었습니다" & vbCrLf & "다시실행하세요", MsgBoxStyle.Information, "확인")
Me.Close()
End Sub
Private Sub removeInifile()
Dim Dir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\oldstylebak")
If Not Dir.Exists Then Dir.Create()
'//폴더이름빼오기
Dim dd As String
For Each F As System.IO.FileInfo In allini
dd = Dir.FullName & "\" & F.Directory.Name
If System.IO.Directory.Exists(dd) = False Then System.IO.Directory.CreateDirectory(dd)
Try
If System.IO.File.Exists(Dir.FullName & "\" & F.Directory.Name & "\" & F.Name) Then
System.IO.File.Delete(Dir.FullName & "\" & F.Directory.Name & "\" & F.Name)
End If
F.MoveTo(Dir.FullName & "\" & F.Directory.Name & "\" & F.Name)
Catch ex As Exception
MsgBox("INI파일 제거중 알수없는 오류발생" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "확인")
End Try
Next
End Sub
Private Sub Addfile(ByVal filename As String)
Try
ReDim Preserve allini(allini.GetUpperBound(0) + 1) '//배열증가
Catch ex As Exception
ReDim Preserve allini(0) '//배열증가
End Try
Me.Update()
allini(allini.GetUpperBound(0)) = New System.IO.FileInfo(filename)
End Sub
Private Sub ReadFileToMem()
'//스타일목록에해당하는 배열을 가져온다.
ReDim StyleLista(allini.GetUpperBound(0))
Dim idx As Integer = 0
Me.pb.Minimum = 0
Me.pb.Value = 0
Me.pb.Maximum = allini.GetUpperBound(0) + 1
For Each Fi As System.IO.FileInfo In allini
If pb.Value < pb.Maximum Then pb.Value += 1
Msg(Fi.Name & "파일을 해석하고있습니다")
Me.Update()
FileToDataTable.ReadFile_OLD(StyleLista, Fi.FullName, idx)
idx += 1
Next
Msg("모든파일을 해석하였습니다. 이제 저장합니다")
End Sub
Private Sub SaveDTtoNewFiletype()
Dim ini As ACC.MyINI = Nothing
Dim idx As Integer = 0
Dim File As String = ""
Dim Pfile As String = ""
For Each SL As C_Epole.SStyle In StyleLista
Me.pb.Value = 0
Me.pb.Minimum = 0
Me.pb.Maximum = SL.PATTERNTABLE.Rows.Count
Msg(SL.Desc & " 스타일을 저장합니다")
For Each DR As DataRow In SL.PATTERNTABLE.Rows
If Me.pb.Value < Me.pb.Maximum Then Me.pb.Value += 1
Me.Update()
Try
File = DR("파일")
Catch ex As Exception
File = ""
End Try
If File <> "" Then
If File <> Pfile Then
ini = New ACC.MyINI(ReplaceExt(Me.allini(idx).FullName, DR("파일")))
Pfile = File
End If
'//파일이 있는것들만
ini.Write(DR("섹션"), DR("개체") & DR("키"), DR("값"))
End If
Next
idx += 1
Next
'//데이터테이블의 내용을 새로운 파일형태로 저장합니다.
End Sub
Private Sub Msg(ByVal mm As String)
Me.Label6.Text = mm
Me.Update()
End Sub
Public Sub GetFileList()
If New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylejd").Exists Then
For Each Fi As System.IO.FileInfo In New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylejd").GetFiles()
'//ini가 아닌것들은 삭제를하고 ini는 배열에 넣는다
If Fi.Extension.ToUpper = ".INI" Then Addfile(Fi.FullName)
Next
End If
If New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylejj").Exists Then
For Each Fi As System.IO.FileInfo In New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylejj").GetFiles()
'//ini가 아닌것들은 삭제를하고 ini는 배열에 넣는다
If Fi.Extension.ToUpper = ".INI" Then Addfile(Fi.FullName)
Next
End If
If New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylekr").Exists Then
For Each Fi As System.IO.FileInfo In New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylekr").GetFiles()
'//ini가 아닌것들은 삭제를하고 ini는 배열에 넣는다
If Fi.Extension.ToUpper = ".INI" Then Addfile(Fi.FullName)
Next
End If
If New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylesk").Exists Then
For Each Fi As System.IO.FileInfo In New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylesk").GetFiles()
'//ini가 아닌것들은 삭제를하고 ini는 배열에 넣는다
If Fi.Extension.ToUpper = ".INI" Then Addfile(Fi.FullName)
Next
End If
If New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylets").Exists Then
For Each Fi As System.IO.FileInfo In New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylets").GetFiles()
'//ini가 아닌것들은 삭제를하고 ini는 배열에 넣는다
If Fi.Extension.ToUpper = ".INI" Then Addfile(Fi.FullName)
Next
End If
End Sub
End Class

50
Project_fp13/Frm_Log.Designer.vb generated Normal file
View File

@@ -0,0 +1,50 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Log
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(547, 503)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'Frm_Log
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(547, 503)
Me.Controls.Add(Me.RichTextBox1)
Me.Name = "Frm_Log"
Me.ShowInTaskbar = False
Me.Text = "관리자용 로그기록창"
Me.ResumeLayout(False)
End Sub
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
End Class

120
Project_fp13/Frm_Log.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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

3
Project_fp13/Frm_Log.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Frm_Log
End Class

1328
Project_fp13/Frm_Prnset.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

471
Project_fp13/Frm_Prnset.resx Normal file
View File

@@ -0,0 +1,471 @@
<?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>
<metadata name="cm_style.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>117, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEXSURBVDhPzY09S8MAFEWD9C85OVgQCg6JoCKpaxeRqKhz
QHESQekQdKmDHy1V0Fi0BCkINS5GBxHjJEi0WUI7FKFCqUcSEEKtoXbqgQcP3n3nCv1DbCCGP/5uWRam
aWIYBrquk81m0TQtuP1JWOA/12o1PM/DcRxs20aSpO4FfqOqqiiKgizLwbMoit0LeiIsOLq4IVcos3dy
RSZ/yfZBkfTuGRs7x6ylD1nZ3P9dFBbkz018Wl/w2YR6A6of4Nbh2W2QWl6PFuQK1zRb8OpWeXypcPfk
UH54o3T/TvG2wtDYTLRgK3NKcnaVRHKRkakF4hNzxCfnSUwvMTyuMDiaihb0RLvg37Kw4GfvNEG4E+2B
yHAfIQjfY9zCTS7n73MAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEvSURBVDhPtZCxSwJhGMZFHBtb+kOaWoIgaNCGIHR2ibiI
aBaLpigMwSMbbKhUNKpLSkQCwa6lqyEim4K48pbDGyQwEPvVd1RIdHQJPvDwvfA+z++Fz9M3Ad7P8f/S
NA1VVSmVSiiKQiaTQZZlxM7n9SFsB50kypZlYZomuq5Tq9UIBALuAeJiJBJBkiSCwaBd9vv97gFCP/8g
ljwYEq8jIH96QbZQZeewQipXZnOvSHz7mLXkPivxNEuxXRKJ/IAjIHeifhyFzhu8tqHZgsYLGE24N1qE
F1dZ30oPOgKyhXPaHXg0Gtw+1Lm606nePHF2/Uzxss7I5AzRaMXnCNhIHRGaXWY8tMDY9DyjU3O2hyfC
3xY5R4Bb9QToLvwJ+Ar85u69HXar7kJPgD7K43kH5pnPZcp9cAoAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEYSURBVDhPYxhU4D+JGANgU4QPUxmcPn36/5EjR/4vW7YM
bPqqrUf/r9xy5P/yTYf/989dj2wjdttBmt+9e/e/trYWrGD5pkP/QeD33///I7MaYZpANAyjgh07dvx/
/fr1/5ycHLDkonX7///99///g2dv/7tFFiJrwNQMAhs2bPj/6NGj/xEREWAFc1fu+v/j9///l+8+/e8c
lk/YAJDfr1279t/Pzw+sYPqSbf8/ff///8zVR/8dgnMJGzB16lSwZl9fX7CCifM2/n/75f//Qxcf/3cI
ySNsADronrH6/7NP///vOfvkv1tUEekGNE9c+v/6s+//t516+t8+CBKwJIGGvsX/k4s7/1v7Z/w39Uwm
3QA6AQYGAJEWwQOQiqcwAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEgSURBVDhPYxi8YNXWo/9Xbjnyf/mmw//7567/DxUmHizf
dOg/CPz++/9/ZFYj6QYsWrf//99///8/ePb2v1tkIdwAFiYW7IadPn36/5EjR/4vW7YMrGDuyl3/f/z+
///y3af/ncPyCRsA0vzu3bv/tbW1YAXTl2z7/+n7//9nrj767xCcS9iAHTt2/H/9+vX/nJwcsIKJ8zb+
f/vl//9DFx//dwjJI2zAhg0b/j969Oh/REQEWEH3jNX/n336/3/P2Sf/3aKKCBsA8vu1a9f++/n5gRU0
T1z6//qz7/+3nXr63z4I4iqQZhgG8VHA1KlTwZp9fX3Bkg19i/8nF3f+t/bP+G/qmQzXgNMFFANk5xGD
odoQAJsifBiqbcABAwMA8eTCTWQj2qEAAAAASUVORK5CYII=
</value>
</data>
<data name="cb_bold.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABlSURBVDhPYxhmgJWF9T8O/AEonQLEPGCFuAArK6sxskaQ
GDMzszuUDcIgQ/ADdAOAgBnJgEdgEXwA3QCKXICE/wGlFgKxOFgRPoCsEcSnbxiwsLBYohtAkguQNaNh
4tLBiAQMDAA5pjrR7u85LAAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_fontchange.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFnSURBVDhPYxi8ILhkk1tA4cb9UC7pIKN13//Awo3/Wxdc
CYEKEQ88cleK+uau+e+bs+6/bczct1Bh4oFb+srZjknLZ1vELPxvHNAPxH3+UCnigGXSsi82iXNFzUKn
njby7/tv4N19AypFGLikLU20i51/AsQ2C5/hZhI69b+eT/0/Xe92F7ACQsA+bsFVs+i5WlAug7Hf5Fd6
Pp3/dT2ad0GFcAPHuAXKVtGz/hv69V8A2nhV17/vqpJf7xcdz9b/Stb2f5UtslSgSrEDm5jZG01Cpu1T
ty8wUbbNtVJ3LLPS8qjX0nRt+K9iUwA0JGcjVCkmcI1ZxG0cOO2LikelKFQIDtQdK6YoWmX9VzDMwB6l
VhGTpYyCJm1Xsy/6ah9S+hIqDAZKNsUR8mZJ/5WBLlCxLfgvaZH+QVwvhhsqDQEGHq2iWk6VWio26Vpy
ZonwAAQBFZtcUZCYhJYfFIdoYRgwgICBAQArd3hInEapuQAAAABJRU5ErkJggg==
</value>
</data>
<data name="cb_visible.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHDSURBVDhPxZLbK4NxGMf337hwq1xQqzleOKQoUm7UlBxK
LrjZlQtJQy7kHMnsZIawmXnfOY02c9gYGWZbiLVZLqTZl+fH1C/LlfLU9+bt+Xyf3/t9Hsmf1LzNC5JR
PIVh3QP92jG0q4dQm/ahWnJganEXk8YdjBs2MaqzYVizji/0swiubulBVXM3Kho6UVbXgeJaBQpr2pFT
2QppeROySuuRWSSHolcFwXnJG8wJJwyOJ+K/6uU1Do35ADbXFW8wa3WzyamgpK5vgog9fxpsHfp5A53l
iD07FUhaMZlRUFKFLmU/y8XuDvAGapOL/TM1R2NRDhbEDWRkZDI4GHqDatkBx2mIN6CkKTCCa+WNrDny
FIFWq0dWtvQb9vkSHxvZw8H5LW8wtbDL0qaJ1Jwry4NS2QuZLJ+DPZ4EW6fn8p43mJjbZqtKPpugtLT0
H7DTmWC3cOZ/4A3G9BtszwTTqijtVPDONjCiE+ELhnmDEa3AjiQJP4bfUsKiAAyprbi+jfAGgzNWyNv6
2I5J7IQ/0qbAkidMkwkemLYgcP/EG9DHlS0vLPZziE4f7Ed+uLwhFtZFIAz/XRShhxinL/TfSyJ5B8Yd
JNvMN5DOAAAAAElFTkSuQmCC
</value>
</data>
<data name="cb_seppattern.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHDSURBVDhPxZLbK4NxGMf337hwq1xQqzleOKQoUm7UlBxK
LrjZlQtJQy7kHMnsZIawmXnfOY02c9gYGWZbiLVZLqTZl+fH1C/LlfLU9+bt+Xyf3/t9Hsmf1LzNC5JR
PIVh3QP92jG0q4dQm/ahWnJganEXk8YdjBs2MaqzYVizji/0swiubulBVXM3Kho6UVbXgeJaBQpr2pFT
2QppeROySuuRWSSHolcFwXnJG8wJJwyOJ+K/6uU1Do35ADbXFW8wa3WzyamgpK5vgog9fxpsHfp5A53l
iD07FUhaMZlRUFKFLmU/y8XuDvAGapOL/TM1R2NRDhbEDWRkZDI4GHqDatkBx2mIN6CkKTCCa+WNrDny
FIFWq0dWtvQb9vkSHxvZw8H5LW8wtbDL0qaJ1Jwry4NS2QuZLJ+DPZ4EW6fn8p43mJjbZqtKPpugtLT0
H7DTmWC3cOZ/4A3G9BtszwTTqijtVPDONjCiE+ELhnmDEa3AjiQJP4bfUsKiAAyprbi+jfAGgzNWyNv6
2I5J7IQ/0qbAkidMkwkemLYgcP/EG9DHlS0vLPZziE4f7Ed+uLwhFtZFIAz/XRShhxinL/TfSyJ5B8Yd
JNvMN5DOAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>743, 17</value>
</metadata>
<data name="chk_usedraw.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEfSURBVDhPY6ArsGgQqrdsEPoPoqFCxAOYZhAg2RBkzWde
zgTTWA3BZiqy5lMvZ/zvv6T/f+ntpP+7Hk8GGwJVht1/yJqPvZj+v/u83v+287r/J132RnUBskKYBLLY
EaDm1vM6/+vPav9feCsTt+Z9z6aCaRAfJnYYqLnlgt7/hnPa/5fczkLVDAIggT1AjXNuJfyvA9py4MU0
sEYQOPpy+v+uy/r/O4B41YM8TM0gAHPBpOs+/5su6f5vv6L//9irGf+Pv575f+IN4/+TgHjj4wLsmmEA
Zsjqh7n/e64ZADUa/Z92y+T/zNum/7c/K8KvGQZghqx/kv9/0i3j/9Nvm/zf+YJIzTAAM2TT08L/W54V
kqYZBmCGkKV5AAADAwDHCQ3wXObhXwAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_circle.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFeSURBVDhP7ZE/SAJxHMVdChqirTFaWiIhKIqWCIJwcgkh
oUkIAhUagjIqsLK/CGUXRWJmEh6lKFwZZX+owUroECoMcbkig0IETfO84nU/cQnkmoPe/H2f9/2+r+xf
P2VmvjDvy2Pak4WRTmPMmcTwxisGrS8YWH2CdplLFUdLi5jvuU/cPQoIPuRxeMODCfFwB3nYAhnIVTso
jpYWSY4+CwhFhYKRvshhzZ/FEpPGjDOGOuWWNICsfcsJOGJ5bJ/lQIlGE53CiP0NOnMYNV3r0gBy81VE
gOdSTD74wOwuMSegp+JQDZ2iut0iDSCFBcI8HCc5LPreYbAn0W+JQz0Vg0K7h6qWBWkAadt7zYPaz2Dc
mYBuRTSbolAaWHT2uVHRaJIGkFdtHqcx6YhAb2ahHj0Xk73o0LjQ2mNFWYNRGkD+3Kbxo6nXh/puF2oV
tsLdlc1zKJdP/A74i5LJvgHrfulhb5/35wAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_box.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFeSURBVDhP7ZE/SAJxHMVdChqirTFaWiIhKIqWCIJwcgkh
oUkIAhUagjIqsLK/CGUXRWJmEh6lKFwZZX+owUroECoMcbkig0IETfO84nU/cQnkmoPe/H2f9/2+r+xf
P2VmvjDvy2Pak4WRTmPMmcTwxisGrS8YWH2CdplLFUdLi5jvuU/cPQoIPuRxeMODCfFwB3nYAhnIVTso
jpYWSY4+CwhFhYKRvshhzZ/FEpPGjDOGOuWWNICsfcsJOGJ5bJ/lQIlGE53CiP0NOnMYNV3r0gBy81VE
gOdSTD74wOwuMSegp+JQDZ2iut0iDSCFBcI8HCc5LPreYbAn0W+JQz0Vg0K7h6qWBWkAadt7zYPaz2Dc
mYBuRTSbolAaWHT2uVHRaJIGkFdtHqcx6YhAb2ahHj0Xk73o0LjQ2mNFWYNRGkD+3Kbxo6nXh/puF2oV
tsLdlc1zKJdP/A74i5LJvgHrfulhb5/35wAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_lineh.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABkSURBVDhPY6AKyO86WFDQfeg/iIYKkQZAmkNbnvyXta76
DxViYGFi+Y8PQ5VBAMhmkGYgJs8FAw9GA5EKILFiWUFixfL/IBoqRBoAafYsOvpf0jiTvEAE2QzSLGmU
MeQCkYEBAD3tUdo+/cEPAAAAAElFTkSuQmCC
</value>
</data>
<data name="bt_linev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACuSURBVDhPYwABj8KD/8EMIPCvughmexYc+B9c/8AHxA6q
vwEWc83e8T+g7LJmSNP9/2H1j3RAYmBgGTHjv0fh4dl+Fef++5afAysGiblmbf8fWHc9PaD6CljMInz6
f4fk1f898g/89yk9BbeUwTp6QaBZ8IT/jmkb0xxSVoMljHxb/tsmLPG3iV3w3yV7axdIzNi/479j0ko/
EHvwAoS/EIBYMTAYNWDUgIEADAwA6mFe6fy689sAAAAASUVORK5CYII=
</value>
</data>
<data name="bt_image.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_qr.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_del.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="NewFp1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>439, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>583, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>219, 17</value>
</metadata>
<data name="bt_preview.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAU2SURBVFhHrZddLKRXGMe1abM37Y2LiqhNKmwlrJF0Uzfi
QiQiqbippCGx3Pi+4AKJLBKJrxJCRcOmVrN1wQX1EYyvENthMQZjBjM+xvcWweq22Uq3T5//eecdY8bS
d3af5JfnvOed8z/P+XreM25sd4qKilrKy8tJhp//LSsr+9MRrv+LOSkpKbEUFhb+nJ2d/TW3/wAi72Ke
LEhGo5GWlpbIAAwGml9YECyA+XmpzF6r1dLC4iINDw9TXV0d5eTkFLLGR5KUaxZQXFwshGdmZmgWzM7S
jBWUUSfK7MfGxmhqaorOTs9o2bgsguCZKGOdjyU55abi6aT5eR3p5uZIp9PRHPs59ro5CemZYf/s2W80
ODREOzu7dMpBYOYqKyspLi7uG9b6UJJUZqr8/HyeVp5ynuL29va3guWYnp6mnp5eMTOHh4d09vIlqdUD
lJaWNsBan0iSykyVm5sr1l+/qCe9/iqLvN56PWN9p+Mg+/r6qb6+nqqqqujxT4+pv7+fsrKyTljrc0lS
mal4DcnIG8+wZLh25PboOdDnz6eou6uLWp48ocbGRnr6y1NKTU19xVpfSpLKTJWZmUkrKyu0vLx8K/Jp
wXLNTM+IDTmp0WAJ/matAElSmamSk5PJZDLRqmn12lHLtLa2Uk1NjcgVFRUVArlcWlqK/HHBvLaH88cf
BQUF9SkpKV7c17U5Q5WUlERra2tkNpttrNmVZTQ8UuSMzc1NWl9fZzaulC+9xNraOp+WHd60PSLA6Ojo
L7g/pyBU8fHxtLEhCVw3cpnq6moSOWNWK5jl3OFYttVpZ2mcc8bZ2RnBuru6KT09/Ufu747U7aWpYmNj
ybJpoU3LJo+IPY9KRq63WCy8+/sIOUNkR8AnxKls9YuMRjNJJycnAuyZvLy8U+7PQ+r20lQxMTG0tbVF
29tb145cBgkHOQOpGhgNRqfypTeIzNrZ2UnNzc1UW1uLGcBGvSd1e2lBkZGRF9gDWK+bUKvVhJyBE/N/
WLV6LIV6YEAOIFDq9tKCwsPDL7D+u7t7TqNua2ujhoYGMfXIFwDBKmWdkdtnZGT8mpiYGMl9i9R9PzQ0
9GKD1/tgf58ODsAB7Qu/T2aTmXd+KfX29oqj2tHRIfYDwH5xLNvXOYK20IAWB6Dmvj8VAYSEhFzgBy8O
XjjNAEaPPGHmhiKAzncPAECT+74rAvD09LzAJsTHReJ3W3liYoKQJ5ABAQLAZryRKvgqh+dK0VbWgSb3
LTKnCGB7e5uODo+cZgANkSfko2U7doC/oFee31bv8AwdaHLfKlsA2OVHR0d0fHx8hfHxMUKeEBeT9wg0
bQH4+Pi8MptNvAcOaHdvj0/DLvtd2mM/NDhEyBOayUn+6DDCayQ/KftJfs9l+3pbWXr+qjFZIH7HddCU
A7jHMzDi7u7+2tfX9w3zjz3e3t5voqKiaGR0lEZHGNlbQb1451Bv/97eC7gMTTmAz5gY5hHzPVPpQEtE
RITtxvy+gCZriwBwmUQQuEzcZ4KsXubbsLAwkQXlTPgwIYESbsDp/UPJo616cFDoQJO1RQC3WUBgYKCh
qalJXEr54mE7y0pBWy1rQAua0Ja6uNnuenh4VPn5+VkePHhAYJ8zpivI7aEFTWhLXdxsSJf4B5TK/BAc
HEzn5+cugbbQsGpBU6Ti2wwfDPwQ0cbw1IkLhiuGttCwakFT8f8Ilb+/v1VOuaEtNCQp1yzAy8tLy2uI
dVQM2kJDknLNPJnvmBKmRiFog7bQcNlwoYQARoGpVALaoK3dpdTN7T8mbWZaZiqizAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="bt_print.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAARBSURBVFhHvZdPSFxXFMYlELJpt5VIyUotMo4PKXblwoUQ
F3UhRaiCDrgQFRQREQRBXIgWB7vQjUpJoe3WJJ2SOkrESjo6f5z/4zjjOBZSXFhIjLSLDCSn57vnzfhm
MpE3jMkHP8599933fffdd31vrHiPbk9NTX03Ozv7z/T09Nv5+XlCNTI3N/dfkb43XC+ZRxMTE/fZ55bY
la7P2OSF3++naDRKMRCLUVQH7VAopCrOqf5IhCJMIpmk3d1dWlpaIp7ELHvdFsvSVDszM/Pa7XaT1+sl
H/D5yKuDdg4+p/q47uzs0P7+Pl28vKBkIknLy8s0NjZmZ7+SJ2EdGhp67fV6KMCrEAgECKvh5xrw5yP9
DNdnz/6kza0tev78b3rJkzg6OqLFxUXq7u7+mj1LehxW3gMZ34GPgsEgL3eQgrzkIW6jBtWxgL5QkM9x
v8fjIYfjN7Uy5+fndPHqFW1tbdLw8PAGe34i1uZknZyczODOI2F5tkbC4XCOSITRxwR4Mk+e/K6W3m63
09oPa7SxsUGjo6Mv2PNzsTYnK2+gDO4uFuUNxqDKprvajLIhrzZphKvbvU+/Pn5MPz54QCsrK/TTLz/T
+Pj4v+z5hVibk5U3TwZ3GI/HTXN4eKj+avDYvB6v2pB7LhdhP7GnRazNyToyMpKBWSKZoETi/SQLjrHx
sjV+FFePSZ+AVayL61ZPT8/9gYGBRxxMWXBHx8fHOVKGdnFSqqZSqdzY2GEs5weQgSxkSrToU5vN5nQ4
HJTkFwlYX183GJcHvLK+yEAWMiVadK+/v5+O9UFqAg/X6fT0lE5OTigN0mlVT7gaSae5LztGjbsaj/Pw
ME4AIAuZEi2y9PX1qSXPggksLCyYwo5q149VtRvaC8rL6I0sZEq0SOPnkjfoHeJF+goxjrlmPLKQKdEi
raurS73Nwjpo5wgXHBspPGc8LnIdvJGFTIkWaZ2dnfkfmQ8IspAp0SKto6ODXHt7/OLQUW2X1D2pLtRc
Xxb92Di2yHVZcIwsZEq0SGtvb1ff8d0/dND+QCALmRIt0tra2ujp9jZtP9Uxthl1rqAv71yRfvDlSr8i
18djkYVMiRZpra2txSeAamxnzxu4bgLvTJzbyEKmRIu0lpYWwm+/jwGykCnRIq25uZmcTmcO/hyTrbeX
eksA4/OusUmFl3NzU2BvZCFTokWW+vr62OrqqvzEYgYHB/Nen+UArwP2BMhAFjIlWnSvsrLSXlNT81dT
UxNlOTs7uxGMnshAFjIlWoQv01fMADPHrDU2NtLl5eWNAC946t7IQFbe1xDfZnRgVliabxoaGuimBC94
6t7IQNa1v5I1i8WiX16+4AVPsTYnra6uTr+8fMELnmJtTlptba1+efmCFzzF2pwsVVVVB9XV1XQTwAue
Ym1Od5lvGfxz+X2ZwANe8DStOwwuwKyxdOUAD3jBs0AVFf8DH03jtcPBki0AAAAASUVORK5CYII=
</value>
</data>
<data name="bt_dmode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAtTSURBVHhe7Z0JdFTlGYZt677VpSjqEQtWEaqtlAKiRUWt
YqvWti60FUtxqVERcQNBI7Yc07JYKJZFEZBdEEVElohIwAAJJJmEJZAFsk5mMsnMZJYks+Xt98V7j5f0
ZpjtTqPzPec8hwjJ5F/e+//f/ecmniAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIEWMymQax
eXl5fcRjLSkpuc7tds/T6vF4HlGG7ttBYWHhEApAP+rwZeKx1tTUDPZ6vejgMmXovh1QR/vn5+d3U/5T
0NDc3NxDApDCSABSHAlAiiMBSHEkACmOBCDFkQCkOCkRgIKCgqHkDRQE3dOwVLaiouKWb30A/l8ngcXF
xb3dbvdDfr9/STAYLPL5fHUtLS0OjfZAIFBM/7aeBv0Zi8UyWO91jFROAhNMW1tbt1AoNJ8mtxEKLn8j
6prLcMRd8D/WeIvh9FnaP6+NdDgcLfT1W+l1BisvaShSAyQImrC76Uqv5Ils8ttw0PkltluWYU1FBlYf
nRyRW80Lsd/+BWwtVQhRGmjFsNLrvqR8C0OQAMQJTdAgmvjaYFsApU17sLl2HlYemRSXG2tmA85qwLQC
aHWpQZigfMuEIgGIEZqQbrR/Hwq1BXHIuRMfVLyBZeUTEyK/HnbPBRYMA5b8Ftgzn5YDD+j7ldL3vUdp
QkKQAMQATcIoXuqtLUextmoa3it7MWEuLZ+A1pAXWHof8O4dX7t8OFC6BT7aG6hGWKI0JW4kAFFC876K
i7VC+xa8W/Jswt1a9x5Qvg2Yf7u+WdOAUIBDkElBvERpVsxIAKKAbtcKAm1+mqRFmHc4zRCrvQeBDeOA
d37ZueufB5obQe3ZQ1nsrzQvJiQAEUL7b7k34Gyv1t8qfsQQF5eNo1vBEE0yXelv3xbe5X8EGo/wTgRa
Ca5Rmhk1KRGAeE8CufhyB+xYUDIWMw48ZJi76z+kgm8RMO/WyFx4D2A7zCvB/vLy8oF6bT+echJ4HGlw
P2kNerGw7AVM3f+AYU47MBxufyNV/fcDc4dG7iK6S3CZOQQ79dp/POUkMAy0tPbmJXZt5VRkFP3GUN8/
+jpQlQPMuTl6Vz+qFoazlKZHjNQAYfD5fJa8hg34m+lOwz3o3AFsTgdm3xib22cgQLcn0dYDEoBOoKtp
OR/pTi68C+kFtxrqP/f9DnySiDm3AG8NiV1zIS9Y25QuRIQEoBOsVquPl+UJ+UMM99Oat4CCFcCsG+Jz
xUhaAkK8CtytdOO4SAB0oKtoFb9LN27v4KRY31JJxd9w4N/Xx+/hze13BUpXjosEQIfa2lr/orIX8cKe
AYY7q3gULd37gJnXJcYlf1BXgQFKd8IiAegAXf0j7b46mpz+eC63n+Hurv8IyJwM/Gtg4qzM4TuCjUqX
wiIB6AC/p59Z+zbG5F5juC/tHfTVGz+zbgLeHJA4N77W/jwBrQKnKd3qlJQIQDQngYcPH27L2HcvRuf0
NdzlR14F9q0FpvdPrDOpFgi0wu12j9bro1Y5CdRIHR9t95nx1O7eSbHCTbdtS0cAU/sl3opdXAxm6vVT
q5wEauB76Fzbx3hi1+WG+7rpDqChHJhyrTFmzeQniSxK1zpFagAN/CDniiPpeHznDw33M/M7wOdTgX/8
xBhXpbU/ZEqcrHRPFwmABr79m3FgBB7NvtRQn9jZCy5/A+3VQ4CMq41xzh0IflUI9lW6p4sEQAMXgOPz
rseo7IsNdfahx4DizcAbfY0z4xog6OcA3KV0TxcJgAZeL9N2XYmRX3Y31P2ObcCyUcDkq4y12cldelzp
ni4SAA08Wg/v6GaoY3P70T16kCaoD/D3K43VWcsrwESle7pIADRwABaUjjXUnfUfUPE3HXj9CuN1VHMA
wv48gQRAg8fjcWdaW7HBYpx5Dj/wxQxg0uXG623kADymdE+XlAhApCeBfAz8cJ4Tt2U3GuYDuQ4gRFvA
4pFAek9j9bfA5XKl6fVVVU4CNQaDwd3PFjVh6I4GQ514wAV4GoFpg4FXLzPGqYPabwNtNttQvb6qykmg
hlAoNHt6qQdDtjcY7tyjXqByL12pvYCJlybe+fdzScN8T+meLlIDaKD9csRG2qcHZ9mS4vs1zcCuBcCE
SxLvulf4KNisdK1TJAAa6GrpUdcawsBttqR4HYVgExWdWPkUMP7ixLp/Az8TsEbpWqdIADoQCAQO3Jdr
x8++sCXFUfnO9p/8xfQbgXHdE+PLtAJ4HXwH8CulW50iAegADVo6788/3VqfNDNK3EB9KfAKVe4vXRC/
7w5X3wgKu/8zEoAOUAB61jQH8ePP65PqgkoqCgvXAS90i1/TR7z8r1O6FBYJgA40eB8/aXLiqi31SXV5
NRWFaycAz58fu5P6tN//U5D7KN0JiwRABxq8YYVNflzxmTWp3p7dAAR9wKw7gefOjc1t/+EngfKVrhyX
lAhANM8EqtIgbhuV70DPTGtSHVPUBDjNVA/8CHj2nOh8ja7+Vg/sdvvDen3SU04CO9Hj8fyltiWIPrQ0
99hsTaozyuiuoCQLGEtX9JizI3fvKr769+r1pzPlJDAMVAtMmV/hxSWbrEl3QSXVA5unAM+cFZnz7qN9
v73y/77S/IiQGiAMNJgnc0H45zwHum+0JFUuCj+rbwXm/h4YfUZ4068C3Db58fDOiDUADBeEDn8Iv9je
gAs2WJLqn/Y4AK+d9va+wNOn6zuG9v6ybF76s5QmR4UEIAIoBE+bW0K4mu7Xz//UklRfK3YD1YW0zNMe
/9Spx8pXf/6HPPkmpalRIwGIEArBxOrmIK7PsuGc9XVJdc4RL5C9EHjylK/lKz9/DU/+PqWJMSEBiAIK
QZon0Ib7c+04myYmmS7lQ6L3HgXSTgYmXg7U7uPJL1CaFjMSgCihEPyaiq316cUunPFJXdK8aUcD4KcQ
LE0Dmup48ncoTYoLCUAM0N1BDwrBbH52gN/RO21dneGeR/UAv0lF9ShX+1OUpsRNSgQglpPASKSBmsyP
XS2ke3Y+wDmFJirRnk5X/19NTlhaQ/D7/Qurq6tv1mtLrMpJYJwWFRX18vl8bzZTEqaVetAr04qTPjbH
Le/7I/McOOgK8MSvtNvtd+l9/3iVk8AEQdvCmeR4frI4y+bDuP1NuHZrPU5ca47YizZa8CAVmEuqmuH0
t/9W8MVUcxj6fw6RGsAAaNJu4n2aCrWiRl8IOXY/3qb9eyqtELycq758wNX+9/xY2CF3AK2trfX0davp
60dEe6QbKxIAg6HJPI8cSBP6OP35Ik3wPI0Zyt8PI3srX5JUJAApjgQgxZEApDgSgBRHApDiSABSnFQI
wHdycnJ+np2dfQF/LB6r3W7n34+oFwDt533j4EZ/V5Umf8CWLVsupI/5J2VEjRUVFT07BsDlci3XfI46
jt+YIKiTfyJ5EnlKY2Pjmo6dFDuXVoWVNG6n8tiR/HsGeSzVMHTpIHDjuKE88dyBM8izrVbrUr2Oivra
bLbVNG7n8NgpY8hjyUHo0iHQXvnc4DPJc8lutbW1i/Q6KupLF8yHNG7deeyUMTyL5DHlC0sNQJcLgRoA
buTpJL+Z8gPyoqqqqsV6HRX1NZvNa2ncLuWxIzkEPJY8puoq0OUDwL8nn5ev88kLN23adG9hYeE4VZPJ
NF7Ul8eHxutBGreLeeyUMeSx5DHt0isAw43jhHJSObG8dPFedh7JqwHLiRbDy+PEE6/WAerVz9urGoAu
iboKqIUgV7GcXO4AFzNieLluUj/mMeOx4zHksezyk6+iLk9qELjhqtwRMTLVMdNW/l1+8juiNloNhBi5
2rFjBUEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBIE54YT/AhEbxIN6arFhAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btSaveImage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKWSURBVGhD7Zn/SxNhHMf39+UPBUH9IFFB4g9mBCHFEIUo
K2ff9DdnWVpUaonVLmdreGBMlGXmcq3MltoqsmlMBGncpz7b3e3p2cfjzm35nD5veHHj7p7neb/uObYf
5pGRkdlFOd3qHz3j6wI34m27MaZr5EX6FBU+LqRcBXZu7uh9rWvkRZ6/jILbgp2liEjZfSKLGYBISgyw
Cx/bIvEfWS0wDyAC2EWvZUaKbCdSBCNFKsB/EXmWBAgv5Y/UdQqnYyoiElos8OYXQGK9wNQqQPBz8RgD
vIb3sGNwDnZOalzJIsaTwwK4SOzvD5NR4B1ThiW+VnjSOBbBz3gOr1Fj2LlwDVwL1zR2rTSR5azGFp/d
pATFNLdTKMCfs4JdCztgF72WGdsiCQcLs2y2U6UQXyllR9JZjZ3MquD4t/XcsRISCHbRa5mxLTKri1iV
65tcguPtKhw6NwwdShym07/J+6ywmt+4hl30WmYci/Bg2Z6xpCnAgueCiZ9FY1gCsRQ031Khuuk++Edi
5D08ZRXB18f/Yg5qfKEiAR5+dyJfMnDxQSRXfk991z/UtDyC8NyyeS9FWURQoG1whixsRd11FXwD0VxR
vjwFik6lN8ovEn6/ojXeniBLOuFA4yBUnbhJlufZ39ADA5PJ8op0jnwgi22F6rMK7D11lyxPUX81kHsd
hRMxcLI7SPvjV2KKILg7+xrukcUp8Asi9Pa7eCIGB5uGoOpkN1me50r/xNZF7qifoO7aKBy9MAyHzysV
4UiLAscuPYXa1ieW9IYTeqtCbIsEZ9Y078NVEAHsotcyI0W2EymCiSY3oFPNCAF24WNbRPRIEdGys0X6
FRXmF766CuxcJEL99esGvJe7x3UNGRmZnR+P5w9mad481S7liAAAAABJRU5ErkJggg==
</value>
</data>
</root>

1045
Project_fp13/Frm_Prnset.vb Normal file
View File

File diff suppressed because it is too large Load Diff

173
Project_fp13/Frm_Shortkey.Designer.vb generated Normal file
View File

@@ -0,0 +1,173 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Shortkey
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(26, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(166, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "F1 : 단축키정보를 표시합니다"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(26, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(106, 12)
Me.Label2.TabIndex = 0
Me.Label2.Text = "F8 : 인쇄 미리보기"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(26, 80)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(54, 12)
Me.Label3.TabIndex = 0
Me.Label3.Text = "F9 : 인쇄"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(26, 108)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(90, 12)
Me.Label4.TabIndex = 0
Me.Label4.Text = "F4 : 스타일저장"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(26, 136)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(106, 12)
Me.Label5.TabIndex = 0
Me.Label5.Text = "F5 : 길이패턴 저장"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(26, 164)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(106, 12)
Me.Label6.TabIndex = 0
Me.Label6.Text = "F6 : 문자패턴 저장"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(26, 192)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(157, 12)
Me.Label7.TabIndex = 1
Me.Label7.Text = "미리보기 화면의 하단버튼은"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(36, 218)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(225, 12)
Me.Label8.TabIndex = 1
Me.Label8.Text = "왼쪽클릭시 미리보기 화면의 크기를 조절"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(36, 237)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(241, 12)
Me.Label9.TabIndex = 1
Me.Label9.Text = "오른쪽 클릭시 미리보기 화면의 위치를 조절"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(36, 256)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(230, 12)
Me.Label10.TabIndex = 1
Me.Label10.Text = "Ctrl + 왼쪽클릭시 배경화면의 크기를 조절"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(36, 275)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(242, 12)
Me.Label11.TabIndex = 1
Me.Label11.Text = "Ctrl + 오른쪽클릭시 배경화면의 위치를 조절"
'
'Frm_Shortkey
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(387, 311)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_Shortkey"
Me.Text = "단축키 정보"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
End Class

120
Project_fp13/Frm_Shortkey.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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

8
Project_fp13/Frm_Shortkey.vb Normal file
View File

@@ -0,0 +1,8 @@
Public Class Frm_Shortkey
Private Sub Frm_Shortkey_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = System.Windows.Forms.Keys.Escape Then
Me.Close()
End If
End Sub
End Class

13
Project_fp13/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
Project_fp13/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
Project_fp13/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다.
' 어셈블리와 관련된 정보를 수정하려면
' 이 특성 값을 변경하십시오.
' 어셈블리 특성 값을 검토합니다.
<Assembly: AssemblyTitle("CEpole Main Class")>
<Assembly: AssemblyDescription("Arin's CEPOLE")>
<Assembly: AssemblyCompany("arinware")>
<Assembly: AssemblyProduct("CEpole")>
<Assembly: AssemblyCopyright("Copyright (C)Arinware 2014")>
<Assembly: AssemblyTrademark("Arinware")>
<Assembly: ComVisible(False)>
'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다.
<Assembly: Guid("f604ff29-0c78-4ea2-8913-626e9fe1e7b5")>
' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다.
'
' 주 버전
' 부 버전
' 빌드 번호
' 수정 버전
'
' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로
' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("16.05.16.2200")>
<Assembly: AssemblyFileVersion("16.05.16.2200")>

83
Project_fp13/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,83 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'이 클래스는 ResGen 또는 Visual Studio와 같은 도구를 통해 StronglyTypedResourceBuilder
'클래스에서 자동으로 생성되었습니다.
'멤버를 추가하거나 제거하려면 .ResX 파일을 편집한 다음 /str 옵션을 사용하여 ResGen을
'다시 실행하거나 VS 프로젝트를 다시 빌드하십시오.
'''<summary>
''' 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.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>
''' 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다.
'''</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("CEpole.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대해 현재 스레드의 CurrentUICulture 속성을
''' 재정의합니다.
'''</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
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property pageh() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pageh", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property pagev() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pagev", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

127
Project_fp13/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,127 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="pageh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\가로출력.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pagev" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\세로출력.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

73
Project_fp13/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
' </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", "16.4.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 자동 저장 기능"
#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(sender As Global.System.Object, 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.CEpole.My.MySettings
Get
Return Global.CEpole.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
Project_fp13/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

2
Project_fp13/My Project/licenses.licx Normal file
View File

@@ -0,0 +1,2 @@
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457

953
Project_fp13/PropertyGrid.vb Normal file
View File

@@ -0,0 +1,953 @@
Imports CEpole.C_Epole
Public Class PropertyGrid_Ctl
'//이것은 Label 개체의 속성을 가진다.
Dim Obj() As CEpole.C_label
Dim DF As Defalut_PrintForm
Dim SF As Frm_Prnset
Dim Pos As Integer
Public Sub New(ByRef pObj As ArrayList, ByRef pDF As Defalut_PrintForm, ByRef pSetfrm As Frm_Prnset, Optional ByVal vPos As Integer = 0)
ReDim Obj(pObj.Count - 1)
For i As Integer = 0 To pObj.Count - 1
Obj(i) = pObj.Item(i)
Next
DF = pDF
SF = pSetfrm
Pos = vPos
End Sub
Public Sub New(ByRef pObj() As CEpole.C_label, ByRef pDF As Defalut_PrintForm, ByRef pSetfrm As Frm_Prnset, Optional ByVal vPos As Integer = 0)
Obj = pObj
DF = pDF
SF = pSetfrm
Pos = vPos
End Sub
<Category("개체조정"), Description("개체의 전경색(글자일경우 글자색)")> _
Public Property 전경색 As System.Drawing.Color
Get
Return Obj(Pos).ForeColor2
End Get
Set(value As System.Drawing.Color)
For Each C As C_label In Obj
C.ForeColor2 = value
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("개체의 위치 : X(좌), Y(위)로부터 떨어진 거래를 뜻합니다.")> _
Public Property 위치x() As Single
Get
Return Obj(Pos).Left
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
C.Left = value
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("개체의 위치 : X(좌), Y(위)로부터 떨어진 거래를 뜻합니다.")> _
Public Property 위치y() As Single
Get
Return Obj(Pos).Top
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
C.Top = value
Next
DF.preview_window()
End Set
End Property
'<Category("개체조정"), Description("H를 패턴에서 별도처리합니다.")> _
'Public Property 개별패턴H() As Boolean
' Get
' Return Obj(Pos).UseHPattern
' End Get
' Set(ByVal value As Boolean)
' For Each C As C_label In Obj
' C.UseHPattern = value
' Next
' DF.preview_window()
' End Set
'End Property
<Category("개체조정"), Description("글자의 너비를 조절합니다.")> _
Public Property 너비() As Single
Get
Return Obj(Pos).WordWidth
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
C.WordWidth = value
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("글자의 높이를 조절합니다.")> _
Public Property 높이() As Single
Get
Return Obj(Pos).WordHeight
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
C.WordHeight = value
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("글자사이의 간격을 변경합니다. 1단위당 1칸의 공백이 추가됩니다.")> _
Public Property 자간() As Short
Get
Return Obj(Pos).WordSpace
End Get
Set(ByVal value As Short)
For Each C As C_label In Obj
C.WordSpace = value
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("개체의 글꼴을 설정합니다.")> _
Public Property 글꼴() As System.Drawing.Font
Get
Return Obj(Pos).Font
End Get
Set(ByVal value As System.Drawing.Font)
For Each C As C_label In Obj
C.Font = value
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("개체의 글꼴을 설정합니다.")> _
Public Property 글꼴크기() As Single
Get
Return Obj(Pos).Font.Size
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
Dim NewFont As New System.Drawing.Font(C.Font.FontFamily, value)
C.Font = NewFont
Next
DF.preview_window()
End Set
End Property
<Category("개체조정"), Description("개체의 문자를 변경합니다(고정문자식에만 적용됨)")> _
Public Property 문자() As String
Get
Return Obj(Pos).Text
End Get
Set(ByVal value As String)
For Each C As C_label In Obj
If C.Fixed Then
C.Text = value
'DF.preview_window()
Else
MsgBox("이 개체는 문자를 변경할 수 없습니다", MsgBoxStyle.Critical, "확인")
End If
Next
DF.preview_window()
End Set
End Property
<Category("반복출력"), Description("지정된개체를 반복해서 출력합니다")> _
Public Property 반복횟수() As Short
Get
Return Obj(Pos).Repeat
End Get
Set(ByVal value As Short)
For Each C As C_label In Obj
C.Repeat = value
Next
DF.preview_window()
End Set
End Property
<Category("반복출력"), Description("지정된개체를 반복해서 출력합니다")> _
Public Property 다음위치X() As Single
Get
Return Obj(Pos).RepeatX
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
C.RepeatX = value
Next
DF.preview_window()
End Set
End Property
<Category("반복출력"), Description("지정된개체를 반복해서 출력합니다")> _
Public Property 다음위치Y() As Single
Get
Return Obj(Pos).RepeatY
End Get
Set(ByVal value As Single)
For Each C As C_label In Obj
C.RepeatY = value
Next
DF.preview_window()
End Set
End Property
End Class
Public Class PropertyGrid_Paper
'//이것은 페이지의 속성을 가진다.
Structure S_Size
Dim 가로 As Short
Dim 세로 As Short
Public Sub New(ByVal w As Short, ByVal h As Short)
가로 = w
세로 = h
End Sub
End Structure
Dim v가로확대 As Single
Dim v세로확대 As Single
Dim v연속출력횟수 As Short
Dim v분리출력횟수 As Short
Dim v용지방향 As C_Epole.E_PaperOrient
Dim v연속여백x, v연속여백y As Single
Dim v연속옵션 As C_Epole.E_Dummytype
Dim v배경 As System.Drawing.Image
Dim v그림파일 As System.IO.File
Dim v파일선택 As New System.Windows.Forms.Button
Dim v출력여백x, v출력여백y As Single
Dim v분리여백x, v분리여백y As Single
Dim v그리기개체반복 As Boolean
Dim DF As Defalut_PrintForm
Dim SF As Frm_Prnset
Public Sub New(ByRef pDF As Defalut_PrintForm, ByRef pSetfrm As Frm_Prnset)
DF = pDF
SF = pSetfrm
End Sub
<Category("페이지속성"), Description("페이지의 출력방향을 선택하세요.")> _
Public Property 용지방향() As C_Epole.E_PaperOrient
Get
Return v용지방향
End Get
Set(ByVal value As C_Epole.E_PaperOrient)
v용지방향 = value
DF.SaveReadLayOut_NEW(True)
End Set
End Property
<Category("페이지속성"), Description("출력시 사용할 좌측,우측의 여백입니다.")> _
Public Property 출력여백X() As Single
Get
Return v출력여백x
End Get
Set(ByVal value As Single)
v출력여백x = value
End Set
End Property
<Category("페이지속성"), Description("출력시 사용할 좌측,우측의 여백입니다.")> _
Public Property 출력여백Y() As Single
Get
Return v출력여백y
End Get
Set(ByVal value As Single)
v출력여백y = value
End Set
End Property
<Category("페이지속성"), Description("출력시 출력물의 크기를 지정한 비율대로 조절합니다.")> _
Public Property 가로확대비율() As Single
Get
Return Me.v가로확대
End Get
Set(ByVal value As Single)
v가로확대 = value
End Set
End Property
<Category("페이지속성"), Description("출력시 출력물의 크기를 지정한 비율대로 조절합니다.")> _
Public Property 세로확대비율() As Single
Get
Return Me.v세로확대
End Get
Set(ByVal value As Single)
v세로확대 = value
End Set
End Property
<Category("연속출력"), Description("2장출력 기능의 사용여부를 결정합니다.")> _
Public Property 출력장수() As Short
Get
Return v연속출력횟수
End Get
Set(ByVal value As Short)
v연속출력횟수 = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("2장출력 기능이 사용될때 추가로 설정가능합니다. 특정 갯수를 출력 후에 줄 바꿈등을 하려면 해당 갯수를 입력합니다.")> _
Public Property 분리갯수() As Short
Get
Return v분리출력횟수
End Get
Set(ByVal value As Short)
v분리출력횟수 = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("2장출력시 2번째출력되는 데이터의 좌측,우측의 여백입니다.")> _
Public Property 연속여백x() As Single
Get
Return v연속여백x
End Get
Set(ByVal value As Single)
v연속여백x = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("2장출력시 2번째출력되는 데이터의 좌측,우측의 여백입니다.")> _
Public Property 연속여백y() As Single
Get
Return v연속여백y
End Get
Set(ByVal value As Single)
v연속여백y = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("분리갯수가 입력되었다면 해당 분리갯수에따른 줄 분리가 작동할때 다음줄과 이전줄과의 X여백값입니다.")> _
Public Property 분리여백x() As Single
Get
Return v분리여백x
End Get
Set(ByVal value As Single)
v분리여백x = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("분리갯수가 입력되었다면 해당 분리갯수에따른 줄 분리가 작동할때 다음줄과 이전줄과의 Y여백값입니다.")> _
Public Property 분리여백y() As Single
Get
Return v분리여백y
End Get
Set(ByVal value As Single)
v분리여백y = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("그리기개체들도 반복 출력합니다.")> _
Public Property 그리기개체반복() As Boolean
Get
Return v그리기개체반복
End Get
Set(ByVal value As Boolean)
v그리기개체반복 = value
DF.preview_window()
End Set
End Property
<Category("연속출력"), Description("2번째출력되는 데이터를 설정합니다. 현재복사는 같은데이터가 연속으로나오게 됩니다")> _
Public Property 출력방법() As C_Epole.E_Dummytype
Get
Return v연속옵션
End Get
Set(ByVal value As C_Epole.E_Dummytype)
v연속옵션 = value
DF.preview_window()
End Set
End Property
End Class
Public Class PropertyGrid_Box
'//이것은 Shape_Box 의 상태설정
Dim Obj As C_Epole.S_Box
Dim SF As Frm_Prnset
Dim Offset As Short
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
SF = pSetfrm
Obj = SF.Pform.Draw_Box.item(voffset)
Me.Offset = voffset
End Sub
<Category("개체조정"), Description("박스의 시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표X() As Single
Get
Return Obj.X
End Get
Set(ByVal value As Single)
Obj.X = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표Y() As Single
Get
Return Obj.Y
End Get
Set(ByVal value As Single)
Obj.Y = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 가로길이를 입력하세요.")> _
Public Property 가로길이() As Single
Get
Return Obj.Width
End Get
Set(ByVal value As Single)
Obj.Width = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
Public Property 세로길이() As Single
Get
Return Obj.Height
End Get
Set(ByVal value As Single)
Obj.Height = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 색상을 선택하세요.")> _
Public Property 색상() As Drawing.Color
Get
Return Obj.PenColor
End Get
Set(ByVal value As Drawing.Color)
Obj.PenColor = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 두께를 입력하세요.")> _
Public Property 선굵기() As Single
Get
Return Obj.PenWidth
End Get
Set(ByVal value As Single)
Obj.PenWidth = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 휘어짐 수치를 입력하세요.")> _
Public Property 휘어짐() As Single
Get
Try
Return Obj.Radius
Catch ex As Exception
Return 0
End Try
End Get
Set(ByVal value As Single)
Obj.Radius = value
SF.Pform.Draw_Box.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
End Class
Public Class PropertyGrid_Circle
'//이것은 Shape_Box 의 상태설정
Dim Obj As C_Epole.S_Circle
Dim SF As Frm_Prnset
Dim Offset As Short
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
SF = pSetfrm
Obj = SF.Pform.Draw_Circle.item(voffset)
Me.Offset = voffset
End Sub
<Category("개체조정"), Description("시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표X() As Single
Get
Return Obj.X
End Get
Set(ByVal value As Single)
Obj.X = value
SF.Pform.Draw_Circle.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표Y() As Single
Get
Return Obj.Y
End Get
Set(ByVal value As Single)
Obj.Y = value
SF.Pform.Draw_Circle.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("원의 너비를 입력하세요.")> _
Public Property 너비() As Single
Get
Return Obj.Width
End Get
Set(ByVal value As Single)
Obj.Width = value
SF.Pform.Draw_Circle.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("원의 높이를 입력하세요.")> _
Public Property 높이() As Single
Get
Return Obj.Height
End Get
Set(ByVal value As Single)
Obj.Height = value
SF.Pform.Draw_Circle.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("원의 색상을 선택하세요.")> _
Public Property 색상() As Drawing.Color
Get
Return Obj.PenColor
End Get
Set(ByVal value As Drawing.Color)
Obj.PenColor = value
SF.Pform.Draw_Circle.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("원의 두께를 입력하세요.")> _
Public Property 선굵기() As Single
Get
Return Obj.PenWidth
End Get
Set(ByVal value As Single)
Obj.PenWidth = value
SF.Pform.Draw_Circle.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
'<Category("개체조정"), Description("박스의 휘어짐 수치를 입력하세요.")> _
' Public Property 휘어짐() As Single
' Get
' Try
' Return Obj.Radius
' Catch ex As Exception
' Return 0
' End Try
' End Get
' Set(ByVal value As Single)
' Obj.Radius = value
' SF.Pform.Draw_Box.item(Offset) = Obj
' SF.Pform.preview_window()
' SF.Refresh_Drawlist()
' End Set
'End Property
End Class
Public Class PropertyGrid_Line
'//이것은 Shape_Box 의 상태설정
Dim Obj As C_Epole.S_Line
Dim SF As Frm_Prnset
Dim offset As Short
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
SF = pSetfrm
Obj = SF.Pform.Draw_Line.Item(voffset)
Me.offset = voffset
End Sub
<Category("개체조정"), Description("선의 시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표X() As Single
Get
Return Obj.X
End Get
Set(ByVal value As Single)
Obj.X = value
SF.Pform.Draw_Line.Item(offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("선의 시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표Y() As Single
Get
Return Obj.Y
End Get
Set(ByVal value As Single)
Obj.Y = value
SF.Pform.Draw_Line.Item(offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("선의 종료좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 종료좌표X() As Single
Get
Return Obj.X2
End Get
Set(ByVal value As Single)
Obj.X2 = value
SF.Pform.Draw_Line.Item(offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("선의 종료좌표 : Y(우) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 종료좌표Y() As Single
Get
Return Obj.Y2
End Get
Set(ByVal value As Single)
Obj.Y2 = value
SF.Pform.Draw_Line.Item(offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("선의 색상을 선택하세요.")> _
Public Property 색상() As Drawing.Color
Get
Return Obj.PenColor
End Get
Set(ByVal value As Drawing.Color)
Obj.PenColor = value
SF.Pform.Draw_Line.Item(offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("선의 두께를 입력하세요.")> _
Public Property 선굵기() As Single
Get
Return Obj.PenWidth
End Get
Set(ByVal value As Single)
Obj.PenWidth = value
SF.Pform.Draw_Line.Item(offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
End Class
Public Class PropertyGrid_Image
'//이것은 Shape_Box 의 상태설정
Dim Obj As C_Epole.S_Image
Dim SF As Frm_Prnset
Dim Offset As Short
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
SF = pSetfrm
Obj = SF.Pform.Draw_Image.item(voffset)
Me.Offset = voffset
End Sub
<Category("개체조정"), Description("시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표X() As Single
Get
Return Obj.X
End Get
Set(ByVal value As Single)
Obj.X = value
SF.Pform.Draw_Image.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표Y() As Single
Get
Return Obj.Y
End Get
Set(ByVal value As Single)
Obj.Y = value
SF.Pform.Draw_Image.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 가로길이를 입력하세요.")> _
Public Property 가로길이() As Single
Get
Return Obj.Width
End Get
Set(ByVal value As Single)
Obj.Width = value
SF.Pform.Draw_Image.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
Public Property 세로길이() As Single
Get
Return Obj.Height
End Get
Set(ByVal value As Single)
Obj.Height = value
SF.Pform.Draw_Image.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
Public Property 파일명() As String
Get
Return Obj.FileName
End Get
Set(ByVal value As String)
Obj.FileName = value
SF.Pform.Draw_Image.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
End Class
Public Class PropertyGrid_QRcode
'//이것은 Shape_Box 의 상태설정
Dim Obj As C_Epole.S_QRCode
Dim SF As Frm_Prnset
Dim Offset As Short
Public Sub New(ByVal voffset As Short, ByRef pSetfrm As Frm_Prnset)
SF = pSetfrm
Obj = SF.Pform.Draw_QRcode.item(voffset)
Me.Offset = voffset
End Sub
<Category("색상"), Description("데이터색상")>
Public Property 전경색() As System.Drawing.Color
Get
Return Obj.fColor
End Get
Set(ByVal value As Drawing.Color)
Obj.fColor = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("색상"), Description("데이터배경색상")>
Public Property 배경색() As System.Drawing.Color
Get
Return Obj.bColor
End Get
Set(ByVal value As Drawing.Color)
Obj.bColor = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("시작좌표 : X(좌) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표X() As Single
Get
Return Obj.X
End Get
Set(ByVal value As Single)
Obj.X = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("시작좌표 : Y(위) 로부터 떨어진 거리를 뜻합니다.")> _
Public Property 시작좌표Y() As Single
Get
Return Obj.Y
End Get
Set(ByVal value As Single)
Obj.Y = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 가로길이를 입력하세요.")> _
Public Property 가로길이() As Single
Get
Return Obj.Width
End Get
Set(ByVal value As Single)
Obj.Width = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("박스의 세로길이를 입력하세요.")> _
Public Property 세로길이() As Single
Get
Return Obj.Height
End Get
Set(ByVal value As Single)
Obj.Height = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("표시할 문자를 입력하세요."), Browsable(False)> _
Public Property 출력문자() As String
Get
Return Obj.QRData
End Get
Set(ByVal value As String)
Obj.QRData = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("QR코드 인코딩 방법을 선택하세요.")> _
Public Property 인코딩() As EQR_Incoding
Get
Return Obj.Encoding
End Get
Set(ByVal value As EQR_Incoding)
Obj.Encoding = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("QR코드 버젼을 선택하세요.")> _
Public Property 버젼() As EQR_Version
Get
Return Obj.Version
End Get
Set(ByVal value As EQR_Version)
Obj.Version = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("QR코드 보정레벨을 선택하세요.")> _
Public Property 보정레벨() As EQR_CLEVE
Get
Return Obj.CLeve
End Get
Set(ByVal value As EQR_CLEVE)
Obj.CLeve = value
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("QR코드의 크기를 입력하세요")> _
Public Property 크기() As Integer
Get
If (Obj.Size < 1) Then Obj.Size = 4
Return Obj.Size
End Get
Set(ByVal value As Integer)
Obj.Size = value
If Obj.Size < 1 Then Obj.Size = 4 '//기본4
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
<Category("개체조정"), Description("기본출력포맷을 입력하세요. 기본값('{DATA}')은 입력데이터 그대로의 출력을 의미합니다.")> _
Public Property 출력포맷() As String
Get
If Obj.Format = "" Then
Return "{DATA}"
Else
Return Obj.Format
End If
End Get
Set(ByVal value As String)
Obj.Format = value
If Obj.Size < 1 Then Obj.Size = 4 '//기본4
SF.Pform.Draw_QRcode.item(Offset) = Obj
SF.Pform.preview_window()
SF.Refresh_Drawlist()
End Set
End Property
End Class

BIN
Project_fp13/Resources/landscape.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

BIN
Project_fp13/Resources/가로출력.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

BIN
Project_fp13/Resources/세로출력.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

347
Project_fp13/StyleEdit.Designer.vb generated Normal file
View File

@@ -0,0 +1,347 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class StyleEdit
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(StyleEdit))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel
Me.lb_filename = New System.Windows.Forms.ToolStripStatusLabel
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.Label1 = New System.Windows.Forms.Label
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
Me.bt_load = New System.Windows.Forms.ToolStripMenuItem
Me.bt_save = New System.Windows.Forms.ToolStripMenuItem
Me.Panel1 = New System.Windows.Forms.Panel
Me.tb_filter = New System.Windows.Forms.TextBox
Me.tb_desc = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel
Me.combobox1 = New System.Windows.Forms.ToolStripComboBox
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel
Me.tb_x = New System.Windows.Forms.ToolStripTextBox
Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel
Me.tb_y = New System.Windows.Forms.ToolStripTextBox
Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel
Me.tb_fontname = New System.Windows.Forms.ToolStripTextBox
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel
Me.tb_fontsize = New System.Windows.Forms.ToolStripTextBox
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
Me.StatusStrip1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg, Me.lb_filename})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 673)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1127, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(14, 17)
Me.lb_msg.Text = "#"
'
'lb_filename
'
Me.lb_filename.Name = "lb_filename"
Me.lb_filename.Size = New System.Drawing.Size(79, 17)
Me.lb_filename.Text = "스타일파일명"
'
'RichTextBox1
'
Me.RichTextBox1.BackColor = System.Drawing.Color.LightSteelBlue
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(3, 30)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(985, 534)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = ""
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 1
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.RichTextBox1, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(136, 106)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 2
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 4.933586!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 95.06641!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(991, 567)
Me.TableLayoutPanel1.TabIndex = 4
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(74, 21)
Me.Label1.TabIndex = 2
Me.Label1.Text = "파일내용"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_load, Me.bt_save})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1127, 24)
Me.MenuStrip1.TabIndex = 6
Me.MenuStrip1.Text = "MenuStrip1"
'
'bt_load
'
Me.bt_load.Name = "bt_load"
Me.bt_load.Size = New System.Drawing.Size(95, 20)
Me.bt_load.Text = "다시 불러오기"
'
'bt_save
'
Me.bt_save.Name = "bt_save"
Me.bt_save.Size = New System.Drawing.Size(67, 20)
Me.bt_save.Text = "저장하기"
'
'Panel1
'
Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Gainsboro
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.tb_filter)
Me.Panel1.Controls.Add(Me.tb_desc)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Location = New System.Drawing.Point(136, 27)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(991, 73)
Me.Panel1.TabIndex = 8
'
'tb_filter
'
Me.tb_filter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb_filter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_filter.Location = New System.Drawing.Point(100, 41)
Me.tb_filter.Name = "tb_filter"
Me.tb_filter.Size = New System.Drawing.Size(878, 21)
Me.tb_filter.TabIndex = 1
'
'tb_desc
'
Me.tb_desc.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb_desc.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_desc.Location = New System.Drawing.Point(100, 14)
Me.tb_desc.Name = "tb_desc"
Me.tb_desc.Size = New System.Drawing.Size(878, 21)
Me.tb_desc.TabIndex = 1
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(22, 45)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(69, 12)
Me.Label6.TabIndex = 0
Me.Label6.Text = "데이터 필터"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(22, 18)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(69, 12)
Me.Label5.TabIndex = 0
Me.Label5.Text = "스타일 설명"
'
'ToolStrip1
'
Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Left
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.combobox1, Me.ToolStripSeparator1, Me.ToolStripLabel3, Me.tb_x, Me.ToolStripLabel4, Me.tb_y, Me.ToolStripLabel5, Me.tb_fontname, Me.ToolStripLabel2, Me.tb_fontsize, Me.ToolStripSeparator2, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(129, 649)
Me.ToolStrip1.TabIndex = 9
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(126, 15)
Me.ToolStripLabel1.Text = "개체목록"
'
'combobox1
'
Me.combobox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.combobox1.Font = New System.Drawing.Font("굴림체", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.combobox1.Name = "combobox1"
Me.combobox1.Size = New System.Drawing.Size(124, 300)
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(126, 6)
'
'ToolStripLabel3
'
Me.ToolStripLabel3.Name = "ToolStripLabel3"
Me.ToolStripLabel3.Size = New System.Drawing.Size(126, 15)
Me.ToolStripLabel3.Text = "X좌표"
'
'tb_x
'
Me.tb_x.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_x.Name = "tb_x"
Me.tb_x.Size = New System.Drawing.Size(124, 23)
Me.tb_x.Text = "0"
Me.tb_x.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'ToolStripLabel4
'
Me.ToolStripLabel4.Name = "ToolStripLabel4"
Me.ToolStripLabel4.Size = New System.Drawing.Size(126, 15)
Me.ToolStripLabel4.Text = "Y좌표"
'
'tb_y
'
Me.tb_y.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_y.Name = "tb_y"
Me.tb_y.Size = New System.Drawing.Size(124, 23)
Me.tb_y.Text = "0"
Me.tb_y.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'ToolStripLabel5
'
Me.ToolStripLabel5.Name = "ToolStripLabel5"
Me.ToolStripLabel5.Size = New System.Drawing.Size(126, 15)
Me.ToolStripLabel5.Text = "글꼴이름"
'
'tb_fontname
'
Me.tb_fontname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_fontname.Name = "tb_fontname"
Me.tb_fontname.Size = New System.Drawing.Size(124, 23)
Me.tb_fontname.Text = "HY견고딕"
Me.tb_fontname.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(126, 15)
Me.ToolStripLabel2.Text = "글꼴크기"
'
'tb_fontsize
'
Me.tb_fontsize.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_fontsize.Name = "tb_fontsize"
Me.tb_fontsize.Size = New System.Drawing.Size(124, 23)
Me.tb_fontsize.Text = "0"
Me.tb_fontsize.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(126, 6)
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(126, 36)
Me.ToolStripButton1.Text = "일괄변경"
'
'StyleEdit
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1127, 695)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "StyleEdit"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "스타일파일 직접 편집"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_filename As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents bt_save As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents bt_load As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents tb_filter As System.Windows.Forms.TextBox
Friend WithEvents tb_desc As System.Windows.Forms.TextBox
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents combobox1 As System.Windows.Forms.ToolStripComboBox
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel
Friend WithEvents tb_x As System.Windows.Forms.ToolStripTextBox
Friend WithEvents tb_y As System.Windows.Forms.ToolStripTextBox
Friend WithEvents tb_fontname As System.Windows.Forms.ToolStripTextBox
Friend WithEvents tb_fontsize As System.Windows.Forms.ToolStripTextBox
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
End Class

179
Project_fp13/StyleEdit.resx Normal file
View File

@@ -0,0 +1,179 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>135, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>251, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAACexJREFUWEetV3lY
jukefkbW0pEzlokxGss3MZPiFUooBg0Zy+i4MpYsbZhUlDrIZ5nE+aimmSiGkCVbaVFSMjUImQqppB2l
4ssaUvf5Pc/71cy55szM4TrPdf3+qPf9nvv+3b/1fY+9wzE1XWzS2NjKEmgag7YdLfkVWm9eRNPfPzU2
NkTn5Oyre4dr//gnHHDIEEe3wYMXRw0e7qYeaBuCnq7J0PYrB/v+NVhQPXRXZaOX3X4MGLcO9G6WJDko
JclJkHvr81vAoSPc1MPsQjDUKxmfBpXjowNA13Cgw26AhZJpCLBtT8G21oFtfoi2PgV4f1E8+k7aBpPh
S9Wc+JAhi+2NjZ0M/iuZ3wION3NTW80NwcS1ybDZXQ6nMy/gmNKA0VGA4WGgFxHoQgTaNxMIfgUW+AI6
QY8xaGcVTHfXwDi0Fkx5D2wNKeRTAl2Hc+g1dScGjF7drE5Aizoc0Hp+CGzXJ8P+QDmczwLzEoFNyVWI
ScvBtbwyvKh/BX42ZgL6+4HOe4E2u8j7nU1gRODjMLV49+zlWyirfCjeLVG/kQl4F4N5FoJ55IO53oTO
3ET0tdqEIZIThBoKKyV0V+ZiUMA9zDheL8BnnQbmxL/CmjNV+Db9MXbcaMLmXwDjo8AH+4C/7QFahRGB
HY1g370EC3gOo9AHmBdZgZWJj6A8/xTTDj8UBNosz0anObHQn7QDfUf6wlByF2YiuWgIjN0AtjxXsOOm
7VWAfqr7MI+ohyXJbnYcMIkE+h8CPtTI/x/x5wS2P2uJv9a6Cui6pKH7zAPoY7Ee/aWV6Cd5knmhj7Sq
xYylJRoC4zaCrSj4vbnnoZ13IbptqUSf3fUwiPjV+9bce438WlsfQdf9CrrbReLjcf74RFohAJvBzKwD
4LEmDUu9E2Ay3g8fSWuEDZKWagiM3yQSRXtNKQw33UVX3xKwVUVgXnfAVt6WiVH8tDxvo/3G+9DZ9hCd
fLKhP+8Y+o3fjIHSciGpgoD7arzsLf0TvQjkMysVwvZV4njiHSRl5CEqORsfSOuFfSZ9oyEwwU9krGNo
DY7GleJoSgE6bqDkWV0miIkk+g2ZjvZJMJKW4VPJVQAPs9qARctisdgtGoYWSnworUVPyRf6khJzXRMI
vAgXc4pQev8hHj+rh4nN9+gifSt+LyfhxM1g31Yj6uxtZNwoxu2yB7A98kAuIzJDv0pMD6xEV2WpUEZn
0bkWr00pm8PCq3DsdDFO/5yLyMRr6DvKD92lDegqbcJMl2jhOQdvampC3ZOX0JO2CuPKyQS+8AfbokbC
1SLU1j0TJWQfS03FrxZd/Ktx8MQDnDhTiKOp+ehIJLSdfxaec7kXusbieEIRzmcWIK+4Evdr6mC9IByd
JX9h+hYBiIjLQt3TFwLcQZkEbSlA2ADJTUNg0lbRSFzP1OF1wxuoXzZBL5gI/OsxxoRWIy7tFjJvlaKg
tArDdt5Hh6UZAtxA8sFC91NIuJArntW/fC3Ij7LbC11JBR1pOzpIgWgvBaGtFIzW0g/QkkJa7BPJQ0PA
RiVnNNW0ydFG6O2mBqLpbmZ7a0Qj4h7wYxlRhw6uVwU4j/Vo2x1IzypEjfqpeJ6WWaEBlkE5oI75Hkxw
SIW1czJ0Ru0BM90FNmw3FENXygQGfKmCNjWWdtRaubWmDvce7/FEqmPYa2SV1IrLhTJBdWjnni3AeSZ3
kzZigHUw1galwkmZKDzmwK2kHWBSKLQtwrEzvJpypARJl/KxP/46mMV+sFEHoDD1lAl8NlWF7lTj3ci6
UKPpzDsdtdoOP8rttvfBJtinNsEgnHo+DZx2nrkt4DzOnSihuNxcau4xBxZejiDPXdJFZfEqKL5bg0dP
noONPSJMMdxLJjBougoG1Om49T5C3Y4GTg/qepyQHpHRIXW4KiJMNPnaehcIz5vBx82NQ2BYGX6IyMNY
52gBzMzDwUZH4Au3dCRezEdRRbWoAvUzGt3WJ4UpRnjLBAbPUMGIVgluA0/SxDtBbfeYTIiT4ep04tOP
FOGhabO2uAXcZOoRRByrQez5fFzIvoPsggr0nH4czPIQ2LhIaNtEYVdsDiprHwtw+8BssCmxwhTmPjIB
05kqmNPwmRzTiCXHX+KLmAYMjgE+pTnQn+YAJ6JPivydpiBXo42yjOp4i5Dd1vU8opMLcDW3FFUPn4gq
GuOWAjb+mOypTYwA6zQ7CWx6AthXZ1pMMXK1TGCErQoTk4Hgk4/oskLEZxTCJqkBpnEQRAaQKv1IkZ4a
ErqbytBR2iZibrMkEclX8lByr1aW+Olr6M04BTaJQsE9nXZaABo6Z2Dgsktgdqktphi1RiYwcpYKX6WD
ZCzA9cK7oqT8rzdibBKEMkNj5fBwNXhIOm+uEI2E1zUbGgbX7T8JibPuqGHikix7/WUc2IxEMNuz2BhS
icjYchGm7VE3wOZfALO/CMVoX5nAaDsV5l8GonIqWxYP/1zAJhWYQMrYxrzB4pMvYRrdJJTovrUC7aTv
5GznCcfLyuow2ASK/WTyfmq8LPOsFFh43hDgzZ2SE2UOV8EcM6GwVMoErGar4ELLhvJ6AwqeAFlqwPEq
LSUXgNkpjTh0ogrRKbdx4EKpyIte2+7K5cZLjWc7JZzhnBQMXJgC7ZmaOBM4m30eE9fliSrg86XhTSPU
L6jJLaFEXJoDhdV6mcDnX6vgdRMgsvC4DnyTBTjR6mVPqnyTVo8zF/PwS345CsurMe98AwwC7v7qPTWU
9YH3cOTUXcSn5WNXPEn8DwoDgXOZtZ0zsSvxlpgxHHwa7ZjM7RYY7RqKcbQI8WNm4V7icigLG24DvvmA
D8nvngM4XwO8Lz8Tc+DJ83rRDZ0vUS58d1/23mwvLBzSBTiX+Oade7hXrYa5b6YAZ4sugzldA1t2HUb+
tBPyvYL2Cy2Pm3h/ThRty5p9gJPgO7z1ApXaN6NWEFmbB6wgNTiJi8WPBPizBmBSCqAIJgLDfxSxn+F5
GfHp+WISNg8jAw+K8cIMEWcOLtY9AtZ1TIXBlGBI0qISwgv43YrO/8H399m+kViX8xyrbwFupITrL03Y
SCFyzAA+p4154A9EgCcfdbqu00/hVFquGMP8BCRUyN7zRKNYay25hm6zDsNopCf43ZLkOE3I/meH7+s8
LPMCk0Vu8ASdR+AzqVStSYFBO4gAyc/GHBQNR//r0zD3vgATL5J8ThrYgkvQtYuFAe2CGm+Vf/hB8udE
HJRmE1ep5x4pwIIrclVMPkcbcmilTIC3W156vO6p5tvOiEGPid/DyMyDgB33/k/e/pUazWGxWhiCmXG1
mEK9oYWApvb1xu+iNUwpvOXfj8bG8/X+6t63fs7DwgEsfWJhHFSEtiN2ooe5H4xMl2u8fceP0LdlIn/x
Oqr51+//y9t/A6u0RY3Pkc0cAAAAAElFTkSuQmCC
</value>
</data>
</root>

136
Project_fp13/StyleEdit.vb Normal file
View File

@@ -0,0 +1,136 @@
Public Class StyleEdit
Dim Path As System.IO.DirectoryInfo
Dim FileName As String
Dim Fullname As String
Dim Target() As String = {"X1", "X2", "X3", "X4", "X5", "X6", "X7", "X8", "X9", "X10", "X11", "X12", "X13"}
Dim AllFullLabel() As CEpole.C_Epole.S_FullLable
Public Sub New(ByVal styleindex As Short, ByVal cPath As System.IO.DirectoryInfo, ByVal Fulllabel() As CEpole.C_Epole.S_FullLable)
' 이 호출은 Windows Form 디자이너에 필요합니다.
InitializeComponent()
Me.Path = cPath
Me.Fullname = Me.Path.FullName & "\" & StyleList(styleindex).File
Me.FileName = StyleList(styleindex).File
Me.AllFullLabel = Fulllabel
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub StyleEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Load_File()
End Sub
''' <summary>
''' 지정된 파일의 내용을 화면에 표시합니다.
''' </summary>
''' <remarks></remarks>
Private Sub Load_File()
Me.lb_filename.Text = Me.FileName
Dim ini As New ACC.MyINI(Me.Fullname)
If IO.File.Exists(Me.Fullname) = False Then
MsgBox("편집할 파일명이 존재하지않습니다. 연락주세요", MsgBoxStyle.Information, "확인")
Else
Me.RichTextBox1.LoadFile(Me.Fullname, System.Windows.Forms.RichTextBoxStreamType.PlainText)
Me.tb_desc.Text = ini.Read("style", "desc")
Me.tb_filter.Text = ini.Read("style", "filter")
End If
Me.ComboBox1.Items.Clear()
For Each A As CEpole.C_Epole.S_FullLable In Me.AllFullLabel
Me.combobox1.Items.Add("[" & A.Tag.ToUpper & "]" & A.Desc)
Next
End Sub
Private Sub bt_savenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save.Click
If MsgBox("저장을 하면 되돌릴수 없습니다" & vbCrLf & "저장하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "저장확인") = MsgBoxResult.Ok Then
IO.File.Copy(Me.Fullname, Path.FullName & "\bak_" & Format(Now, "MMddhhmmss") & Replace(Me.FileName.ToLower, "ini", "bak"), True)
Me.RichTextBox1.SaveFile(Me.Fullname, System.Windows.Forms.RichTextBoxStreamType.PlainText)
Dim ini As New ACC.MyINI(Me.Fullname)
ini.Write("style", "desc", Me.tb_desc.Text)
ini.Read("style", "filter", Me.tb_filter.Text)
MsgBox("저장이완료되었습니다" & vbCrLf & "출력창을 다시 열었을 경우 반영됩니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub btloadStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_load.Click
Me.RichTextBox1.LoadFile(Me.Fullname, System.Windows.Forms.RichTextBoxStreamType.PlainText)
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim src As String
Dim pos() As String
Dim Cnt As Integer = 0
Dim NewStringArray() As String = Nothing
Dim Si, Ei As Short
Dim Tag As String
Dim EffectRowcont As Integer = 0
If Me.combobox1.SelectedIndex = -1 Then
MsgBox("일괄변경할 개체를 선택하세요", MsgBoxStyle.Information, "확인")
Return
End If
If IsNumeric(Me.tb_x.Text) = False Then Me.tb_x.Text = "0"
If IsNumeric(Me.tb_y.Text) = False Then Me.tb_y.Text = "0"
If IsNumeric(Me.tb_fontsize.Text) = False Then Me.tb_fontsize.Text = "0"
If Me.tb_fontname.Text = "" Then Me.tb_fontname.Text = "HY견고딕"
Si = 0 'Me.AllFullLabel(Me.combobox1.SelectedIndex).Si
Ei = Me.AllFullLabel(Me.combobox1.SelectedIndex).Ei - Me.AllFullLabel(Me.combobox1.SelectedIndex).Si
Tag = Me.AllFullLabel(Me.combobox1.SelectedIndex).Tag.ToUpper
'For Each Z As String In Me.Target
' If A.ToUpper.IndexOf(Z & "POS") > -1 Then
' pos = A.Substring(A.IndexOf("=") + 1).Trim.Split(",") '//위치값을 가졌으니 그 위치값으로 변경해서 다시 저장한다.
' pos(0) += Val(Me.tb_x.Text)
' pos(1) += Val(Me.tb_y.Text)
' Cnt += 1
' 'Me.RichTextBox2.AppendText(Z & "POS = " & pos(0) & "," & pos(1) & "," & pos(2) & "," & pos(3) & vbCrLf)
' AddString(NewStringArray, Z & "POS = " & pos(0) & "," & pos(1) & "," & pos(2) & "," & pos(3) & vbCrLf)
' End If
'Next
For Each A As String In Me.RichTextBox1.Lines
src = A
Cnt = 0
For i As Short = Si To Ei
If A.ToUpper.IndexOf(Tag & CStr(i + 1) & "POS=") > -1 Then
pos = A.Substring(A.IndexOf("=") + 1).Trim.Split(",") '//위치값을 가졌으니 그 위치값으로 변경해서 다시 저장한다.
pos(0) += Val(Me.tb_x.Text)
pos(1) += Val(Me.tb_y.Text)
Cnt += 1
AddString(NewStringArray, Tag & CStr(i + 1) & "POS=" & pos(0) & "," & pos(1) & "," & pos(2) & "," & pos(3)) '& vbCrLf)
EffectRowcont += 1
End If
If A.ToUpper.IndexOf(Tag & CStr(i + 1) & "FONT=") > -1 Then
pos = A.Substring(A.IndexOf("=") + 1).Trim.Split(",") '//위치값을 가졌으니 그 위치값으로 변경해서 다시 저장한다.
pos(0) = Me.tb_fontname.Text
pos(1) += Val(Me.tb_fontsize.Text)
Cnt += 1
AddString(NewStringArray, Tag & CStr(i + 1) & "FONT=" & pos(0) & "," & pos(1) & "," & pos(2) & "," & pos(3) & "," & pos(4) & "," & pos(5) & "," & pos(6)) ' & vbCrLf)
EffectRowcont += 1
End If
Next
If Cnt = 0 Then
AddString(NewStringArray, A)
End If
Next
Me.RichTextBox1.Clear()
Me.RichTextBox1.Lines = NewStringArray
MsgBox(EffectRowcont & "개의 줄이 변경되었습니다", MsgBoxStyle.Information, "확인")
End Sub
Private Sub AddString(ByRef Array() As String, ByVal str As String)
If Array Is Nothing Then
ReDim Array(0)
Else
ReDim Preserve Array(Array.GetUpperBound(0) + 1)
End If
Array(Array.GetUpperBound(0)) = str
End Sub
End Class

2
Project_fp13/desktop.ini Normal file
View File

@@ -0,0 +1,2 @@
[.ShellClassInfo]
IconResource=C:\Windows\system32\SHELL32.dll,17

94
Project_fp13/selitem.Designer.vb generated Normal file
View File

@@ -0,0 +1,94 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class selitem
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(selitem))
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.PictureBox1 = New System.Windows.Forms.PictureBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ListBox1
'
Me.ListBox1.Font = New System.Drawing.Font("맑은 고딕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.ItemHeight = 30
Me.ListBox1.Location = New System.Drawing.Point(19, 61)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(287, 304)
Me.ListBox1.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(67, 14)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(239, 12)
Me.Label1.TabIndex = 2
Me.Label1.Text = "선택범위내에 2개이상의 개체가 존재합니다"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(67, 33)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(221, 12)
Me.Label2.TabIndex = 3
Me.Label2.Text = "선택할 개체를 아래에서 더블클릭하세요"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(20, 13)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox1.TabIndex = 4
Me.PictureBox1.TabStop = False
'
'selitem
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(325, 383)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ListBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "selitem"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "개체 선택"
Me.TopMost = True
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
End Class

155
Project_fp13/selitem.resx Normal file
View File

@@ -0,0 +1,155 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAABntJREFUWEfFV2tM
k1cYnmbJkk0Wfy3G8EvmD128Rf1BNMpQpxgvJCggKiMLIUy8ICBXFwGZ4ABxoqgYUbCAuiEMqiAU2tIC
LfdLKQVaWkqLlIsm+7Es2Y9n7/sVSFVw1bDY5Ml7vvOd87zPOe973vN1EYBPPuqPBXxMLLhz2s3FkZGR
7klJSfkJCQnB9Pzpuxb4fwj4IiYmpqRa2gHRQzHi4+PzScRn84lYUAG82rCwsPO374ig7rCgRmFAXv4T
nDt3TjSfiAUVsHnz5q+Tki+ivXsYdx+24cqdRjx51ous7HxERETMKeI1AdPx80xMTHycmpr6Z1paGpxF
SkoKKPZ4Ui5DtVyPa3mqWeQWtiAl7SZOnz79lohZAew8JCTEKy8vDw0NDdDr9TAajU6Bx5aUlCDl0mX0
DY7jdmErcgqa7cifgRrJl64jKCgo3DExHQW4nD17tkoul0OtUqGurg6S2lrU1koItZBICNyWSKb7uY/a
1F9eXo7Y2Fg0NutQWqVFLgmwo8Vui+zPyZduwNvbO5MEuMwkpaMAVzo2f/VqtZDL5JBK60iEFHXSaZAg
qdAmS/38Xkp91dU1oHAhJ7cA7T2juPeoHXlz4OLlXOzfv7+HnH83n4BVdGSgZQG0C3KZDDJCZWUlWakg
Ssb9s6D3JKioqAjh4REYMNjwuEKDgpJOPCCwnWmnZtzDnj17dEuWLAkj527zhWBtdHQ0ND09UCoUwgo5
ASOjYgTLu6GgfqVCOQsOSVxcHMSV1N9sQnFZN4r/IEzbRxU9SL9WhJ07d5qWLVt2nhx/8+ZxdAzBOsoB
dHd3C6ukk4CfUzNhGJ5ETOxPyLl5E0qlEo2NjQJYTFZWFhKTLmHAOIHf6bj99lRDICvWoPS5Ftm3SxAY
GAhXV9cCcryB8PmbBek1ASdPnkRraysuXLiAuPPJ6OixQNo4BHWbDqGhoUIyqtVqAZyAwcHB6NIMQaLQ
o4ySjxOQ7dPafuQ9qERAwFFs2bKFb7sfCF8SFr1TABOy87BTUUTaj2d1/RBLdNAZJpCZlYO01DTBeVNT
EyhhcfdeMXp0NmFMxTQqZQN4WKqAr58//P39sXv3bhbwLR/zucqx4w6s9/X1RcDRQCLUoIqIZiBXDUE3
YMHBg96oqalBQUEBbW0QzNaXqKnXo0pqHyuhdtkzNQ4d9oWPjw+uZl2Fn58fC9jwn3cBD9q3b5+gOiX1
OmqVBkiUemF72WqpwOTdL6aMDwcVLNTJ1GjrttrfEzhUlZIO+Bzy5bOOjPQMoZYEBASwgHXOCFjPAjgE
dGSQlnEL9SojZE1DArlCPQTLi1c4RA7iExJhGnkFWaNBeF+vNqJOoSHnfjhw4ADS09OFoqXRaHD48GGn
BaxjARXiCrq9orFr1y5kXM2Fqt0MBR0xPmYa3QtUPpejt8+Elk4L9RnR0GJCQ/Mg/I8cx969e5GRwSuX
oq9Pi8HBAQrbQecFeHl5CcewoqICUZFR8PT0xK837qG1y4KmtmEBvQM2tHbbn1Xtw/RuGEeOfi8kWwat
nItXf38/DAYDDHoDmNPZEKyjgiFcPr29vYIIukKxfft2KrMidGisaO4cIZjttsNMfRYEBgVjx44dwrZz
/dAP6mEymaZh5CLkvIBt27ZhZMQM87AZ2r4+iMVinDlzBlu3bsWtO0Xo7B0VVt9G6NJaERJ6Ch4eHoLz
+vp6DBmGaP7Ia2BOp3fA3d0do6OjGLWOwmq1Qqeziwg7cQJr1qwhEYXkeBQ9fS8QHhEDJueYK5UKmIaH
YeW505hpM6fTAjZt2oSxMRvGbGNkxwQyjiff9ceOHcfq1atx+24xYuOTqMJtReaVTOHbgXfNRuN5DsNG
HDPPzOmsgLX0+9tkMmJiYnwWYzYb3ZB9EIkK6UwfwcaNG4WYX76cJtwJFosV4xMTNN4Obo/TfLacT8xJ
AtY6UwdWrVixoquQHE1NTREmMTU5iUmyTNav06GstBTZ17ORX5APlVol7NAkjxHG0ZyZtmCnUFgoAnOS
gFXOCHBdunTpL1xCRSIRzGYzXr58OQt2wn06EsKfYLzVju8d2zyOOZiLOUmAqzMCXGigh4uLy/3ly5eb
3Nzc/lm5ciU+BDyXOZiLOR2/gN51Gy6mgV9NT/iR7EXCFULWe4Ln8FzmYOfMOedNKPwvdVTEA1ktbxnH
jZOHM/g9wXN4LnMw17zO3xLwMf6kLug/ow9ZwL/wCkWL+vdamgAAAABJRU5ErkJggg==
</value>
</data>
</root>

24
Project_fp13/selitem.vb Normal file
View File

@@ -0,0 +1,24 @@
Public Class selitem
Private Sub selitem_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
End Sub
Private Sub selitem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = System.Windows.Forms.Keys.Escape Then
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Dispose()
ElseIf e.KeyCode = System.Windows.Forms.Keys.Enter Then
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Dispose()
End If
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Dispose()
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
End Class

145
Project_fp13/번호형식완료.txt Normal file
View File

@@ -0,0 +1,145 @@
'MsgBox("번호형식지정 : " & 번호, MsgBoxStyle.Information, msg)
'//지정된 번호형식으로 전부번호를 표시한다.
'//20070826 번호는 분리/통합으로 구분해서 출력한다.
Dim A() As Char = 번호.ToCharArray
Dim P() As Char = msg.ToCharArray
Me.CLEAR_ITEM("X")
'//12자이상은 개별이라고 한다면 해당번호를 혼합으로 바꾼다.
If Me.cmb_sep.SelectedIndex = -1 OrElse (Me.cmb_sep.SelectedIndex = 1 AndAlso 번호.Length > 30) Then Me.cmb_sep.SelectedIndex = 0
Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.S전주번호(0)
Dim CurPos As Short = 0 '//몇번째 컨트롤까지 썻다는 표시
Dim CPos As Short = 0 '//전체문자중 몇번째까지 했다는 표시
Dim Limit(P.GetUpperBound(0)) As Short '//각배열별 한계숫자
For i As Short = 0 To P.GetUpperBound(0)
If i = 0 Then
Limit(i) = CInt(P(i).ToString)
Else
Limit(i) = Limit(i - 1) + CInt(P(i).ToString)
End If
' MsgBox("한게값 : " & i & " 값=" & Limit(i))
Next
Select Case Me.cmb_sep.SelectedIndex
Case 0 '//혼합
'//형식수가 4를 넘지않으면 개별 넘을경우 통합출력으로한다.
'//연습데이터 3442 : 345 R23L1 R932
' MsgBox("번호형식=" & msg & "/" & 번호 & "/p0=" & P(0))
Me.tb_ntype.Enabled = True '//분리엿을때 이것이 false 로 된다.
Dim OK As Short = -1 '//완료 번호형식 배열값
Dim 사용한컨트롤위치 As Short = -1
Dim RES As Boolean = False
For i As Integer = 0 To A.GetUpperBound(0)
If CInt(P(OK + 1).ToString) <= 4 Then '//개별로넣는다
If i + 1 < Limit(OK + 1) Then
사용한컨트롤위치 += 1
Me.S전주번호(사용한컨트롤위치).MyText &= IIf(A(i) <> ";", A(i), "")
ElseIf i + 1 = Limit(OK + 1) Then
OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For
사용한컨트롤위치 += 1
Me.S전주번호(사용한컨트롤위치).MyText &= IIf(A(i) <> ";", A(i), "")
End If
Else '//4보다크다면 해당 ok가 끈날때까지 한개의 컨트롤에 넣는다.
If RES = False Then
사용한컨트롤위치 += 1
RES = True
End If
If i + 1 < Limit(OK + 1) Then
Me.S전주번호(사용한컨트롤위치).MyText &= IIf(A(i) <> ";", A(i), "")
ElseIf i + 1 = Limit(OK + 1) Then
Me.S전주번호(사용한컨트롤위치).MyText &= IIf(A(i) <> ";", A(i), "")
OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For
RES = False
End If
End If
Next
Case 1 '//분리
Me.tb_ntype.Enabled = False
For i As Int16 = 0 To A.GetUpperBound(0) '//개별 12개의 열에 데이터를 출력한다.(30개로 늘렷으니 충분할것이다)
Me.S전주번호(i).MyText = IIf(A(i) <> ";", A(i), "")
Next
Case 2 '//통합
Me.tb_ntype.Enabled = True
Dim OK As Short = -1 '//완료 번호형식 배열값
For i As Integer = 0 To A.GetUpperBound(0)
If i < Limit(OK + 1) Then
Me.S전주번호(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "")
ElseIf i = Limit(OK + 1) Then
OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For
Me.S전주번호(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "")
End If
Next
End Select
For i As Integer = 0 To Me.S전주번호.GetUpperBound(0)
Me.S전주번호(i).Visible = IIf(Me.S전주번호(i).MyText = "", False, True)
Next
==============
원래 혼합식
==============
'//형식수가 최대값을(MaxChar) 넘지않으면 개별 : 넘을경우 통합출력으로한다. '//연습데이터 342 : 345 R23L1 R9
If CInt(P(0).ToString) <> 0 AndAlso CInt(P(0).ToString) <= MaxChar Then '//첫줄에해당할 문자를 전부 개별로 넣는다.
For i As Int16 = 0 To (CInt(P(0).ToString) - 1)
If i <= A.GetUpperBound(0) Then '//정상적인 범위의 데이터일경우
Me.AllLabels(lbl.Si + i).Text = IIf(A(i) <> ";", A(i), "") '//0번째 (0,0) ;는 wordspace으로 변환한다.
CPos = i '//몇번쨰 컨트롤을 썻는지 알려준다.
CurPos = i '//전체문자중 현재 몇번까지 썻는지 위치정보를 기록한다.
End If
Next
ElseIf CInt(P(0).ToString) > MaxChar Then '//첫줄의 문자를 통합으로한다.
For i As Int16 = 0 To (CInt(P(0).ToString) - 1)
If i <= A.GetUpperBound(0) Then '//정상적인 범위의 데이터
Me.AllLabels(lbl.Si + CPos).Text &= IIf(A(i) <> ";", A(i), "") '//Cpos 가 0이였기때문에 0번컨트롤에 지정된문자전체를 할당한다(통합이라는것이다)
CurPos = i '//전체문자중 현재 몇번까지 썻는지 위치정보를 기록한다.
End If
Next
End If
'curpos 는 몇번째 번호까지 했다는것이다(그 다음번호를 가르킨다) 'cpos 는 몇번째 컨트롤까지 썻다는 뜻이다.
RaiseEvent StatusMessage(CurPos & "번 문자까지 사용됬고 " & CPos & "번 컨트롤까지 사용되었다", e_EventMessage.Normal)
'//컨트롤번호가 0일경우다. 만약 값이없으면 1번째줄에서 아무것도없엇따는뜻이다.(시작위치를 -1로 초기화한다.)
If CPos = 0 AndAlso Me.AllLabels(lbl.Si).Text = "" Then CPos = -1
'//2번째줄을 테스트한다.
If CInt(P(1).ToString) > 0 AndAlso CInt(P(1).ToString) <= MaxChar Then
For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) - 1
If i <= A.GetUpperBound(0) Then
Me.AllLabels(lbl.Si + CPos + 1).Text = IIf(A(i) <> ";", A(i), "") '//0번째 (0,0)
CPos += 1
CurPos = i
End If
Next
ElseIf CInt(P(1).ToString) > 0 Then '//통합출력
CPos += 1
For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) - 1
If i <= A.GetUpperBound(0) Then
Me.AllLabels(lbl.Si + CPos).Text &= IIf(A(i) <> ";", A(i), "") '//0번째 (0,0)
CurPos = i
End If
Next
End If
If CInt(P(2).ToString) > 0 AndAlso CInt(P(2).ToString) <= MaxChar Then
For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) + CInt(P(2).ToString) - 1
If i <= A.GetUpperBound(0) Then
Me.AllLabels(lbl.Si + CPos + 1).Text = IIf(A(i) <> ";", A(i), "") '//0번째 (0,0)
CPos += 1
CurPos = i
End If
Next
ElseIf CInt(P(2).ToString) > 0 Then '//통합출력
CPos += 1
For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) + CInt(P(2).ToString) - 1
If i <= A.GetUpperBound(0) Then
Me.AllLabels(lbl.Si + CPos).Text &= IIf(A(i) <> ";", A(i), "") '//0번째 (0,0)
CurPos = i
End If
Next
End If

21
Project_fp5/Auth.vb Normal file
View File

@@ -0,0 +1,21 @@
Public Class Auth
'//번호찰프로그램에서 사용할 인증방법
Public Function check_key1(ByVal key As String) As Boolean
'//구존 날짜(해쉬)
Dim k() As String = key.Split("%")
Dim A As String = k(1).Substring(0, 8)
Dim B As String = k(1).Substring(8)
If A.GetHashCode = B Then Return True
Return False
End Function
Public Function Check_key2(ByVal key As String) As Boolean
If key = "" Then Return True
Dim A As String = key.Split("%")(0)
Dim B As String = key.Split("%")(1)
If A.GetHashCode = B Then Return True
Return False
End Function
End Class

BIN
Project_fp5/CEpole.v12.suo Normal file
View File

Binary file not shown.

252
Project_fp5/CEpole_fp5.vbproj Normal file
View File

@@ -0,0 +1,252 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.21022</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{78345183-B834-4478-BD7A-775BFCCE2168}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>CEpole</RootNamespace>
<AssemblyName>CEpole</AssemblyName>
<MyType>Windows</MyType>
<FileUpgradeFlags>
</FileUpgradeFlags>
<OldToolsVersion>3.5</OldToolsVersion>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>false</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>CEpole.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DefineConstants>STYLES=0</DefineConstants>
<PlatformTarget>x86</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>false</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\debug\</OutputPath>
<DocumentationFile>CEpole.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DefineConstants>STYLES=0</DefineConstants>
</PropertyGroup>
<ItemGroup>
<Reference Include="FarPoint.CalcEngine, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Excel, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.PDF, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Chart, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.ComponentModel" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
</ItemGroup>
<ItemGroup>
<Compile Include="Auth.vb" />
<Compile Include="Common.vb" />
<Compile Include="C_Epole.vb" />
<Compile Include="C_label.vb" />
<Compile Include="Defalut_PrintForm.Designer.vb">
<DependentUpon>Defalut_PrintForm.vb</DependentUpon>
</Compile>
<Compile Include="Defalut_PrintForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DrawShape.vb" />
<Compile Include="FileToDataTable.vb" />
<Compile Include="Frm_ConvertINI.Designer.vb">
<DependentUpon>Frm_ConvertINI.vb</DependentUpon>
</Compile>
<Compile Include="Frm_ConvertINI.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Frm_Shortkey.Designer.vb">
<DependentUpon>Frm_Shortkey.vb</DependentUpon>
</Compile>
<Compile Include="Frm_Shortkey.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Frm_Log.Designer.vb">
<DependentUpon>Frm_Log.vb</DependentUpon>
</Compile>
<Compile Include="Frm_Log.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Frm_Prnset.Designer.vb">
<DependentUpon>Frm_Prnset.vb</DependentUpon>
</Compile>
<Compile Include="Frm_Prnset.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="PropertyGrid.vb" />
<Compile Include="selitem.Designer.vb">
<DependentUpon>selitem.vb</DependentUpon>
</Compile>
<Compile Include="selitem.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="StyleEdit.Designer.vb">
<DependentUpon>StyleEdit.vb</DependentUpon>
</Compile>
<Compile Include="StyleEdit.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Frm_ConvertINI.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_ConvertINI.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Frm_Prnset.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_Prnset.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Frm_Shortkey.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_Shortkey.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Frm_Log.resx">
<DependentUpon>Frm_Log.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Defalut_PrintForm.resx">
<SubType>Designer</SubType>
<DependentUpon>Defalut_PrintForm.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="selitem.resx">
<SubType>Designer</SubType>
<DependentUpon>selitem.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="StyleEdit.resx">
<DependentUpon>StyleEdit.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<Service Include="{94E38DFF-614B-4CBD-B67C-F211BB35CE8B}" />
</ItemGroup>
<ItemGroup>
<None Include="ClassDiagram1.cd" />
<None Include="Resources\landscape.bmp" />
<None Include="Resources\가로출력.bmp" />
<None Include="Resources\세로출력.bmp" />
<Content Include="번호형식완료.txt" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0%28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0%28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<Folder Include="코드백업\" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\Z_Epole_통신%28FP5%29\SubProject\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
<Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
<Name>ArinClassV2</Name>
</ProjectReference>
<ProjectReference Include="..\..\QRCodeLib\QRCodeLib.csproj">
<Project>{e98126b2-af17-4783-96b9-856d6744dca3}</Project>
<Name>QRCodeLib</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

420
Project_fp5/C_Epole.vb Normal file
View File

@@ -0,0 +1,420 @@
Imports System
Public Class C_Epole
'Structure Str_Alllabels '레이블들을 저장한다.
' Dim ctl As CEpole.C_label
' Dim desc As String
'End Structure
Enum E_DesignMode
Shape = 1
Text = 0
End Enum
Enum E_PatternType
None = 0
Length = 1
Character = 2
End Enum
Enum E_LineType
Union = 0
Separate = 1
sum = 2
None = -1
End Enum
Enum E_PaperOrient
세로 = 0
가로 = 1
End Enum
Enum E_useNotUse
사용 = 1
사용안함 = 0
End Enum
Enum E_Dummytype
현재복사 = 0
다음출력 = 1
End Enum
Public Enum EQR_Incoding
AlphaNumeric
Numeric
[Byte]
End Enum
Public Enum EQR_Version
v1
v2
v3
v4
v5
v6
v7
v8
v9
v10
v11
v12
v13
v14
v15
v16
v17
v18
v19
v20
v21
v22
v23
v24
v25
v26
v27
v28
v29
v30
v31
v32
v33
v34
v35
v36
v37
v38
v39
v40
End Enum
Public Enum EQR_CLEVE
L
M
Q
H
End Enum
Structure S_FullLable
Dim Desc As String '//레이블의설명
Dim Si As Short '//레이블의 시작인덱스 alllabels 의 오프셋이다.
Dim Ei As Short '//레이블의 종료인덱스 alllabels 의 오프셋이다.
Dim text As String '//전체문자열이 들어있음
Dim Pattern As String '//패턴네임을 적는다.
Dim Tag As String '//개체태그입력
Dim LineType As E_LineType '//0혼함 1분리 2통합
Dim NumType As String '//번호형식 9,9,9 의 형식을 보통띈다.
Dim LineMaxChar As Short '//한줄에 최대몇자를 기본으로할때 혼합시 줄의 갯수에 사용한다.
Dim ApplyPattern As E_PatternType '//0없음 1길이 2문자
Dim Moved As Boolean '//이동했는지
Dim CheckBox As Windows.Forms.ToolStripMenuItem '//이것과 연계된 체크박스
' Dim SeparatePattern As Boolean '//개별문자에대한 패턴을 적용할지 여부
Dim Fixed As Boolean '//고정문자열이있는지
End Structure
Structure SStyle
Dim Desc As String
Dim File As String
Dim Backimg As String
Dim MarginX As Integer
Dim MarginY As Integer
Dim ScaleX As Single
Dim ScaleY As Single
Dim PrintFontOffset As Integer
Dim Viewimage As Boolean
Dim LandScape As Boolean
Dim Dummy As Boolean
Dim DummyCnt As Short
Dim Dummytype As Short
Dim dummmyx As Short
Dim dummmyy As Short
Dim visible As Boolean '//190223
Dim RowDivCnt As Short '170715
Dim rowdivx As Short
Dim rowdivy As Short
Dim DrawItemRepeat As Boolean
Dim picstyle As Short
Dim CanvasX As Integer
Dim CanvasY As Integer
Dim Filter As String
Dim PATTERNTABLE As DataTable
Dim FixedStyle As Boolean
Dim PrintRange As String
End Structure
Structure SCStyle
Dim Margin As System.Drawing.Point '//인쇄여백
Dim Scale As System.Drawing.Point '//인쇄확대비율
Dim Orient As E_PaperOrient '//종이방향
Dim DummyMargin As System.Drawing.Point
Dim Dummy As E_useNotUse
Dim UseBG As E_useNotUse
Dim PrnBG As E_useNotUse
Dim Dummytype As E_Dummytype '//현재복사,다음출력
End Structure
Enum e_EventMessage
Normal = 0
Parse = 1
End Enum
Enum E_PrintRange
All = 0
Current = 1
Custom = 2
FixedStyle = 3
End Enum
Enum E_DrawType
Box = 0
Line = 1
End Enum
Structure S_Line
Dim X As Single
Dim Y As Single
Dim X2 As Single
Dim Y2 As Single
Dim PenColor As Drawing.Color
Dim PenWidth As Single
End Structure
Structure S_Box
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim PenColor As Drawing.Color
Dim PenWidth As Single
Dim Radius As Single '//휘어짐수치
End Structure
Structure S_Circle
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim PenColor As Drawing.Color
Dim PenWidth As Single
'Dim Radius As Single '//휘어짐수치
End Structure
Structure S_Image
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim FileName As String
End Structure
Structure S_QRCode
Dim X As Single
Dim Y As Single
Dim Width As Single
Dim Height As Single
Dim QRData As String '//표시하고자하는 데이터를 표시 {필드명} 으로 대체가능
Dim Encoding As Integer
Dim Version As Integer
Dim CLeve As Integer
Dim Size As Integer
Dim Format As String '//출력포맷
Dim fColor As System.Drawing.Color
Dim bColor As System.Drawing.Color
End Structure
Structure S_DrawShape
Dim DrawType As E_DrawType
Dim DrawObject As Object
Public Sub New(ByVal DT As E_DrawType, ByVal Obj As Object, ByVal oldtype As Boolean)
DrawType = DT
DrawObject = Obj
End Sub
End Structure
Public Shared Function Get_SavePatternString(ByVal 저장대상 As String, ByVal pc As Boolean, ByVal cp As String, ByVal pl As Boolean, ByVal pstr As String, ByVal plen As Short, _
ByVal pchr As String) As System.Text.StringBuilder
If pc Then cp = "[문자패턴]"
If pl Then cp &= "[길이패턴]"
If cp = "" Then cp = "[패턴없음]"
Dim Msg As New System.Text.StringBuilder("(" & 저장대상 & ")" & " 패턴을 저장합니다")
'//문자패턴이 적용되어있다면 문자패턴으로 적용할 것을 궎장하며 그렇지 않은 경우에는 길이패턴이나 문자패턴을 적절히 권장한다.
'//길이가 5자리이하이고 특수문자(-,;)등이 없는경우에 길이패턴 적용을 권유한다.
Msg.AppendLine()
Msg.AppendLine("패턴 저장방법에는 길이,문자가 있습니다")
Msg.AppendLine("패턴우선순위 : 문자패턴 -> 길이패턴")
Msg.AppendLine()
Msg.AppendLine("현재적용된 패턴 : " & cp)
If pc Then
Msg.AppendLine()
Msg.AppendLine(">> 현재 문자패턴이 적용되어있습니다" & vbCrLf & ">> 문자패턴은 가장우선되는 패턴방식입니다")
Msg.AppendLine(">> 저장시에는 [문자패턴]으로 저장하시기 바랍니다.")
Msg.AppendLine(">> [길이패턴]으로 저장하는것은 의미가 없습니다")
ElseIf pl Then
Msg.AppendLine()
Msg.AppendLine(">> 현재 길이패턴이 적용되어있습니다" & vbCrLf & ">> 패턴은 길이,문자 둘다 저장이 가능합니다")
Else
Msg.AppendLine()
Msg.AppendLine(">> 적용된 패턴이없습니다")
Msg.AppendLine(">> 문자수(길이)가 적은 문자의경우 [길이패턴] 저장을 권장합니다")
End If
Msg.AppendLine()
Msg.AppendLine("길이패턴이란? (문자의 길이가 같을떄 적용)")
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 길이는 = " & plen & " 입니다")
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 길이가 " & plen & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
Msg.AppendLine()
Msg.AppendLine("문자패턴이란? (같은 형태의 문자일때 적용)")
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 형태는 = " & pchr & " 입니다")
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 형태가 " & pchr & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
Msg.AppendLine(" * 1=숫자,0=알파벳문자,H=한글문자,;=특수문자(;),-=특수문자(-)")
Msg.AppendLine()
Msg.AppendLine("패턴우선순위란? (패턴이 중복적용되었을때 높은우선순위가 적용)")
Msg.AppendLine(" 길이,문자 패턴이 둘다 적용되어있을경우 우선순위가 높은")
Msg.AppendLine(" 문자패턴이 최종적으로 적용이 됩니다.(길이패턴은 무시됨)")
Msg.AppendLine()
Msg.AppendLine("# 길이패턴으로 저장하시겠습니까?")
Msg.AppendLine("# 예) 길이저장 , 아니오) 문자저장 , 취소) 취소")
If pc Then Msg.AppendLine("# 문자패턴이 적용되었으므로 [길이패턴] 저장은 의미가 없습니다")
Return Msg
End Function
Public Shared Sub GetAllsection(ByRef stylelist() As SStyle, ByVal FILENAME As String, ByVal CurIdx As Short, ByVal OldType As Boolean)
'//이제 OLD는 사용하징낳는다 3월14일 변경한다.
If OldType = False Then
FileToDataTable.ReadFile_New(stylelist, FILENAME, CurIdx)
Else
'MsgBox("구파일" & FILENAME)
FileToDataTable.ReadFile_OLD(stylelist, FILENAME, CurIdx)
End If
End Sub
Public Shared Function PATTERN_ENC(ByVal SRCSTR As String, Optional hsave As Boolean = False) As String
Dim MSG As New System.Text.StringBuilder
For Each A As Char In SRCSTR.ToCharArray '//모든문자의 숫자번호를 판별한다.
If hsave Then
If A = ";" Then '//구분자라면
MSG.Append(";")
ElseIf A = "H" Then '//h문자별도 처리해줌
MSG.Append("Z")
ElseIf A = "-" Then
MSG.Append("-")
ElseIf Char.IsNumber(A) Then
MSG.Append("1")
ElseIf Asc(A) < 0 Then
MSG.Append("H")
Else
MSG.Append("0")
End If
Else
If A = ";" Then '//구분자라면
MSG.Append(";")
ElseIf A = "-" Then
MSG.Append("-")
ElseIf Char.IsNumber(A) Then
MSG.Append("1")
ElseIf Asc(A) < 0 Then
MSG.Append("H")
Else
MSG.Append("0")
End If
End If
Next
Return MSG.ToString
End Function
Public Shared Function GetPrintersName() As ArrayList
Dim value As Drawing.Printing.PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters
Dim Retval As New ArrayList
For i As Integer = 0 To value.Count - 1
Retval.Add(value(i))
Next
Return Retval
End Function
''' <summary>
''' 데이터와 출력장수(전체,현재,범위,고정스타일)를 판단하여 T,F 반환한다.
''' </summary>
''' <param name="Dv"></param>
''' <param name="CurrPos"></param>
''' <param name="PrintArray"></param>
''' <param name="RangeType"></param>
''' <param name="UserRange"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function Set_PrnRange(ByRef Dv As DataView, ByVal CurrPos As Integer, ByRef PrintArray() As Integer, ByVal RangeType As E_PrintRange, ByVal UserRange As String) As Boolean '//범위내의 페이지번호와 일치하는 번호를 찾아서 배열에 할당한다.
Dim Number As Integer = 0
Dim FindNum As Boolean = False
'printindex = 0 '//배열의 첫번으로 출력을 준비한다.
ReDim PrintArray(0)
PrintArray(0) = 1
If RangeType = E_PrintRange.Custom AndAlso UserRange = "" Then RangeType = E_PrintRange.Current
' MsgBox("rane : " & Dv.Count & "curpos:" & CurrPos)
Select Case RangeType
Case E_PrintRange.FixedStyle '//고정스타일이라면 userrange 에 할당된 숫자만큼 버퍼를 생성한다.
If IsNumeric(UserRange) = False Then
MsgBox("출력장수에 숫자만 입력하세요", MsgBoxStyle.Critical, "확인")
Return False
End If
ReDim PrintArray(Val(UserRange) - 1)
For i As Integer = 0 To Val(UserRange) - 1
PrintArray(i) = CurrPos
Next
Case E_PrintRange.All
ReDim PrintArray(Dv.Count - 1)
For i As Integer = 0 To Dv.Count - 1
PrintArray(i) = i
Next
Case E_PrintRange.Current
' MsgBox("현재")
ReDim PrintArray(0)
PrintArray(0) = CurrPos '/현재카운트보다 1작다 배열은 0부터 시작하기떄문에
Case E_PrintRange.Custom
Dim buff As String = UserRange
ReDim PrintArray(0) : PrintArray(0) = -1
'//먼저 -가 있나없나 판단해서 한페이지용인지 범위용인지 구분한다.
If buff.IndexOf("-") >= 0 Then '//범위이다.
Dim SubBuff() As String = buff.Split("-")
Dim Sttnum As Integer = CInt(SubBuff(0)) '//시작
Dim endnum As Integer = CInt(SubBuff(1)) '//종료값
For SI As Integer = 0 To endnum - Sttnum '//범위갯수만큼 돈다
FindNum = False
Number = CInt(Sttnum + SI) '//페이지만 적엇을 것이므로
For ni As Integer = 0 To Dv.Count - 1 '//현재뷰의 모든데이터를 가지고 검색한다 좌->우 순차검색
If Number = Dv(ni).Row("번호") Then
If PrintArray(0) = -1 Then '//처음데이터이므로
PrintArray(0) = ni
Else '//처음이아니므로 배열을 증가시키고 기입한다.
ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//배열1증가
PrintArray(PrintArray.GetUpperBound(0)) = ni
End If
FindNum = True
Exit For
End If
Next
Next
Else '//페이지번호만 적었을때다
If IsNumeric(buff) Then
Number = CInt(buff) '//페이지만 적엇을 것이므로
For ni As Integer = 0 To Dv.Count - 1 '//현재뷰의 모든데이터를 가지고 검색한다 좌->우 순차검색
If Number = Dv(ni).Row("번호") Then
PrintArray(0) = ni
Exit For
End If
Next
Else
MsgBox("범위(-)를 제외하고 숫자만 입력하세요", MsgBoxStyle.Critical, "입력오류")
End If
End If
End Select
If PrintArray(0) = -1 Then '//배열에 아무것도 없다면
Return False
Else
Return True
End If
End Function
End Class

81
Project_fp5/C_label.vb Normal file
View File

@@ -0,0 +1,81 @@
Imports System.Drawing
Public Class C_label
Public Font As New Font("HY견고딕", 30) '//초기폰트
Public visible As Boolean = True '//표시여부
Public Tag As Object = Nothing '//태그
Public Left, Right, Top, Bottom As Single '//위치정보
Public Height, Width As Single '//크기정보
Public Name As String = "arin" '//컨트롤의 이름
Public Gidx As Short = -1 '//그룹의 인덱스
Public Idx As Short = -1 '//컨트롤인덱스
Public Desc As String '//설명 v_설명과 중복이나 나중에 v_설명을 없앨생각이다.
Public Text As String = "" '//초기 문자값
Public Fixed As Boolean = False
' Public UseHPattern As Boolean = False
Public ForeColor As Color = Color.Black
Public ForeColor2 As Color = Color.Black
Public WordWidth As Single = 100
Public WordHeight As Single = 100
Public Rotate As Single = 0
Public WordSpace As Int16 = 0 '//공백
Public Repeat As Short '//반복횟수
Public RepeatX As Single '//반복x
Public RepeatY As Single '//반복y
Public HasPattern As Boolean = False
Public Property Size() As System.Drawing.SizeF
Get
Return New System.Drawing.Size(Me.Width, Me.Height)
End Get
Set(ByVal value As System.Drawing.SizeF)
Me.Width = value.Width
Me.Height = value.Height
End Set
End Property
Public Property Location() As PointF
Get
Return New Point(Me.Left, Me.Top)
End Get
Set(ByVal value As PointF)
Me.Left = value.X
Me.Top = value.Y
End Set
End Property
''' <summary>
''' 공백기능을 적용한후의 문자열을 반환
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function text2() As String
If WordSpace = 0 Then Return Text
Dim z As New System.Text.StringBuilder
For Each A As Char In Text.ToCharArray
z.Append(A.ToString & Space(WordSpace))
Next
Return (z.ToString.Trim())
End Function
''' <summary>
''' 글씨가 차지하는 크기를 재계산합니다.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetSize() As SizeF
Return System.Windows.Forms.TextRenderer.MeasureText(text2, Font)
End Function
Private Sub RotateAt(ByVal gr As Graphics, ByVal cx As Integer, ByVal cy As Integer, ByVal angle As Single)
gr.ResetTransform()
gr.TranslateTransform(-cx, -cy, Drawing2D.MatrixOrder.Append)
gr.RotateTransform(angle, Drawing2D.MatrixOrder.Append)
gr.TranslateTransform(cx, cy, Drawing2D.MatrixOrder.Append)
End Sub
Public Sub New()
End Sub
End Class

1
Project_fp5/ClassDiagram1.cd Normal file
View File

@@ -0,0 +1 @@

37
Project_fp5/Common.vb Normal file
View File

@@ -0,0 +1,37 @@
Module Common
Public StyleList() As C_Epole.SStyle
Public Eini As ACC.MyINI
''' <summary>
''' 파일명안의 확장자를 변경한다.
''' </summary>
''' <param name="orgname"></param>
''' <param name="newExt"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ReplaceExt(ByVal orgname As String, ByVal newExt As String) As String
Dim OnlyFile As String = orgname.Substring(0, orgname.LastIndexOf("."))
Return CStr(OnlyFile & "." & newExt).Replace("..", ".")
End Function
''' <summary>
''' 배경이미지파일의 절대 또는 상대경로를 반환하비다.
''' </summary>
''' <param name="src"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetImgPath(ByVal src As String) As String
If src.Trim = "" Then Return ""
If src.IndexOf(":") <> -1 Then '//드라이브명이있따면 절대경로이므로 상대로 변경한다.
Return Replace(src.Replace(My.Application.Info.DirectoryPath, ".\"), "\\", "\")
Else
If src.IndexOf(".\") = -1 AndAlso src.IndexOf("..\") = -1 Then
Return Replace(My.Application.Info.DirectoryPath & "\image\" & src, "\\", "\")
Else
Return Replace(src.Replace(".\", My.Application.Info.DirectoryPath & "\"), "\\", "\")
End If
End If
End Function
End Module

100
Project_fp5/Defalut_PrintForm.Designer.vb generated Normal file
View File

@@ -0,0 +1,100 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Defalut_PrintForm
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<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
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.BS = New System.Windows.Forms.BindingSource(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.cm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cm_label = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.cm_visible = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.BS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cm.SuspendLayout()
Me.SuspendLayout()
'
'BS
'
'
'cm
'
Me.cm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_label, Me.ToolStripMenuItem1, Me.cm_visible})
Me.cm.Name = "cm"
Me.cm.Size = New System.Drawing.Size(99, 54)
'
'cm_label
'
Me.cm_label.BackColor = System.Drawing.Color.LightSteelBlue
Me.cm_label.Name = "cm_label"
Me.cm_label.Size = New System.Drawing.Size(98, 22)
Me.cm_label.Text = "이름"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(95, 6)
'
'cm_visible
'
Me.cm_visible.Checked = True
Me.cm_visible.CheckOnClick = True
Me.cm_visible.CheckState = System.Windows.Forms.CheckState.Checked
Me.cm_visible.Enabled = False
Me.cm_visible.Name = "cm_visible"
Me.cm_visible.Size = New System.Drawing.Size(98, 22)
Me.cm_visible.Text = "표시"
'
'Defalut_PrintForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(374, 360)
Me.DoubleBuffered = True
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Defalut_PrintForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Default_PrintForm"
CType(Me.BS, System.ComponentModel.ISupportInitialize).EndInit()
Me.cm.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Public WithEvents BS As System.Windows.Forms.BindingSource
Public WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Public Sub New()
' 이 호출은 Windows Form 디자이너에 필요합니다.
InitializeComponent()
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Friend WithEvents cm As System.Windows.Forms.ContextMenuStrip
Friend WithEvents cm_visible As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cm_label As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
End Class

Some files were not shown because too many files have changed in this diff Show More