image 加載圖片時(shí)會(huì)閃爍就是加個(gè)TIMER控件,將image控件不斷地隱藏,顯示,隱藏,顯示,就達(dá)到閃爍的目的了。
韶山ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為創(chuàng)新互聯(lián)的ssl證書(shū)銷(xiāo)售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話(huà)聯(lián)系或者加微信:028-86922220(備注:SSL證書(shū)合作)期待與您的合作!
操作前把WMP暫停/停止試試,甚至是銷(xiāo)毀、重新加載個(gè)WMP。
如果是WMP不好,你可以用其它的第三方播放控件嵌在程序中。
不介意的話(huà)把代碼貼上來(lái)幫你看看。
這個(gè)問(wèn)題我以前也遇到過(guò),好像是顯卡或顯卡的驅(qū)動(dòng)問(wèn)題,在更換顯卡(比較好一點(diǎn)的顯卡)后問(wèn)題解決了。
新建工程,1個(gè)timer,1個(gè)Picture1, 1個(gè)按鈕
這個(gè)是讓它閃100次.. 計(jì)數(shù)器i, 單數(shù)和雙數(shù)時(shí),pic顯示或隱藏,實(shí)現(xiàn)一閃一閃..
全部代碼:
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 = "開(kāi)始閃爍"
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
同樣控件,如果不需要計(jì)數(shù)的話(huà),可以修改成為下面的,這樣就可以一直閃,直到按鈕結(jié)束.
Private Sub Command1_Click()
If Command1.Caption = "開(kāi)始閃爍" Then
Timer1.Enabled = True
Command1.Caption = "停止閃爍"
Else
Command1.Caption = "開(kāi)始閃爍"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
Command1.Caption = "開(kāi)始閃爍"
End Sub
Private Sub Timer1_Timer()
Picture1.Visible = Not Picture1.Visible
End Sub