[Visual Basic] Private Sub cbaktiveVertraege_CheckedChanged( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
cbaktiveVertraege.CheckStateChanged
[Visual Basic] Private Sub cbaktiveVertraege_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbaktiveVertraege.CheckStateChanged
Try
If Me.IsOnLoad Then Exit Sub
If Not Me.TreeStruktur.SelectedNode Is Nothing And Not Me.PartnerNode Is Nothing Then
Me.TreeStruktur.SelectedNode = Me.PartnerNode
End If
TreeStrukturAktualisierenToolStripMenuItem_Click(sender, e)
Select Case Me.cbaktiveVertraege.CheckState
Case CheckState.Checked
C1Vertragselemente.Columns("aktiv").FilterText = True
Case CheckState.Unchecked
C1Vertragselemente.Columns("aktiv").FilterText = False
Case CheckState.Checked
C1Vertragselemente.Columns("aktiv").FilterText = ""
End Select
Catch ex As Exception
Me.TreeStruktur.Enabled = False
Me.TreeStruktur.BeginUpdate()
End Try
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition