You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
2.5 KiB
54 lines
2.5 KiB
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 |