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.
38 lines
1.7 KiB
38 lines
1.7 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_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.txtName.Focus()
|
|
|
|
End Sub
|
|
|
|
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
|
|
|
|
End Sub
|
|
End Class |