clock.vb

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

        Me.TB03.Location = New System.Drawing.Point(19, 153)
        Me.TB03.Size = New System.Drawing.Size(200, 21)
        Me.TB03.Text = "请输入MP3或WMA文件..."
        '
        'CB37
        '
        Me.CB37.Location = New System.Drawing.Point(115, 129)
        Me.CB37.Size = New System.Drawing.Size(16, 20)
        Me.CB37.Text = "7"
        '
        'CB36
        '
        Me.CB36.Location = New System.Drawing.Point(99, 129)
        Me.CB36.Size = New System.Drawing.Size(16, 20)
        Me.CB36.Text = "6"
        '
        'CB35
        '
        Me.CB35.Location = New System.Drawing.Point(83, 129)
        Me.CB35.Size = New System.Drawing.Size(16, 20)
        Me.CB35.Text = "5"
        '
        'CB34
        '
        Me.CB34.Location = New System.Drawing.Point(67, 129)
        Me.CB34.Size = New System.Drawing.Size(16, 20)
        Me.CB34.Text = "4"
        '
        'CB33
        '
        Me.CB33.Location = New System.Drawing.Point(51, 129)
        Me.CB33.Size = New System.Drawing.Size(16, 20)
        Me.CB33.Text = "3"
        '
        'CB32
        '
        Me.CB32.Location = New System.Drawing.Point(35, 129)
        Me.CB32.Size = New System.Drawing.Size(16, 20)
        Me.CB32.Text = "2"
        '
        'CB31
        '
        Me.CB31.Location = New System.Drawing.Point(19, 129)
        Me.CB31.Size = New System.Drawing.Size(16, 20)
        Me.CB31.Text = "1"
        '
        'PlayCB04
        '
        Me.PlayCB04.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular)
        Me.PlayCB04.Location = New System.Drawing.Point(187, 177)
        Me.PlayCB04.Size = New System.Drawing.Size(32, 21)
        Me.PlayCB04.Text = "播放"
        '
        'TimeTB04
        '
        Me.TimeTB04.Location = New System.Drawing.Point(132, 177)
        Me.TimeTB04.Size = New System.Drawing.Size(56, 21)
        Me.TimeTB04.Text = "10:30:00"
        '
        'CB04
        '
        Me.CB04.Location = New System.Drawing.Point(187, 201)
        Me.CB04.Size = New System.Drawing.Size(32, 21)
        Me.CB04.Text = "选择"
        '
        'TB04
        '
        Me.TB04.Location = New System.Drawing.Point(19, 201)
        Me.TB04.Size = New System.Drawing.Size(200, 21)
        Me.TB04.Text = "请输入MP3或WMA文件..."
        '
        'CB47
        '
        Me.CB47.Location = New System.Drawing.Point(115, 177)
        Me.CB47.Size = New System.Drawing.Size(16, 20)
        Me.CB47.Text = "7"
        '
        'CB46
        '
        Me.CB46.Location = New System.Drawing.Point(99, 177)
        Me.CB46.Size = New System.Drawing.Size(16, 20)
        Me.CB46.Text = "6"
        '
        'CB45
        '
        Me.CB45.Location = New System.Drawing.Point(83, 177)
        Me.CB45.Size = New System.Drawing.Size(16, 20)
        Me.CB45.Text = "5"
        '
        'CB44
        '
        Me.CB44.Location = New System.Drawing.Point(67, 177)
        Me.CB44.Size = New System.Drawing.Size(16, 20)
        Me.CB44.Text = "4"
        '
        'CB43
        '
        Me.CB43.Location = New System.Drawing.Point(51, 177)
        Me.CB43.Size = New System.Drawing.Size(16, 20)
        Me.CB43.Text = "3"
        '
        'CB42
        '
        Me.CB42.Location = New System.Drawing.Point(35, 177)
        Me.CB42.Size = New System.Drawing.Size(16, 20)
        Me.CB42.Text = "2"
        '
        'CB41
        '
        Me.CB41.Location = New System.Drawing.Point(19, 177)
        Me.CB41.Size = New System.Drawing.Size(16, 20)
        Me.CB41.Text = "1"
        '
        'MenuItem6
        '
        Me.MenuItem6.Text = "查看设置文件"
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        '
        'Clock
        '
        Me.Controls.Add(Me.PlayCB04)
        Me.Controls.Add(Me.TimeTB04)
        Me.Controls.Add(Me.CB04)
        Me.Controls.Add(Me.TB04)
        Me.Controls.Add(Me.CB47)
        Me.Controls.Add(Me.CB46)
        Me.Controls.Add(Me.CB45)
        Me.Controls.Add(Me.CB44)
        Me.Controls.Add(Me.CB43)
        Me.Controls.Add(Me.CB42)
        Me.Controls.Add(Me.CB41)
        Me.Controls.Add(Me.PlayCB03)
        Me.Controls.Add(Me.TimeTB03)
        Me.Controls.Add(Me.cb03)
        Me.Controls.Add(Me.TB03)
        Me.Controls.Add(Me.CB37)
        Me.Controls.Add(Me.CB36)
        Me.Controls.Add(Me.CB35)
        Me.Controls.Add(Me.CB34)
        Me.Controls.Add(Me.CB33)
        Me.Controls.Add(Me.CB32)
        Me.Controls.Add(Me.CB31)
        Me.Controls.Add(Me.PlayCB02)
        Me.Controls.Add(Me.PlayCB01)
        Me.Controls.Add(Me.TimeLB)
        Me.Controls.Add(Me.TimeTB02)
        Me.Controls.Add(Me.cB02)
        Me.Controls.Add(Me.TB02)
        Me.Controls.Add(Me.CB27)
        Me.Controls.Add(Me.CB26)
        Me.Controls.Add(Me.CB25)
        Me.Controls.Add(Me.CB24)
        Me.Controls.Add(Me.CB23)
        Me.Controls.Add(Me.CB22)
        Me.Controls.Add(Me.CB21)
        Me.Controls.Add(Me.TimeTB01)
        Me.Controls.Add(Me.cB01)
        Me.Controls.Add(Me.TB01)
        Me.Controls.Add(Me.CB17)
        Me.Controls.Add(Me.CB16)
        Me.Controls.Add(Me.CB15)
        Me.Controls.Add(Me.CB14)
        Me.Controls.Add(Me.CB13)
        Me.Controls.Add(Me.CB12)
        Me.Controls.Add(Me.CB11)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.ToolBar1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.MinimizeBox = False
        Me.Text = "Clock"

    End Sub

#End Region
    Dim m_day As String
    Dim myAppPath As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cB01.Click
        'Dim fn As String
        OF.Filter = "MP3 文件 (*.MP3)|*.mp3|WMA 文件 (*.WMA)|*.wma|所有文件 (*.*)|*.*"
        OF.FilterIndex = 1
        If OF.ShowDialog() = 1 Then
            TB01.Text = OF.FileName()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TimeLB.Text = Microsoft.VisualBasic.DateString + " " + Microsoft.VisualBasic.TimeString
        m_day = Microsoft.VisualBasic.Weekday(System.DateTime.Today)
        If CB11.Checked = True And CB11.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB12.Checked = True And CB12.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB13.Checked = True And CB13.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB14.Checked = True And CB14.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB15.Checked = True And CB15.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB16.Checked = True And CB16.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB17.Checked = True And CB17.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB01.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If

        If CB21.Checked = True And CB21.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB22.Checked = True And CB22.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB23.Checked = True And CB23.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB24.Checked = True And CB24.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB25.Checked = True And CB25.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB26.Checked = True And CB26.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If
        If CB27.Checked = True And CB27.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB02.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB01.Text)
            End If
        End If

        If CB31.Checked = True And CB31.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If
        If CB32.Checked = True And CB32.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If
        If CB33.Checked = True And CB33.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If
        If CB34.Checked = True And CB34.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If
        If CB35.Checked = True And CB35.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If
        If CB36.Checked = True And CB36.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If
        If CB37.Checked = True And CB37.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB03.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB03.Text)
            End If
        End If

        If CB41.Checked = True And CB41.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If
        If CB42.Checked = True And CB42.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If
        If CB43.Checked = True And CB43.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If
        If CB44.Checked = True And CB44.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If
        If CB45.Checked = True And CB45.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If
        If CB46.Checked = True And CB46.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If
        If CB47.Checked = True And CB47.Text = m_day Then
            If Microsoft.VisualBasic.TimeString = TimeTB04.Text Then
                OpenNETCF.Diagnostics.Process.Start("\windows\wmplayer.exe", TB04.Text)
            End If
        End If

    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        If SaveExit.Checked = True Then
            Call FW()
        End If
        Application.Exit()
    End Sub

    Private Sub Clock_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call FR()
    End Sub

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

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim about As New about
        about.Show()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)