thisdocument.designer.vb

讲解visual studio的应用

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On



'''
<Microsoft.VisualStudio.Tools.Applications.Runtime.StartupObjectAttribute(0), _
 System.Runtime.InteropServices.ComVisibleAttribute(False), _
 System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
Partial Public NotInheritable Class ThisDocument
    Inherits Microsoft.Office.Tools.Word.Document
    Implements Microsoft.VisualStudio.Tools.Applications.Runtime.IStartup

    Friend WithEvents ActionsPane As Microsoft.Office.Tools.ActionsPane

    Friend WithEvents DocumentHeading As Microsoft.Office.Tools.Word.Bookmark

    Friend WithEvents DocumentSummary As Microsoft.Office.Tools.Word.Bookmark

    Friend WithEvents TableArea As Microsoft.Office.Tools.Word.Bookmark

    <Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private RuntimeCallback As Microsoft.VisualStudio.Tools.Applications.Runtime.IRuntimeServiceProvider

    <Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private HostItemHost As Microsoft.VisualStudio.Tools.Applications.Runtime.IHostItemProvider

    <Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private DataHost As Microsoft.VisualStudio.Tools.Applications.Runtime.ICachedDataProvider

    Friend WithEvents ThisApplication As Microsoft.Office.Interop.Word.Application

    Friend WithEvents DocAuthorName As Microsoft.Office.Tools.Word.Controls.TextBox

    Friend WithEvents SaveAuthorName As Microsoft.Office.Tools.Word.Controls.Button

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Public Sub New(ByVal RuntimeCallback As Microsoft.VisualStudio.Tools.Applications.Runtime.IRuntimeServiceProvider)
        MyBase.New(CType(RuntimeCallback.GetService(GetType(Microsoft.VisualStudio.Tools.Applications.Runtime.IHostItemProvider)), Microsoft.VisualStudio.Tools.Applications.Runtime.IHostItemProvider), RuntimeCallback, "ThisDocument", Nothing, "ThisDocument")
        Me.RuntimeCallback = RuntimeCallback
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Public Sub Initialize() Implements Microsoft.VisualStudio.Tools.Applications.Runtime.IStartup.Initialize
        Me.HostItemHost = CType(Me.RuntimeCallback.GetService(GetType(Microsoft.VisualStudio.Tools.Applications.Runtime.IHostItemProvider)), Microsoft.VisualStudio.Tools.Applications.Runtime.IHostItemProvider)
        Me.DataHost = CType(Me.RuntimeCallback.GetService(GetType(Microsoft.VisualStudio.Tools.Applications.Runtime.ICachedDataProvider)), Microsoft.VisualStudio.Tools.Applications.Runtime.ICachedDataProvider)
        Dim hostObject As Object = Nothing
        Me.HostItemHost.GetHostObject("Microsoft.Office.Interop.Word.Application", "Application", hostObject)
        Me.ThisApplication = CType(hostObject, Microsoft.Office.Interop.Word.Application)
        Globals.ThisDocument = Me
        System.Windows.Forms.Application.EnableVisualStyles()
        Me.InitializeCachedData()
        Me.InitializeControls()
        Me.InitializeComponents()
        Me.InitializeData()
        Me.BeginInitialization()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Public Sub FinishInitialization() Implements Microsoft.VisualStudio.Tools.Applications.Runtime.IStartup.FinishInitialization
        Me.OnStartup()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Public Sub InitializeDataBindings() Implements Microsoft.VisualStudio.Tools.Applications.Runtime.IStartup.InitializeDataBindings
        Me.BindToData()
        Me.EndInitialization()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Public Overrides Sub OnShutdown() Implements Microsoft.VisualStudio.Tools.Applications.Runtime.IStartup.OnShutdown
        Me.TableArea.Dispose()
        Me.DocumentSummary.Dispose()
        Me.DocumentHeading.Dispose()
        Me.ActionsPane.Dispose()
        MyBase.OnShutdown()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub InitializeCachedData()
        If (Me.DataHost Is Nothing) Then
            Return
        End If
        If Me.DataHost.IsCacheInitialized Then
            Me.DataHost.FillCachedData(Me)
        End If
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub InitializeData()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub BindToData()
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
    Private Sub StartCaching(ByVal MemberName As String)
        Me.DataHost.StartCaching(Me, MemberName)
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
    Private Sub StopCaching(ByVal MemberName As String)
        Me.DataHost.StopCaching(Me, MemberName)
    End Sub

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
    Private Function IsCached(ByVal MemberName As String) As Boolean
        Return Me.DataHost.IsCached(Me, MemberName)
    End Function

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub BeginInitialization()
        Me.BeginInit()
        Me.ActionsPane.BeginInit()
        Me.DocumentHeading.BeginInit()
        Me.DocumentSummary.BeginInit()
        Me.TableArea.BeginInit()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub EndInitialization()
        Me.TableArea.EndInit()
        Me.DocumentSummary.EndInit()
        Me.DocumentHeading.EndInit()
        Me.ActionsPane.EndInit()
        Me.EndInit()
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub InitializeControls()
        Me.ActionsPane = New Microsoft.Office.Tools.ActionsPane(Me.HostItemHost, Me.RuntimeCallback, "ActionsPane", Me, "ActionsPane")
        Me.DocumentHeading = New Microsoft.Office.Tools.Word.Bookmark(Me.HostItemHost, Me.RuntimeCallback, "DocumentHeading", Me, "DocumentHeading")
        Me.DocumentSummary = New Microsoft.Office.Tools.Word.Bookmark(Me.HostItemHost, Me.RuntimeCallback, "DocumentSummary", Me, "DocumentSummary")
        Me.TableArea = New Microsoft.Office.Tools.Word.Bookmark(Me.HostItemHost, Me.RuntimeCallback, "TableArea", Me, "TableArea")
        Me.DocAuthorName = New Microsoft.Office.Tools.Word.Controls.TextBox(Me.HostItemHost, Me.RuntimeCallback, "1D9EB2BC613DB814FF518FF811B43FA75B8AD1", "1D9EB2BC613DB814FF518FF811B43FA75B8AD1", Me, "DocAuthorName")
        Me.SaveAuthorName = New Microsoft.Office.Tools.Word.Controls.Button(Me.HostItemHost, Me.RuntimeCallback, "2375521F824E5E24DD0292C5210B0CD5DC02B2", "2375521F824E5E24DD0292C5210B0CD5DC02B2", Me, "SaveAuthorName")
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Sub InitializeComponents()
        CType(Me.ActionsPane, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DocumentHeading, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DocumentSummary, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TableArea, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'DocAuthorName
        '
        Me.DocAuthorName.Name = "DocAuthorName"
        '
        'SaveAuthorName
        '
        Me.SaveAuthorName.Name = "SaveAuthorName"
        Me.SaveAuthorName.Text = "Save Author Name"
        '
        'ThisDocument
        '
        CType(Me.ActionsPane, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DocumentHeading, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DocumentSummary, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TableArea, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
        Me.DocAuthorName.BindingContext = Me.BindingContext
        Me.SaveAuthorName.BindingContext = Me.BindingContext
    End Sub

    '''
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)> _
    Private Function NeedsFill(ByVal MemberName As String) As Boolean
        Return Me.DataHost.NeedsFill(Me, MemberName)
    End Function
End Class

'''
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Partial Friend NotInheritable Class Globals

    Private Shared _ThisDocument As ThisDocument

    Friend Shared Property ThisDocument() As ThisDocument
        Get
            Return _ThisDocument
        End Get
        Set(ByVal value As ThisDocument)
            If (_ThisDocument Is Nothing) Then
                _ThisDocument = value
            Else
                Throw New System.NotSupportedException
            End If
        End Set
    End Property
End Class