VB mapinfo
ÓÃVBдÁËÁ½¾ä´úÂ룬ʵÏÖÈÃmapinfoÔËÐÐreshow.mbxµÄ¹¦ÄÜ¡£ÈçÏ£º
Private Sub Form_Load()
Set mapinfo = GetObject(, "MapInfo.Application")
mapinfo.do "Run Application ""F:\err\reshow.MBX"" "
End Sub
ÉÏÃæ´úÂëµÄÈ·¿ÉÒÔÖ´ÐУ¬ÏÖÔÚÏëÖªµÀÔÚVC++ÖÐʵÏÖͬÑùµÄ¹¦ÄÜ£¬´úÂëÊÇʲô£¿ ¾ÍÁ½¾ä£¬ºÙºÙ£¬ÏÈлл¸÷λÀ²¡£
1·Ö˵²»Ã÷°×¡£
Á½¾äÖÁÉÙÒª2·Ö¡£
¹þ¹þ£¬ÎÒÊÇÐÂÊÖ£¬²»Ì«¶®¹æ¾Ø¡£ÎÒ¼Óµ½5·ÖÈçºÎ¡£Ð»Ð»¸÷λÁË¡£
ΪÁËÏÔʾ³ÏÒ⣬¼Óµ½20·ÖÁË¡£Ð¡µÜÐÂÀ´£¬²»Òª±ÆÅ¼ÆÆ²ú¹þ£¬ºÇºÇ¡£
ºÇºÇ£¬°ï¶¥
¹»Òâ˼£¬Ð»À²Ðֵܣ¡
Ó¦¸ÃÈ¥c++ÂÛ̳ÎÊ
ллÌáÐÑ
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......