نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

https://barnamenevis.org/showpo...8&postcount=65

 Public Enum Days

        Sat = 1

        Sun

        Mon

        Tue

        Wed

        Thu

        Fri

    End Enum



    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click



        Dim x As Integer = Days.Mon

    End Sub

[ghafoori]

https://barnamenevis.org/showpo...1&postcount=66

 Public Enum Days

        Sat = 1

        Sun

        Mon

        Tue

        Wed

        Thu

        Fri

    End Enum



    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click



        Dim t As System.Type = GetType(Days)

        For Each s As String In Days.GetNames(t)



            ListBox1.Items.Add(s)

        Next

    End Sub