Public Class frmDescription

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        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.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub frmDescription_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown, txtDescription.KeyDown, txtName.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.DialogResult = Windows.Forms.DialogResult.Cancel
            Me.Close()
        End If
    End Sub

    Private Sub frmDescription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.c1db.Splits(0).DisplayColumns(0).Width = 0
        Me.c1db.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1db.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1db.Columns(1).Caption = "Datenbankname"
        Me.c1db.Columns(2).Caption = "Beschreibung"

        Me.c1appl.Splits(0).DisplayColumns(0).Width = 0
        Me.c1appl.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1appl.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1appl.Columns(1).Caption = "Applikation"
        Me.c1appl.Columns(2).Caption = "Beschreibung"

        Me.c1virt.Splits(0).DisplayColumns(0).Width = 0
        Me.c1virt.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1virt.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 2
        Me.c1virt.Columns(1).Caption = "Servername"
        Me.c1virt.Columns(2).Caption = "Beschreibung"

        Me.C1SSt.Splits(0).DisplayColumns(0).Width = 0
        Me.C1SSt.Splits(0).DisplayColumns(1).Width = Me.c1virt.ClientRectangle.Width / 3
        Me.C1SSt.Splits(0).DisplayColumns(2).Width = Me.c1virt.ClientRectangle.Width / 3
        Me.C1SSt.Splits(0).DisplayColumns(3).Width = Me.c1virt.ClientRectangle.Width / 3
        Me.C1SSt.Columns(1).Caption = "Schnittstelle"
        Me.C1SSt.Columns(2).Caption = "Beschreibung"
        Me.C1SSt.Columns(3).Caption = "SST-Typ"

        Me.txtName.Focus()
        Me.txtName.Select()
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub
End Class