jj 26.09 activate calendar tab on maximize

This commit is contained in:
JenneJ
2016-09-26 16:27:46 +02:00
parent c4c19ea229
commit 3fa63f2a16

View File

@@ -773,11 +773,11 @@ Public Class frmMain
End Sub End Sub
Private Sub ribbonMain_Merge(sender As Object, e As RibbonMergeEventArgs) Handles ribbonMain.Merge Private Sub ribbonMain_Merge(sender As Object, e As RibbonMergeEventArgs) Handles ribbonMain.Merge
'TODO: ribbonMain.Pages enhtält immer noch nicht die pageCalendar >:( ' Zeigt im Ribbon Control den Kalender-Tab an, wenn der Kalender Maximiert wurde
If e.MergedChild.Name = "ribbonCalendar" Then If e.MergedChild.Name = "ribbonCalendar" Then
For Each page As RibbonPage In Me.ribbonMain.Pages For Each page As RibbonPage In e.MergeOwner.MergedPages
If page.Name = "pageCalendar" Then If page.Name = "pageCalendar" Then
Me.ribbonMain.SelectedPage = page e.MergeOwner.SelectedPage = page
End If End If
Next Next
End If End If