mRemoteNG/mRemoteV1/UI/UI.Window.ADImport.vb

Imports WeifenLuo.WinFormsUI.Docking

Namespace UI
    Namespace Window
        Public Class ADImport
            Inherits UI.Window.Base

#Region "Form Init"
            Friend WithEvents btnCancel As System.Windows.Forms.Button
            Friend WithEvents btnOK As System.Windows.Forms.Button
            Friend WithEvents txtDomain As System.Windows.Forms.TextBox
            Friend WithEvents lblDomain As System.Windows.Forms.Label
            Friend WithEvents btnChangeDomain As System.Windows.Forms.Button
            Friend WithEvents AD As ADTree.ADtree
            Friend WithEvents Label2 As System.Windows.Forms.Label

            Private Sub InitializeComponent()
                Me.btnOK = New System.Windows.Forms.Button
                Me.btnCancel = New System.Windows.Forms.Button
                Me.txtDomain = New System.Windows.Forms.TextBox
                Me.lblDomain = New System.Windows.Forms.Label
                Me.btnChangeDomain = New System.Windows.Forms.Button
                Me.Label2 = New System.Windows.Forms.Label
                Me.AD = New ADTree.ADtree
                Me.SuspendLayout()
                '
                'btnOK
                '
                Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.btnOK.Location = New System.Drawing.Point(372, 347)
                Me.btnOK.Name = "btnOK"
                Me.btnOK.Size = New System.Drawing.Size(75, 23)
                Me.btnOK.TabIndex = 100
                Me.btnOK.Text = Language.Base.Button_OK
                Me.btnOK.UseVisualStyleBackColor = True
                '
                'btnCancel
                '
                Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
                Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.btnCancel.Location = New System.Drawing.Point(453, 347)
                Me.btnCancel.Name = "btnCancel"
                Me.btnCancel.Size = New System.Drawing.Size(75, 23)
                Me.btnCancel.TabIndex = 110
                Me.btnCancel.Text = Language.Base.Button_Cancel
                Me.btnCancel.UseVisualStyleBackColor = True
                '
                'txtDomain
                '
                Me.txtDomain.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.txtDomain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
                Me.txtDomain.Location = New System.Drawing.Point(57, 348)
                Me.txtDomain.Name = "txtDomain"
                Me.txtDomain.Size = New System.Drawing.Size(100, 20)
                Me.txtDomain.TabIndex = 30
                '
                'lblDomain
                '
                Me.lblDomain.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.lblDomain.AutoSize = True
                Me.lblDomain.Location = New System.Drawing.Point(5, 351)
                Me.lblDomain.Name = "lblDomain"
                Me.lblDomain.Size = New System.Drawing.Size(46, 13)
                Me.lblDomain.TabIndex = 20
                Me.lblDomain.Text = Language.Base.Props_Domain & ":"
                '
                'btnChangeDomain
                '
                Me.btnChangeDomain.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.btnChangeDomain.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.btnChangeDomain.Location = New System.Drawing.Point(163, 347)
                Me.btnChangeDomain.Name = "btnChangeDomain"
                Me.btnChangeDomain.Size = New System.Drawing.Size(75, 23)
                Me.btnChangeDomain.TabIndex = 40
                Me.btnChangeDomain.Text = Language.Base.Change
                Me.btnChangeDomain.UseVisualStyleBackColor = True
                '
                'Label2
                '
                Me.Label2.AutoSize = True
                Me.Label2.Location = New System.Drawing.Point(-190, 349)
                Me.Label2.Name = "Label2"
                Me.Label2.Size = New System.Drawing.Size(44, 13)
                Me.Label2.TabIndex = 3
                Me.Label2.Text = Language.Base.Change
                '
                'AD
                '
                Me.AD.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.AD.Domain = ""
                Me.AD.Location = New System.Drawing.Point(0, 0)
                Me.AD.Name = "AD"
                Me.AD.Size = New System.Drawing.Size(530, 341)
                Me.AD.TabIndex = 10
                '
                'ADImport
                '
                Me.AcceptButton = Me.btnOK
                Me.CancelButton = Me.btnCancel
                Me.ClientSize = New System.Drawing.Size(530, 373)
                Me.Controls.Add(Me.AD)
                Me.Controls.Add(Me.Label2)
                Me.Controls.Add(Me.lblDomain)
                Me.Controls.Add(Me.txtDomain)
                Me.Controls.Add(Me.btnChangeDomain)
                Me.Controls.Add(Me.btnCancel)
                Me.Controls.Add(Me.btnOK)
                Me.Icon = Global.mRemote.My.Resources.Resources.ActiveDirectory_Icon
                Me.Name = "ADImport"
                Me.TabText = "Active Directory Import"
                Me.Text = "Active Directory Import"
                Me.ResumeLayout(False)
                Me.PerformLayout()

            End Sub
#End Region

#Region "Public Methods"
            Public Sub New(ByVal Panel As DockContent)
                Me.WindowType = Type.ADImport
                Me.DockPnl = Panel
                Me.InitializeComponent()
            End Sub
#End Region

#Region "Form Stuff"
            Private Sub ADImport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
                ApplyLanguage()
            End Sub

            Private Sub ApplyLanguage()
                btnOK.Text = Language.Base.Button_OK
                btnCancel.Text = Language.Base.Button_Cancel
                lblDomain.Text = Language.Base.Props_Domain & ":"
                btnChangeDomain.Text = Language.Base.Change
                Label2.Text = Language.Base.Change
            End Sub
#End Region

#Region "Public Properties"
            Private _ADPath As String
            Public Property ADPath() As String
                Get
                    Return _ADPath
                End Get
                Set(ByVal value As String)
                    _ADPath = value
                End Set
            End Property
#End Region

            Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
                Me._ADPath = Me.AD.ADPath
                mRemote.Tree.Node.AddADNodes(Me._ADPath)
                Me.DialogResult = Windows.Forms.DialogResult.OK
                Me.Close()
            End Sub

            Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
                Me._ADPath = ""
                Me.DialogResult = Windows.Forms.DialogResult.Cancel
                Me.Close()
            End Sub

            Private Sub btnChangeDomain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangeDomain.Click
                Me.AD.Domain = txtDomain.Text
                Me.AD.Refresh()
            End Sub
        End Class
    End Namespace
End Namespace