Visual Basic

Not enough storage is available to complete this operation.

Public Function Downloadfile(ByVal vstrName As String) As Boolean
On Error GoTo Handler

Dim bytFile() As Byte
Dim objADO As ADODB.Stream

  gstrURL = "https://...URL..../"
  vstrName = "LargeFile.zip"
  gstrProxyIP = "99.999.9.9:80"

  gstrUserID = "userid"
  gstrPassword = "password"

  gstrZipPath = "d:\"
  gstrFile = "LocalSavedFile.zip"

  Set greqPFA = New WinHttp.WinHttpRequest
  greqPFA.SetProxy 2, gstrProxyIP
  greqPFA.SetTimeouts 500000, 500000, 500000, 500000
  greqPFA.Open "GET", gstrURL & vstrName, False
  greqPFA.SetCredentials gstrUserID, gstrPassword, 0
  greqPFA.SetRequestHeader "Content-Type", "text/html; charset=UTF-8"
  greqPFA.Send
  
  bytFile = greqPFA.ResponseBody
  
  Set greqPFA = Nothing
  Set objADO = New ADODB.Stream
  objADO.Type = adTypeBinary
  objADO.Open
  objADO.Write bytFile
  objADO.SaveToFile gstrZipPath & gstrFile, SaveOptionsEnum.adSaveCreateOverWrite
  objADO.Close
  Set objADO = Nothing
  
  Downloadfile = True
  
  Exit Function
Handler:
  Downloadfile = False

End Function

how to add check box in datagrid in VB 6.0

Hello,

I use this code to try to sort my desktop icons, but noway...

'Declaration
'-------------
'API declarations
Public Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LPARAM As Any) As Long

Public Const LVS_SORTASCENDING = &H10   

Public Const LVM_SORTITEMS = (LVM_FIRST + 48)

'and others declarations...


'code in sub procedure
'---------------------

Public Sub sortIconsByNameAsc()

   h = GetDesktopWindow() 'hwnd for desktop

   Call SendMessage(h, LVM_SORTITEMS, LVS_SORTASCENDING, h)

end sub

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
       Dim AKEY = ComboBox2.Text
       If e.KeyCode = AKEY Then

       End If
   End Sub