📄 19824.html
字号:
<html> <head> <title>MSChart用Timer一直 Show 会闪烁怎么改善?? </title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>MSChart用Timer一直 Show 会闪烁怎么改善?? </h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:mis@skylarkdevice.com">小熊</a> on October 08, 1999 at 16:29:46:<p>VB6 MSChart 用 Timer 一直 Show 会闪烁要怎么改善呢??<br>我是想用 MSChart 把抓到的资料画成波形....<br>谢谢...<br>程式如下:<p>Private Sub Form_Load()<br>MSChart1.Title = "显示视窗" '设定MSChart1的Title<br>MSChart1.RowCount = 80 '设定MSChart1有80个Row<br>MSChart1.ColumnCount = 1 '设定MSChart1只有1个Column<p><br>MSChart1.Row = 1 '把MSChart1的指标移到Row1上<br>MSChart1.Column = 1 '把MSChart1的指标移到Column1上<br>MSChart1.Data = 1320 '设定Row=1及Column1上的资料为1320<p><br>MSChart1.Row = 1 '把MSChart1的指标移到Row1上<br>MSChart1.RowLabel = "秒" '设定Row=1上的标签为"秒"<p>End Sub<p>Private Sub Timer1_Timer()<br>Randomize (Timer)<br>Static i As Integer<br>If i < 80 Then i = i + 1<br>Else i = 1<br>End If<br>Debug.Print i<br>MSChart1.Row = i '把MSChart1的指标移到Row1上<br>MSChart1.Column = 1 '把MSChart1的指标移到Column1上<br>MSChart1.Data = Int((30 - 5 + 1) * Rnd + 5) '设定Row=1及Column1上的资料为<br>5~30<br>MSChart1.Row = 1 '把MSChart1的指标移到Row1上<p>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19824--></ul><!--end: 19824--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -