..
This commit is contained in:
chi
6
.gitignore
vendored
Normal file
6
.gitignore
vendored
Normal file
@@ -0,0 +1,6 @@
|
||||
bin
|
||||
debug
|
||||
obj
|
||||
*.user
|
||||
*.v12
|
||||
*.v11
|
||||
15
CEpole.sln
15
CEpole.sln
@@ -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
|
||||
|
||||
@@ -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 +0,0 @@
|
||||
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
|
||||
BIN
Project/CEpole.v12.suo
Normal file
BIN
Project/CEpole.v12.suo
Normal file
Binary file not shown.
@@ -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>
|
||||
1
Project/My Project/licenses.licx
Normal file
1
Project/My Project/licenses.licx
Normal file
@@ -0,0 +1 @@
|
||||
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
|
||||
|
Before Width: | Height: | Size: 3.3 KiB After Width: | Height: | Size: 3.3 KiB |
|
Before Width: | Height: | Size: 15 KiB After Width: | Height: | Size: 15 KiB |
|
Before Width: | Height: | Size: 16 KiB After Width: | Height: | Size: 16 KiB |
2
Project/desktop.ini
Normal file
2
Project/desktop.ini
Normal file
@@ -0,0 +1,2 @@
|
||||
[.ShellClassInfo]
|
||||
IconResource=C:\Windows\system32\SHELL32.dll,17
|
||||
21
Project_fp13/Auth.vb
Normal file
21
Project_fp13/Auth.vb
Normal 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
BIN
Project_fp13/CEpole.v12.suo
Normal file
Binary file not shown.
260
Project_fp13/CEpole_fp13.vbproj
Normal file
260
Project_fp13/CEpole_fp13.vbproj
Normal 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
420
Project_fp13/C_Epole.vb
Normal 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
81
Project_fp13/C_label.vb
Normal 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
1
Project_fp13/ClassDiagram1.cd
Normal file
@@ -0,0 +1 @@
|
||||
|
||||
37
Project_fp13/Common.vb
Normal file
37
Project_fp13/Common.vb
Normal 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
100
Project_fp13/Defalut_PrintForm.Designer.vb
generated
Normal 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
129
Project_fp13/Defalut_PrintForm.resx
Normal 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
3521
Project_fp13/Defalut_PrintForm.vb
Normal file
File diff suppressed because it is too large
Load Diff
327
Project_fp13/DrawShape.vb
Normal file
327
Project_fp13/DrawShape.vb
Normal 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
403
Project_fp13/FileToDataTable.vb
Normal 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
135
Project_fp13/Frm_ConvertINI.Designer.vb
generated
Normal 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
120
Project_fp13/Frm_ConvertINI.resx
Normal 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
152
Project_fp13/Frm_ConvertINI.vb
Normal 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
50
Project_fp13/Frm_Log.Designer.vb
generated
Normal 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
120
Project_fp13/Frm_Log.resx
Normal 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
3
Project_fp13/Frm_Log.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class Frm_Log
|
||||
|
||||
End Class
|
||||
1328
Project_fp13/Frm_Prnset.Designer.vb
generated
Normal file
1328
Project_fp13/Frm_Prnset.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
471
Project_fp13/Frm_Prnset.resx
Normal file
471
Project_fp13/Frm_Prnset.resx
Normal 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
1045
Project_fp13/Frm_Prnset.vb
Normal file
File diff suppressed because it is too large
Load Diff
173
Project_fp13/Frm_Shortkey.Designer.vb
generated
Normal file
173
Project_fp13/Frm_Shortkey.Designer.vb
generated
Normal 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
120
Project_fp13/Frm_Shortkey.resx
Normal 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
8
Project_fp13/Frm_Shortkey.vb
Normal 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
13
Project_fp13/My Project/Application.Designer.vb
generated
Normal 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
10
Project_fp13/My Project/Application.myapp
Normal 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
35
Project_fp13/My Project/AssemblyInfo.vb
Normal 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
83
Project_fp13/My Project/Resources.Designer.vb
generated
Normal 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
127
Project_fp13/My Project/Resources.resx
Normal 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
73
Project_fp13/My Project/Settings.Designer.vb
generated
Normal 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
7
Project_fp13/My Project/Settings.settings
Normal 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
2
Project_fp13/My Project/licenses.licx
Normal 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
953
Project_fp13/PropertyGrid.vb
Normal 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
BIN
Project_fp13/Resources/landscape.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.3 KiB |
BIN
Project_fp13/Resources/가로출력.bmp
Normal file
BIN
Project_fp13/Resources/가로출력.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 15 KiB |
BIN
Project_fp13/Resources/세로출력.bmp
Normal file
BIN
Project_fp13/Resources/세로출력.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 16 KiB |
347
Project_fp13/StyleEdit.Designer.vb
generated
Normal file
347
Project_fp13/StyleEdit.Designer.vb
generated
Normal 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
179
Project_fp13/StyleEdit.resx
Normal 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
136
Project_fp13/StyleEdit.vb
Normal 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
2
Project_fp13/desktop.ini
Normal file
@@ -0,0 +1,2 @@
|
||||
[.ShellClassInfo]
|
||||
IconResource=C:\Windows\system32\SHELL32.dll,17
|
||||
94
Project_fp13/selitem.Designer.vb
generated
Normal file
94
Project_fp13/selitem.Designer.vb
generated
Normal 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
155
Project_fp13/selitem.resx
Normal 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
24
Project_fp13/selitem.vb
Normal 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
145
Project_fp13/번호형식완료.txt
Normal 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
21
Project_fp5/Auth.vb
Normal 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
BIN
Project_fp5/CEpole.v12.suo
Normal file
Binary file not shown.
252
Project_fp5/CEpole_fp5.vbproj
Normal file
252
Project_fp5/CEpole_fp5.vbproj
Normal 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
420
Project_fp5/C_Epole.vb
Normal 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
81
Project_fp5/C_label.vb
Normal 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
1
Project_fp5/ClassDiagram1.cd
Normal file
@@ -0,0 +1 @@
|
||||
|
||||
37
Project_fp5/Common.vb
Normal file
37
Project_fp5/Common.vb
Normal 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
100
Project_fp5/Defalut_PrintForm.Designer.vb
generated
Normal 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
Reference in New Issue
Block a user