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
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
For Each page As RibbonPage In Me.ribbonMain.Pages
For Each page As RibbonPage In e.MergeOwner.MergedPages
If page.Name = "pageCalendar" Then
Me.ribbonMain.SelectedPage = page
e.MergeOwner.SelectedPage = page
End If
Next
End If