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

[ghafoori]

منبع:https://barnamenevis.org/showpo...1&postcount=44

کد:

 Dim myString1 As String = "This is the first line of my string." + vbCrLf _

   + "This is the second line of my string." + vbCrLf + _

    "This is the third line of the string." + vbCrLf

[ghafoori]

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

'// Single-dimensional array (numbers).

        Dim n1 As Integer() = {2, 4, 6, 8}

        Dim n2() As Integer = {2, 4, 6, 8}



'// Single-dimensional array (strings).

        Dim s1() As String = New String() {"John", "Paul", "Mary"}

        Dim s3 As String() = {"John", "Paul", "Mary"}



 '// Multidimensional array.

        Dim n4 As Integer(,) = {{1, 2}, {3, 4}, {5, 6}}

        Dim n6(,) As Integer = {{1, 2}, {3, 4}, {5, 6}}





 ' // Jagged array.

        Dim n7 As Integer()() = {New Integer() {2, 4, 6}, New Integer() {1, 3, 5, 7, 9}}

        Dim n9()() As Integer = {New Integer() {2, 4, 6}, New Integer() {1, 3, 5, 7, 9}}

[ghafoori]

منبع:https://barnamenevis.org/showpo...2&postcount=46
کد:

Private Function CreateBitmap() As Image



        Dim flag As Bitmap = New System.Drawing.Bitmap(10, 10)

        Dim x, y As Integer

        For x = 0 To flag.Height

            For y = 0 To flag.Width

                flag.SetPixel(x, y, Color.White)

            Next

        Next



        For x = 0 To flag.Height

            flag.SetPixel(x, x, Color.Red)

        Next

        Return flag

    End Function