2 Answers, 1 is accepted
Hello, Andy,
The following forum thread demonstrates a sample approach how to add a custom button to the backstage view of the ribbon UI for RadSpreadsheet:
A similar approach can be followed for the Save button as well (Name = "backstageButtonSave") and add a button with the default file name or any other custom logic. Please give it a try and see how it works on your end.
Regards,
Dess | Tech Support Engineer, Principal
Progress Telerik
Love the Telerik and Kendo UI products and believe more people should try them? Invite a fellow developer to become a Progress customer and each of you can get a $50 Amazon gift voucher.
Rank 1
Iron
Hi, Andy,
I understand your point and indeed, it seems to be a reasonable request for the public API to introduce default file names for the Open/Save functionality in the ribbon UI.
I have logged it in our feedback portal by creating a public thread on your behalf. You can track its progress, subscribe for status changes, and add your comments on the following link - feedback item.
I have also updated your Telerik points.
Rank 1
Iron
Using that example, I went a slightly different route I want to share. I rewired the default Save command instead.
In the setup of the form, I added an event handler for the commands as in the example:
AddHandler rsExcel.SpreadsheetElement.ActiveSheetEditor.UICommandExecuting, AddressOf SaveMenuHandlerThen I added this as the Save handler:
Private Sub SaveMenuHandler(sender As Object, e As UICommandExecutingEventArgs)
If e.Command Is rsExcel.SpreadsheetElement.CommandDescriptors.SaveFile.Command Then
e.Cancel()
' now open the save dialog and get the file name and do the save
Dim fileName As String = String.Empty
fileName = String.Empty
Dim askDlg As New SaveFileDialog()
askDlg.FileName = Me.DefaultSaveFileName
askDlg.AddExtension = True
askDlg.Title = "Select Location and Name the Excel File for the Office Scheduling Sheet"
askDlg.Filter = "Excel Files (*.xlsx)|*.xlsx"
askDlg.FilterIndex = 0
askDlg.CheckPathExists = True
askDlg.CheckFileExists = False
askDlg.OverwritePrompt = True
askDlg.RestoreDirectory = True
askDlg.CreatePrompt = False
askDlg.DefaultExt = ".xlsx"
askDlg.InitialDirectory = DefaultUserDirectory
If askDlg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
fileName = askDlg.FileName
End If
If fileName <> String.Empty Then
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
Dim formatProvider As New XlsxFormatProvider()
Using output As Stream = New FileStream(fileName, FileMode.Create)
formatProvider.Export(Me.rsExcel.Workbook, output)
End Using
End If
End If
End Sub
Hi, Andy,
I have reviewed the provided code snippet and it seems OK as a suitable approach for covering the requirement you have. Feel free to use it in your account according to your needs.