Initial
This commit is contained in:
1098
EDOKA/Office/Kopie von WordLib.vb
Normal file
1098
EDOKA/Office/Kopie von WordLib.vb
Normal file
File diff suppressed because it is too large
Load Diff
2527
EDOKA/Office/WordLib.sik
Normal file
2527
EDOKA/Office/WordLib.sik
Normal file
File diff suppressed because it is too large
Load Diff
6494
EDOKA/Office/WordLib.vb
Normal file
6494
EDOKA/Office/WordLib.vb
Normal file
File diff suppressed because it is too large
Load Diff
105
EDOKA/Office/frmOfficeBearbeitung.resx
Normal file
105
EDOKA/Office/frmOfficeBearbeitung.resx
Normal file
@@ -0,0 +1,105 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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.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:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmOfficeBearbeitung</value>
|
||||
</data>
|
||||
</root>
|
||||
70
EDOKA/Office/frmOfficeBearbeitung.vb
Normal file
70
EDOKA/Office/frmOfficeBearbeitung.vb
Normal file
@@ -0,0 +1,70 @@
|
||||
Public Class frmOfficeBearbeitung
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.TextBox1.Location = New System.Drawing.Point(48, 56)
|
||||
Me.TextBox1.Multiline = True
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(352, 48)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
Me.TextBox1.Text = "Ein Word- bzw. ein Excel-Dokument wird z.Zt. von Ihnen bearbeitet. Die Bearbeitun" & _
|
||||
"g muss abgeschlossen werden"
|
||||
'
|
||||
'frmOfficeBearbeitung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(448, 173)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1})
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmOfficeBearbeitung"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "frmOfficeBearbeitung"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmOfficeBearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
223
EDOKA/Office/frmWordViewer.resx
Normal file
223
EDOKA/Office/frmWordViewer.resx
Normal file
@@ -0,0 +1,223 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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.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:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="webOCWrapper.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="contextMenu.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>127, 17</value>
|
||||
</data>
|
||||
<data name="contextMenu.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="StatusBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="addressBar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="addressBarLbl.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBar2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>386, 10</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AADSCgAAAk1TRnQBSQFMAgEBBAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8A/wD/
|
||||
AP8A/wBPAAEDAf8KAAsTAwAB7AEHAf8BBwEAA/8BBwEAAwcB/wEHBQAJ/wcAAewBAwHsAf8JAAETCbwB
|
||||
EwG8ARMCAAHsAv8BBwEAAgcB/wEHAQAE/wEHBQAB/wIAAf8BAAH/AgAB/wEAAf8DAAEDAewBAwHsAQMB
|
||||
/wgADRMBvAETAQAB7AEHAf8BBwEAA/8BBwEAAwcB/wEHBQAJ/wEAAf8CAAEDAewBAwHsAQMB7AH/AQAB
|
||||
7AYAARMGvANeArwDEwEAAewB/wLsAQACBwH/AQcBAAT/AQcFAAH/AwAB/wMAAf8BAAH/AgAB7AEDAewB
|
||||
AwHsAQMB/wEAAewGAAETBrwD7wK8ARMBvAETAQAB7AH/AewB/wEAA/8BBwEAAwcB/wEHBQAJ/wEAAf8C
|
||||
AAEDAewBAwIAAewB/wEAAewGAA0TArwBEwTsAf8CBwH/AQcBAAT/AQcFAAH/AgAB/wIAAf8BAAH/AQAB
|
||||
/wIAAewBAwHsAgcBAwH/AQAB7AEAAQYEAAETCrwBEwG8ARMBvAETAQAB7Ab/AQcBAAMHAf8BBwUACf8B
|
||||
AAH/AgABAwHsAQMB7AEDAewB/wIAAQYF/gEAChMBvAETAbwCEwEAAewB/wMHAf8B7AIABP8BBwUAAf8B
|
||||
AAH/AQAB/wMAAf8BAAH/AgAB7AEDAewBAwHsAQMB/wEAAW0G/gIAARMI/wETAbwBEwG8ARMBAAHsBf8B
|
||||
7AH/AQADBwH/AQcFAAH/AQAH/wEAAf8CAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQMAARMB/wUTAf8E
|
||||
EwIACOwF/wEHBgAB/wEABv8BAAH/AgAB7AEDAewBAwHsAQMB/wEAAewBAAJtBgABEwj/ARMGAAHsAf8C
|
||||
BwH/BQcB/wEHBQAB/wkAAf8CAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0HAAETAf8FEwH/ARMGAAHsCP8E
|
||||
AAX/AQAJ/wIAAewBAwEHAf8B7AEAA+wKAAETCP8BEwUAAewB/wYHAf8B7AH/AgAE/w0AAQcB/wHsAQAF
|
||||
7AsACRMFAAHsCP8B7AYABP8sAArsEwABQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEW
|
||||
AAP//wACAAH8AX8C/wIAAeABAwHwAX8BwAEHAgAB4AEAAcABfwGAAQMCAAHgAgABHwEAAQECAAHgAgAB
|
||||
HwEAAQECAAHgAgABFwEAAQECAAHgAgABBwQAAeAFAAGAAQAB4AMAAYABAAGAAQAB4AMAAcABAAGAAQAB
|
||||
4AMAAeABAQGAAQAB4AIAAQcB4AEHAeAEAAEXAfABBwHgBAABHwHwAQMB4AEBAwABHwH4AQMB4AEDAQAB
|
||||
/wEAAR8C/wHgAQcB4QH/FgAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmWordViewer</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>34</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
|
||||
AACAgIAAAAAAAP///wDAwMAA2q+vAOfLywDNlJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAQEBAAEBAQEBAQEBAQEBAQEBAQACAwMCAwMDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAID
|
||||
AwIDAwMCAwEBAQEBAQACAgICAgICAgMBAQEBAQEAAgMDAwMDAwIDAQEBAQEBAAICAgICAgICAwEBAQEB
|
||||
AQACAwMDAwIDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAIDAwMDAgICAwEBAQEBAQACAgICAgIBAQEB
|
||||
AQEBAQEAAgMDAwMCAAIBAQEBAQEBAAICAgICAgABAQEBAQEBAQAAAAAAAAAAAQEBAQEBAQEBAQEBAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAeADAADgAwAA4AMAAOADAADgAwAA4AMAAOADAADgAwAA4AMAAOAD
|
||||
AADgAwAA4AcAAOAPAADgHwAA//8AAP//AAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
458
EDOKA/Office/frmWordViewer.vb
Normal file
458
EDOKA/Office/frmWordViewer.vb
Normal file
@@ -0,0 +1,458 @@
|
||||
' A simple WebBrowser control host.
|
||||
|
||||
Imports System.Resources
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmWordViewer
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
Dim m_PrintFilename As String
|
||||
Property PrintFilename() As String
|
||||
Get
|
||||
Return m_PrintFilename
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PrintFilename = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_printdokumentid As String
|
||||
Property PrintDokumentid() As String
|
||||
Get
|
||||
Return m_printdokumentid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_printdokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'edex banköaternd
|
||||
Dim m_showprintmessage As Boolean = True
|
||||
Property Show_Print_Message() As Boolean
|
||||
Get
|
||||
Return m_showprintmessage
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_showprintmessage = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private rm As ResourceManager
|
||||
Private wasUrlTyped As Boolean = False
|
||||
|
||||
|
||||
#Region " Windows Form Designer generated code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Windows Form Designer.
|
||||
InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Friend WithEvents webOCWrapper As WebOCHostCtrl
|
||||
Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
|
||||
Friend Shadows WithEvents contextMenu As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
|
||||
Friend WithEvents addressBar As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents addressBarLbl As System.Windows.Forms.Label
|
||||
Friend WithEvents ToolBar2 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmWordViewer))
|
||||
Me.webOCWrapper = New EDOKAApp.WebOCHostCtrl()
|
||||
Me.contextMenu = New System.Windows.Forms.ContextMenu()
|
||||
Me.MenuItem13 = New System.Windows.Forms.MenuItem()
|
||||
Me.StatusBar1 = New System.Windows.Forms.StatusBar()
|
||||
Me.addressBar = New System.Windows.Forms.ComboBox()
|
||||
Me.addressBarLbl = New System.Windows.Forms.Label()
|
||||
Me.ToolBar2 = New System.Windows.Forms.ToolBar()
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'webOCWrapper
|
||||
'
|
||||
Me.webOCWrapper.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.webOCWrapper.BrowserContextMenu = False
|
||||
Me.webOCWrapper.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
Me.webOCWrapper.Location = New System.Drawing.Point(0, 24)
|
||||
Me.webOCWrapper.Name = "webOCWrapper"
|
||||
Me.webOCWrapper.Size = New System.Drawing.Size(864, 520)
|
||||
Me.webOCWrapper.TabIndex = 0
|
||||
Me.webOCWrapper.TabStop = False
|
||||
'
|
||||
'contextMenu
|
||||
'
|
||||
Me.contextMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem13})
|
||||
'
|
||||
'MenuItem13
|
||||
'
|
||||
Me.MenuItem13.Index = 0
|
||||
Me.MenuItem13.Text = "Print..."
|
||||
'
|
||||
'StatusBar1
|
||||
'
|
||||
Me.StatusBar1.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.StatusBar1.Dock = System.Windows.Forms.DockStyle.None
|
||||
Me.StatusBar1.Location = New System.Drawing.Point(0, 549)
|
||||
Me.StatusBar1.Name = "StatusBar1"
|
||||
Me.StatusBar1.Size = New System.Drawing.Size(864, 24)
|
||||
Me.StatusBar1.TabIndex = 1
|
||||
'
|
||||
'addressBar
|
||||
'
|
||||
Me.addressBar.Location = New System.Drawing.Point(16, 56)
|
||||
Me.addressBar.Name = "addressBar"
|
||||
Me.addressBar.Size = New System.Drawing.Size(352, 21)
|
||||
Me.addressBar.Sorted = True
|
||||
Me.addressBar.TabIndex = 3
|
||||
Me.addressBar.Visible = False
|
||||
'
|
||||
'addressBarLbl
|
||||
'
|
||||
Me.addressBarLbl.Location = New System.Drawing.Point(16, 12)
|
||||
Me.addressBarLbl.Name = "addressBarLbl"
|
||||
Me.addressBarLbl.Size = New System.Drawing.Size(100, 16)
|
||||
Me.addressBarLbl.TabIndex = 8
|
||||
Me.addressBarLbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'ToolBar2
|
||||
'
|
||||
Me.ToolBar2.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2})
|
||||
Me.ToolBar2.DropDownArrows = True
|
||||
Me.ToolBar2.ImageList = Me.ImageList1
|
||||
Me.ToolBar2.Name = "ToolBar2"
|
||||
Me.ToolBar2.ShowToolTips = True
|
||||
Me.ToolBar2.Size = New System.Drawing.Size(864, 25)
|
||||
Me.ToolBar2.TabIndex = 9
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
'
|
||||
'ToolBarButton2
|
||||
'
|
||||
Me.ToolBarButton2.ImageIndex = 1
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'frmWordViewer
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(864, 573)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar2, Me.addressBarLbl, Me.StatusBar1, Me.addressBar, Me.webOCWrapper})
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmWordViewer"
|
||||
Me.Text = "Office-Dokumentanzeige"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub exitMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
' Clean up app.
|
||||
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal printable As Boolean)
|
||||
MyBase.New()
|
||||
'This call is required by the Windows Form Designer.
|
||||
InitializeComponent()
|
||||
If printable = False Then
|
||||
Me.ToolBarButton2.Visible = False
|
||||
Else
|
||||
Me.ToolBarButton2.Visible = True
|
||||
End If
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
End Sub
|
||||
|
||||
' Update the available menu commands, particularly for cut/copy/paste.
|
||||
' Also update the enabled state of the forward/back buttons.
|
||||
' !TODO: Not the best place to do this. Find somewhere else.
|
||||
|
||||
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
webOCWrapper.Navigate(addressBar.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub webOCWrapper_StatusTextChange(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_StatusTextChangeEvent) Handles webOCWrapper.StatusTextChange
|
||||
StatusBar1.Text = e.text
|
||||
End Sub
|
||||
|
||||
Private Sub findMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.Find()
|
||||
End Sub
|
||||
|
||||
Private Sub inetOptionsMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.InternetOptions()
|
||||
End Sub
|
||||
|
||||
Private Sub addressBar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles addressBar.KeyDown
|
||||
If (e.KeyCode = Keys.Return) Then
|
||||
' Validate URL.
|
||||
Try
|
||||
' TODO: This won't accept URLs like "www.amazon.com",
|
||||
' like IE will.
|
||||
' Dim u As New Uri(addressBar.Text)
|
||||
Catch
|
||||
MessageBox.Show(rm.GetString("Error_InvalidUrlOrFile") + " : " + Err.GetException().Message, rm.GetString("Caption_InvalidUrlOrFile"), MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End Try
|
||||
webOCWrapper.Navigate(addressBar.Text)
|
||||
' Add to the list of available web sites - but wait
|
||||
' for NavigateComplete2, so we get the fully-formatted,
|
||||
' redirected URL.
|
||||
wasUrlTyped = True
|
||||
' Cancel the event so the address bar never sees this.
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub backButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.GoBack()
|
||||
End Sub
|
||||
|
||||
Private Sub forwardButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.GoForward()
|
||||
End Sub
|
||||
|
||||
Private Sub homeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.GoHome()
|
||||
End Sub
|
||||
|
||||
Private Sub webOCWrapper_TopLevelNavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles webOCWrapper.TopLevelNavigateComplete2
|
||||
addressBar.Text = Convert.ToString(e.uRL)
|
||||
If wasUrlTyped Then
|
||||
wasUrlTyped = False
|
||||
addressBar.Items.Add(e.uRL)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cutMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.Cut()
|
||||
End Sub
|
||||
|
||||
Private Sub copyMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.Copy()
|
||||
End Sub
|
||||
|
||||
Private Sub pasteMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
webOCWrapper.Paste()
|
||||
End Sub
|
||||
|
||||
Private Sub printMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Try
|
||||
webOCWrapper.Print(doUI:=True)
|
||||
' webOCWrapper.webBrowser.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT2, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Print_Doc()
|
||||
Try
|
||||
If print_word() = True Then Exit Sub
|
||||
Catch
|
||||
End Try
|
||||
Try
|
||||
webOCWrapper.Print(doUI:=True)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
|
||||
Try
|
||||
If print_word() = True Then Exit Sub
|
||||
webOCWrapper.Print(doUI:=True)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar2_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar2.ButtonClick
|
||||
Dim i As Integer
|
||||
|
||||
Select Case Me.ToolBar2.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'pint
|
||||
Try
|
||||
If print_word() = True Then Exit Sub
|
||||
Catch
|
||||
End Try
|
||||
Try
|
||||
webOCWrapper.Print(doUI:=True)
|
||||
Catch
|
||||
End Try
|
||||
Case Else
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmWordViewer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
Try
|
||||
Try
|
||||
|
||||
'docword = Nothing
|
||||
'objword.Quit(False)
|
||||
'objword = Nothing
|
||||
Catch
|
||||
|
||||
End Try
|
||||
File.Delete(Me.addressBar.Text)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
' Dim objword As Microsoft.Office.Interop.Word.Application()
|
||||
' Dim docword As Microsoft.Office.Interop.Word.Document()
|
||||
|
||||
Dim W As Integer
|
||||
Dim H As Integer
|
||||
|
||||
Private Function print_word() As Boolean
|
||||
MsgBox("Print Word")
|
||||
'Dim objword As New Microsoft.Office.Interop.Word.Application()
|
||||
'Dim FileReader As New DocMgmt()
|
||||
'Dim dokument As String
|
||||
'Try
|
||||
' dokument = DivFnkt.Get_Filename("View_" + Format(Now, "yyyyMMddHHmmss") + "_" + Me.PrintFilename, "")
|
||||
' If FileReader.Get_From_DB(Me.PrintDokumentid, dokument) = False Then
|
||||
' Return False
|
||||
' End If
|
||||
'Catch
|
||||
'Finally
|
||||
' FileReader = Nothing
|
||||
'End Try
|
||||
|
||||
''Rel. Office 2010
|
||||
'If UCase(Microsoft.VisualBasic.Right(Me.PrintFilename, 4)) <> ".DOC" And UCase(Microsoft.VisualBasic.Right(Me.PrintFilename, 4)) <> ".DOCX" And UCase(Microsoft.VisualBasic.Right(Me.PrintFilename, 4)) <> ".DOCM" And UCase(Microsoft.VisualBasic.Right(Me.PrintFilename, 4)) <> ".DOTX" And UCase(Microsoft.VisualBasic.Right(Me.PrintFilename, 4)) <> ".DOTM" Then
|
||||
' Return False
|
||||
'End If
|
||||
'' If UCase(Microsoft.VisualBasic.Right(Me.PrintFilename, 4)) <> ".DOC" Then
|
||||
''Return False
|
||||
''End If
|
||||
''Ende Rel. Office 2010
|
||||
'Application.DoEvents()
|
||||
'Try
|
||||
' StartWord()
|
||||
' Application.DoEvents()
|
||||
' objword.Documents.Open(dokument)
|
||||
|
||||
' 'docword = objword.Documents.Open(dokument)
|
||||
' 'Try
|
||||
' ' docword.Activate()
|
||||
' 'Catch
|
||||
' 'End Try
|
||||
' Try
|
||||
' objword.Activate()
|
||||
' Catch
|
||||
' End Try
|
||||
' Try
|
||||
' objword.Run("Autoexec")
|
||||
' Catch
|
||||
' End Try
|
||||
' Try
|
||||
' objword.Activate()
|
||||
' Catch
|
||||
' End Try
|
||||
' 'Try
|
||||
' ' docword.Activate()
|
||||
' 'Catch
|
||||
' 'End Try
|
||||
' System.Windows.Forms.Application.DoEvents()
|
||||
' 'Dim cmbr As Microsoft.Office.Core.CommandBar 'RS:2006-08-22
|
||||
' Dim cmbr As Office.CommandBar
|
||||
' For Each cmbr In objword.CommandBars
|
||||
' 'Dim cbctl As Microsoft.Office.Core.CommandBarControl 'RS:2006-08-22
|
||||
' Dim cbctl As Office.CommandBarControl
|
||||
' For Each cbctl In cmbr.Controls
|
||||
' If cbctl.Id = 2521 Then
|
||||
' ' MyMsg.show_standardmessage(250, MsgBoxStyle.Information)
|
||||
' System.Windows.Forms.Application.DoEvents()
|
||||
' objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
|
||||
' System.Windows.Forms.Application.DoEvents()
|
||||
' cbctl.Execute()
|
||||
' System.Windows.Forms.Application.DoEvents()
|
||||
' objword.Visible = False
|
||||
' System.Threading.Thread.Sleep(5500)
|
||||
' If Me.Show_Print_Message = True Then
|
||||
' MyMsg.show_standardmessage(250, MsgBoxStyle.Information)
|
||||
' Return True
|
||||
' End If
|
||||
' Return True
|
||||
' Exit Function
|
||||
' End If
|
||||
' Next
|
||||
' Next
|
||||
' Return True
|
||||
'Catch ex As Exception
|
||||
' Return False
|
||||
'Finally
|
||||
' objword.Quit(False)
|
||||
' objword = Nothing
|
||||
'End Try
|
||||
End Function
|
||||
|
||||
Private Function StartWord()
|
||||
'Try
|
||||
' objword = GetObject(, "Microsoft.Office.Interop.Word.application")
|
||||
' 'objword = CreateObject("Microsoft.Office.Interop.Word.application")
|
||||
'Catch
|
||||
' Try
|
||||
' objword = CreateObject("Microsoft.Office.Interop.Word.application")
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
' End Try
|
||||
'Finally
|
||||
' 'objword.Visible = False
|
||||
' 'objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateNormal
|
||||
' objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMinimize
|
||||
' 'W = objword.Width
|
||||
' 'H = objword.Height
|
||||
' 'objword.Width = 10
|
||||
' 'objword.Height = 10
|
||||
' objword.Visible = True
|
||||
|
||||
'End Try
|
||||
'Try
|
||||
' objword.Run("Autoexec")
|
||||
'Catch
|
||||
'End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
211
EDOKA/Office/frmWordViewer_Save.resx
Normal file
211
EDOKA/Office/frmWordViewer_Save.resx
Normal file
@@ -0,0 +1,211 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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.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:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="AxWebBrowser1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="AxWebBrowser1.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAsQAA
|
||||
AAIBAAAAAQAAAAAAAAAAAAAAAJwAAABMAAAAQl4AAFFEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABM
|
||||
AAAAAAAAAAAAAAABAAAA4NBXAHM1zxGuaQgAKy4SYggAAAAAAAAATAAAAAEUAgAAAAAAwAAAAAAAAEaA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AADyCQAAAk1TRnQBSQFMAgEBAwEAAQQBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0cAAQMB/woACxMD
|
||||
AAHsAQcB/wEHAQAD/wEHAQADBwH/AQcVAAHsAQMB7AH/CQABEwm8ARMBvAETAgAB7AL/AQcBAAIHAf8B
|
||||
BwEABP8BBxMAAQMB7AEDAewBAwH/CAANEwG8ARMBAAHsAQcB/wEHAQAD/wEHAQADBwH/AQcSAAEDAewB
|
||||
AwHsAQMB7AH/AQAB7AYAARMGvANeArwDEwEAAewB/wLsAQACBwH/AQcBAAT/AQcSAAHsAQMB7AEDAewB
|
||||
AwH/AQAB7AYAARMGvAPvArwBEwG8ARMBAAHsAf8B7AH/AQAD/wEHAQADBwH/AQcSAAEDAewBAwIAAewB
|
||||
/wEAAewGAA0TArwBEwTsAf8CBwH/AQcBAAT/AQcSAAHsAQMB7AIHAQMB/wEAAewBAAEGBAABEwq8ARMB
|
||||
vAETAbwBEwEAAewG/wEHAQADBwH/AQcSAAEDAewBAwHsAQMB7AH/AgABBgX+AQAKEwG8ARMBvAITAQAB
|
||||
7AH/AwcB/wHsAgAE/wEHEgAB7AEDAewBAwHsAQMB/wEAAW0G/gIAARMI/wETAbwBEwG8ARMBAAHsBf8B
|
||||
7AH/AQADBwH/AQcSAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQMAARMB/wUTAf8EEwIACOwF/wEHEgAB
|
||||
7AEDAewBAwHsAQMB/wEAAewBAAJtBgABEwj/ARMGAAHsAf8CBwH/BQcB/wEHEgABAwHsAQMB7AEHAf8B
|
||||
7AEAAewCAAFtBwABEwH/BRMB/wETBgAB7Aj/FQAB7AEDAQcB/wHsAQAD7AoAARMI/wETBQAB7AH/BgcB
|
||||
/wHsAf8TAAEHAf8B7AEABewLAAkTBQAB7Aj/Aew2AArsEwABQgFNAT4HAAE+AwABKAMAAUADAAEQAwAB
|
||||
AQEAAQEFAAGAFwAD/wEAAfwBfwL/BAAB8AF/AcABBwQAAcABfwGAAQMFAAEfAQABAQUAAR8BAAEBBQAB
|
||||
FwEAAQEFAAEHCgABgAUAAYABAAGABQABwAEAAYAFAAHgAQEBgAQAAQcB4AEHAeAEAAEXAfABBwHgBAAB
|
||||
HwHwAQMB4AEBAwABHwH4AQMB4AEDAwABHwL/AeABBxgACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmWordViewer</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
|
||||
AACAgIAAAAAAAP///wDAwMAA2q+vAOfLywDNlJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAQEBAAEBAQEBAQEBAQEBAQEBAQACAwMCAwMDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAID
|
||||
AwIDAwMCAwEBAQEBAQACAgICAgICAgMBAQEBAQEAAgMDAwMDAwIDAQEBAQEBAAICAgICAgICAwEBAQEB
|
||||
AQACAwMDAwIDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAIDAwMDAgICAwEBAQEBAQACAgICAgIBAQEB
|
||||
AQEBAQEAAgMDAwMCAAIBAQEBAQEBAAICAgICAgABAQEBAQEBAQAAAAAAAAAAAQEBAQEBAQEBAQEBAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAeADAADgAwAA4AMAAOADAADgAwAA4AMAAOADAADgAwAA4AMAAOAD
|
||||
AADgAwAA4AcAAOAPAADgHwAA//8AAP//AAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
170
EDOKA/Office/frmWordViewer_Save.vb
Normal file
170
EDOKA/Office/frmWordViewer_Save.vb
Normal file
@@ -0,0 +1,170 @@
|
||||
Public Class frmWordViewer_Save
|
||||
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowser
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmWordViewer_Save))
|
||||
Me.AxWebBrowser1 = New AxSHDocVw.AxWebBrowser()
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'AxWebBrowser1
|
||||
'
|
||||
Me.AxWebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.AxWebBrowser1.Enabled = True
|
||||
Me.AxWebBrowser1.OcxState = CType(resources.GetObject("AxWebBrowser1.OcxState"), System.Windows.Forms.AxHost.State)
|
||||
Me.AxWebBrowser1.Size = New System.Drawing.Size(912, 661)
|
||||
Me.AxWebBrowser1.TabIndex = 0
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(912, 25)
|
||||
Me.ToolBar1.TabIndex = 1
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
'
|
||||
'ToolBarButton2
|
||||
'
|
||||
Me.ToolBarButton2.ImageIndex = 1
|
||||
'
|
||||
'ToolBarButton3
|
||||
'
|
||||
Me.ToolBarButton3.ImageIndex = 2
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'frmWordViewer
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(912, 661)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1, Me.AxWebBrowser1})
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmWordViewer"
|
||||
Me.Text = "Office-Dokumentanzeige"
|
||||
CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Dim m_dokument As String
|
||||
Dim odocument As Object
|
||||
Property dokument() As String
|
||||
Get
|
||||
Return m_dokument
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokument = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_print As Boolean
|
||||
Property print() As Boolean
|
||||
Get
|
||||
Return m_print
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_print = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub frmWordViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.AxWebBrowser1.Navigate(Me.dokument)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Dim i As Integer
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Try
|
||||
Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Catch
|
||||
End Try
|
||||
Case 2
|
||||
Try
|
||||
Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_ZOOM, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Catch
|
||||
End Try
|
||||
Case Else
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Sub PrintDoc()
|
||||
Try
|
||||
Me.Cursor = Windows.Forms.Cursors.WaitCursor
|
||||
Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Windows.Forms.Application.DoEvents()
|
||||
System.Threading.Thread.CurrentThread.Sleep(5000)
|
||||
Windows.Forms.Application.DoEvents()
|
||||
Me.Cursor = Windows.Forms.Cursors.Default
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub frmWordViewer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
odocument = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
|
||||
Try
|
||||
odocument = e.pDisp.Document
|
||||
Catch
|
||||
MsgBox("Das Dokument konnte nicht wieder freigegeben werden.")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
201
EDOKA/Office/frmWordViewer_xxx.resx
Normal file
201
EDOKA/Office/frmWordViewer_xxx.resx
Normal file
@@ -0,0 +1,201 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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.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:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="AxWebBrowser1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AADyCQAAAk1TRnQBSQFMAgEBAwEAAQQBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0cAAQMB/woACxMD
|
||||
AAHsAQcB/wEHAQAD/wEHAQADBwH/AQcVAAHsAQMB7AH/CQABEwm8ARMBvAETAgAB7AL/AQcBAAIHAf8B
|
||||
BwEABP8BBxMAAQMB7AEDAewBAwH/CAANEwG8ARMBAAHsAQcB/wEHAQAD/wEHAQADBwH/AQcSAAEDAewB
|
||||
AwHsAQMB7AH/AQAB7AYAARMGvANeArwDEwEAAewB/wLsAQACBwH/AQcBAAT/AQcSAAHsAQMB7AEDAewB
|
||||
AwH/AQAB7AYAARMGvAPvArwBEwG8ARMBAAHsAf8B7AH/AQAD/wEHAQADBwH/AQcSAAEDAewBAwIAAewB
|
||||
/wEAAewGAA0TArwBEwTsAf8CBwH/AQcBAAT/AQcSAAHsAQMB7AIHAQMB/wEAAewBAAEGBAABEwq8ARMB
|
||||
vAETAbwBEwEAAewG/wEHAQADBwH/AQcSAAEDAewBAwHsAQMB7AH/AgABBgX+AQAKEwG8ARMBvAITAQAB
|
||||
7AH/AwcB/wHsAgAE/wEHEgAB7AEDAewBAwHsAQMB/wEAAW0G/gIAARMI/wETAbwBEwG8ARMBAAHsBf8B
|
||||
7AH/AQADBwH/AQcSAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQMAARMB/wUTAf8EEwIACOwF/wEHEgAB
|
||||
7AEDAewBAwHsAQMB/wEAAewBAAJtBgABEwj/ARMGAAHsAf8CBwH/BQcB/wEHEgABAwHsAQMB7AEHAf8B
|
||||
7AEAAewCAAFtBwABEwH/BRMB/wETBgAB7Aj/FQAB7AEDAQcB/wHsAQAD7AoAARMI/wETBQAB7AH/BgcB
|
||||
/wHsAf8TAAEHAf8B7AEABewLAAkTBQAB7Aj/Aew2AArsEwABQgFNAT4HAAE+AwABKAMAAUADAAEQAwAB
|
||||
AQEAAQEFAAGAFwAD/wEAAfwBfwL/BAAB8AF/AcABBwQAAcABfwGAAQMFAAEfAQABAQUAAR8BAAEBBQAB
|
||||
FwEAAQEFAAEHCgABgAUAAYABAAGABQABwAEAAYAFAAHgAQEBgAQAAQcB4AEHAeAEAAEXAfABBwHgBAAB
|
||||
HwHwAQMB4AEBAwABHwH4AQMB4AEDAwABHwL/AeABBxgACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmWordViewer</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
|
||||
AACAgIAAAAAAAP///wDAwMAA2q+vAOfLywDNlJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAQEBAAEBAQEBAQEBAQEBAQEBAQACAwMCAwMDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAID
|
||||
AwIDAwMCAwEBAQEBAQACAgICAgICAgMBAQEBAQEAAgMDAwMDAwIDAQEBAQEBAAICAgICAgICAwEBAQEB
|
||||
AQACAwMDAwIDAgMBAQEBAQEAAgICAgICAgIDAQEBAQEBAAIDAwMDAgICAwEBAQEBAQACAgICAgIBAQEB
|
||||
AQEBAQEAAgMDAwMCAAIBAQEBAQEBAAICAgICAgABAQEBAQEBAQAAAAAAAAAAAQEBAQEBAQEBAQEBAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAeADAADgAwAA4AMAAOADAADgAwAA4AMAAOADAADgAwAA4AMAAOAD
|
||||
AADgAwAA4AcAAOAPAADgHwAA//8AAP//AAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
169
EDOKA/Office/frmWordViewer_xxx.vb
Normal file
169
EDOKA/Office/frmWordViewer_xxx.vb
Normal file
@@ -0,0 +1,169 @@
|
||||
Public Class frmWordViewer_xxx
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents AxWebBrowser1 As WebOCHostCtrl
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmWordViewer))
|
||||
Me.AxWebBrowser1 = New EDOKAApp.WebOCHostCtrl()
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'AxWebBrowser1
|
||||
'
|
||||
Me.AxWebBrowser1.BrowserContextMenu = False
|
||||
Me.AxWebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.AxWebBrowser1.Name = "AxWebBrowser1"
|
||||
Me.AxWebBrowser1.Size = New System.Drawing.Size(912, 661)
|
||||
Me.AxWebBrowser1.TabIndex = 0
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(912, 25)
|
||||
Me.ToolBar1.TabIndex = 1
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
'
|
||||
'ToolBarButton2
|
||||
'
|
||||
Me.ToolBarButton2.ImageIndex = 1
|
||||
'
|
||||
'ToolBarButton3
|
||||
'
|
||||
Me.ToolBarButton3.ImageIndex = 2
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'frmWordViewer
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(912, 661)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1, Me.AxWebBrowser1})
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmWordViewer"
|
||||
Me.Text = "Office-Dokumentanzeige"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Dim m_dokument As String
|
||||
Dim odocument As Object
|
||||
Property dokument() As String
|
||||
Get
|
||||
Return m_dokument
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokument = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_print As Boolean
|
||||
Property print() As Boolean
|
||||
Get
|
||||
Return m_print
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_print = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub frmWordViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.AxWebBrowser1.Navigate(Me.dokument)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Dim i As Integer
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Try
|
||||
Me.AxWebBrowser1.Print(False)
|
||||
'Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Catch
|
||||
End Try
|
||||
Case 2
|
||||
Try
|
||||
'me.AxWebBrowser1
|
||||
'Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_ZOOM, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Catch
|
||||
End Try
|
||||
Case Else
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Sub PrintDoc()
|
||||
Try
|
||||
Me.Cursor = Windows.Forms.Cursors.WaitCursor
|
||||
' Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Windows.Forms.Application.DoEvents()
|
||||
System.Threading.Thread.CurrentThread.Sleep(5000)
|
||||
Windows.Forms.Application.DoEvents()
|
||||
Me.Cursor = Windows.Forms.Cursors.Default
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub frmWordViewer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
odocument = Nothing
|
||||
End Sub
|
||||
|
||||
'Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
|
||||
' Try
|
||||
' odocument = e.pDisp.Document
|
||||
' Catch
|
||||
' MsgBox("Das Dokument konnte nicht wieder freigegeben werden.")
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
End Class
|
||||
4815
EDOKA/Office/sik_WordLib/WordLib.vb
Normal file
4815
EDOKA/Office/sik_WordLib/WordLib.vb
Normal file
File diff suppressed because it is too large
Load Diff
169
EDOKA/Office/sik_WordLib/frmWordViewer_xxx.vb
Normal file
169
EDOKA/Office/sik_WordLib/frmWordViewer_xxx.vb
Normal file
@@ -0,0 +1,169 @@
|
||||
Public Class frmWordViewer_xxx
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents AxWebBrowser1 As WebOCHostCtrl
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmWordViewer))
|
||||
Me.AxWebBrowser1 = New EDOKAApp.WebOCHostCtrl()
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'AxWebBrowser1
|
||||
'
|
||||
Me.AxWebBrowser1.BrowserContextMenu = False
|
||||
Me.AxWebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.AxWebBrowser1.Name = "AxWebBrowser1"
|
||||
Me.AxWebBrowser1.Size = New System.Drawing.Size(912, 661)
|
||||
Me.AxWebBrowser1.TabIndex = 0
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(912, 25)
|
||||
Me.ToolBar1.TabIndex = 1
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
'
|
||||
'ToolBarButton2
|
||||
'
|
||||
Me.ToolBarButton2.ImageIndex = 1
|
||||
'
|
||||
'ToolBarButton3
|
||||
'
|
||||
Me.ToolBarButton3.ImageIndex = 2
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'frmWordViewer
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(912, 661)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1, Me.AxWebBrowser1})
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmWordViewer"
|
||||
Me.Text = "Office-Dokumentanzeige"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Dim m_dokument As String
|
||||
Dim odocument As Object
|
||||
Property dokument() As String
|
||||
Get
|
||||
Return m_dokument
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokument = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_print As Boolean
|
||||
Property print() As Boolean
|
||||
Get
|
||||
Return m_print
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_print = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub frmWordViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.AxWebBrowser1.Navigate(Me.dokument)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Dim i As Integer
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Try
|
||||
Me.AxWebBrowser1.Print(False)
|
||||
'Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Catch
|
||||
End Try
|
||||
Case 2
|
||||
Try
|
||||
'me.AxWebBrowser1
|
||||
'Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_ZOOM, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Catch
|
||||
End Try
|
||||
Case Else
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Sub PrintDoc()
|
||||
Try
|
||||
Me.Cursor = Windows.Forms.Cursors.WaitCursor
|
||||
' Me.AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
|
||||
Windows.Forms.Application.DoEvents()
|
||||
System.Threading.Thread.CurrentThread.Sleep(5000)
|
||||
Windows.Forms.Application.DoEvents()
|
||||
Me.Cursor = Windows.Forms.Cursors.Default
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub frmWordViewer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
odocument = Nothing
|
||||
End Sub
|
||||
|
||||
'Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
|
||||
' Try
|
||||
' odocument = e.pDisp.Document
|
||||
' Catch
|
||||
' MsgBox("Das Dokument konnte nicht wieder freigegeben werden.")
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
End Class
|
||||
BIN
EDOKA/Office/vssver.scc
Normal file
BIN
EDOKA/Office/vssver.scc
Normal file
Binary file not shown.
Reference in New Issue
Block a user