HX-PGS-ERP-SYS-SIU/10、背景程式與對話�.../Word預覽.vb

Imports Telerik.WinForms.Documents.FormatProviders.OpenXml.Docx
Imports System.IO
Imports Telerik.WinControls.UI

Public Class Word預覽
    Private Sub Word預覽_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Word預覽_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Telerik.WinControls.ThemeResolutionService.LoadPackageFile(".\Theme\TelerikMetro_Chinese.tssp")
        Word控制項.CommandTabs.Item(0).PerformClick()
        Word控制項.ThemeName = "TelerikMetro_Chinese"
        Word文本框.ThemeName = "TelerikMetro_Chinese"
        '--------------移除多餘控件-------------------------------
        Word控制項.BackstageControl.BackstageElement.Items(0).Visibility = Telerik.WinControls.ElementVisibility.Collapsed
        Word控制項.BackstageControl.BackstageElement.Items(1).Visibility = Telerik.WinControls.ElementVisibility.Collapsed
        Word控制項.BackstageControl.BackstageElement.Items(4).Visibility = Telerik.WinControls.ElementVisibility.Collapsed
        Word控制項.QuickAccessToolBar.Items(0).Visibility = Telerik.WinControls.ElementVisibility.Collapsed
        Dim saveAsItem As BackstageTabItem = Word控制項.BackstageControl.Items("backstageTabItemSaveAs")
        Dim page As BackstageViewPage = saveAsItem.Page
        page.Controls(0).Controls(0).Visible = False : page.Controls(0).Controls(1).Visible = False
        page.Controls(0).Controls(2).Visible = False : page.Controls(0).Controls(3).Visible = False
        page.Controls(0).Controls(4).Visible = False : page.Controls(0).Controls(5).Visible = False
        If PA48 = "" Then : Else
            Word控制項.Enabled = True : Word文本框.Enabled = True
            Dim provider As DocxFormatProvider = New DocxFormatProvider()
            Dim input As Byte() = File.ReadAllBytes(PA48)
            Word文本框.Document = provider.Import(input)
        End If
    End Sub
    Private Sub Word預覽_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
        If PA48 <> "" Then : If File.Exists(PA48) Then : File.Delete(PA48) : End If : End If : PA48 = ""
    End Sub
    Private Sub Word控制項_Click(sender As Object, e As EventArgs) Handles Word控制項.SizeChanged
        If 首次開啟 = False Then
            Dim XX1, YY1, YY2, YY3, YY4 As Integer
            YY1 = Word控制項.Size.Height
            XX1 = Word控制項.Size.Width
            YY2 = RadRichTextEditorRuler1.Location.Y
            YY4 = Me.Size.Height
            If YY1 = 167 Then
                RadRichTextEditorRuler1.Location = New System.Drawing.Point(63, 167)
                If YY1 = YY2 Then : Else
                    RadRichTextEditorRuler1.Size = New System.Drawing.Point(XX1, YY4 - YY1 - 40)
                End If
            ElseIf YY1 > YY2 Then
                YY3 = YY1
                RadRichTextEditorRuler1.Location = New System.Drawing.Point(63, YY3)
                If YY1 = YY2 Then : Else
                    RadRichTextEditorRuler1.Size = New System.Drawing.Point(XX1, YY4 - YY1 - 40)
                End If
            ElseIf YY1 < YY2 Then
                YY3 = YY2 - (167 - YY1)
                RadRichTextEditorRuler1.Location = New System.Drawing.Point(63, YY3)
                If YY1 = YY2 Then : Else
                    RadRichTextEditorRuler1.Size = New System.Drawing.Point(XX1, YY4 - YY1 - 40)
                End If
            End If
        End If
    End Sub
End Class