frmsetting.vb

VB开发的股票软件

Public Class frmSetting

    Dim domXmlDocument As System.Xml.XmlDocument
    Dim tmpPath As String = Environment.CurrentDirectory
    Dim xmlFile As String = tmpPath + "\data\StockCode.xml"
    Dim dxd As System.Xml.XmlDataDocument

    Private Sub frmSetting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.cmbTimerMain.Text = pMainRefreshTime
        'Me.chkRefreshMain.Checked = pMainAlawyRefresh
        'Me.cmbTimerIcon.Text = pNotifyRefreshTime
        'Me.chkRefreshIcon.Checked = pNotifyAlawyRefresh
        Me.HScrollBarMain.Value = pMainOpacity
        'Me.cmbWebSite.Text = pWebSite
        'Me.chkSizeControl.Checked = pIsResize
        Me.chkIsTop.Checked = pIstop
        Me.cmbICO.Text = pIco

        Select Case pIco
            Case "A"
                PicBoxICO.Image = My.Resources.A.ToBitmap
            Case "B"
                PicBoxICO.Image = My.Resources.B.ToBitmap
            Case "C"
                PicBoxICO.Image = My.Resources.C.ToBitmap
            Case "D"
                PicBoxICO.Image = My.Resources.D.ToBitmap
            Case "E"
                PicBoxICO.Image = My.Resources.E.ToBitmap
            Case "F"
                PicBoxICO.Image = My.Resources.F.ToBitmap
        End Select

        'Dim ds As New DataSet
        Try
            '如果直接使用ds做datasource则不会展开datagrid，用dv则可以直接显示正确。
            Dim ds As New DataSet
            ds.ReadXml(xmlFile)
            Dim tb As DataTable
            Dim dv As DataView
            tb = ds.Tables(0)
            dv = New DataView(tb)
            DataGridView1.DataSource = dv
            DataGridView1.Columns(0).HeaderText = "股票代码"
            DataGridView1.Columns(1).HeaderText = "股票名称"
            DataGridView1.Columns(2).HeaderText = "是否为自选"
            DataGridView1.Sort(DataGridView1.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
            dxd = New System.Xml.XmlDataDocument(ds)

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    End Sub

#Region "Tab Page 1"
    'Tab Page 1 ------------------------------------------------------------------
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        'frmViewer.NotifyIcon1.Icon = My.Resources.A
        Me.Close()
    End Sub

    Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
        'copy the values
        pMainRefreshTime = Me.cmbTimerMain.Text
        'pMainAlawyRefresh = Me.chkRefreshMain.Checked
        'pNotifyRefreshTime = Me.cmbTimerIcon.Text
        'pNotifyAlawyRefresh = Me.chkRefreshIcon.Checked
        pMainOpacity = Me.HScrollBarMain.Value
        'pWebSite = Me.cmbWebSite.Text
        pIco = Me.cmbICO.Text
        'pIsResize = Me.chkSizeControl.Checked
        pIsTop = Me.chkIsTop.Checked
        PopulateConfigFromForm(newConfig)
        'save the configinfo
        newConfig.Save(filename)
        Me.Close()

        Select Case pIco
            Case "A"
                frmViewer.NotifyIcon1.Icon = My.Resources.A
            Case "B"
                frmViewer.NotifyIcon1.Icon = My.Resources.B
            Case "C"
                frmViewer.NotifyIcon1.Icon = My.Resources.C
            Case "D"
                frmViewer.NotifyIcon1.Icon = My.Resources.D
            Case "E"
                frmViewer.NotifyIcon1.Icon = My.Resources.E
            Case "F"
                frmViewer.NotifyIcon1.Icon = My.Resources.F
        End Select

        frmViewer.Timer1.Interval = pMainRefreshTime
        frmViewer.HScrollBarMain.Value = pMainOpacity
        frmViewer.Opacity = pMainOpacity / 100
        frmViewer.cmbWebSite.Text = pWebSite
        frmViewer.TopMost = pIsTop

    End Sub

    Private Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApply.Click
        'copy the values
        pMainRefreshTime = Me.cmbTimerMain.Text
        'pMainAlawyRefresh = Me.chkRefreshMain.Checked
        'pNotifyRefreshTime = Me.cmbTimerIcon.Text
        'pNotifyAlawyRefresh = Me.chkRefreshIcon.Checked
        pMainOpacity = Me.HScrollBarMain.Value
        'pWebSite = Me.cmbWebSite.Text
        pIco = Me.cmbICO.Text
        pIsTop = Me.chkIsTop.Checked
        'pIsResize = Me.chkSizeControl.Checked
        PopulateConfigFromForm(newConfig)
        'save the configinfo
        newConfig.Save(filename)

        Select Case pIco
            Case "A"
                frmViewer.NotifyIcon1.Icon = My.Resources.A
            Case "B"
                frmViewer.NotifyIcon1.Icon = My.Resources.B
            Case "C"
                frmViewer.NotifyIcon1.Icon = My.Resources.C
            Case "D"
                frmViewer.NotifyIcon1.Icon = My.Resources.D
            Case "E"
                frmViewer.NotifyIcon1.Icon = My.Resources.E
            Case "F"
                frmViewer.NotifyIcon1.Icon = My.Resources.F
        End Select

        frmViewer.Timer1.Interval = pMainRefreshTime
        frmViewer.HScrollBarMain.Value = pMainOpacity
        frmViewer.Opacity = pMainOpacity / 100
        frmViewer.cmbWebSite.Text = pWebSite
        frmViewer.TopMost = pIsTop
    End Sub


    Private Sub cmbICO_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbICO.SelectedIndexChanged
        Select Case cmbICO.Text
            Case "A"
                PicBoxICO.Image = My.Resources.A.ToBitmap
            Case "B"
                PicBoxICO.Image = My.Resources.B.ToBitmap
            Case "C"
                PicBoxICO.Image = My.Resources.C.ToBitmap
            Case "D"
                PicBoxICO.Image = My.Resources.D.ToBitmap
            Case "E"
                PicBoxICO.Image = My.Resources.E.ToBitmap
            Case "F"
                PicBoxICO.Image = My.Resources.F.ToBitmap
        End Select
    End Sub

    'Tab Page 1 ------------------------------------------------------------------
#End Region

#Region "Tab Page 2"
    Private Sub btnCodeSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCodeSave.Click
        'Dim dxd As New System.Xml.XmlDataDocument

        dxd.Save(xmlFile)
        Call frmViewer.UpdateCmbStockCode()
        MessageBox.Show("save Done")
    End Sub

    Private Sub btnCodeCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCodeCancel.Click
        Me.Close()
    End Sub
#End Region

 
End Class