新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
操作前把WMP暂停/停止试试,甚至是销毁、重新加载个WMP。
网站建设哪家好,找创新互联公司!专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了黄石免费建站欢迎大家使用!
如果是WMP不好,你可以用其它的第三方播放控件嵌在程序中。
不介意的话把代码贴上来帮你看看。
首先,设定Timer控件的Enabled属性为True,Interval属性为1000(单位为毫秒)。
然后,添加程序代码如下:
private void timer1_Tick(object sender, EventArgs e)
{
if (this.label1.BackColor == Color.Red) //判断当前背景色是否为红色
this.label1.BackColor = Color.Blue; //如果是则变为蓝色
else //如果当前背景色不是红色
this.label1.BackColor = Color.Red; //将背景色变为红色
}
这个问题我以前也遇到过,好像是显卡或显卡的驱动问题,在更换显卡(比较好一点的显卡)后问题解决了。
如果是想实现 鼠标 一靠近 picturebox1控件,picturebox就闪开一些。
也就是鼠标要和picturebox保持距离,是要实现这种效果吧?
可以在picturebox1所在的窗体中,添加MouseMove事件,这样就实时获得鼠标在窗口中的坐标,通过鼠标当前坐标和picturebox在窗口中的位置的比较就能判断 鼠标是否靠近了picturebox。
然后就是根据鼠标和picturebox的相对位置,来判断picturebox往那个方向 闪 了!
如果要代码可以再找我,要是能给点分就更好了。
image 加载图片时会闪烁就是加个TIMER控件,将image控件不断地隐藏,显示,隐藏,显示,就达到闪烁的目的了。
新建工程,1个timer,1个Picture1, 1个按钮
这个是让它闪100次.. 计数器i, 单数和双数时,pic显示或隐藏,实现一闪一闪..
全部代码:
Dim i%
Private Sub Command1_Click()
i = 0
Timer1.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
Command1.Caption = "开始闪烁"
End Sub
Private Sub Timer1_Timer()
If i Mod 2 = 0 Then
Picture1.Visible = False
Else
Picture1.Visible = True
End If
i = i + 1
If i = 100 Then
Timer1.Enabled = False
Command1.Enabled = True
End If
End Sub
同样控件,如果不需要计数的话,可以修改成为下面的,这样就可以一直闪,直到按钮结束.
Private Sub Command1_Click()
If Command1.Caption = "开始闪烁" Then
Timer1.Enabled = True
Command1.Caption = "停止闪烁"
Else
Command1.Caption = "开始闪烁"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
Command1.Caption = "开始闪烁"
End Sub
Private Sub Timer1_Timer()
Picture1.Visible = Not Picture1.Visible
End Sub