vb ͼÏñ´¦Àí ±È½Ï²»Í¬ ͸Ã÷
ÏÖÓÐÁ½ÕÅͼƬpic1ºÍpic2 £¬ËüÃǴ󲿷ÖÏàͬ£¬ÏÖÒª±È½ÏËüÃǵIJ»Í¬£¬²¢ÇÒ°Ñpic1ÖÐÓëpic2ÏàͬµÄµØ·¢ÉèΪ͸Ã÷£¬¹Ø¼üÊÇËÙ¶ÈÒªÃü¡£¡£¡£
Òª¿´Í¼Æ¬´óСÁË£¬Öð¸öÏñËØ±È½ÏÊDZȽÏÂý
ÓÃbitblt£¬ºÏÀíÔËÓùâÕ¤²Ù×÷·û£¬Ó¦¸ÃÄܱȽϿìµÄʵÏÖÕâ¸ö¹¦ÄܰÉ
Öð¸öÏñËØ¾Í²»¿¼ÂÇÁË Ëٶȸú²»ÉÏ
ÎÒÓÃTransparentBlt Óкڱß
ѰÕÒ¸ßÊÖÖÐ
²»ÖªµÀÏȰÑͼÏñת»»³É 2½øÖÆ È»ºó±È½Ï È»ºó°ÑÏàͬµÄ²¿·ÖÑÕÉ«ÉèÖóÉ͸Ã÷ Ðв»ÐеÄͨ
ÏȰÑͼÏñת»»³É 2½øÖÆ Òì»ò£¡
°ïup
´ó¼ÒÀ´ÕҲ磿Á½ÕÅͼƬÒì»ò¾Í¿ÉÒÔÁË£¬ºÜ¼òµ¥µÄ
VB code:
Option Explicit
Private Sub Command1_Click()
Dim pic1 As IPictureDisp
Dim pic2 As IPictureDisp
Set pic1 = LoadPicture(App.Path & "\pic1.bmp")
Set pic2 = LoadPicture(App.Path & "\pic2.bmp")
Picture1.Cls
Picture1.PaintPicture pic1, 0, 0, , , , , , , vbSrcCopy
Picture1.PaintPicture pic2, 0, 0, , , , , , , vbSrcInvert
End Sub
Private Sub Form_Load()
Picture1.BackColor = vbBlack
Picture1.AutoRedraw = True
End Sub
up
·Ç³£¸Ðл (VBÀÏÄñ)
µ«ÊÇÄÇÑùµÄ»°³öÀ´µÄͼƬ¾Í»¨ÁË Ê²Ã´ÑÕÉ«¶¼ÓÐ
Äܲ»ÄÜÉèÖøöÑÕÉ«²î °ÑÏà½üµÄÑÕÉ«¿¼ÂdzÉÒ»ÑùµÄ
±¾È˶ÔVB²»ÊǺÜÊì ²»ÖªµÀÈçºÎ°ÑͼƬת³É¶þ½øÖÆ Çë¸ßÊÖ½â˵ÏÂ
¿ÉÒÔÔÚÒì»òºó£¬ÔÙÓÃÓëµÄ·½Ê½½« RBG ·ÖÁ¿µÄµÍλÇå³ýµô¡£
ÔÚ Command1_
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......