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Æô¶¯ÐèÒªÒ
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÔÚVBÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄSQLÓï¾ä
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
±ÈÈ磺
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber= ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
´úÂëÈçÏ£º
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)
È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc
ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË
½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ
Õâ¸öÒªÔõà ......