Visual Basic

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

Public Structure RootStruct
    Public Test As String
    Public myStruct As InnerStruct

    Public Structure InnerStruct
        Public InnerTest As String
    End Structure
End Structure

I are troll