30 lines
1.2 KiB
Plaintext
30 lines
1.2 KiB
Plaintext
Public Class frmOffenePlaetzen
|
|
|
|
Private Sub frmOffenePlaetzen_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
Globals.OffenePlaetze_Visible = False
|
|
End Sub
|
|
|
|
Private Sub frmOffenePlaetzen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Sub Refresh_Data(ByRef d As Object)
|
|
Me.C1FreiePlätze.DataSource = Nothing
|
|
Me.C1FreiePlätze.DataSource = d
|
|
Me.C1FreiePlätze.DataMember = d.tablename
|
|
Try
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(0).Visible = False
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(2).Visible = False
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(3).Visible = False
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(6).Visible = False
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(1).Width = 200
|
|
Me.C1FreiePlätze.Columns(4).Caption = "Zeit"
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(5).Width = 50
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |