我現想做一個河流斷面的實時水情顯示系統
１ 畫一個簡易河流斷面
２ 顯示河流水位
３ 顯示警戒水位
４ 河流水位以下用藍色來表示
請問如何來實作，用哪些圖表控制元件
uj5u.com熱心網友回復：
自己用 PictureBox 或 Form 中 Line 一下可不可以，唉，“圖表”、“控制元件”。uj5u.com熱心網友回復：
Shape控制元件、Line控制元件等等。uj5u.com熱心網友回復：
'表單上加一個 PictureBox、一個 Timer 控制元件
Option Explicit
Private Const GRAPH_WIDTH As Long = 200
Private Const GRAPH_HEIGHT As Long = 100
Private Const WARNING_LEVEL As Long = 90
Private picRiverbed As IPictureDisp
Private Sub Form_Load()
Set picRiverbed = LoadPicture(App.Path & "\Riverbed.bmp")
Me.ScaleMode = vbPixels
With Picture1
.ScaleMode = vbPixels
.Move 8, 8, GRAPH_WIDTH + (.Width - .ScaleWidth), GRAPH_HEIGHT + (.Height - .ScaleHeight)
.AutoRedraw = True
.BackColor = vbBlack
End With
Randomize
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim lWaterLevel As Long
lWaterLevel = Int(Rnd() * 80) + 20
Picture1.Cls
Picture1.Line (0, GRAPH_HEIGHT - lWaterLevel)-(GRAPH_WIDTH, GRAPH_HEIGHT), vbBlue, BF
Picture1.Line (0, GRAPH_HEIGHT - WARNING_LEVEL)-(GRAPH_WIDTH, GRAPH_HEIGHT - WARNING_LEVEL), vbRed
Picture1.PaintPicture picRiverbed, 0, 0, , , , , , , vbSrcPaint
End Sub
河床用二色位圖(Riverbed.bmp)——CSDN 不能上傳 BMP
運行結果如下
uj5u.com熱心網友回復：
Tiger_Zhao 相當專業。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/150669.html
標籤：控件