VisualBasic Memoria disponible
Publicado: Sab, 11 Abr 2026, 21:19
Este código de Visual Basic 6.0 pide información al sistema acerca de cuánta memoria dispone. Para el mismo solo se requiere de un formulario y un control de tiempo, el cual cada un intervalo determinado por el usuario, refrescará el contenido de la barra de títulos del programa.
Además se le ha dado la propiedad al modo en que permanece constantemente minimizada, ya que el valor mostrado se representará en la barra de título y este puede verse en la barra de tareas de Windows. Este código sirve también para ilustar de mejor forma el artículo sobre las estructuras.
Además se le ha dado la propiedad al modo en que permanece constantemente minimizada, ya que el valor mostrado se representará en la barra de título y este puede verse en la barra de tareas de Windows. Este código sirve también para ilustar de mejor forma el artículo sobre las estructuras.
Código: Seleccionar todo
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Timer1_Timer()
Dim MemStat As MEMORYSTATUS
GlobalMemoryStatus MemStat
Me.Caption = Str$(MemStat.dwAvailPhys / 1048576) & " Mb Libres"
If Me.WindowState = 0 Then Me.WindowState = 1
End Sub