[發明專利]ActiveX控件在輪機模擬器中的應用方法

在審

• 申請號: 201310579291.X
• 申請日: 2013-11-19
• 公開（公告）號: CN103677809A
• 公開（公告）日: 2014-03-26
• 發明（設計）人: 劉雨
• 申請（專利權）人: 大連海聯自動控制有限公司
• 主分類號: G06F9/44
• 分類號: G06F9/44;G06F17/50
• 代理公司: 暫無信息
• 代理人: 暫無信息

1.定義控件的屬性

利用接口向導程序設置控件屬性，如儀表邊框寬度，邊框顏色，儀表的最大值，儀表的最小值，刻度增量值，文字字型和顏色等；向導程序自動生成框架程序代碼，在框架程序代碼的基礎上加入滿足需要的代碼；框架程序代碼一般分成幾個部分，常量部分放置屬性默認值，局部變量部分放置屬性的內部變量(控件以外的程序不能訪問這些變量)，初始化部分放置控件初始化代碼，接口程序部分放置讀寫屬性程序(供其他程序讀寫控件屬性使用)，其他部分放置內部程序或函數；

添加繪制代碼

由框架代碼生成的控件只是一個空白窗口，因此需要加入繪制儀表外觀(表盤)和指針的代碼，編寫繪制子程序，在需要的時候調用它；

程序如下：Private?Sub?Draw?MeterPlate(?)擦處控件窗口(以便重畫界面)；畫表盤程序(采用漸變色使儀表外觀具有立體感)；畫標志區(某轉速范圍用指定顏色填充)；計算比例系數(據屬性值)；按比例畫分度線和寫分度值(按指定顏色)；用指定顏色寫儀表單位名稱和其分名稱；

End?Sub

程序（1）：

Public?Property?Let?Value(ByVal?New-Value?As?Single)；

??????m-Value?=?New-Value；m-Value為當前值內部變量；????PropertyChanged?“Value”

Call?ValueChange

End?Property

程序（2）：

Private?Sub?ValueChange；

Call?DrawMeterPlate；畫表盤

計算指針偏轉角Angle

Call?DrawPointer(Angle)；畫指定角度的指針

End?Sub

當Value值屬性改變時，系統自動調用程序（1），由程序（1）調用程序（2）進行儀表顯示的刷新；

顯示刷新的改進

由上述可知，每次更改當前值時,需要擦除上次的畫面(否則會留下一系列指針)，重新繪制表盤和指針(當前值位置)，會使大量的CPU時間被頻繁繪制表盤浪費掉，為此作者在制作儀表控件時采取了一些措施；

因為在程序中使用儀表控件時，特定的控件儀表只有在程序設計階段才會改變它的外觀和儀表固有屬性，在程序運行時只有指針的偏轉變化(當前值改變)，為此作者在控件內部放置一圖片框，在程序設計階段(修改外觀屬性)將表盤繪制在圖片框內，在程序運行階段再將圖片框內已繪制的表盤位圖用位塊傳送語句送到控件窗口，這樣每次更改當前值時在控件窗口只繪制指針，從而節省大量的CPU時間；

改進程序如下：

程序（3）：

Private?Sub?ValueChange；

將圖片框中表盤位圖傳送至控件窗口

計算指針偏轉角Angle

Call?DrawPointer(Angle)；畫指定角度的指針

End?Sub

其他屬性

可為控件指定一個工具箱像標,為控件制作一個About窗體,在控件窗體文件中加入顯示About窗體過程,并設置過程屬性,這樣在使用控件時,在控件屬性窗中出現About屬性.編譯控件工程生成OCX控件文件,可在其他程序中多次使用。