pham quang dan wrote:

the code to explaint voices and imagines throght LAN and wireless

Dim strValue As String
Private Sub radButton_CheckChanged(...) Handles radButton.CheckChanged
If radButton.Checked = True
strValue = radButton.Text 'or whatever value it is the you want
End If
End Sub

<big> foreach a as control in form1.controls<br />
if a.gettype="RadioButton" then<br />
return a.name<br />
end if<br />
next</big>

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