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

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔØÊÇÕý³£µÄ£¬Content-TypeÊÇÕýÈ·µÄ,ÊÇImage/jpeg;µ«ÊÇÒ»µ©ÏµÍ³µÄIE°æ±¾ÊÇ7»òÕß8µÄʱºò£¬ÏÂÔØ¾Í»á³ö´í£¬Content-Type¾Í»á³ö´í£¬»áÈ«²¿±ä³ÉHtml,È«²¿ÊÇÍøÒ³¸ñʽµÄ£¬ÏÂÔØ³ö´í£¡
  Õæ²»ÖªµÀÕâÊÇʲôÎÊÌ⣬¸ßÊÖ¸øÖ¸µ¼Ò»Ï£¡Ð»Ð»£¡£¡£¡
ÔõôûÓÐÈË»ØÄØ£¿


'State = 12 ʱ£¬Óà GetChunk ·½·¨¼ìË÷·þÎñÆ÷µÄÏìÓ¦¡£
  Dim RetCode As Long
   
  Dim vtData() As Byte
  Select Case State
  '...ûÓÐÁÐ¾ÙÆäËüÇé¿ö¡£
  Case icError '11
  '³öÏÖ´íÎóʱ£¬·µ»Ø ResponseCode ºÍ ResponseInfo¡£
  vtData = inet1.ResponseCode & ":" & inet1.ResponseInfo
  Case icResponseCompleted ' 12
  Dim bDone As Boolean: bDone = False
  'È¡µÃµÚÒ»¸ö¿é¡£
  vtData() = inet1.GetChunk(1024, 1)
  DoEvents
  Open SavePathTemp For Binary Access Write As #1 'ÉèÖñ£´æÂ·¾¶Îļþºó¿ªÊ¼±£´æ

  If Len(inet1.GetHeader("Content-Length")) > 0 Then ProDown.Max = CLng(inet1.GetHeader("Content-Length"))
  'Ñ­»··Ö¿éÏÂÔØ
  Do While Not bDone
  Put #1, Loc(1) + 1, vtData()
  vtData() = inet1.GetChun


Ïà¹ØÎÊ´ð£º

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

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

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

»Ø¸´ ......

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

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

Çë½Ì!ÓõÄÊÇVB 6.0 - VB / ¿Ø¼þ

°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ