21-02-23, 09:05 PM
مساء الخير عليكم جميعا
كيف يمكنني عمل button اللي في الصورة كيف اجعله فوق الادوات او بالاصح فوق Datagrid او flowlouytpanel
كيف يمكنني عمل button اللي في الصورة كيف اجعله فوق الادوات او بالاصح فوق Datagrid او flowlouytpanel
الصفحات : 1 2
21-02-23, 09:05 PM
23-02-23, 03:28 PM
هل من اجابة
23-02-23, 05:20 PM
السؤال مش واضح ..
على كل -
أي أداة تضعها على النافذة .. لجعلها في الأمام :
أضغط عليها بالماوس كلك يمين ثم اختار (Bring To Front)
فتصح أمام كل الأدوات التي تم وضعها على النافذة من قبل هذه العملية.
أما اذا كنت تريدها عن طريق الكود، استخدم الكود التالي :
على كل -
أي أداة تضعها على النافذة .. لجعلها في الأمام :
أضغط عليها بالماوس كلك يمين ثم اختار (Bring To Front)
فتصح أمام كل الأدوات التي تم وضعها على النافذة من قبل هذه العملية.
أما اذا كنت تريدها عن طريق الكود، استخدم الكود التالي :
كود :
ButtonX.BringToFront()23-02-23, 09:01 PM
هذه الخاصية نحجت مع datagridview
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك
هذا المثال
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك
هذا المثال
23-02-23, 09:23 PM
(23-02-23, 09:01 PM)عبدالكريم برشدان كتب : [ -> ]هذه الخاصية نحجت مع datagridview
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك
هذا المثال
لا تضع الزر على البانل أو الجروب وغيرها من أدوات
ضعه على النافذة الرئيسية بمكان خالي
وفي حدث اللود ضع الكود التالي :
كود :
Button1.BringToFront()
Button1.Location = New Point(100, 300)بهذا الكود تستطيع سحب الزر إلى المكان الذي تريد (بحسب الاحداثيات التي تضعها فيها)
وبذا يصبح فوق البانل وليس منها ..
23-02-23, 10:04 PM
مشكور باش مهندس علي المداخلة والمساعدة
نجحت الفكرة
هل في امكانية ان اسال سؤال اخر
نجحت الفكرة
هل في امكانية ان اسال سؤال اخر
23-02-23, 11:17 PM
اريد تصنيف وترتيب الاسماء
مثل الصورة
مثل الصورة
24-02-23, 01:05 AM
(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على كذا بيطلعلي عندك نسخة من البرنامج بعد الانتهاء منه ..
24-02-23, 02:48 AM
ولا تنسى أن تطلب من الاستعلام أن يرتب الأسماء بحسب خانة الاسم في جدول قاعدة البيانات.
كود :
Dim dp As New OleDbDataAdapter("Select * From Tbl order by Nam", con)24-02-23, 05:25 PM
مشكور باش مهندس علي المساعدة
راح اعطيك نسخة من البرنامج بعد الانتهاء منه
بس سؤال اخر انا اعدل في الكود بحيث يكمل باقي الصفوف من زر التالي بس يعاود عندي صف التصنيف
راح اعطيك نسخة من البرنامج بعد الانتهاء منه
بس سؤال اخر انا اعدل في الكود بحيث يكمل باقي الصفوف من زر التالي بس يعاود عندي صف التصنيف
الصفحات : 1 2