ÔÚvbÖи´ÖÆExcelµ½picturebox
ÔÚvbÖÐ,ÔÚÉè¼Æ×´Ì¬Ï¿ÉÒÔ´ÓexcelÖÐÑ¡¶¨Ä³Ò»ÇøÓòÖ±½ÓÕ³Ìùµ½picturebox¿Ø¼þÉÏ ÏëÇë½Ìϵ±ÎÒÔÚÔËÐеÄʱºòÔõôÄÜÏñÔÚÉè¼ÆµÄʱºòÒ»Ñù°ÑÑ¡¶¨µÄexcel±í¸ñÕ³Ìùµ½picturebox¿Ø¼þÉÏ
ÊÔÊÔmsdnÀïºÍpicturebox linkµÄÊôÐԺ͹¦ÄÜ¡£ ¶¥ ÊÔÊÔset picture1.icture = clipboard.getdata ÄÜÖ±½ÓÕ³Ìùµ½Í¼Æ¬¿òÀïµÄ¶«Î÷Ó¦¸Ã¾ÍÊÇÒ»¸öλͼ. Õ³ÌùÊÇ¿ÉÒÔʵÏÖÁË£¬µ«´ÓWORDÀïÃæ¸´ÖƵÄÎÄ×ÖÌùµ½pictureboxµÄʱºòÈ«±äÐÎÁË Ôõô²ÅÄÜÔÚÕ³ÌùµÄʱºò±£³Ö´óÐ¡ÄØ£¬£¨²»¸Ä±äPictureboxµÄ´óСŶ£© Ôõô±äwordÁË£¬²»ÊÇexcelÂ𣿠ÀÏÂíµÄÎÒÊÔ¹ý£¬ºáºÃ¡£ WORD ºÍ EXCEL¶¼ÐèÒª¹þÒýÓà ճÌùÊÇ¿ÉÒÔʵÏÖÁË£¬µ«´ÓWORDÀïÃæ¸´ÖƵÄÎÄ×ÖÌùµ½pictureboxµÄʱºòÈ«±äÐÎÁË Ôõô²ÅÄÜÔÚÕ³ÌùµÄʱºò±£³Ö´óÐ¡ÄØ£¬£¨²»¸Ä±äPictureboxµÄ´óСŶ£© ¸Õ¸Õ²âÊÔÁËÒ»ÏÂ. EXCELÖи´ÖƹýÀ´µÄȷʵÊÇÒ»¸öBitmap¶ÔÏó,µ«ÊÇWORDÖÐÈ´ÊÇÒ»¸öMetafile¶ÔÏó,ÊÇÀàËÆFLASHÒ»ÑùµÄʸÁ¿¸ñʽ,²¢²»ÊǵãÕóÄÚÈÝ,¶øÊÇÃèÊöÐÔͼÏó. Ö±½ÓSETµÄ»°,Ëü»á×Ô¶¯ÒÔͼƬ¿ò´óСÀ´½øÐÐ×ÔÊÊÓ¦. ÎÒÊÔÁËÒ»ÏÂ,paintpictureһϾÍOKÁË: Picture1.PaintPicture Clipboard.GetData, 0, 0 Ì«¸Ð¶¯ÁË£¬·Ç³£¸Ðлmyjian£¡£¡£¡£¡
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡ û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡ À´½Óµã·Ö ......
Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý If recs > 0 Then 'ÒÑÓп¼Éú Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼ num = V ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......