ÈçÌâ °ÑÉÏÃæµÄMe.hwnd»»³ÉPicture1.hwnd¼´¿É ·Ç³£¸Ðл¹²Ïí£¡¿ÉÄÜÎÒûÓÐдÇå³þÎÊÌ⣬ÊÇÒªpicturebox±³¾°Í¸Ã÷£¬²»ÊÇËü±¾Éí͸Ã÷ ¿´¿´Õâ¸ö ¶¥Ò»¸ö~~ Èç¹ûÄãÐèÒªµÄÊDZ³¾°Í¼Æ¬µÄ͸Ã÷±³¾°Ð§¹û£¬ÐèÒª½«Í¼Æ¬ÔÚPSÖд¦Àí²¢Áí´æΪGIF¸ñʽ»òTIF¸ñʽ£¬²¢ÔÚ´æ´¢¶Ô»°¿òÖÐÑ¡Ôñ±³¾°Í¸Ã÷Ñ¡Ïî¡£ VB code: Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean
Private Sub Form_Load() Picture1.AutoRedraw = True Picture2.AutoRedraw = True Picture1.Picture = LoadPicture(App.Path & "\001.JPG") 'Ò»ÕÅ°×É«±³¾°Í¼Æ¬ Picture1.Left = -1 * Picture1.Width ' Picture1ÊǸ¨ÖúͼƬ¿ò,·ÅÔÚ´°ÌåÖ®Íâ Picture1.ScaleMode = vbPixels Picture2.ScaleMode = vbPixels End Sub
Private Sub Picture2_Paint() DoEvents TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, RGB(255, 255, 255) 'RGB(255, 255, 255)ÊÇ͸Ã÷É«-- °×É« End Sub
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......