[نسيم الترك1]

اسعد الله اوقاتكم 
اخواني ارجوا المساعده في تغيير عنوان رساله التنبيه  

   


الكود هو 

كود :

Shared Function check() As String

       Dim dt As New DataTable
       Dim ret As Integer = New OleDb.OleDbDataAdapter("SELECT car2, car5, DateDiff ('d', Now(), car8) As days FROM car_t WHERE DateDiff ('d', Now(), car8) < 30", con).Fill(dt)

       Dim sb As New System.Text.StringBuilder
       If ret > 0 Then

           For Each r As DataRow In dt.Rows
               sb.AppendLine(r("car2") & " - رقم المركبة - (" & r("car5") & ")  باقي لانتهاء الترخيص  = " & r("days") & "  يوم")
           Next
       End If

       Return sb.ToString
   End Function

[silverlight]

لو كنت تستخدم MessageBox الموجودة في الدوت نت فستجد بها طرق كثيرة لإسلوب اظهار الرسالة ومعظمها يبدا بجملة
MessageBox.Show
زذلك سوف يسمح لك بتمرير قيمة التكست الذي سوف يتم عرضه وهي هنا عبارة عن القيمة الخاصة ب stringBuilder الموجودة ف الكود الخاص بك ثم تمرر التكست الذي تريد تغييره وهو هنا عبارة عن Caption

[نسيم الترك1]

مشكور اخي على ردك
وتم حل المشكله