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

VBÓÃinet¿Ø¼þÔõÑù²ÅÄܲ»¶ÁÈ¡»º´æÁ¬½ÓÍøÂçÉϵÄÎļþ£¿

ÎÒÓÃinet¿Ø¼þ½¨Á¢ÁËÒ»¸öÁ¬½Ó£¬Á¬½Ó¹ýÒ»´ÎÖ®ºó¾Í»á²úÉúÁË»º´æ£¬Ï´ÎÔÙÁ¬½ÓʱËü»áÏȶÁÈ¡»º´æµÄÄÚÈÝ£¬ÕâÑùµÃµ½µÄÄÚÈݾÍÊǾɵÄÁË£¬¶øÎÒÏëÒªµÄÊDz»¹ÜÓÐÎÞÁ¬½Ó¹ý£¬¶¼ÊÇÁ¬½Óµ½Ô¶³Ì¶ÁȡԶ³ÌµÄÏà¹ØÄÚÈÝ£¬ÕâÒªÔõôʵÏÖ£¿

  If UCase(Left(Text1.Text, 7)) = "HTTP://" Then
      'ÍøÂçͼƬµØÖ·
      Dim FileByte() As Byte
      FileByte = Inet1.OpenURL("http://avatar.profile.csdn.net/9/E/E/2_SupermanKing.jpg", icByteArray)
      Open "C:\MyTemp.TMP" For Binary As #1
      Put #1, 1, FileByte
      Close #1
      Picture1.Picture = LoadPicture("C:\MyTemp.TMP")
      Kill "C:\MyTemp.TMP"
  Else
      '±¾µØÍ¼Æ¬µØÖ·
      Picture1.Picture = LoadPicture("C:\MyTemp.TMP")
  End If


Èç¹ûÏëÔÚÄÚ´æÖвÙ×÷£¬¿ÉÒÔʹÓÃGDIPlus¼¼Êõ£¬Äã¿ÉÒÔÔÚCSDNËÑË÷Ò»ÏÂGDIPlus»òGDI+Õ⼸¸ö¹Ø¼ü×Ö¾ÍÓкܶàÏà¹ØµÄÐÅÏ¢»ò´úÂë³öÀ´ÁË

¿´b²»Ã÷°×


һ¥µÄÅóÓÑÄã¿ÉÒÔ½âÊÍһϴúÂëµÄÒâ˼Âð£¿

ÕâÑù¾Í¿ÉÒÔÁË
VB code:

'ÍøÂçͼƬµØÖ·
Dim FileByte() As Byte '¶¨ÒåÒ»¸ö×Ö½ÚÊý×é
'ÏÂÔØÔ¶³ÌÊý¾Ýµ½×Ö½ÚÊý×é
FileByte = Inet1.OpenURL("http://avatar.p


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

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

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ