Visual Basic

Public Function GetTotalVMSizeInKb() As ULong
    Dim x As ULong = My.Computer.Info.TotalVirtualMemory
    Return (x / 1024)
End Function

Public ReadOnly Property VirtualMemory() As ULong
    Get
        Dim vVirtualMemory As ULong = My.Computer.Info.TotalVirtualMemory
        Return (mVirtualMemory / 1024)
    End Get
End Property

Public ReadOnly Property VirtualMemory() As ULong
    Get
        Return (My.Computer.Info.TotalVirtualMemory / 1024)
    End Get
End Property

Dave Kreskowiak wrote:

Oh! And using a "global" variable like this (mVirtualMemory) is really bad practice! You're violating rules of Encapsulation and making it harder to debug your code. There is no reason, that I can see, for having that variable declared in Class scope. It should have been done inside the Property code.

Public Class SystemMemory
 
' Say "Bye-Bye" to all the class-scoped variables!  From what I can see in your code,
' you don't need a single one of them.
 
' I have no idea what you're doing with this stuff, but if the rest of this
' class is like your properties, you can get rid of this entire Region.
#Region "Constructors and Destructors..."
Public Sub New()
    mInstance = Me
End Sub
 
Protected Overrides Sub Finalize()
    mInstance = Nothing
End Sub
#End Region
 
#Region "Main Body in KB's..."
Public ReadOnly Property PhysicalMemory() As Long
    Get
        Return My.Computer.Info.TotalPhysicalMemory / 1024
    End Get
End Property
 
Public ReadOnly Property VirtualMemory() As ULong
    Get
        Retrun My.Computer.Info.TotalVirtualMemory / 1024
    End Get
End Property
 
Public ReadOnly Property CombinedMemory() As Long
    ' You can call your classes properties from inside
    ' the same class
    Get
        Return PhysicalMemory + VirtualMemory
    End Get
End Property

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.PaintEventArgs) _
    Handles Me.Paint
        'draw three circles over each other
        e.Graphics.FillEllipse(Brushes.Red, New Rectangle(0, 0, 300, 300))
        e.Graphics.FillEllipse(Brushes.Blue, New Rectangle(25, 25, 250, 250))
        e.Graphics.FillEllipse(Brushes.Green, New Rectangle(50, 50, 200, 200))
        'dispose of the graphics object
        e.Dispose()
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Resize
        Me.Invalidate()
    End Sub
End Class

comboBox1.DataSource = dtTable<br />
comboBox1.DisplayMember = "FieldToDisplay"<br />
comboBox1.ValueMember = "FieldContainingValue"

...
    If (e.KeyChar < '0' Or e.KeyChar > '9') And e.KeyChar <> '\b' Then
...

Private Sub num_PreviewKeyDown(ByVal sender As Object, e As PreviewKeyDownEventArgs)
    e.IsInputKey = ((e.KeyCode = Keys.Back) And (e.Modifiers = 0)) Or ((e.KeyCode >= Keys.D0 Or e.KeyCode <= D9 Or e.KeyCode >= Keys.NumPad0 Or e.KeyCode <= Keys.NumPad9) And (e.Modifiers = 0))
End Sub