Ich hatte damals GWBasic gelernt, bin dann auf QBasic ist ja fast das gleiche, dann auf Visual Basic 6.0 das war schon eine Umstellung von VB 6.0 war es dann Visual Basic.net des war wieder eine sehr große Umstellung jetzt möchte ich noch so gut wie es geht
mit WPF es machen.
Hier schon man mein Code
xaml
<RibbonWindow x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:local="clr-namespace:WpfApp8"
mc:Ignorable="d"
Title="MainWindow" Height="450" Width="800">
<Grid>
<Ribbon x:Name="Ribbon1" Height="140" VerticalAlignment="Top">
<Ribbon.ApplicationMenu>
<RibbonApplicationMenu x:Name="Ribbon_Menu" LargeImageSource="Images/Ribbon/Ribbon_Menu.png" SmallImageSource="Images/Ribbon/Ribbon_Menu.png">
<RibbonApplicationMenu.FooterPaneContent>
<RibbonButton x:Name="Ribbon_Menu_Beenden"
Label="Beenden"
SmallImageSource="Images/Ribbon/Exit_40.png"
HorizontalAlignment="Right"/>
</RibbonApplicationMenu.FooterPaneContent>
<RibbonApplicationMenuItem x:Name="Ribbon_Menu_Einstellungen" Header="_Einstellungen" ImageSource="Images/Ribbon/Einstellung.png"/>
</RibbonApplicationMenu>
</Ribbon.ApplicationMenu>
<Ribbon.HelpPaneContent>
<RibbonButton x:Name="Ribbon_Klappen"
Content="Klappen"
SmallImageSource="Images/Ribbon/Ribbon_Pfeiloben.png"/>
</Ribbon.HelpPaneContent>
<RibbonTab x:Name="Ribbon_Tab_Start" Header="_Start">
<RibbonGroup x:Name="Ribbon_Tab_Start_Gruppe_Test" Header="_Test" Height="88" Margin="0" VerticalAlignment="Top" Width="258">
<RibbonButton x:Name="RibbonButton_UEbersicht" Content="RibbonButton" HorizontalAlignment="Left" Height="59" Margin="0,5,-71,-60" VerticalAlignment="Top" Width="75" Label="_Übersicht" LargeImageSource="Images/Ribbon/UEbersicht_40.png" ToolTipTitle="ist ein Titel" ToolTipDescription="das ist die Beschreibung" ToolTipImageSource="Images/Ribbon/UEbersicht_40.png" ToolTipFooterTitle="test Footer" ToolTipFooterDescription="Footer Beschreibung" ToolTipFooterImageSource="Images/Ribbon/Einstellung.png"/>
</RibbonGroup>
</RibbonTab>
</Ribbon>
</Grid>
</RibbonWindow>
VB Code
Class MainWindow
Private Sub Ribbon_Klappen_Click(sender As Object, e As RoutedEventArgs) Handles Ribbon_Klappen.Click
If Ribbon1.IsMinimized = False Then
Ribbon1.IsMinimized = True
DockingManager1.Margin = New Thickness(0, 45, 0, 0)
'TODO: Hier muss sich das Bild verändern in RIBBON
' Ribbon_Klappen.SmallImageSource = New BitmapImage(New Uri("Images/Ribbon/Pfeiloben.png"))
ElseIf Ribbon1.IsMinimized = True Then
Ribbon1.IsMinimized = False
DockingManager1.Margin = New Thickness(0, 140, 0, 0)
' Ribbon_Klappen.SmallImageSource = New BitmapImage(New Uri("Images/Ribbon/Pfeilunten.png"))
End If
End Sub
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
If Not System.IO.File.Exists("Einstellung.db") Then
Dim dbErstellen As New Klasse_DB
dbErstellen.Einstellung_DB_Erstellen()
dbErstellen.Einstellung_DB_Allgemein_grundeinstellung()
End If
' Me.SetValue(ToolTipService.IsEnabledProperty, False)
' ToolTipService.SetIsEnabled(ToolTip, False)
End Sub
Private Sub RibbonButton_UEbersicht_Click(sender As Object, e As RoutedEventArgs) Handles RibbonButton_UEbersicht.Click
Dim Form1 = New AvalonDock.Layout.LayoutAnchorable
Form1.Title = "Übersicht"
Form1.CanHide = True
Form1.CanClose = True
Form1.ContentId = "Form1"
Form1.IsSelected = True
Form1.Content = MyControl
myLayoutDocumentPane.Children.Add(Form1)
End Sub
Private Sub Ribbon_Menu_Einstellungen_Click(sender As Object, e As RoutedEventArgs) Handles Ribbon_Menu_Einstellungen.Click
Dim Einstellungen_starten As New Einstellung_Hauptform
Einstellungen_starten.Show()
End Sub
End Class
