請問如何用BCB ~~引用 Com Object 的 Event ? |
尚未結案
|
CuteBabyBoy
初階會員 發表:18 回覆:97 積分:48 註冊:2003-07-11 發送簡訊給我 |
Dear All 目前我遇到一個問題,我想引用別人所寫的Event ( VB or VC ) ,對於 Com Object 我只是用
Variant Value = Variant::CreateObject("aaa.bbb"); Value.OleFunction("ccc")而我朋友 ( 寫 VB ) 的,他說 VB 引用 Event 也是要靠自己宣告 ( 相關範例如下 ) 我對 VB 也不是很熟...不知道有沒有幫助大家理解我想問的問題 它好像僅用 "WithEvents" 就能引用相關 Event 而他問我能不能 Load 其 Type Library... 我好像目前沒辦法... Dim WithEvents aa As clsNewHook Attribute aa.VB_VarHelpID = -1 Dim i As Integer Private Sub aa_KeyChange(ByVal KeyStr As String) Debug.Print "KeyChange=[" & KeyStr & "]" Add2List "KeyChange=[" & KeyStr & "]" Text1.Text = aa.KeyHookStr If KeyStr = "^ |72,35" Then End End Sub關於 Ole 的資訊,我上網查都好少..>< 對於 ActiveX Library 我算是新手 (才玩幾天..) ,對dll 的體認也是這幾天才體會到它的好處,所以希望有經驗的朋友能多提供一些資料給我,謝謝! 發表人 - taishyang 於 2003/11/13 12:56:16 |
CuteBabyBoy
初階會員 發表:18 回覆:97 積分:48 註冊:2003-07-11 發送簡訊給我 |
Dear ALL 在今天中午前... 我嘗試了很多方式 原來..在工具列 Project 內就能 Import Type Library ( 居然用這麼久都沒發現 ) 用法就很類似加入新的 Object 一樣... 經過 Install 後產生出 BCB 看的懂的 Library 以前當要用 *.pas 物件都由 Component \ Iistall Component 現在我一般的 Com Object 已經知道怎麼溝通 但...這也只是第一步.... 在來我要試的就是如何引用 Com Object 的 Event 老實說...目前我要引用的 Com Object 是有包 Form 的 會不會因為是 VB 包 Form ... BCB 就無法使用 ? 這我會在嘗試....如果有進度 我會寫在這邊討論.... 而有相關經驗的朋友~~~也歡迎一起來討論....
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: Dear ALL 在今天中午前... 我嘗試了很多方式 原來..在工具列 Project 內就能 Import Type Library ( 居然用這麼久都沒發現 ) 用法就很類似加入新的 Object 一樣... 經過 Install 後產生出 BCB 看的懂的 Library 以前當要用 *.pas 物件都由 Component \ Iistall Component 現在我一般的 Com Object 已經知道怎麼溝通 但...這也只是第一步.... 在來我要試的就是如何引用 Com Object 的 Event 老實說...目前我要引用的 Com Object 是有包 Form 的 會不會因為是 VB 包 Form ... BCB 就無法使用 ? 這我會在嘗試....如果有進度 我會寫在這邊討論.... 而有相關經驗的朋友~~~也歡迎一起來討論....CuteBabyBoy 你好: 小弟我實在不想潑你的冷水,請先參考這篇文章中的說明
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
CuteBabyBoy
初階會員 發表:18 回覆:97 積分:48 註冊:2003-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |