使用VB為Windows Phone 8應用保存數據

Question

嗨，我正在使用vb和xaml為Windows Phone 8編寫應用程序。 我掌握了所有基本知識，但希望在手機上存儲一些數據，以便在重置應用程序時不會丟失數據。 我已經開發了一個數字猜謎游戲，我希望將用戶級別和他們的硬幣余額存儲在手機上，然后在應用程序啟動后檢索它。 我在網上找到了一些參考資料，如何在C＃中做到這一點，但在vb上卻一無所獲。 能否請你幫忙？

Answer 1

如果只想存儲幾個值，則應使用IsolatedStorageSettings類。 它使您可以輕松地將鍵值對存儲在隔離存儲中。

來自MSDN的示例VB.NET代碼（ 鏈接 ）：

Imports System.IO.IsolatedStorage

Partial Public Class Page
    Inherits UserControl
    Private userSettings As IsolatedStorageSettings = IsolatedStorageSettings.ApplicationSettings

    Public Sub New()
        InitializeComponent()
        ' Retrieve and set user name.
        Try
            Dim name As String = CType(userSettings("name"), String)
            tbGreeting.Text = "Hello, " & name
        Catch ex As System.Collections.Generic.KeyNotFoundException
            ' No preference is saved.
            tbGreeting.Text = "Hello, World"
        End Try
    End Sub

    Private Sub btnAddName_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Try
            userSettings.Add("name", tbName.Text)
            tbResults.Text = "Name saved. Refresh page to see changes."
        Catch ex As ArgumentException
            tbResults.Text = ex.Message
        End Try
    End Sub

    Private Sub btnChangeName_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        userSettings("name") = tbName.Text
        tbResults.Text = "Name changed. Refresh page to see changes."
    End Sub

    Private Sub btnRemoveName_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        If userSettings.Remove("name") = True Then
            tbResults.Text = "Name removed. Refresh page to see changes."
        Else
            tbResults.Text = "Name could not be removed. Key does not exist."
        End If
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        userSettings.Clear()
        tbResults.Text = "Settings cleared. Refresh page to see changes."
    End Sub

End Class