clock.vb

行動裝置用的鬧鐘,有別於內建的行事 曆的題醒與系統內建的鬧鐘好!

    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Call FW()
    End Sub

    Sub FR()
        Dim fullname As String '可执行文件含路径
        fullname = System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase
        myAppPath = System.IO.Path.GetDirectoryName(fullname) '全局可执行文件路径变量

        If Not File.Exists(myAppPath + "\clock.cfg") Then
            MsgBox("这是您第一次运行本闹钟，请进行设置，并保存，谢谢!", MsgBoxStyle.Information, "第一次运行提示：")
            Dim fn1 As System.IO.StreamWriter = New System.IO.StreamWriter(myAppPath + "\clock.cfg", True)
            fn1.Close()
        End If

        Dim fn As System.io.StreamReader = New System.IO.StreamReader(myAppPath + "\clock.cfg", System.Text.Encoding.Default)
        Dim lineStr As String
        Do While Not fn.Peek = -1
            lineStr = fn.ReadLine
            lineStr = Trim(UCase(lineStr))
            If lineStr = UCase("cb11=true") Then
                CB11.Checked = True
            End If
            If lineStr = UCase("cb12=true") Then
                CB12.Checked = True
            End If
            If lineStr = UCase("cb13=true") Then
                CB13.Checked = True
            End If
            If lineStr = UCase("cb14=true") Then
                CB14.Checked = True
            End If
            If lineStr = UCase("cb15=true") Then
                CB15.Checked = True
            End If
            If lineStr = UCase("cb16=true") Then
                CB16.Checked = True
            End If
            If lineStr = UCase("cb17=true") Then
                CB17.Checked = True
            End If
            If Microsoft.VisualBasic.Left(lineStr, 4) = "TB01" Then
                TB01.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 5)
            End If
            If Microsoft.VisualBasic.Left(lineStr, 8) = "TIMETB01" Then
                TimeTB01.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 9)
            End If

            If lineStr = UCase("cb21=true") Then
                CB21.Checked = True
            End If
            If lineStr = UCase("cb22=true") Then
                CB22.Checked = True
            End If
            If lineStr = UCase("cb23=true") Then
                CB23.Checked = True
            End If
            If lineStr = UCase("cb24=true") Then
                CB24.Checked = True
            End If
            If lineStr = UCase("cb25=true") Then
                CB25.Checked = True
            End If
            If lineStr = UCase("cb26=true") Then
                CB26.Checked = True
            End If
            If lineStr = UCase("cb27=true") Then
                CB27.Checked = True
            End If

            If Microsoft.VisualBasic.Left(lineStr, 4) = "TB02" Then
                TB02.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 5)
            End If
            If Microsoft.VisualBasic.Left(lineStr, 8) = "TIMETB02" Then
                TimeTB02.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 9)
            End If

            If lineStr = UCase("cb31=true") Then
                CB31.Checked = True
            End If
            If lineStr = UCase("cb32=true") Then
                CB32.Checked = True
            End If
            If lineStr = UCase("cb33=true") Then
                CB33.Checked = True
            End If
            If lineStr = UCase("cb34=true") Then
                CB34.Checked = True
            End If
            If lineStr = UCase("cb35=true") Then
                CB35.Checked = True
            End If
            If lineStr = UCase("cb36=true") Then
                CB36.Checked = True
            End If
            If lineStr = UCase("cb37=true") Then
                CB37.Checked = True
            End If

            If Microsoft.VisualBasic.Left(lineStr, 4) = "TB03" Then
                TB03.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 5)
            End If
            If Microsoft.VisualBasic.Left(lineStr, 8) = "TIMETB03" Then
                TimeTB03.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 9)
            End If

            If lineStr = UCase("cb41=true") Then
                CB41.Checked = True
            End If
            If lineStr = UCase("cb42=true") Then
                CB42.Checked = True
            End If
            If lineStr = UCase("cb43=true") Then
                CB43.Checked = True
            End If
            If lineStr = UCase("cb44=true") Then
                CB44.Checked = True
            End If
            If lineStr = UCase("cb45=true") Then
                CB45.Checked = True
            End If
            If lineStr = UCase("cb46=true") Then
                CB46.Checked = True
            End If
            If lineStr = UCase("cb47=true") Then
                CB47.Checked = True
            End If

            If Microsoft.VisualBasic.Left(lineStr, 4) = "TB04" Then
                TB04.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 5)
            End If
            If Microsoft.VisualBasic.Left(lineStr, 8) = "TIMETB04" Then
                TimeTB04.Text = Microsoft.VisualBasic.Right(lineStr, Len(lineStr) - 9)
            End If

        Loop
        fn.Close()
    End Sub

    Sub FW()
        Dim fn As System.IO.StreamWriter = New System.IO.StreamWriter(myAppPath + "\clock.cfg", False, System.Text.Encoding.Default)
        fn.WriteLine("[第一个闹钟系列设置]")
        If CB11.Checked = True Then
            fn.WriteLine("cb11=true")
        Else
            fn.WriteLine("cb11=false")
        End If
        If CB12.Checked = True Then
            fn.WriteLine("cb12=true")
        Else
            fn.WriteLine("cb12=false")
        End If
        If CB13.Checked = True Then
            fn.WriteLine("cb13=true")
        Else
            fn.WriteLine("cb13=false")
        End If
        If CB14.Checked = True Then
            fn.WriteLine("cb14=true")
        Else
            fn.WriteLine("cb14=false")
        End If
        If CB15.Checked = True Then
            fn.WriteLine("cb15=true")
        Else
            fn.WriteLine("cb15=false")
        End If
        If CB16.Checked = True Then
            fn.WriteLine("cb16=true")
        Else
            fn.WriteLine("cb16=false")
        End If
        If CB17.Checked = True Then
            fn.WriteLine("cb17=true")
        Else
            fn.WriteLine("cb17=false")
        End If
        fn.WriteLine("tb01=" + TB01.Text)
        fn.WriteLine("timetb01=" + TimeTB01.Text)

        fn.WriteLine("[第二个闹钟系列设置]")
        If CB21.Checked = True Then
            fn.WriteLine("cb21=true")
        Else
            fn.WriteLine("cb21=false")
        End If
        If CB22.Checked = True Then
            fn.WriteLine("cb22=true")
        Else
            fn.WriteLine("cb22=false")
        End If
        If CB23.Checked = True Then
            fn.WriteLine("cb23=true")
        Else
            fn.WriteLine("cb23=false")
        End If
        If CB24.Checked = True Then
            fn.WriteLine("cb24=true")
        Else
            fn.WriteLine("cb24=false")
        End If
        If CB25.Checked = True Then
            fn.WriteLine("cb25=true")
        Else
            fn.WriteLine("cb25=false")
        End If
        If CB26.Checked = True Then
            fn.WriteLine("cb26=true")
        Else
            fn.WriteLine("cb26=false")
        End If
        If CB27.Checked = True Then
            fn.WriteLine("cb27=true")
        Else
            fn.WriteLine("cb27=false")
        End If
        fn.WriteLine("tb02=" + TB02.Text)
        fn.WriteLine("timetb02=" + TimeTB02.Text)

        fn.WriteLine("[第三个闹钟系列设置]")
        If CB31.Checked = True Then
            fn.WriteLine("cb31=true")
        Else
            fn.WriteLine("cb31=false")
        End If
        If CB32.Checked = True Then
            fn.WriteLine("cb32=true")
        Else
            fn.WriteLine("cb32=false")
        End If
        If CB33.Checked = True Then
            fn.WriteLine("cb33=true")
        Else
            fn.WriteLine("cb33=false")
        End If
        If CB34.Checked = True Then
            fn.WriteLine("cb34=true")
        Else
            fn.WriteLine("cb34=false")
        End If
        If CB35.Checked = True Then
            fn.WriteLine("cb35=true")
        Else
            fn.WriteLine("cb35=false")
        End If
        If CB36.Checked = True Then
            fn.WriteLine("cb36=true")
        Else
            fn.WriteLine("cb36=false")
        End If
        If CB37.Checked = True Then
            fn.WriteLine("cb37=true")
        Else
            fn.WriteLine("cb37=false")
        End If
        fn.WriteLine("tb03=" + TB03.Text)
        fn.WriteLine("timetb03=" + TimeTB03.Text)

        fn.WriteLine("[第四个闹钟系列设置]")
        If CB41.Checked = True Then
            fn.WriteLine("cb41=true")
        Else
            fn.WriteLine("cb41=false")
        End If
        If CB42.Checked = True Then
            fn.WriteLine("cb42=true")
        Else
            fn.WriteLine("cb42=false")
        End If
        If CB43.Checked = True Then
            fn.WriteLine("cb43=true")
        Else
            fn.WriteLine("cb43=false")
        End If
        If CB44.Checked = True Then
            fn.WriteLine("cb44=true")
        Else
            fn.WriteLine("cb44=false")
        End If
        If CB45.Checked = True Then
            fn.WriteLine("cb45=true")
        Else
            fn.WriteLine("cb45=false")
        End If
        If CB46.Checked = True Then
            fn.WriteLine("cb46=true")
        Else
            fn.WriteLine("cb46=false")
        End If
        If CB47.Checked = True Then
            fn.WriteLine("cb47=true")
        Else
            fn.WriteLine("cb47=false")
        End If
        fn.WriteLine("tb04=" + TB04.Text)
        fn.WriteLine("timetb04=" + TimeTB04.Text)

        fn.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayCB01.Click
        OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
    End Sub

    Private Sub SaveExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveExit.Click
        If SaveExit.Checked = True Then
            SaveExit.Checked = False
        Else
            SaveExit.Checked = True
        End If
    End Sub

    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayCB02.Click
        OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB02.Text)
    End Sub

    Private Sub PlayCB04_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayCB04.Click
        OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
    End Sub

    Private Sub PlayCB03_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayCB03.Click
        OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
    End Sub

    Private Sub cb03_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb03.Click
        OF.Filter = "MP3 文件 (*.MP3)|*.mp3|WMA 文件 (*.WMA)|*.wma|所有文件 (*.*)|*.*"
        OF.FilterIndex = 1
        If OF.ShowDialog() = DialogResult.OK Then
            TB03.Text = OF.FileName()
        End If
    End Sub

    Private Sub CB04_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB04.Click
        OF.Filter = "MP3 文件 (*.MP3)|*.mp3|WMA 文件 (*.WMA)|*.wma|所有文件 (*.*)|*.*"
        OF.FilterIndex = 1
        If OF.ShowDialog() = DialogResult.OK Then
            TB04.Text = OF.FileName()
        End If
    End Sub

    Private Sub MenuItem6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim Config As New Config
        Config.Show()

        Dim fullname As String '可执行文件含路径
        fullname = System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase
        myAppPath = System.IO.Path.GetDirectoryName(fullname) '全局可执行文件路径变量

        Dim fn As System.io.StreamReader = New System.IO.StreamReader(myAppPath + "\clock.cfg", System.Text.Encoding.Default)
        Dim lineStr As String
        Do While Not fn.Peek = -1
            lineStr = fn.ReadLine
            Config.TextBox1.Text = Config.TextBox1.Text + lineStr + vbCrLf
        Loop
        fn.Close()
    End Sub
End Class