documentation.xml

vb 把文本信息加密到图片 加密的一个小程序 希望对大家有所启发

<?xml version="1.0" encoding="iso-8859-1" ?>
<?xml-stylesheet type="text/xsl" href="C:\Programmer\MZ Tools 3.0\sample.xsl" ?>
<Project>
<Name>prjEncryptor</Name>
<FileName>prjEncryptor.vbp</FileName>
<PathFileName>C:\Documents and Settings\andniss\Skrivebord\Helt vild ny VB\TxtToPic\prjEncryptor.vbp</PathFileName>
<BuildFileName>Encryptor.exe</BuildFileName>
<BuildPathFileName>C:\Documents and Settings\andniss\Skrivebord\Helt vild ny VB\TxtToPic\Encryptor.exe</BuildPathFileName>
<CompatibleOleServer></CompatibleOleServer>
<Description></Description>
<HelpContextID>0</HelpContextID>
<HelpFile></HelpFile>
<StartMode>0</StartMode>
<Type>Standard Exe</Type>
<References>
<Reference>
<Name>VBA</Name>
<FileName>msvbvm60.dll</FileName>
<PathFileName>c:\windows\system32\msvbvm60.dll</PathFileName>
<Description>Visual Basic For Applications</Description>
<BuiltIn>True</BuiltIn>
<Guid>{000204EF-0000-0000-C000-000000000046}</Guid>
<Major>6</Major>
<Minor>0</Minor>
<Type>TypeLib</Type>
</Reference>
<Reference>
<Name>VBRUN</Name>
<FileName>msvbvm60.dll\3</FileName>
<PathFileName>c:\windows\system32\msvbvm60.dll\3</PathFileName>
<Description>Visual Basic runtime objects and procedures</Description>
<BuiltIn>True</BuiltIn>
<Guid>{EA544A21-C82D-11D1-A3E4-00A0C90AEA82}</Guid>
<Major>6</Major>
<Minor>0</Minor>
<Type>TypeLib</Type>
</Reference>
<Reference>
<Name>VB</Name>
<FileName>vb6.olb</FileName>
<PathFileName>c:\programmer\vb98\vb6.olb</PathFileName>
<Description>Visual Basic objects and procedures</Description>
<BuiltIn>True</BuiltIn>
<Guid>{FCFB3D2E-A0FA-1068-A738-08002B3371B5}</Guid>
<Major>6</Major>
<Minor>0</Minor>
<Type>TypeLib</Type>
</Reference>
<Reference>
<Name>stdole</Name>
<FileName>stdole2.tlb</FileName>
<PathFileName>c:\windows\system32\stdole2.tlb</PathFileName>
<Description>OLE Automation</Description>
<BuiltIn>False</BuiltIn>
<Guid>{00020430-0000-0000-C000-000000000046}</Guid>
<Major>2</Major>
<Minor>0</Minor>
<Type>TypeLib</Type>
</Reference>
<Reference>
<Name>RichTextLib</Name>
<FileName>richtx32.ocx</FileName>
<PathFileName>c:\windows\system32\richtx32.ocx</PathFileName>
<Description>Microsoft Rich Textbox Control 6.0 (SP4)</Description>
<BuiltIn>False</BuiltIn>
<Guid>{84760586-F470-489F-BD23-CC4484467B38}</Guid>
<Major>1</Major>
<Minor>2</Minor>
<Type>TypeLib</Type>
</Reference>
<Reference>
<Name>MSComDlg</Name>
<FileName>comdlg32.ocx</FileName>
<PathFileName>c:\windows\system32\comdlg32.ocx</PathFileName>
<Description>Microsoft Common Dialog Control 6.0 (SP3)</Description>
<BuiltIn>False</BuiltIn>
<Guid>{B0657EE6-77A5-4A2C-B6E7-5B8035CFEB37}</Guid>
<Major>1</Major>
<Minor>2</Minor>
<Type>TypeLib</Type>
</Reference>
</References>
<Files>
<File>
<Name>frmMain</Name>
<FileName>frmMain.frm</FileName>
<PathFileName>C:\Documents and Settings\andniss\Skrivebord\Helt vild ny VB\TxtToPic\frmMain.frm</PathFileName>
<Type>VBForm</Type>
<Description></Description>
<HelpContextID>0</HelpContextID>
<Properties>
<Property>
<Name>Name</Name>
<Value>frmMain</Value>
</Property>
<Property>
<Name>Caption</Name>
<Value>Encryptor</Value>
</Property>
<Property>
<Name>BackColor</Name>
<Value>16777215</Value>
</Property>
<Property>
<Name>ForeColor</Name>
<Value>-2147483630</Value>
</Property>
<Property>
<Name>Left</Name>
<Value>0</Value>
</Property>
<Property>
<Name>Top</Name>
<Value>0</Value>
</Property>
<Property>
<Name>Width</Name>
<Value>10830</Value>
</Property>
<Property>
<Name>Height</Name>
<Value>5250</Value>
</Property>
<Property>
<Name>Enabled</Name>
<Value>True</Value>
</Property>
<Property>
<Name>WindowState</Name>
<Value>0</Value>
</Property>
<Property>
<Name>MousePointer</Name>
<Value>0</Value>
</Property>
<Property>
<Name>ScaleLeft</Name>
<Value>0</Value>
</Property>
<Property>
<Name>ScaleTop</Name>
<Value>0</Value>
</Property>
<Property>
<Name>ScaleWidth</Name>
<Value>10830</Value>
</Property>
<Property>
<Name>ScaleHeight</Name>
<Value>5250</Value>
</Property>
<Property>
<Name>ScaleMode</Name>
<Value>1</Value>
</Property>
<Property>
<Name>FontTransparent</Name>
<Value>True</Value>
</Property>
<Property>
<Name>DrawStyle</Name>
<Value>0</Value>
</Property>
<Property>
<Name>DrawWidth</Name>
<Value>1</Value>
</Property>
<Property>
<Name>FillStyle</Name>
<Value>1</Value>
</Property>
<Property>
<Name>FillColor</Name>
<Value>0</Value>
</Property>
<Property>
<Name>DrawMode</Name>
<Value>13</Value>
</Property>
<Property>
<Name>AutoRedraw</Name>
<Value>False</Value>
</Property>
<Property>
<Name>BorderStyle</Name>
<Value>0</Value>
</Property>
<Property>
<Name>LinkTopic</Name>
<Value>Form1</Value>
</Property>
<Property>
<Name>LinkMode</Name>
<Value>0</Value>
</Property>
<Property>
<Name>MaxButton</Name>
<Value>False</Value>
</Property>
<Property>
<Name>MinButton</Name>
<Value>False</Value>
</Property>
<Property>
<Name>ControlBox</Name>
<Value>False</Value>
</Property>
<Property>
<Name>HasDC</Name>
<Value>True</Value>
</Property>
<Property>
<Name>Visible</Name>
<Value>True</Value>
</Property>
<Property>
<Name>Tag</Name>
<Value></Value>
</Property>
<Property>
<Name>MDIChild</Name>
<Value>False</Value>
</Property>
<Property>
<Name>KeyPreview</Name>
<Value>False</Value>
</Property>
<Property>
<Name>ClipControls</Name>
<Value>True</Value>
</Property>
<Property>
<Name>HelpContextID</Name>
<Value>0</Value>
</Property>
<Property>
<Name>NegotiateMenus</Name>
<Value>True</Value>
</Property>
<Property>
<Name>Appearance</Name>
<Value>1</Value>
</Property>
<Property>
<Name>WhatsThisButton</Name>
<Value>False</Value>
</Property>
<Property>
<Name>WhatsThisHelp</Name>
<Value>False</Value>
</Property>
<Property>
<Name>ShowInTaskbar</Name>
<Value>True</Value>
</Property>
<Property>
<Name>RightToLeft</Name>
<Value>False</Value>
</Property>
<Property>
<Name>StartUpPosition</Name>
<Value>2</Value>
</Property>
<Property>
<Name>OLEDropMode</Name>
<Value>0</Value>
</Property>
<Property>
<Name>PaletteMode</Name>
<Value>0</Value>
</Property>
<Property>
<Name>Moveable</Name>
<Value>True</Value>
</Property>
</Properties>
<CodeModule>
<CountOfDeclarationLines>10</CountOfDeclarationLines>
<CountOfLines>345</CountOfLines>
<Interfaces>
</Interfaces>
<Events>
</Events>
<Procedures>
<Procedure>
<Name>Form_Load</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>40</CountOfLines>
<CommentLines>
<CommentLine>Sets the form to the size of the skin-picture</CommentLine>
</CommentLines>
<Declaration>Private Sub Form_Load()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>bxfOptions_MouseMove</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>8</CountOfLines>
<CommentLines>
<CommentLine>Removes underline from each of the labels</CommentLine>
</CommentLines>
<Declaration>Private Sub bxfOptions_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
<Parameters>
<Parameter>
<Name>Button</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Shift</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>X</Name>
<Type>Single</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Y</Name>
<Type>Single</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>chkLimitPicWidth_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>17</CountOfLines>
<CommentLines>
<CommentLine>Enables/disabels the controls linked to chkLimitPicWidth</CommentLine>
</CommentLines>
<Declaration>Private Sub chkLimitPicWidth_Click()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>chkOptionsInfo_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Shows/hides the infomation-label</CommentLine>
</CommentLines>
<Declaration>Private Sub chkOptionsInfo_Click()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>chkPictureInfo_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Shows/hides the infomation-label</CommentLine>
</CommentLines>
<Declaration>Private Sub chkPictureInfo_Click()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>chkTextInfo_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Shows/hides the infomation-label</CommentLine>
</CommentLines>
<Declaration>Private Sub chkTextInfo_Click()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>cmdOptions_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>124</CountOfLines>
<CommentLines>
<CommentLine>---------------------------------------------------------------------------------------</CommentLine>
<CommentLine> Procedure : cmdOptions_Click</CommentLine>
<CommentLine> DateTime  : 03-04-2003 16:53 CET</CommentLine>
<CommentLine> Author    : Anders Nissen, IcySoft</CommentLine>
<CommentLine> Purpose   : This sub handles all the events of the commandboxes in the option-pages</CommentLine>
<CommentLine>---------------------------------------------------------------------------------------</CommentLine>
</CommentLines>
<Declaration>Private Sub cmdOptions_Click(Index As Integer)</Declaration>
<Parameters>
<Parameter>
<Name>Index</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>Form_Unload</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>7</CountOfLines>
<CommentLines>
<CommentLine>Fades the form if Fading is enabled</CommentLine>
</CommentLines>
<Declaration>Private Sub Form_Unload(Cancel As Integer)</Declaration>
<Parameters>
<Parameter>
<Name>Cancel</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>imgFormTop_MouseDown</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Moves the form</CommentLine>
</CommentLines>
<Declaration>Private Sub imgFormTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
<Parameters>
<Parameter>
<Name>Button</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Shift</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>X</Name>
<Type>Single</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Y</Name>
<Type>Single</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>imgMinimize_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Minimizing the form</CommentLine>
</CommentLines>
<Declaration>Private Sub imgMinimize_Click()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>imgUnload_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Referers to the &quot;Form_Unload&quot;-sub</CommentLine>
</CommentLines>
<Declaration>Private Sub imgUnload_Click()</Declaration>
<Parameters>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>lblChooseOption_Click</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>23</CountOfLines>
<CommentLines>
<CommentLine>If the page is already active don&apos;t do anything</CommentLine>
</CommentLines>
<Declaration>Private Sub lblChooseOption_Click(Index As Integer)</Declaration>
<Parameters>
<Parameter>
<Name>Index</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>lblChooseOption_MouseMove</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>11</CountOfLines>
<CommentLines>
<CommentLine>Applying underline to the current label and removing it from the others</CommentLine>
</CommentLines>
<Declaration>Private Sub lblChooseOption_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
<Parameters>
<Parameter>
<Name>Index</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Button</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Shift</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>X</Name>
<Type>Single</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Y</Name>
<Type>Single</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
</Parameters>
<ReturnType></ReturnType>
</Procedure>
<Procedure>
<Name>lblTitel_MouseDown</Name>
<Scope>Private</Scope>
<Type>Subroutine</Type>
<CountOfDeclarationLines>1</CountOfDeclarationLines>
<CountOfLines>5</CountOfLines>
<CommentLines>
<CommentLine>Selfexplaining - moves the form using API (see the function under &quot;modAPI&quot;)</CommentLine>
</CommentLines>
<Declaration>Private Sub lblTitel_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
<Parameters>
<Parameter>
<Name>Index</Name>
<Type>Integer</Type>
<IsByVal>False</IsByVal>
<IsOptional>False</IsOptional>
<IsParamArray>False</IsParamArray>
<DefaultValue></DefaultValue>
</Parameter>
<Parameter>
<Name>Button</Name>