大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
image 加载图片时会闪烁就是加个TIMER控件,将image控件不断地隐藏,显示,隐藏,显示,就达到闪烁的目的了。
韶山ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:028-86922220(备注:SSL证书合作)期待与您的合作!
操作前把WMP暂停/停止试试,甚至是销毁、重新加载个WMP。
如果是WMP不好,你可以用其它的第三方播放控件嵌在程序中。
不介意的话把代码贴上来帮你看看。
这个问题我以前也遇到过,好像是显卡或显卡的驱动问题,在更换显卡(比较好一点的显卡)后问题解决了。
新建工程,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