Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖйØÓÚÃÜÂëÈÏÖ¤

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

ÈçºÎÓÃVB×öÒ»¸ö»æÍ¼³ÌÐò

¹¦ÄÜ£ºÔÚÊäÈëµãµÄ×ø±êºó£¬»­³ö¶ÔÓ¦µÄµã£»ÔÚ»­Á˵ãºó£¬¿ÉÒÔÐ޸ĵãµÄ×ø±ê£¬²¢´Óл­£»Öظ´Ö±µ½Í¼ÐÎÂÖÀª»­Íê¡£²¢¿ÉÒÔ½«µãµÄ×ø±ê×÷ΪÎı¾ÎĵµÊä³ö¡£
ÎÒ²»ÖªµÀÔõôÄÜʵÏÖ£¬Ð»Ð»£¡
ÓÃPictureBoxʵÏÖ°É,ÐèÒª¶Ô×ø±êµ¥Î»» ......

VB Îı¾¿ò

×Ö·û´® m1="E"
×Ö·û´® m2="F"

Èç¹ûtext1.text=m1+m2µÄ»°  Ôòtext1ÏÔʾµÄÊÇ EF

µ«ÊÇÈç¹û
×Ö·û´® m1="E"
×Ö·û´® m2="6"
Èç¹ûtext1.text=m1+m ......

VB´°ÌåÎÊÌâ

ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС.

ÒªÔõôÉè?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6


VB cod ......

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ