Introduction
This is the meat of the program. If you need more, then download the project. It's only 25K.
Public sAppName As String = "Registry Tester"
Public sRegSection As String = "Startup"
Public sXpos As String = "StartPos X"
Public sYpos As String = "StartPos Y"
Public Sub New()
MyBase.New()
Dim X, Y As Integer
X = GetSetting(sAppName, sRegSection, sXpos, CInt(100))
Y = GetSetting(sAppName, sRegSection, sYpos, CInt(250))
Me.Location = New Drawing.Point(X, Y)
Me.StartPosition = FormStartPosition.Manual
InitializeComponent()
End Sub
Private Sub Form1_Closing(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) _
Handles MyBase.Closing
Dim X, Y As Integer
X = Me.Location.X
Y = Me.Location.Y
SaveSetting(sAppName, sRegSection, sXpos, X)
SaveSetting(sAppName, sRegSection, sYpos, Y)
End Sub
Private Sub btnDo_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles btnDo.Click
lblOsVersion.Text = Environment.OSVersion.ToString
lblUser.Text = Environment.UserName.ToString
lblRuntime.Text = Environment.Version.ToString
lblUptime.Text = Mid((Environment.TickCount / 3600000), 1, 5) & " :Hours"
End Sub
Private Sub btnGetRoot_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnGetRoot.Click
lblSystemRoot.Text = _
Environment.GetFolderPath(Environment.SpecialFolder.System).ToString
End Sub
This project started out from reading "Coding Techniques For Visual Basic .NET". But then I got side tracked on the registry to save app settings. And then I got into the Environment
class and all of its glory. I have seen a lot of code written to get uptime and so on, but they were a lot more than this. I hope someone likes it.
My biggest intrests are cars and computers.
I work for one of Nascar's 50 greates drivers
where we build race cars for some people. We
mostly build them for ourselfs to race. I was
very fortunate to have Jack Ingram to take me
under his wing and teach me how to drive LMSC.
So when we are not racing or building new cars
I spend my time learning C++ and the new .Net
languages.