Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

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

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb and tc - VB / »ù´¡Àà

ÇëÎÊÒ»ÏÂvbºÍtcµÄÆ­ÒëÓïÎÊÓÐʲô¾ßÌåµÄÇø±ð¡£
                                      & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ