منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود عرض النص بالترتيب ...
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ،

عندي RichTextBox مكتوب بداخلة نصوص بالترتيب مثل

-
النص الأول
النص الثاني
النص الثالث
-

اريد اظهار هذه النصوص بالترتيب في اداه Label
وشكراً
تقريبا هذا ما سيكون عليه شكل الكود

لتطبيق الكود ضع ف الفورم 3 تكست بوكس و باتون و Label


كود :
Public Class Form1

    Public Function GetLabelString(text1 As String, text2 As String, text3 As String) As String
        If Not String.IsNullOrEmpty(text1) AndAlso Not String.IsNullOrEmpty(text2) AndAlso Not String.IsNullOrEmpty(text3) Then
            Return (text1 & " " & text2 & " " & text3)
        End If
        Return CType(Nothing, String)
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim labelText As String = GetLabelString(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        Label1.Text = labelText
        ClearTextBoxes()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = Nothing
    End Sub

    Private Sub ClearTextBoxes()
        TextBox1.Text = CType(Nothing, String)
        TextBox2.Text = CType(Nothing, String)
        TextBox3.Text = CType(Nothing, String)

    End Sub
End Class

عموما هناك اكثر من أسلوب لتنفيذ ما تريدة مثلا يمكنك أن تستخدم

String.Format Method

راجع اللينك التالي لمزيد من التفاصيل اللينـــــــــــــــــك

طريقة أخري : في حدث الباتون ضع الكود اتالي
كود :
Label1.Text = String.Format("{0} {1} {2}", TextBox1.Text, TextBox2.Text, TextBox3.Text)
شكرا لك اخى الكريم Rolleyes