ActiveX控件在C#中的使用
ActiveX控件在C#中的使用在開始一切工作之前,請確保ActiveX控件已經注冊到計算機,請運行系統安裝目錄下面“注冊控件.bat”。
在C#中,新建一個Windows應用程序,并指定一個位置和項目名稱。
按“確定”,畫面上出現主窗口界面。然后在工具箱上單擊右鍵,出現下面菜單
選擇“添加/移除項(I)...”,出現一個窗口,選擇COM控件頁,選擇Visual Graph ActiveX Control
按“確定”,會增加下面的圖標。
按下圖標,在主窗口上拉框創建一個Visual Graph ActiveX控件,缺省的名字為axvgctrl1。
編輯源代碼,在前面添加
using vg;
第一步:雙擊窗口,填寫下面的代碼
private void Form1_Load(object sender, System.EventArgs e)
{
axvgctrl1.Design( "" );
}
這句程序執行后,將在控件中設計一個新的Visual Graph視圖文件,控件支持Design(設計)和Run(運行)兩個函數,無論接下來要干什么,一開始必須執行這兩個函數其中一個,在繪圖版本中,多用Design函數,用戶將可以用鼠標在控件窗口上編輯圖形;在工業監控等領域一般多用Run函數,用戶不能用鼠標直接編輯圖形,但用鼠標點擊畫面上不同的圖形時會有各種控制事件發生,而且某些圖形還會產生動作。如果要打開一個視圖文件,參數是文件名。
第二步:在窗口上放一個按鈕button1,雙擊這個按鈕,編寫下面的代碼
private void button1_Click(object sender, System.EventArgs e)
{
ISheet ASheet;
IText AText;
ASheet = axvgctrl1.ActiveSheet;
AText = (IText)ASheet.AddUnit( "Text", 0, 0, 100, 100 );
AText.Text = "Hello World!";
}
注意,一定要確保前面添加了using vg;否則這里的對象,C#不認識。
ActiveSheet是視圖文件的當前頁面(頁面類),Visual Graph圖形系統支持多個頁面,當前畫圖的工作都是在ActiveSheet上實現的,一般應用中只要一個頁面就夠了,但是如果視圖文件是作為圖庫來用,它里面可能頁面就多了。
AddUnit是頁面類的函數成員,在ASheet頁面上添加一個文字單元,寬度和高度都是100。這句程序執行后,用鼠標點擊新生成的圖形,可以在上面輸入字符,或者用鼠標移動這個圖形,改變它的大小等。由于AddUnit返回的類型是通用的IUnit,而我們確切地知道我們會創建一個文字單元出來,所以可以把它強制轉換為IText類型(IText是從IUnit繼承下來的)。
Text是文字單元類的屬性成員,通過它修改圖形的文字屬性。
第三步:在窗口上再放一個按鈕button2,雙擊這個按鈕,編寫下面的代碼
private void button2_Click(object sender, System.EventArgs e)
{
axvgctrl1.NewUnit( "Line", 0 );
}
NewUnit是視圖類的命令函數,執行這句程序后,可以在畫面上用鼠標畫線。
第四步:下面,我們要給控件加上相應的事件,例如右鍵事件。
private void axvgctrl1_OnRButtonDown(object sender, Axvg.IvgctrlEvents_OnRButtonDownEvent e)
{
ISheet ASheet;
IUnit AUnit;
ASheet = axvgctrl1.ActiveSheet;
AUnit = ASheet.UnitAtPoint(e.x, e.y, null );
MessageBox.Show( this, "您在圖形:" + AUnit.Name + " 上按下了右鍵!" );
}
UnitAtPoint是頁面類的函數成員,返回當前鼠標位置處的圖形單元。我們一般在右鍵事件上掛上菜單,用這種辦法我們就能知道當前要對什么圖形對象進行操作,然后,根據不同的圖形對象,產生不同的菜單內容。此處也可以用下面的寫法:
AUnit = ASheet.UnitAtCursor( null ),這樣也得到當前鼠標位置所在的圖形。
第五步:上面這個程序有個漏洞,如果我們沒有首先單擊button1按鈕創建一個圖形,那么這里的AUnit就是空,將使得最后一行程序出錯,因此,要修改為:
private void axvgctrl1_OnRButtonDown(object sender, Axvgctrl40.IvgctrlEvents_OnRButtonDownEvent e)
{
ISheet ASheet;
IUnit AUnit;
ASheet = axvgctrl1.ActiveSheet;
AUnit = ASheet.UnitAtPoint(e.x, e.y, null );
if( AUnit != null )
MessageBox.Show( this, "您在圖形:" + AUnit.Name + " 上按下了右鍵!" );
}
第六步:下面我們添加元件。在窗口上再放一個Visual Graph ActiveX控件,把它設法放到看不到的地方(但是Visible屬性不能設置成False)。修改Form1_Load代碼
private void Form1_Load(object sender, System.EventArgs e)
{
axvgctrl1.Design( "" );
string s = axvgctrl1.Execute( "return SystemParams.DefaultPath" );
axvgctrl2.Run( "controls.tbl" );
axvgctrl2.Library = true;
}
這里所指的controls.tbl在Visual Graph安裝目錄的dat子目錄下,編寫時一定要把路徑寫全。
在窗口上再放一個按鈕button3,雙擊這個按鈕,編寫下面的代碼
private void button3_Click(object sender, System.EventArgs e)
{
axvgctrl1.NewUnit( "button", 0 );
}
NewUnit是視圖類的命令函數,執行這句程序后,可以在畫面上用鼠標畫出按鈕的形狀來。實際上,這句程序執行后,將首先判斷第一個參數是不是保留的圖形類名(text,shape,line),如果不是,將從當前指定的元件庫(vgctrl2)中尋找相應名字的頁面。如果把這句程序改成axvgctrl1.NewUnit( "button", 1 ),也就是第二個參數改為1,移動鼠標到畫面,可以看到鼠標上拖著一個元件。可以放置若干個控件,打開多個圖庫文件,需要切換到某個圖庫時,就設置這個控件的Library屬性為True,當前只能有一個圖庫,就是最后設置的這一個。如果需要用程序添加“button”這個元件,就執行axvgctrl1.ActiveSheet.AddUnit( "button", 0, 0, 0, 0 )。
第七步:下面我們給上面的按鈕增加一個雙擊事件,為它增加自定義屬性MyProp
private void axvgctrl1_OnDblClick(object sender, System.EventArgs e)
{
ISheet ASheet;
IUnit AUnit;
ASheet = axvgctrl1.ActiveSheet;
AUnit = ASheet.UnitAtCursor( null );
if( AUnit != null )
{
if( AUnit.Type == "button" )
AUnit.SetPropertyValue( "MyProp", "1234" );
};
}
不同類型的元件,用Type屬性來區分。SetPropertyValue是圖形單元類的函數,如果元件已經有了MyProp這個屬性,就修改這個屬性的值。GetPropertyValue函數可以返回一個屬性的值。