كودك أحسن و أجمل

لكن الجملة : il y a des aniamux partout dans l'Algerie. في مثالك
لاتتوسط وبالمناسبة لا افهم فرنسي ما معناها ؟؟

في كل مكان يوجد حيوانات ........
الكود مبني على الكود الاول بحيث اتخلى عن المصفوفة
و لنشتغل على كل عنصرمن اليسبوكس لوحده
نقارن طوله بطول ليسبوكس نضيف له فراغات بعدد الفراغات في اليبال المرجع
ثم نحدف نصف ما اضفناه
و كاننا نقدمه الى الوسط
هذه الفكرة العامة
لكن لا يشاغل على الكل
لماذا الله اعلم

الكود الأول المطروح من طرفي لا يعالج هكذا جمل
المكتوبة في ملفك أنت ! !
Il y a des aniamux partout dans l'algerie

هل اليسبوكس في كل البرامج فيه مشكطل التوسيط ؟

--------------------------
Set the listbox draw mode to ownerdrawnfixed to control how the
text is aligned. This example will use a stringformat to center the text
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ListBox1.DrawMode = DrawMode.OwnerDrawFixed
For x As Integer = 0 To 20
ListBox1.Items.Add(x)
Next

End Sub

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As
System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim g As Graphics = e.Graphics
Dim br As SolidBrush
Dim s As String
Dim sf As New StringFormat

sf.Alignment = StringAlignment.Center

Try
s = ListBox1.Items.Item(e.Index).ToString
Catch ex As Exception
s = ""
Trace.WriteLine(ex.ToString)
End Try

br = New SolidBrush(Color.White)

g.FillRectangle(br, e.Bounds)

If CBool(e.State And DrawItemState.Selected) Then
g.FillRectangle(Brushes.LightBlue, e.Bounds)
End If

g.DrawString(s, ListBox1.Font, Brushes.Black, _
RectangleF.op_Implicit(e.Bounds), sf)

br.Dispose()
End Sub
--------------------------------------------