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
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÏÖÓÐÒ»¶Ñ¿Ø¼þimage1(0),image1(1),image1(2)....
ÈçºÎ¸ü¸ÄΪ :image1,image2,image3
ºÃÏóÖ±½Ó¸ü¸Ä¿Ø¼þÃû²»¿ÉÒԵİ¡
Ò²¾ÍÊÇ˵Äܲ»ÄÜÈ¡Ïûµô¿Ø¼þÊý×é
ΪʲôҪ¸ü¸ÄÄØ£¿ÓÃÒ»¸öÑ»·£¬¿Ø¼þÊý×éimage1(i)ÓÃÆðÀ´¸ü·½±ã ......