Library tutorials & articles
API Programming Series #5
Introduction
In this article which is the fourth of this series, we'll see how we can obtain
the Memory status of the system. I.e. the total installed RAM on the system, how
much is available at the moment, total virtual memory, available virtual memory
and so on.
Note: This article assumes that you are familiar with the fundamentals of
API programming. If however, API is a new concept to you, please do go through
the first two articles (Article 1,
Article 2) of this
series, which will help you to get a thorough grounding in this topic.
Related articles
Related discussion
-
Problem with migration to C# (CoCreateInstanceEx)
by LRollison (1 replies)
-
VB6 Problem Creating Shortcuts
by rb1177 (0 replies)
-
how can i open a file
by kyawswarhtun (0 replies)
-
how to save any one form what i want?
by blackguy (5 replies)
-
Build an MP3 Player
by soybees (4 replies)
Related podcasts
-
Christian Beauclair
14 mai 2008 (�mission #0074) ::.Christian Beauclair: Stratégies de migration VB6 vers .NET Nous discutons avec Christian Beauclair des stratégies de migration VB6 vers .NET. Entre autres, nous discutons comment utiliser le "VB 6 Code Advisor" et le "Interop Forms Toolkit" pour ajouter la puiss...
this is really nice article, but im wondering is there a way to display the memory status in a textbox ? well im rather new to vb.
I always do this for my "print to file" checkbox in the print dialog
Needed Reference : Microsoft Excel x.y Object Library
Public Sub ExportFlexGrid(ByRef objGrid As MSFlexGrid)
Dim objXL As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Dim r As Long
Dim c As Long
Dim intRed As Integer
Dim intGreen As Integer
Dim intBlue As Integer
Set objXL = New Excel.Application
Set objWB = objXL.Workbooks.Add
Set objWS = objWB.Worksheets(1)
With objWS
For r = 0 To objGrid.Rows - 1
For c = 0 To objGrid.Cols - 1
.Cells(r + 1, c + 1) = objGrid.TextMatrix(r, c)
Next
Next
' You can do some nice things, like adding a counter
' .Cells(objGrid.Rows, 7) = "=count(G2:G" & objGrid.Rows - 1 & ")"
.Cells.Columns.AutoFit
End With
objXL.Visible = True
Set objWS = Nothing
Set objWB = Nothing
Set objXL = Nothing
End Sub
HI!
Is there a way to transfer the database to excel rather usingt the datareport?
If you have any suggestions or ideas pls feel free to mail me.
thanks.
marz!
marz03@yahoo.com
Thank you for expressing your appreciation.
Thank you for spending your time to write these great articles. They are very helpful and clearly written.
it cleared many doubts regarding API programming in vb
This thread is for discussions of API Programming Series #5.