[عبدالكريم برشدان]

مساء الخير عليكم جميعا 

كيف يمكنني عمل button اللي في الصورة كيف اجعله فوق الادوات او بالاصح فوق Datagrid او flowlouytpanel

[عبدالكريم برشدان]

هل من اجابة

[Taha Okla]

السؤال مش واضح ..

على كل - 
أي أداة تضعها على النافذة .. لجعلها في الأمام :
أضغط عليها بالماوس كلك يمين ثم اختار (Bring To Front) 
فتصح أمام كل الأدوات التي تم وضعها على النافذة من قبل هذه العملية.


أما اذا كنت تريدها عن طريق الكود، استخدم الكود التالي : 

كود :

ButtonX.BringToFront()

[عبدالكريم برشدان]

هذه الخاصية نحجت مع datagridview
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك

---

هذا المثال

[Taha Okla]

(23-02-23, 09:01 PM)عبدالكريم برشدان كتب : هذه الخاصية نحجت مع datagridview
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك

---

هذا المثال

لا تضع الزر على البانل أو الجروب وغيرها من أدوات
ضعه على النافذة الرئيسية بمكان خالي
وفي حدث اللود ضع الكود التالي :

كود :

      Button1.BringToFront()
        Button1.Location = New Point(100, 300)

بهذا الكود تستطيع سحب الزر إلى المكان الذي تريد (بحسب الاحداثيات التي تضعها فيها)
وبذا يصبح فوق البانل وليس منها ..

[عبدالكريم برشدان]

مشكور باش مهندس علي المداخلة والمساعدة 

نجحت الفكرة

---

هل في امكانية ان اسال سؤال اخر

[عبدالكريم برشدان]

اريد تصنيف وترتيب الاسماء

مثل الصورة

[Taha Okla]

(23-02-23, 11:17 PM)عبدالكريم برشدان كتب : اريد تصنيف وترتيب الاسماء

مثل الصورة

هذا الكود :

كود :

dp.Fill(ds)
dt = ds.Tables.Item(0)
num2 = (dt.Rows.Count - 1)
Me.FlowLayoutPanel1.Controls.Clear()

Dim str1 As String = ""
Dim FirstChar As String = "", Fi1 As String = ""

Do While (i <= num2)
   str1 = dt.Rows.Item(i).Item("nam").ToString
   FirstChar = Mid(str1, 1, 1)

   If (i = 0) Or (FirstChar <> Fi1) Then
       Dim uc1 As New UserControl1
       uc1.Label1.Text = FirstChar
       uc1.Label1.Left = uc1.Width - uc1.Label1.Width - 20
       Me.FlowLayoutPanel1.Controls.Add(uc1)

       uc1.Label1.Font = New Font(uc1.Label1.Font.Name, uc1.Label1.Font.Size + 2, FontStyle.Bold)
       uc1.Label1.ForeColor = Color.WhiteSmoke
       uc1.BackColor = Color.LightGray
       uc1.Height = uc1.Height * 2 / 3
       uc1.Label1.Top = (uc1.Height - uc1.Label1.Height) / 2
       Fi1 = FirstChar
   End If

   Dim uc As New UserControl1
   uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString
   ' uc.Label1.RightToLeft = RightToLeft
   uc.Label1.Left = uc.Width - uc.Label1.Width - 30
   Me.FlowLayoutPanel1.Controls.Add(uc)
   i += 1
   If i = j Then Exit Do
Loop

Button2.Enabled = True
Button3.Enabled = True

على كذا بيطلعلي عندك نسخة من البرنامج بعد الانتهاء  منه ..

[Taha Okla]

ولا تنسى أن تطلب من الاستعلام أن يرتب الأسماء بحسب خانة الاسم في جدول قاعدة البيانات.

كود :

Dim dp As New OleDbDataAdapter("Select * From Tbl order by Nam", con)

[عبدالكريم برشدان]

مشكور باش مهندس علي المساعدة 

راح اعطيك نسخة من البرنامج بعد الانتهاء منه

بس سؤال اخر انا اعدل في الكود بحيث يكمل باقي الصفوف من زر التالي بس يعاود عندي صف التصنيف