السلام عليكم ،
عندي 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)