mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-06-17 00:29:31 +00:00
43 lines
2.0 KiB
VB.net
43 lines
2.0 KiB
VB.net
|
Option Strict Off
|
||
|
Option Explicit On
|
||
|
Friend Class frmAbout
|
||
|
Inherits System.Windows.Forms.Form
|
||
|
' : Some sidenotes to do:
|
||
|
' ; I've made many declarations here and in ApplicationEvents.vb because
|
||
|
' ; in this case I could't (or I didn't know how to) reuse declarations
|
||
|
' ; (Maybe inheritance, but I don't know how to use it, I'll check later)
|
||
|
' ; So to make it clear, in SetInfo() every argument is used as the value
|
||
|
' ; for its equivalent, example Proc (Of Proc-essor, not confuse with procedure)
|
||
|
' ; is set with CPU.
|
||
|
'
|
||
|
' ; Note for me: The labels can confuse values with the declarations, rename them
|
||
|
|
||
|
Private Sub EmaculationLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles EmaculationLink.LinkClicked
|
||
|
Process.Start("http://www.emaculation.com/doku.php")
|
||
|
End Sub
|
||
|
|
||
|
Private Sub ArmandoLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles ArmandoLink.LinkClicked
|
||
|
Process.Start("http://edsonarmando.000webhostapp.com")
|
||
|
End Sub
|
||
|
|
||
|
Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||
|
SetLabels()
|
||
|
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
|
||
|
RAMAvailable.Text = AvailRAM & " MB"
|
||
|
End Sub
|
||
|
|
||
|
Public Sub SetLabels()
|
||
|
OSName.Text = SysInfo.OSName
|
||
|
OSVersion.Text = SysInfo.OSBuild
|
||
|
CPUType.Text = SysInfo.CPUClass
|
||
|
CPUCores.Text = SysInfo.CPUCores
|
||
|
RAMInstalled.Text = SysInfo.InstalledRAM
|
||
|
CurrUsr.Text = SysInfo.UserName
|
||
|
PCName.Text = SysInfo.ComputerName
|
||
|
End Sub
|
||
|
|
||
|
Private Sub AvailMemTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvailMemTimer.Tick
|
||
|
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
|
||
|
RAMAvailable.Text = AvailRAM & " MB"
|
||
|
End Sub
|
||
|
End Class
|