+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود عرض النص بالترتيب ... (/showthread.php?tid=3007)
اريد كود عرض النص بالترتيب ... - amedo - 25-05-14
السلام عليكم ،
عندي RichTextBox مكتوب بداخلة نصوص بالترتيب مثل
-
النص الأول
النص الثاني
النص الثالث
-
اريد اظهار هذه النصوص بالترتيب في اداه Label
وشكراً
RE: اريد كود عرض النص بالترتيب ... - silverlight - 25-05-14
تقريبا هذا ما سيكون عليه شكل الكود
لتطبيق الكود ضع ف الفورم 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)RE: اريد كود عرض النص بالترتيب ... - amedo - 26-05-14
شكرا لك اخى الكريم
