Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Æô¶¯ÐèÒªÒ


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VBµ÷ÓÃwordºó³öÏÖµÄÎÊÌâ

ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)

È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc

ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË

½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ


Õâ¸öÒªÔõà ......

VB Timer¿Ø¼þ

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

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

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......

ΪºÎÓÃ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ºÅ