🚀 go-pugleaf

 ����ũ
    һ������
    Windows����Ҫ�ص�֮һ����Ӧ�ó�����Ӧ�ó���֮����Ժ���
�׵ع�����Ϣ,��򵥵ķ�ʽ�����ü����,����DDE(��̬��ݽ���)(
DDE�ķ�ʽ�����������,�����Դ��Ϳ�������)��OLE(����������Ƕ
��)��OLE��Ӧ�ó��򻷾�����"Ӧ�ó���Ϊ����"�Ľṹ��"�ĵ�
Ϊ����"�Ľṹ,"�ĵ�Ϊ����"��Ӧ�ó��������ڰ���"����"�ߵĽ�ɫ
,���Ӧ�ó����е��ĵ�������صĶ���Ӧ�ó������������޸ĵġ�
    OLE��3������:���Ӷ���Ƕ������OLE�Զ�����OLE���ƿ���
��"����"��"Ƕ��"�ķ�ʽ����ݺϲ���Ӧ�ó�����,ֻ��"����"����
����ݴ洢���ṩ���ӵ�Ӧ�ó���һ��,��"Ƕ��"���������򱣴�
��Ӧ�ó����һ��(��OLE����֮��)��OLE�Զ������ø��,���Դ�ȡ
��ά�����Ӧ�ó����е�OLE����,������Visual Basic�п�����Crea
teObject�����GetObje ct����,�ڳ����в�������OLE�Զ����Ķ���
��
    �������Ӿ���ʹ��OLE 2.0,��MapInfo��ͼ��Ϣϵͳ���ɵ���Vis
ual Basic��̵�Ӧ�ó����С���ʱʹ���߿�����MapInfo��ͼ����,
����һbitmap,Ҳ����һ��metafile,����VBʹ���߿���ֱ��ʹ�õ�Ma
pInfo��ͼ��Ϣϵͳ,MapInfo�е�ͼ���ڵ����й��ܶ��С��������
����Ŵ���С�����εȡ�����Ȥ��,Ҳ���Բ�������֧��OLE 2.0��
�Զ���������Ʒ,��C/ C++��PowerBuilder��Delphi,����������MapI
nfo��ͼ��Ϣϵͳ��Ӧ�ó����ڼ���MapInf o��ͼ��Ϣϵͳʱ,MapI
nfoֻ֧��OLE�Զ�����DDE,OLE�Զ���Ҫ��DDE��ɿ�,�����ٶȸ��,
����Ҳ���Щ(�ɱ�������ʱ�Ĵ�����)��

    �������ɵ�Ҫ��

    1.����Microsoft Windows,16λWindows(Windows 3.1��Windows
 for Workgroups),32 λWindows(Windows95��Windows NT 3.51���
�°汾)��
    2.Visual Basic 3.0����°汾��

    3.MapInfo 4.0����°汾��

    4.�û���\SYSTEMĿ¼�±���������ļ�:
    COMPOBJ.DLL
    OLE2.REG
    OLE2.DLLMSOLE2.VBX
    MSOLEVBX.DLLOLE2CONV.DLL
    OLE2DISP.DLLOLE2NLS.DLL
    OLE2PROX.DLLSTORAGE.DLL
    VBOA300.DLL
    ��������REGEDIT/S  OLE2.REG���û��Ļ�����ע��OLE2.0,����
��Ҫ��Autoexec.bat�ļ���ִ��SHARE.EXE,������SYSTEM.INI��[386
Enh]���ּ���device=vshare.386һ�С�
    5.��Ӧ�ó����б������һ���û��ӿ�Ԫ��(��:һ�����ڡ�һ��
�?����һ������)��Ϊ��ͼ��"���"��,ͬʱӦ�ó����б�����ȷ��
�û��ӿ�Ԫ�ص�Windows HWNDֵ��������VB ��,�ɽ�PictureBox����
����һ���?,���������MapInfo,����MapInfo��Picture Box�в�
����һ�ŵ�ͼʱ,����ȷ��PictureBox��HWNDֵ��

    �����ʾ��
    ���Ȳ���һ���µ�VB����,�ڹ����ܵ����������,����һ��Obje
ct����(����������me)��
    Dim me As Object
    �ټ���һ��Form-Load��̡�
    Sub Form-Load()
    Set me=Create Object("MapInfo.Application")me.do "Set Ap
plication Windows" & Form1.hWnd me.do "Set Next Document Par
ent" & Form1.hWnd & "Style 1" me.do "O pen Table" "World" "I
nteractive Map From World" me.RunMenuCommand 1702me.do "Cr e
ate Menu" "Mappershortcut" "ID17As" "(-" "  " End Sub������
�ó���ʱ,�ڱ����м�����MapInfo,������һ����ͼ����,�õ�ͼ����
��ΪVB������Ӵ��ڡ�
    �ġ�˵��
    ����,Ҫ������MapInfo,�����VB��CreateObject����,��ȷ��VB
Object�����ķ���ֵ��
    Set me=CreateObject("MapInfo.Application")
    ���Ҫ������ǰ���е�MapInfo����,����δ��CreateObject()��
�ü���,��ʹ��VB��Ge tObject()����
    Set me=GetObject(,"MapInfo.Application")
    ���ʹ�õ���MapInfo runtime�汾,���MapInfo��full copy,
��������е�"MapInfo .Application"Ӧ��֮Ϊ"MapInfo.Runtime"
��
    ��32λWindows(Windows 95��Windows NT)��,MapInfo�Ķ����
�ӿ�ͬ������,���MapInfo��,�ٵ���CreateObject()������һ
�����ɵ�ͼ��Ϣϵͳ��Ӧ�ó���,��ʱMapInfo���������ӽ��ֱ�����
,����16λWindows��,ͬʱֻ����MapInfoһ���������С������Ѿ���
����MapInfo,�ֵ���CreateObject()����һ�����ɵ�ͼ��Ϣϵͳ��Ӧ
�ó���,��ʱ��Ӧ�ó����ܼ���MapInfo����һ���ӡ�
    ���,�������MapInfo,ִ�д򿪱����䡣
    me.do "Open Table" "World" "Interactive Map From World"
Ҳ�������ַ��ɡ�
    msg="Open Table" "World" "Interactive Map From World" me
.do msg
    (���ߵ�ַ:�й�����豸ϵͳ���̹�˾�о���,100039) 

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: bbs.njupt.edu.c]