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

[ghafoori]

منبع:https://barnamenevis.org/showpo...68&postcount=6

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

        Me.Opacity = 1

        Dim i As Integer

        For i = 0 To 100

            Me.Opacity -= 0.01

            Application.DoEvents()

        Next

    End Sub

[ghafoori]

منبع:https://barnamenevis.org/showpo...69&postcount=7

Dim numbers As Integer() = {12, 23, 34, 45, 56, 67}

        Dim oNumbers(numbers.Length) As Object

        numbers.CopyTo(oNumbers, 0)

        listBox1.Items.AddRange(oNumbers)