Visual Basic

KreativeKai wrote:

This code works fine, but now I'm using VS 2005 and there has to be a better more efficient way of rewriting this code.

KreativeKai wrote:

I know that it used to take a long section of code to try and get the computer name

Namespace Microsoft.VisualBasic.Devices
 
    Public Class Computer
        Inherits Microsoft.VisualBasic.Devices.ServerComputer
 
        ...
        ...  ' more code specific to the Computer class
        ...
 
    End Class
 
 
    Public Class ServerComputer
 
        Public Sub New()
        End Sub
 
        Public ReadOnly Property Name() As String
            Get
                Return Environment.MachineName
            End Get
        End Property
 
        ... ' More methods and properties for ServerComputer ...
 
    End Class
End Namespace

    Private Sub SetupDGVAndBind()
        DataGridView1.Columns.Clear()
 
        Dim col As New DataGridViewTextBoxColumn
        col.HeaderText = "headerText"
        col.DataPropertyName = "columnName in table"
        DataGridView1.Columns.Add(col)
 
        DataGridView1.DataSource = myBindingSource
    End Sub

Dim t As Type = Type.GetTypeFromProgID("progID")
Dim retVal As Object
retVal = Activator.CreateInstance(t)