我希望重启计时器

时间:2017-06-13 19:08:23

标签: vb.net debugging

它是一个基本的颜色选择器 现在,当if梯子中指定的颜色被捕获时,它会播放一首歌曲 想要的是,当再次挑选该颜色时,该歌曲应该再次播放 我尝试使用线程;但它不起作用 提前谢谢..

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As 
              System.EventArgs) Handles Timer1.Tick
         Dim BMP As New Drawing.Bitmap(1, 1)
         Dim GFX As System.Drawing.Graphics = 
         System.Drawing.Graphics.FromImage(BMP)
         GFX.CopyFromScreen(New Drawing.Point(MousePosition.X, MousePosition.Y), _
                       New Drawing.Point(0, 0), BMP.Size)
         Dim Pixel As Drawing.Color = BMP.GetPixel(0, 0)
         CPpanel.BackColor = Pixel
         redtxt.Text = Pixel.R
         greentxt.Text = Pixel.G
         bluetxt.Text = Pixel.B

        If redtxt.Text = 0 Then
           If greentxt.Text = 173 Then
              If bluetxt.Text = 73 Then
                 AxWindowsMediaPlayer1.URL = "song.mp3"
                Timer1.Stop()
            End If
        End If
        Else
           Timer1.Start()
        End If

End Sub

1 个答案:

答案 0 :(得分:0)

看起来你的颜色被选中后你会停止计时器:

AxWindowsMediaPlayer1.URL = "song.mp3"
Timer1.Stop()

除非您在其他地方再次启动计时器,否则不会再次调用Timer1_Tick事件。如何选择颜色 - 只需将鼠标移到位图上即可?处理点击事件而不是计时器刻度事件可能更好,但如果没有看到更多代码,很难说。