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

ÔÚ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Õâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ