²»ÖªÔõÑùʵÏÖ£¬ÄÜ·ñ¸ø³öʾÀý´úÂëÂ𣿻ò˼·¡¢Ëã·¨Ò²¿ÉÒÔ£¡ GDI²»¶®£¬¼òµ¥µÄÓÃMoveÃüÁîÀ´ÊµÏÖ£¬´óÖÂÈçÏ£º VB code: Option Explicit Dim lngL As Long Dim lngT As Long Dim lngW As Long Dim lngH As Long Private Sub Command1_Click() Do lngT = lngT + 2 lblMove.Move lngL, lngT DoEvents Loop Until lblMove.Top >= 3000 End Sub
Private Sub Form_Load() With lblMove .Left = 0 .Top = 0 lngL = .Left lngT = .Top lngW = .Width lngH = .Height End With End Sub
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......