一個簡單的工控管道控件

一、本人一直從事工控行業控制軟件編程，經常要模擬物料傳輸過程，為了使效果更加生動，故借鑒VC知識庫(VCKBASE.COM)中高人的一些代碼，做了一個簡單的控件，拿出來和大家一起分享。不足之處還請各位指點。

二、代碼比較簡單主要的部分是畫管道，代碼如下:

void CMultiAxtiveX1Ctrl::OnDraw( CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid)
{
　　　CBrush brBk[64];　//創建畫刷
　　　int nWidth = rcBounds.Width();
　　　int nHeight = rcBounds.Height();
　　　CRect rct;
　　　int j=0;
　　　if (m_ColorR>255 ||m_ColorR<0)　//合理化m_ColorR值
　　　　　　　m_ColorR=255;
　　　for (int i = 0; i < 64; i ++)//設置畫刷顏色
　　　{
　　　　　　　if (i<32)
　　　　　　　　　brBk[i].CreateSolidBrush(RGB(m_ColorR - (32-i % 32),
　　　　　　　　　　　　　　m_ColorR - (32-i % 32),
　　　　　　　　　　　　　　100));
　　　　　　　else
　　　　　　　　　brBk[i].CreateSolidBrush(RGB(m_ColorR - (i % 32),
　　　　　　　　　　　　　　m_ColorR - (i % 32),
　　　　　　　　　　　　　　100));
　　　}
　　　//畫漸變
　　　for (i = rcBounds.top; i <= nHeight + 2; i ++)
　　　{
　　　　　　　rct.SetRect(rcBounds.left, i,nWidth, i + 1);
　　　　　　　pdc->FillRect(&rct, &brBk[((i * 63) / nHeight)]);
　　　}
　　　for( j=0;j<10;j++)
　　　{
　　　　　　　rct.SetRect(rcBounds.left+m_grid[j]*nWidth/40, rcBounds.top ,
　　　　　　　rcBounds.left+m_grid[j]*nWidth/40+nWidth/40, nHeight );
　　　　　　　pdc->FillRect(&rct, CBrush::FromHandle((HBRUSH)
　　　　　　　GetStockObject(WHITE_BRUSH)));
　　　}
　　　for (i = 0; i < 64; i ++)
　　　　　　　brBk[i].DeleteObject();
}

三、安裝使用和應用

使用regsvr32 注冊該控件（regsvr32 multiAxtiveX.ocx）,注冊後可在vb,vc,delphi等編程環境中使用。主要有2個屬性一個方法：

1.direction控制流動方向，其值為0或1；

2.colorRed設定管道顏色，其值范圍0－255；

3.flow方法驅動管道流動。

4.下面是控件在vb中使用的效果。

圖一 VB中使用管道控件

四、結束語

利用vc這個強大的工具，我們可以做出更好更出色的控件。

本文配套源碼