Visual Basic

Jerry Hammond wrote:

If you think Dave's answer was arrogant because of how spot on it was (meaning that it is completely correct), then I suggest you have no business getting into the programming profession.

Samir Ibrahim wrote:

6 month of learning vb.net

John Simmons / outlaw programmer wrote:

saying you code in VB is like admitting you use AOL to get on the internet.

Jon_Boy wrote:

Hey now, I can understand bashing the OP, but the rest of us?

John Simmons wrote:

I am an equal-opportunity abuser.

Samir Ibrahim wrote:

You have 10 years experience in C++, 2 years in C#

Samir Ibrahim wrote:

Since the algorithm and principals (thinking of solving the problem) is the same almost in all language.

Samir Ibrahim wrote:

can you compare your self for learning let say "Delphi" with someone who has no programming experience at all?

John Simmons / outlaw programmer wrote:

Six months of "learning VB.net" makes you a rank amateur, a newbie, a mere child

Public Class UserControl1 ' I add Textbox
    Dim m_Version As String
    Property Version() As String
        Get
            'Version = "1.0"    ' Worked Fine
            'Me.Version = "1.0" ' Warning	3	Property 'Version' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.
            'Return "1.0"       ' Worked Fine
            Return m_Version    ' Worked Fine
        End Get
        Set(ByVal value) As String
            m_Version = value ' Works Fine
            'Version = value   ' Warning	3	Expression recursively calls the containing property 'Version'.
        End Set
    End Property
End Class

Public Structure InnerStruct
    Public InnerTest As String
End Structure
Public Structure RootStruct
    Public Test As String
    Public myStruct As InnerStruct
End Structure

Public Class Form1

    Public Sub ShowInnerText(ByVal whatStruct As RootStruct)
        MessageBox.Show(whatStruct.myStruct.InnerTest)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click

        Dim newStruct As RootStruct
        newStruct.myStruct.InnerTest = "Hello world"
        ShowInnerText(newStruct)

    End Sub

End Class

I are troll

Public Structure InnerStruct
    Public InnerTest As String

    Public Sub Init
        InnerTest = "initialize your vars here"
    End Sub
End Structure
Public Structure RootStruct
    Public Test As String
    Public myStruct As InnerStruct
End Structure