Update 20230215
This commit is contained in:
@@ -380,15 +380,18 @@ Public Class Behandlung
|
||||
End Sub
|
||||
|
||||
Sub enable_disable_tabs(ByVal enable As Boolean)
|
||||
Me.SuperTabControl1.Tabs(1).Enabled = enable
|
||||
Me.SuperTabControl1.Tabs(0).Enabled = enable
|
||||
Me.SuperTabControl1.Visible = enable
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs(2).Visible = False
|
||||
End If
|
||||
'Me.SuperTabControl1.Tabs(0).Focus()
|
||||
Try
|
||||
Me.SuperTabControl1.Tabs(1).Enabled = enable
|
||||
Me.SuperTabControl1.Tabs(0).Enabled = enable
|
||||
Me.SuperTabControl1.Visible = enable
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs(2).Visible = False
|
||||
End If
|
||||
'Me.SuperTabControl1.Tabs(0).Focus()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user