Prikazi cijelu temu 17.04.2015 10:15
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:DoEvents naredba
imam 2 pitanja:
1. da li DoEvents naredba zamjenjuje Timer, tj zaustavlja proces i omogucuje druge naredbe?
2. da li sam dobro stavio Tab-ove u ovoj funkciji, koristio sam notepad++ sa sintaksom VB?

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Sub DownloadFile(strURL As String, strDestination As String)  'As Boolean
  2.    Const CHUNK_SIZE As Long = 1024
  3.     Dim intFile As Integer
  4.     Dim lngBytesReceived As Long
  5.     Dim lngFileLength As Long
  6.     Dim strHeader As String
  7.     Dim b() As Byte
  8.     Dim i As Integer
  9.     Dim ip As String
  10.     Dim ipurl As String
  11.    
  12.     ipurl = "http://www.icentar.ba/ip.php"
  13.     ip = Inet1.OpenURL(ipurl, icString)
  14.     MsgBox ip
  15.    
  16.         DoEvents
  17.                 With Inet1
  18.                         .url = strURL
  19.                         .Execute , "GET", , "Range: bytes=" & CStr(lngBytesReceived) & "-" & vbCrLf
  20.                         While .StillExecuting
  21.         DoEvents
  22.                         Wend
  23.                                 strHeader = .GetHeader
  24.                 End With
  25.                 strHeader = Inet1.GetHeader("Content-Length")
  26.                 lngFileLength = Val(strHeader)
  27.     DoEvents
  28.    
  29.         lngBytesReceived = 0
  30.         intFile = FreeFile()
  31.         Open strDestination For Binary Access Write As #intFile
  32.                 Do
  33.                         b = Inet1.GetChunk(CHUNK_SIZE, icByteArray)
  34.                         Put #intFile, , b
  35.                         lngBytesReceived = lngBytesReceived + UBound(b, 1) + 1
  36.                         DownloadProgress (Round((lngBytesReceived / lngFileLength) * 100))
  37.         DoEvents
  38.                 Loop While UBound(b, 1) > 0
  39.         Close #intFile
  40. End Sub

vazno je napomenuti da funkcija koja se nalazi u modulu radi i nema error, a poziva se sa
downloadFile url,"fileName.txt". Skinuta je sa interneta.
Znači, samo objaÅ¡njenje DoEvents i ispravni Tab-ovi.
Hvala
zivot je moja domovina.