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Â𣿿ÉÊÇÎÒдÀàËƵIJÙ×÷word»òexcelµÄ³ÌÐò¶¼Ö±½Ó´´½¨¶ÔÏó¼´¿É£¬ÎÞÐèshellÏà¹Ø³ÌÐò¡£¶øÇÒ£¬shellдµÄ³ÌÐòºÜÄÑÒÆÖ²£¬ÒòΪҪÃæÁÙ¼¸¸öÎÊÌ⣬Èç³ÌÐòÓÐʲô°ì·¨¿É»ñÈ¡Illustrator.exe ³ÌÐòµÄ¾ø¶Ô·¾¶¼°ÎļþÃû£¿¶øÇÒ£¬Illustrator.exeÆô¶¯ÐèÒªÒ
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÈçÌâ~~
MSDN£¬Google£¬Ïëϵͳѧ½¨Ò黹ÊÇÂò±¾Êé¿´°É£¬±Ï¾¹ÊÖ´òµÄ´úÂë¼ÇÒäÒª±È¸´ÖƵÄÉî¿Ì¡£
ÎÒÒª±ßѧ±ßÓÃÔÚ´úÂëÀïÃ棬¿Ï¶¨ÒªÊÖ´òµÄÁË
¿´¿´sql server 2005µÄ°ïÖúºÜÈ«Ãæ»ò¿´¿´Êé
http://topic.csdn.net/u/2 ......
ÎÒÓÃInstallShield 10.0ÖÆ×÷ÁËÒ»¸öVB°²×°°ü
ÎÊÌâÊÇ£º
ÔÚ±ðµÄ»ú×ÓÉÏ°²×°ºó£¬ÔÚÔËÐгÌÐòµÄʱºò£¬ÌáʾdllÕÒ²»µ½£¬²»Äܵ÷Óá£
ÎÒÔÚÖÆ×÷°²×°°üµÄʱºò£¬½«exeÎļþ¡¢iniÎļþ¡¢Í¼Ðοؼþ£¨ ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õʼ×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ»·
form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean
Ñ»·´úÂëÌí¼Ó£º
bEnd = False
Do
...
If ......