محاذاة النص داخل ال ComboBox في Vb.Net2005

لانسبة لظهور النص في الـ(ComboBox) قد يعود لأنك وضعت خاصية

ComboBox1.SelectedIndex = 0

إذا كان ظني خاطئا ً يمكنك تجربة هذا السطر

ComboBox1.SelectedIndex = -1

أما بالنسبة لتوسيط النص يمكنك تجربة هذا الكود:

Dim i As Integer
        For i = 0 To 10
            ComboBox1.Items.Add(i.ToString.PadLeft(((ComboBox1.DropDownWidth / 3) - Len(i)) / 2))
        Next
        ComboBox1.SelectedIndex = -1

شكراً جزيلاً أخي Conan سوف أقوم بتجربة ما طرحته لي وسأرد عليك الخبر.

بالنسبة لتوسيط النص :-

أخي Conaa لقد جربت الشفرة التي قدمتها لي ولكنني صراحاً ليس لدي خلفية عن الدالة PadLeft

فأخي ياريت تشرح ولو بشكل مختصر عمل هذه الدالة وكيفية إستخدامها

كما أنه لدي بيانات موجودة مسبقاً داخل الـ ComboBox ولا أريد إضافة بيانات جديدة بل أريد التوسيط لما هو موجود داخل الـ Combo فقط .

وشكرأ جزيلاً..

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

ComboBox1.Items.Add("المتغير الذي تريد إضافته"(

قم بإستخدام السطر بدلا عنه

ComboBox1.Items.Add(i.ToString.PadLeft(((ComboBox1.DropDownWidth / 3) - Len(i)) / 2))

و عوضا عن i.tostring ضع المتغير الخاص بك و أيضا في Len(i) إستخدم المتغير الخاص بك بدلا عن i

mqmmss كتب:

إخواني جميعاً لدي شفرة في VB.Net2005 والتي تقوم بجلب بيانات من قاعدة البيانات وعرضها في ComboBox

←

انا احتاج الى هذه الشفرة :

الرجاء كتابتها لنا . وشكرا

الشفرة التي تجلب بيانات من قاعدة البيانات إلى الـ ComboBox

بإفتراض أن قاعدة البيانات بإسم Hotel و إسم الجهاز هو pc

وسوف يجلب البيانات من جدول بإسم Managements

  Dim con As New SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Hotel;Data Source=pc")

            Try
                If con.State = ConnectionState.Open Then con.Close()
                con.Open()
                Dim Ds As New DataSet
                Dim Da As New SqlClient.SqlDataAdapter("Select Man_No,Man_Name From Managements ", con)
                Da.Fill(Ds, "Hotel")
                ComboBox1.DataSource = Ds.Tables(0)
                ComboBox1.DisplayMember = "Man_Name"
                ComboBox1.ValueMember = "Man"
           Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

أتمنا أن يكون المطلوب أرجو الرد علي..

أخي Conan أنت تفترض أنه يتم تعبئة الـ ComBoBox من خلال الأمر Add

لكنني في برنامجي إما أن أضيف البيانات إلى ComboBox من خلال الخصائص

أو أضيف البيانات كما في الشفرة التي بينتها سابقاً للأخوة بإستخدام DataSet و DataAdapter

فكيف أغير الشفرة التي تكرمت بتقديمها إلينا بحيث تتناسق مع الطرق التي أستخدمها ..

وأرجوا الا أكون قد أثقلت عليك .

وشكراً جزيلاً ...

إخواني جميعاً هل هناك أي غموض في سؤالي..

عفواً لقد كان هنالك خطأ بسيط لذا عدلتة كما يلي :-

mqmmss كتب:

الشفرة التي تجلب بيانات من قاعدة البيانات إلى الـ ComboBox

بإفتراض أن قاعدة البيانات بإسم Customers و إسم الجهاز هو  pc     

وسوف يجلب البيانات من جدول بإسم Customers_Table

  Dim con As New SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Customers;Data Source=pc")

            Try
                If con.State = ConnectionState.Open Then con.Close()
                con.Open()
                Dim Ds As New DataSet
                Dim Da As New SqlClient.SqlDataAdapter("Select Cust_No,Cust_Name From Customers_Table ", con)
                Da.Fill(Ds, "Customers ")
                ComboBox1.DataSource = Ds.Tables(0)
                ComboBox1.DisplayMember = "Cust_Name"
                ComboBox1.ValueMember = "Cust_No"
           Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

أتمنا أن يكون المطلوب أرجو الرد علي..

←

إخواني جميعاً وأخص أخي Conan الذي أجاب على من قبل ..

بالنسبة لسؤال كيفية توسيط النص داخل الـ ComboBox في VB.Net2005 ???

mqmmss كتب:

أخي Conan أنت تفترض أنه يتم تعبئة الـ ComBoBox  من خلال الأمر Add

لكنني في برنامجي إما أن أضيف البيانات إلى ComboBox من خلال الخاصية Items عن طريق الخصائص .

                        أو أضيف البيانات كما في الشفرة التي بينتها سابقاً للأخوة بإستخدام DataSet و DataAdapter

فإخواني كيف أغير الشفرة التي تكرمتم بتقديمها إلينا بحيث تتناسق مع الطرق التي أستخدمها ..

وأرجوا الا أكون قد أثقلت عليك .

وشكراً جزيلاً ...

←

أخي الكريم mqmmss : وفقك الله

جزال الله ألف خير على استجابتك لطلبي ، أسأل الله أن يجعل ذلك في موازين حسناتك .

إن شاء الله سأقوم بتجربة الكود .