代碼如下:
Private Sub Command2_Click()
Dim x
MSChart1.chartType = VtChChartType2dBar
MSChart1.RowCount = 50
MSChart1.ColumnCount = 1
' MSChart1.ColumnLabelCount =
For x = 1 To 50
MSChart1.Row = x
MSChart1.RowLabel = x
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set 0, 0, 255
Next
End Sub

不是說點擊控制元件的右鍵屬性
改變1-3行為紅色 4-8為綠色等該怎么辦呢
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/126302.html
標籤:控件
上一篇:判斷當前播放的視頻是否為本地視頻
