Click here to Skip to main content
15,880,651 members
Search within:


Articles / Game Development
 

Sound in games - Rooms

Rate me:
Please Sign up or sign in to vote.
5.00/5 (7 votes)
31 Jul 2012CPOL16 min read 31.3K   571   14  
How to calculate a reverbration time in a room
 
#ExternalChecksum("..\..\..\frmAvstraaling.xaml","{406ea660-64cf-4c82-b6f0-42d48172a799}","B71E95CBBEEE4227A68D14E405A286B5")
'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.17379
'
'     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

Imports SinRead_2.clsConverter
Imports System
Imports System.Diagnostics
Imports System.Windows
Imports System.Windows.Automation
Imports System.Windows.Controls
Imports System.Windows.Controls.Primitives
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Ink
Imports System.Windows.Input
Imports System.Windows.Markup
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Media.Effects
Imports System.Windows.Media.Imaging
Imports System.Windows.Media.Media3D
Imports System.Windows.Media.TextFormatting
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Shell


'''<summary>
'''frmAvstraaling
'''</summary>
<Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>  _
Partial Public Class frmAvstraaling
    Inherits System.Windows.Window
    Implements System.Windows.Markup.IComponentConnector, System.Windows.Markup.IStyleConnector
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",8)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Window1 As frmAvstraaling
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",57)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents TabControl1 As System.Windows.Controls.TabControl
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",58)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents tabFiles As System.Windows.Controls.TabItem
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",62)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents GroupBox2 As System.Windows.Controls.GroupBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",65)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtDir As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",66)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnBrowse As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",68)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lstFiles As System.Windows.Controls.ListView
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",78)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents GroupBox1 As System.Windows.Controls.GroupBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",81)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lblTitle As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",82)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lblSenderRoom As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",85)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtTitle As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",86)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtSender As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",89)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lblVolume As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",90)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lblDate As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",93)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtVolume As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",94)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtDate As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",99)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents GroupBox6 As System.Windows.Controls.GroupBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",102)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnAddBGS As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",103)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnRemoveBGS As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",104)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label12 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",105)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents comBgsDate As System.Windows.Controls.ComboBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",106)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label13 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",107)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents comBGS As System.Windows.Controls.ComboBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",113)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label14 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",114)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtSelectBGS As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",118)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lstBGS As System.Windows.Controls.ListView
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",139)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents GroupBox3 As System.Windows.Controls.GroupBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",142)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnAddSender As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",143)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnRemoveSender As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",144)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label1 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",145)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents comSenderDate As System.Windows.Controls.ComboBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",146)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label2 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",147)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents comSender As System.Windows.Controls.ComboBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",151)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label3 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",152)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtSelSender As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",154)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lstSender As System.Windows.Controls.ListView
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",175)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents GroupBox4 As System.Windows.Controls.GroupBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",178)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnAddRev As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",179)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnRemoveRev As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",180)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label9 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",181)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents comRevDate As System.Windows.Controls.ComboBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",182)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label8 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",183)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents comRev As System.Windows.Controls.ComboBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",188)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Label10 As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",189)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents txtSelectRev As System.Windows.Controls.TextBox
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",192)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lstRev As System.Windows.Controls.ListView
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",194)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgwRev As System.Windows.Controls.GridView
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",209)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents tabSender As System.Windows.Controls.TabItem
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",211)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgSenderAverage As System.Windows.Controls.DataGrid
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",212)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgSender As System.Windows.Controls.DataGrid
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",217)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents tabRev As System.Windows.Controls.TabItem
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",219)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgRevAverage As System.Windows.Controls.DataGrid
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",220)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgRev As System.Windows.Controls.DataGrid
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",226)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents tabBGS As System.Windows.Controls.TabItem
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",228)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgBGSaverage As System.Windows.Controls.DataGrid
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",229)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents dgBGS As System.Windows.Controls.DataGrid
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",238)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lblOutputvalue As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",239)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents lblCalcValue As System.Windows.Controls.Label
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",240)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnCalculate As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",241)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents btnCancel As System.Windows.Controls.Button
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",242)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents Menu1 As System.Windows.Controls.Menu
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",244)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents mnuRemoveAllInFileList As System.Windows.Controls.MenuItem
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",246)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents mnuCalculate As System.Windows.Controls.MenuItem
    
    #End ExternalSource
    
    
    #ExternalSource("..\..\..\frmAvstraaling.xaml",247)
    <System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")>  _
    Friend WithEvents mnuClose As System.Windows.Controls.MenuItem
    
    #End ExternalSource
    
    Private _contentLoaded As Boolean
    
    '''<summary>
    '''InitializeComponent
    '''</summary>
    <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     System.CodeDom.Compiler.GeneratedCodeAttribute("PresentationBuildTasks", "4.0.0.0")>  _
    Public Sub InitializeComponent() Implements System.Windows.Markup.IComponentConnector.InitializeComponent
        If _contentLoaded Then
            Return
        End If
        _contentLoaded = true
        Dim resourceLocater As System.Uri = New System.Uri("/WpfReverberationTime;component/frmavstraaling.xaml", System.UriKind.Relative)
        
        #ExternalSource("..\..\..\frmAvstraaling.xaml",1)
        System.Windows.Application.LoadComponent(Me, resourceLocater)
        
        #End ExternalSource
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     System.CodeDom.Compiler.GeneratedCodeAttribute("PresentationBuildTasks", "4.0.0.0"),  _
     System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never),  _
     System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Design", "CA1033:InterfaceMethodsShouldBeCallableByChildTypes"),  _
     System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Maintainability", "CA1502:AvoidExcessiveComplexity"),  _
     System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1800:DoNotCastUnnecessarily")>  _
    Sub System_Windows_Markup_IComponentConnector_Connect(ByVal connectionId As Integer, ByVal target As Object) Implements System.Windows.Markup.IComponentConnector.Connect
        If (connectionId = 1) Then
            Me.Window1 = CType(target,frmAvstraaling)
            Return
        End If
        If (connectionId = 3) Then
            Me.TabControl1 = CType(target,System.Windows.Controls.TabControl)
            Return
        End If
        If (connectionId = 4) Then
            Me.tabFiles = CType(target,System.Windows.Controls.TabItem)
            Return
        End If
        If (connectionId = 5) Then
            Me.GroupBox2 = CType(target,System.Windows.Controls.GroupBox)
            Return
        End If
        If (connectionId = 6) Then
            Me.txtDir = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 7) Then
            Me.btnBrowse = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 8) Then
            Me.lstFiles = CType(target,System.Windows.Controls.ListView)
            Return
        End If
        If (connectionId = 9) Then
            Me.GroupBox1 = CType(target,System.Windows.Controls.GroupBox)
            Return
        End If
        If (connectionId = 10) Then
            Me.lblTitle = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 11) Then
            Me.lblSenderRoom = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 12) Then
            Me.txtTitle = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 13) Then
            Me.txtSender = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 14) Then
            Me.lblVolume = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 15) Then
            Me.lblDate = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 16) Then
            Me.txtVolume = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 17) Then
            Me.txtDate = CType(target,System.Windows.Controls.TextBox)
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",94)
            AddHandler Me.txtDate.TextInput, New System.Windows.Input.TextCompositionEventHandler(AddressOf Me.txtDate_TextInput)
            
            #End ExternalSource
            Return
        End If
        If (connectionId = 18) Then
            Me.GroupBox6 = CType(target,System.Windows.Controls.GroupBox)
            Return
        End If
        If (connectionId = 19) Then
            Me.btnAddBGS = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 20) Then
            Me.btnRemoveBGS = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 21) Then
            Me.Label12 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 22) Then
            Me.comBgsDate = CType(target,System.Windows.Controls.ComboBox)
            Return
        End If
        If (connectionId = 23) Then
            Me.Label13 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 24) Then
            Me.comBGS = CType(target,System.Windows.Controls.ComboBox)
            Return
        End If
        If (connectionId = 25) Then
            Me.Label14 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 26) Then
            Me.txtSelectBGS = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 27) Then
            Me.lstBGS = CType(target,System.Windows.Controls.ListView)
            Return
        End If
        If (connectionId = 28) Then
            Me.GroupBox3 = CType(target,System.Windows.Controls.GroupBox)
            Return
        End If
        If (connectionId = 29) Then
            Me.btnAddSender = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 30) Then
            Me.btnRemoveSender = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 31) Then
            Me.Label1 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 32) Then
            Me.comSenderDate = CType(target,System.Windows.Controls.ComboBox)
            Return
        End If
        If (connectionId = 33) Then
            Me.Label2 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 34) Then
            Me.comSender = CType(target,System.Windows.Controls.ComboBox)
            Return
        End If
        If (connectionId = 35) Then
            Me.Label3 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 36) Then
            Me.txtSelSender = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 37) Then
            Me.lstSender = CType(target,System.Windows.Controls.ListView)
            Return
        End If
        If (connectionId = 38) Then
            Me.GroupBox4 = CType(target,System.Windows.Controls.GroupBox)
            Return
        End If
        If (connectionId = 39) Then
            Me.btnAddRev = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 40) Then
            Me.btnRemoveRev = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 41) Then
            Me.Label9 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 42) Then
            Me.comRevDate = CType(target,System.Windows.Controls.ComboBox)
            Return
        End If
        If (connectionId = 43) Then
            Me.Label8 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 44) Then
            Me.comRev = CType(target,System.Windows.Controls.ComboBox)
            Return
        End If
        If (connectionId = 45) Then
            Me.Label10 = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 46) Then
            Me.txtSelectRev = CType(target,System.Windows.Controls.TextBox)
            Return
        End If
        If (connectionId = 47) Then
            Me.lstRev = CType(target,System.Windows.Controls.ListView)
            Return
        End If
        If (connectionId = 48) Then
            Me.dgwRev = CType(target,System.Windows.Controls.GridView)
            Return
        End If
        If (connectionId = 49) Then
            Me.tabSender = CType(target,System.Windows.Controls.TabItem)
            Return
        End If
        If (connectionId = 50) Then
            Me.dgSenderAverage = CType(target,System.Windows.Controls.DataGrid)
            Return
        End If
        If (connectionId = 51) Then
            Me.dgSender = CType(target,System.Windows.Controls.DataGrid)
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",212)
            AddHandler Me.dgSender.PreviewKeyDown, New System.Windows.Input.KeyEventHandler(AddressOf Me.dgSender_PreviewKeyDown)
            
            #End ExternalSource
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",212)
            AddHandler Me.dgSender.MouseLeftButtonUp, New System.Windows.Input.MouseButtonEventHandler(AddressOf Me.dgSender_MouseLeftButtonUp)
            
            #End ExternalSource
            Return
        End If
        If (connectionId = 52) Then
            Me.tabRev = CType(target,System.Windows.Controls.TabItem)
            Return
        End If
        If (connectionId = 53) Then
            Me.dgRevAverage = CType(target,System.Windows.Controls.DataGrid)
            Return
        End If
        If (connectionId = 54) Then
            Me.dgRev = CType(target,System.Windows.Controls.DataGrid)
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",220)
            AddHandler Me.dgRev.MouseLeftButtonUp, New System.Windows.Input.MouseButtonEventHandler(AddressOf Me.dgRev_MouseLeftButtonUp)
            
            #End ExternalSource
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",220)
            AddHandler Me.dgRev.PreviewKeyDown, New System.Windows.Input.KeyEventHandler(AddressOf Me.dgRev_PreviewKeyDown)
            
            #End ExternalSource
            Return
        End If
        If (connectionId = 55) Then
            Me.tabBGS = CType(target,System.Windows.Controls.TabItem)
            Return
        End If
        If (connectionId = 56) Then
            Me.dgBGSaverage = CType(target,System.Windows.Controls.DataGrid)
            Return
        End If
        If (connectionId = 57) Then
            Me.dgBGS = CType(target,System.Windows.Controls.DataGrid)
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",229)
            AddHandler Me.dgBGS.MouseLeftButtonUp, New System.Windows.Input.MouseButtonEventHandler(AddressOf Me.dgBGS_MouseLeftButtonUp)
            
            #End ExternalSource
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",229)
            AddHandler Me.dgBGS.PreviewKeyDown, New System.Windows.Input.KeyEventHandler(AddressOf Me.dgBGS_PreviewKeyDown)
            
            #End ExternalSource
            Return
        End If
        If (connectionId = 58) Then
            Me.lblOutputvalue = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 59) Then
            Me.lblCalcValue = CType(target,System.Windows.Controls.Label)
            Return
        End If
        If (connectionId = 60) Then
            Me.btnCalculate = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 61) Then
            Me.btnCancel = CType(target,System.Windows.Controls.Button)
            Return
        End If
        If (connectionId = 62) Then
            Me.Menu1 = CType(target,System.Windows.Controls.Menu)
            Return
        End If
        If (connectionId = 63) Then
            Me.mnuRemoveAllInFileList = CType(target,System.Windows.Controls.MenuItem)
            Return
        End If
        If (connectionId = 64) Then
            Me.mnuCalculate = CType(target,System.Windows.Controls.MenuItem)
            Return
        End If
        If (connectionId = 65) Then
            Me.mnuClose = CType(target,System.Windows.Controls.MenuItem)
            Return
        End If
        If (connectionId = 66) Then
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",251)
            AddHandler CType(target,System.Windows.Controls.MenuItem).Click, New System.Windows.RoutedEventHandler(AddressOf Me.MenuItem_Click)
            
            #End ExternalSource
            Return
        End If
        If (connectionId = 67) Then
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",254)
            AddHandler CType(target,System.Windows.Controls.MenuItem).Click, New System.Windows.RoutedEventHandler(AddressOf Me.MenuItem_Click_2)
            
            #End ExternalSource
            Return
        End If
        If (connectionId = 68) Then
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",257)
            AddHandler CType(target,System.Windows.Controls.MenuItem).Click, New System.Windows.RoutedEventHandler(AddressOf Me.MenuItem_Click_3)
            
            #End ExternalSource
            Return
        End If
        Me._contentLoaded = true
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     System.CodeDom.Compiler.GeneratedCodeAttribute("PresentationBuildTasks", "4.0.0.0"),  _
     System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never),  _
     System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Design", "CA1033:InterfaceMethodsShouldBeCallableByChildTypes"),  _
     System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1800:DoNotCastUnnecessarily"),  _
     System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Maintainability", "CA1502:AvoidExcessiveComplexity")>  _
    Sub System_Windows_Markup_IStyleConnector_Connect(ByVal connectionId As Integer, ByVal target As Object) Implements System.Windows.Markup.IStyleConnector.Connect
        Dim eventSetter As System.Windows.EventSetter
        If (connectionId = 2) Then
            eventSetter = New System.Windows.EventSetter()
            eventSetter.Event = System.Windows.UIElement.GotFocusEvent
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",36)
            eventSetter.Handler = New System.Windows.RoutedEventHandler(AddressOf Me.TextBox_GotFocus)
            
            #End ExternalSource
            CType(target,System.Windows.Style).Setters.Add(eventSetter)
            eventSetter = New System.Windows.EventSetter()
            eventSetter.Event = System.Windows.UIElement.GotMouseCaptureEvent
            
            #ExternalSource("..\..\..\frmAvstraaling.xaml",37)
            eventSetter.Handler = New System.Windows.Input.MouseEventHandler(AddressOf Me.TextBox_GotFocus)
            
            #End ExternalSource
            CType(target,System.Windows.Style).Setters.Add(eventSetter)
        End If
    End Sub
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Kenneth Haugland
Chief Technology Officer
Norway Norway
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

Permalink
Advertise
Privacy
Cookies
Terms of Use
Layout: fixed | fluid

Posted 31 Jul 2012

Article Copyright 2012 by Kenneth Haugland
Everything else Copyright © CodeProject, 1999-2024

Web04 2.8:2024-04-02:1