Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer
Dim documentcount As Long
Dim sampletext As Illustrator.TextFrame
Dim samplepic As Illustrator.GraphItem

Set doc = app.Documents.Add
Set sampletext = doc.TextFrames.Add
'Set samplepic = doc.Gr
sampletext.Position = Array(200, 200)
sampletext.Contents = "hello worldfasdfasdfas"
End Sub 
ÈçÔËÐÐǰÒѾ­ÌáǰÆô¶¯Adobe IllustratorÈí¼þ£¬Ò»ÇÐÕý³££¬µ«Èç´ËǰAdobe IllustratorÈí¼þδÆô¶¯£¬Ö´Ðе½¡°Set doc = app.Documents.Add¡±ÏµÍ³»áÌáʾ¡°activex²¿¼þ²»ÄÜ´´½¨¶ÔÏó¡±£¬Ó¦ÈçºÎÐ޸ģ¿·Ç³£¸Ðл£¡
ÄãÔÚapp.Documents.AddÇ°ÃæÏȵ÷ÓÃapp.Open ´ò¿ªÒ»¸ö¿ÕµÄaiÎļþ¿´¿´¡£

ÎÒÔø¾­ÊÔ¹ý´ò¿ªÒ»¸öÒѾ­´æÔÚµÄaiÎļþ£¬¼´½«¡°Set doc = app.Documents.Add¡±»»Îª¡°Set doc = app.Documents.Application.Open("c:\8.ai")¡±£¬µ«Ò²ÌáʾͬÑù´íÎó

ÕâÑùµÄ»°£¬¿ÉÄÜûÓÐʲôºÃ°ì·¨ÁË¡£Ö»ÓÐÏÈÓà shell ¡°xxxx\Illustrator.exe"´ò¿ª³ÌÐò£¬ÔÙµ÷ÓÃapp.Documents.Add¡£Ò»°ãÀ´Ëµ£¬VBÕâÀà³ÌÐòµÄ²Ù×÷£¬¶¼Òª¿ªÓ¦ÓóÌÐòµÄ£¬¾ÍÊDzÙ×÷wordÒ²Ò»Ñù£¬ºǫ́»á×Ô¶¯Æô¶¯wordÓ¦ÓóÌÐò¡£

²»¹ÜÔõÑùÏÈлл¥ÉϵÄÅóÓѵÄÈÈÐĻشð¡£
µ«ÊDZØÐëÏÈshellÂ𣿿ÉÊÇÎÒдÀàËÆµÄ²Ù×÷word»òexcelµÄ³ÌÐò¶¼Ö±½Ó´´½¨¶ÔÏó¼´¿É£¬ÎÞÐèshellÏà¹Ø³ÌÐò¡£¶øÇÒ£¬shellдµÄ³ÌÐòºÜÄÑÒÆÖ²£¬ÒòÎªÒªÃæÁÙ¼¸¸öÎÊÌ⣬Èç³ÌÐòÓÐʲô°ì·¨¿É»ñÈ¡Illustrator.exe ³ÌÐòµÄ¾ø¶Ô·¾¶¼°ÎļþÃû£¿¶øÇÒ£¬Illustrator.exeÆô¶¯ÐèÒªÒ


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

InstallShieldÖÆ×÷VB°²×°°ü

ÎÒÓÃInstallShield 10.0ÖÆ×÷ÁËÒ»¸öVB°²×°°ü
ÎÊÌâÊÇ£º
      ÔÚ±ðµÄ»ú×ÓÉϰ²×°ºó£¬ÔÚÔËÐгÌÐòµÄʱºò£¬ÌáʾdllÕÒ²»µ½£¬²»Äܵ÷Óá£

ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨ ......

VBÖйØÓÚÃÜÂëÈÏÖ¤

ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë
È»ºó¸úÊäÈëµÄÄÚÈݱȽÏ
ºÜ¼òµ¥ ......

ΪºÎÓÃvb api»ñÈ¡µÄ´°¿Ú±êÌâΪ¿Õ£¬¶øSPY++È´¿ÉÒÔ

VBÖÐcallbacke function ÈçÏ£º
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim slength As Long, WndTitle As String ' title bar text length an ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ