[编程交流] 将命令添加到功能区按钮

  
Dim pan1button1 As New RibbonButton()             
pan1button1.Text = "STORE"             
pan1button1.ShowText = True             
pan1button1.ShowImage = True             
pan1button1.Image = Images.getBitmap(My.Resources.Store)            
pan1button1.LargeImage = Images.getBitmap(My.Resources.Store_L)            
pan1button1.Orientation = System.Windows.Controls.Orientation.Vertical             
pan1button1.Size = RibbonItemSize.Large             
pan1button1.CommandHandler = New RibbonCommandHandler