jj 26.09 activate calendar tab on maximize
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user