settingsform.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

Public Class SettingsForm

    Private Sub saveMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveMenuItem.Click
        Me.SettingsBindingSource.EndEdit()

        ' Save the Colors
        Select Case Me.textColorComboBox.Text
            Case "White"
                Settings.Instance.TextColor = Color.White
            Case "Red"
                Settings.Instance.TextColor = Color.Red
            Case "Blue"
                Settings.Instance.TextColor = Color.Blue
            Case Else
                Settings.Instance.TextColor = Color.Black
        End Select

        Select Case Me.backGroundColorComboBox.Text
            Case "Black"
                Settings.Instance.BackgroundColor = Color.Black
            Case "Yellow"
                Settings.Instance.BackgroundColor = Color.Yellow
            Case "Green"
                Settings.Instance.BackgroundColor = Color.Green
            Case Else
                Settings.Instance.BackgroundColor = Color.White
        End Select


        ' Persist the settings
        Settings.SaveSettings()

        ' Close the form
        Me.DialogResult = DialogResult.OK
    End Sub

    Private Sub cancelMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelMenuItem.Click
        Me.SettingsBindingSource.CancelEdit()
        Me.DialogResult = DialogResult.Cancel
    End Sub

    Private Sub SettingsForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SettingsBindingSource.DataSource = Settings.Instance

        ' Set the two color comboboxes
        Select Case Settings.Instance.TextColor.ToArgb()
            Case -1
                Me.textColorComboBox.Text = "White"

            Case -65536
                Me.textColorComboBox.Text = "Red"

            Case -16776961
                Me.textColorComboBox.Text = "Blue"
            Case Else
                Me.textColorComboBox.Text = "Black"
        End Select

        Select Case Settings.Instance.BackgroundColor.ToArgb()
            Case -16777216
                Me.backGroundColorComboBox.Text = "Black"
            Case -256
                Me.backGroundColorComboBox.Text = "Yellow"
            Case -16744448
                Me.backGroundColorComboBox.Text = "Green"
            Case Else
                Me.backGroundColorComboBox.Text = "White"
        End Select

    End Sub
End Class