GrapeCity.Xaml.SpreadSheet.Data Namespace > Worksheet Class : SaveHtmlAsync Method |
'Declaration Public Function SaveHtmlAsync( _ ByVal stream As Stream _ ) As IAsyncAction
'Usage Dim instance As Worksheet Dim stream As Stream Dim value As IAsyncAction value = instance.SaveHtmlAsync(stream)
public IAsyncAction SaveHtmlAsync( Stream stream )
private void Grid_Loaded_1(object sender, RoutedEventArgs e) { gcSpreadSheet1.Sheets[0].ShowGridLine = true; gcSpreadSheet1.Sheets[0].GridLineColor = Windows.UI.Colors.BurlyWood; gcSpreadSheet1.Sheets[0].Cells[0, 0].Text = "test"; } private async void Button_Click_1(object sender, RoutedEventArgs e) { try { var filePicker = new Windows.Storage.Pickers.FileSavePicker(); filePicker.FileTypeChoices.Add("HTML Files", new List<string>() { ".html" }); filePicker.SuggestedFileName = "New SpreadSheet File"; Windows.Storage.StorageFile storageFile = await filePicker.PickSaveFileAsync(); if (storageFile != null) { using (var stream = await storageFile.OpenStreamForWriteAsync()) { var fileName = storageFile.FileType.ToUpperInvariant(); await gcSpreadSheet1.Sheets[0].SaveHtmlAsync(stream); } } } catch (Exception ex) { Windows.UI.Popups.MessageDialog dialog = new Windows.UI.Popups.MessageDialog(ex.Message, "Error"); dialog.ShowAsync(); } }
Private Sub MainPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded gcSpreadSheet1.Sheets(0).ShowGridLine = True gcSpreadSheet1.Sheets(0).GridLineColor = Windows.UI.Colors.BurlyWood gcSpreadSheet1.Sheets(0).Cells(0, 0).Text = "test" End Sub Private Async Sub Button_Click_1(sender As Object, e As RoutedEventArgs) Try Dim filePicker As New Windows.Storage.Pickers.FileSavePicker() filePicker.FileTypeChoices.Add("HTML Files", New List(Of String)() From {".html"}) filePicker.SuggestedFileName = "New SpreadSheet File" Dim storageFile As Windows.Storage.StorageFile = Await filePicker.PickSaveFileAsync() If storageFile IsNot Nothing Then Using stream = Await storageFile.OpenStreamForWriteAsync() Dim fileName = storageFile.FileType.ToUpperInvariant() await gcSpreadSheet1.Sheets(0).SaveHtmlAsync(stream) End Using End If Catch ex As Exception Dim dialog As Windows.UI.Popups.MessageDialog = New Windows.UI.Popups.MessageDialog(ex.Message, "Error") dialog.ShowAsync() End Try End Sub
Target Platforms: Windows Server 2012, Windows RT