Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb picturebox±³¾°Í¸Ã÷

ÈçÌâ

°ÑÉÏÃæµÄMe.hwnd»»³ÉPicture1.hwnd¼´¿É

ÒýÓÃ
°ÑÉÏÃæµÄ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


È¥µôPicture2.AutoRedraw = TrueÒ»¾ä

ÕâÒ²Ö»ÊÇͼƬ͸Ã÷,²¢²»Ê


Ïà¹ØÎÊ´ð£º

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 ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ