تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية الانتقال لسطر جديد في السطور الطويلة
#1
السلام عليكم ورحمة الله وبركاته 

اخواني ممكن مساعدة في هذا الكود 

بحيث اذا كان السطر طويل ينتقل لسطر جديد

هذا الكود 

كود :
Public Sub addlog(ByVal s As String)
       Dim path As String = (Application.StartupPath & "\Logs")
       If Not Directory.Exists(path) Then
           MkDir(path)
       End If
       Dim str2 As String = String.Format((path & "\{0}.txt"), DateTime.Today.ToString("dd-MMM-yyyy"))
       Dim flag As Boolean = File.Exists(str2)
       Using writer As StreamWriter = New StreamWriter(str2, True)
           If Not flag Then
               writer.WriteLine("Start Log for today")
           End If
           writer.WriteLine((Conversions.ToString(DateTime.Now) & " -- " & s))
       End Using
       Me.RichTextBox1.AppendText((s & ChrW(13) & ChrW(10)))
       Me.RichTextBox1.ScrollToCaret()
       Application.DoEvents()

       If (Enumerable.Count(Of String)(Me.RichTextBox1.Lines) = &H1388) Then
           Me.RichTextBox1.Clear()
       End If
   End Sub

   
   Public Sub addlog(ByVal s As String, ByVal color As Color, ByVal isBold As Boolean, ByVal Optional newline As Boolean = False)
       Dim box As RichTextBox = Me.RichTextBox1
       If (newline AndAlso (box.TextLength > 0)) Then
           box.AppendText(ChrW(13) & ChrW(10))
       End If
       box.SelectionStart = box.Text.Length
       Dim selectionColor As Color = box.SelectionColor
       box.SelectionColor = color
       If isBold Then
           box.SelectionFont = New Font(box.Font, FontStyle.Bold)
       End If
       box.AppendText( s)
       box.SelectionColor = selectionColor
       box.SelectionFont = New Font(box.Font, FontStyle.Regular)
       box.ScrollToCaret()
       box = Nothing
   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية ادخال البيانات عن طريق الdatagridviwe ليتم حفظها في sql fadi78 0 36 , 02:00 PM
آخر رد: fadi78
Sad [VB.NET] كيفية تحديد صفوف معينة لي الطباعة Aziz170020 1 93 29-11-20, 11:17 PM
آخر رد: اسامه الهرماوي
  كيفية اضافة مشغل mpv بداخل الفورم ميدو الفنان 18 474 08-11-20, 09:48 PM
آخر رد: ميدو الفنان
  [VB.NET] كيفية اضافة drm لمتصفح geckofx لسبسيب 2 187 27-10-20, 02:51 PM
آخر رد: لسبسيب
  كيفية معرفة رقم الهارديسك المتألق9 6 862 25-09-20, 11:42 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] مشروع مرفق يبين كيفية التعامل مع Datagridview lkaam 4 3,047 23-09-20, 12:28 PM
آخر رد: sulim
  [VB.NET] كيفية تشفير اكواد البرنامج من السرقة ميدو الفنان 1 296 22-09-20, 07:17 AM
آخر رد: Anas Mahmoud
  كيفية الربط مع جوجل ايرث khaled12345 3 1,474 28-08-20, 06:14 PM
آخر رد: ahnouche sofiane
  كيفية الزيادة التلقائية لرصيد الإجازات في قاعدة البيانات الوايلي 3 1,747 28-08-20, 03:09 PM
آخر رد: Sholh
  كيفية عرض بيانات الغرفة من قاعدة البيانات إلى واجهة المستخدم sherf 0 271 16-08-20, 06:01 AM
آخر رد: sherf

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم