vbcom.txt

使用JCom的时候

VB偱嶌惉偟偨俠俷俵傪棙梡偡傞丅

巊偆応崌偼丄Project1.DLL傪COM偲偟偰儗僕僗僩儕偵搊榐偡傞昁梫偑偁傝傑偡丅

regsvr32 Project1.dll


倁俛偺俠俷俵偺嶌傝曽丅

怴偟偄僾儘僕僃僋僩偱乽ActiveXDLL乿傪慖傃傑偡丅

僾儘僕僃僋僩乽Project1乿偲僋儔僗乽Class1乿偑惗惉偝傟傑偡偑丄
俠俷俵傪埖偆応崌丄偙偺柤慜"Project1.Class1"偑偦偺傑傑ProgID
偵側傝傑偡丅

偡傋偰偺宆偑巊偊傞傢偗偱偼偁傝傑偣傫丅摿偵丄VARIANT偵偼
懳墳偟偰偄側偄偺偱拲堄偟偰壓偝偄丅
巊偊傞宆偲俠俷俵丆俰倎倴倎偲偺懳墳偼僪僉儏儊儞僩 guide.html
傪嶲徠偟偰壓偝偄丅

倁俛偱Project1.dll傪惗惉偡傞偲丄偦傟偩偗偱儗僕僗僩儕傊偺搊榐傕
姰椆偟偰偄傑偡丅OLE/COM Object Viewer 偱尒傞偲丄埲壓偺傛偆偵
側偭偰偄傑偡丅

[
  uuid(89D32A06-9E40-11D4-9641-E91D15319666),
  version(1.0),
  hidden,
  dual,
  nonextensible
]
dispinterface _Class1 {
    properties:
    methods:
        [id(0x60030000)]
        unsigned char testByte(
                        [in] unsigned char a, 
                        [in, out] unsigned char* b);
        [id(0x60030001)]
        short testInteger(
                        [in] short a, 
                        [in, out] short* b);
        [id(0x60030002)]
        long testLong(
                        [in] long a, 
                        [in, out] long* b);
        [id(0x60030003)]
        single testSingle(
                        [in] single a, 
                        [in, out] single* b);
        [id(0x60030004)]
        double testDouble(
                        [in] double a, 
                        [in, out] double* b);
        [id(0x60030005)]
        VARIANT_BOOL testBoolean(
                        [in] VARIANT_BOOL a, 
                        [in, out] VARIANT_BOOL* b);
        [id(0x60030006)]
        BSTR testString(
                        [in] BSTR a, 
                        [in, out] BSTR* b);
        [id(0x60030007)]
        DATE testDate(
                        [in] DATE a, 
                        [in, out] DATE* b);
        [id(0x60030008)]
        CURRENCY testCurrency(
                        [in] CURRENCY a, 
                        [in, out] CURRENCY* b);
        [id(0x60030009)]
        void testVoid();
};

嵟屻偺僥僗僩偼儊僢僙乕僕俛俷倃傪昞帵偟偰偄傑偡丅
俰倎倴倎偐傜倁俛偺俧倀俬傕埖偊傞偺偱偡偹丅