ActiveX控件在C#中的使用
在開始一切工作之前，請確保ActiveX控件已經(jīng)注冊到計(jì)算機(jī)，請運(yùn)行系統(tǒng)安裝目錄下面“注冊控件.bat”。
在C#中，新建一個(gè)Windows應(yīng)用程序，并指定一個(gè)位置和項(xiàng)目名稱。
按“確定”，畫面上出現(xiàn)主窗口界面。然后在工具箱上單擊右鍵，出現(xiàn)下面菜單
選擇“添加/移除項(xiàng)(I)...”，出現(xiàn)一個(gè)窗口，選擇COM控件頁，選擇Visual Graph ActiveX Control
按“確定”，會增加下面的圖標(biāo)。
按下圖標(biāo)，在主窗口上拉框創(chuàng)建一個(gè)Visual Graph ActiveX控件，缺省的名字為axvgctrl1。
編輯源代碼，在前面添加
using vg;
第一步：雙擊窗口，填寫下面的代碼
private void Form1_Load(object sender, System.EventArgs e)
{
axvgctrl1.Design( "" );
}
這句程序執(zhí)行后，將在控件中設(shè)計(jì)一個(gè)新的Visual Graph視圖文件，控件支持Design（設(shè)計(jì)）和Run（運(yùn)行）兩個(gè)函數(shù)，無論接下來要干什么，一開始必須執(zhí)行這兩個(gè)函數(shù)其中一個(gè)，在繪圖版本中，多用Design函數(shù)，用戶將可以用鼠標(biāo)在控件窗口上編輯圖形；在工業(yè)監(jiān)控等領(lǐng)域一般多用Run函數(shù)，用戶不能用鼠標(biāo)直接編輯圖形，但用鼠標(biāo)點(diǎn)擊畫面上不同的圖形時(shí)會有各種控制事件發(fā)生，而且某些圖形還會產(chǎn)生動作。如果要打開一個(gè)視圖文件，參數(shù)是文件名。
第二步：在窗口上放一個(gè)按鈕button1，雙擊這個(gè)按鈕，編寫下面的代碼
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#不認(rèn)識。
ActiveSheet是視圖文件的當(dāng)前頁面（頁面類），Visual Graph圖形系統(tǒng)支持多個(gè)頁面，當(dāng)前畫圖的工作都是在ActiveSheet上實(shí)現(xiàn)的，一般應(yīng)用中只要一個(gè)頁面就夠了，但是如果視圖文件是作為圖庫來用，它里面可能頁面就多了。
AddUnit是頁面類的函數(shù)成員，在ASheet頁面上添加一個(gè)文字單元，寬度和高度都是100。這句程序執(zhí)行后，用鼠標(biāo)點(diǎn)擊新生成的圖形，可以在上面輸入字符，或者用鼠標(biāo)移動這個(gè)圖形，改變它的大小等。由于AddUnit返回的類型是通用的IUnit，而我們確切地知道我們會創(chuàng)建一個(gè)文字單元出來，所以可以把它強(qiáng)制轉(zhuǎn)換為IText類型（IText是從IUnit繼承下來的）。
Text是文字單元類的屬性成員，通過它修改圖形的文字屬性。
第三步：在窗口上再放一個(gè)按鈕button2，雙擊這個(gè)按鈕，編寫下面的代碼
private void button2_Click(object sender, System.EventArgs e)
{
axvgctrl1.NewUnit( "Line", 0 );
}
NewUnit是視圖類的命令函數(shù)，執(zhí)行這句程序后，可以在畫面上用鼠標(biāo)畫線。
第四步：下面，我們要給控件加上相應(yīng)的事件，例如右鍵事件。
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是頁面類的函數(shù)成員，返回當(dāng)前鼠標(biāo)位置處的圖形單元。我們一般在右鍵事件上掛上菜單，用這種辦法我們就能知道當(dāng)前要對什么圖形對象進(jìn)行操作，然后，根據(jù)不同的圖形對象，產(chǎn)生不同的菜單內(nèi)容。此處也可以用下面的寫法：
AUnit = ASheet.UnitAtCursor( null )，這樣也得到當(dāng)前鼠標(biāo)位置所在的圖形。
第五步：上面這個(gè)程序有個(gè)漏洞，如果我們沒有首先單擊button1按鈕創(chuàng)建一個(gè)圖形，那么這里的AUnit就是空，將使得最后一行程序出錯(cuò)，因此，要修改為：
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 + " 上按下了右鍵！" );
}
第六步：下面我們添加元件。在窗口上再放一個(gè)Visual Graph ActiveX控件，把它設(shè)法放到看不到的地方（但是Visible屬性不能設(shè)置成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子目錄下，編寫時(shí)一定要把路徑寫全。
在窗口上再放一個(gè)按鈕button3，雙擊這個(gè)按鈕，編寫下面的代碼
private void button3_Click(object sender, System.EventArgs e)
{
axvgctrl1.NewUnit( "button", 0 );
}
NewUnit是視圖類的命令函數(shù)，執(zhí)行這句程序后，可以在畫面上用鼠標(biāo)畫出按鈕的形狀來。實(shí)際上，這句程序執(zhí)行后，將首先判斷第一個(gè)參數(shù)是不是保留的圖形類名（text，shape，line），如果不是，將從當(dāng)前指定的元件庫(vgctrl2)中尋找相應(yīng)名字的頁面。如果把這句程序改成axvgctrl1.NewUnit( "button", 1 )，也就是第二個(gè)參數(shù)改為1，移動鼠標(biāo)到畫面，可以看到鼠標(biāo)上拖著一個(gè)元件。可以放置若干個(gè)控件，打開多個(gè)圖庫文件，需要切換到某個(gè)圖庫時(shí)，就設(shè)置這個(gè)控件的Library屬性為True，當(dāng)前只能有一個(gè)圖庫，就是最后設(shè)置的這一個(gè)。如果需要用程序添加“button”這個(gè)元件，就執(zhí)行axvgctrl1.ActiveSheet.AddUnit( "button", 0, 0, 0, 0 )。
第七步：下面我們給上面的按鈕增加一個(gè)雙擊事件，為它增加自定義屬性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屬性來區(qū)分。SetPropertyValue是圖形單元類的函數(shù)，如果元件已經(jīng)有了MyProp這個(gè)屬性，就修改這個(gè)屬性的值。GetPropertyValue函數(shù)可以返回一個(gè)屬性的值。