+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص button (/showthread.php?tid=45556)
الصفحات:
1
2
سؤال بخصوص button - عبدالكريم برشدان - 21-02-23
مساء الخير عليكم جميعا
كيف يمكنني عمل button اللي في الصورة كيف اجعله فوق الادوات او بالاصح فوق Datagrid او flowlouytpanel
RE: سؤال بخصوص button - عبدالكريم برشدان - 23-02-23
هل من اجابة
RE: سؤال بخصوص button - Taha Okla - 23-02-23
السؤال مش واضح ..
على كل -
أي أداة تضعها على النافذة .. لجعلها في الأمام :
أضغط عليها بالماوس كلك يمين ثم اختار (Bring To Front)
فتصح أمام كل الأدوات التي تم وضعها على النافذة من قبل هذه العملية.
أما اذا كنت تريدها عن طريق الكود، استخدم الكود التالي :
كود :
ButtonX.BringToFront()RE: سؤال بخصوص button - عبدالكريم برشدان - 23-02-23
هذه الخاصية نحجت مع datagridview
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك
هذا المثال
RE: سؤال بخصوص button - Taha Okla - 23-02-23
(23-02-23, 09:01 PM)عبدالكريم برشدان كتب : هذه الخاصية نحجت مع datagridview
بس ما نجحت مع flowloauytpanel
ارفق لك مثال بذلك
هذا المثال
لا تضع الزر على البانل أو الجروب وغيرها من أدوات
ضعه على النافذة الرئيسية بمكان خالي
وفي حدث اللود ضع الكود التالي :
كود :
Button1.BringToFront()
Button1.Location = New Point(100, 300)بهذا الكود تستطيع سحب الزر إلى المكان الذي تريد (بحسب الاحداثيات التي تضعها فيها)
وبذا يصبح فوق البانل وليس منها ..
RE: سؤال بخصوص button - عبدالكريم برشدان - 23-02-23
مشكور باش مهندس علي المداخلة والمساعدة
نجحت الفكرة
هل في امكانية ان اسال سؤال اخر
RE: سؤال بخصوص button - عبدالكريم برشدان - 23-02-23
اريد تصنيف وترتيب الاسماء
مثل الصورة
RE: سؤال بخصوص button - Taha Okla - 24-02-23
(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على كذا بيطلعلي عندك نسخة من البرنامج بعد الانتهاء منه ..
RE: سؤال بخصوص button - Taha Okla - 24-02-23
ولا تنسى أن تطلب من الاستعلام أن يرتب الأسماء بحسب خانة الاسم في جدول قاعدة البيانات.
كود :
Dim dp As New OleDbDataAdapter("Select * From Tbl order by Nam", con)RE: سؤال بخصوص button - عبدالكريم برشدان - 24-02-23
مشكور باش مهندس علي المساعدة
راح اعطيك نسخة من البرنامج بعد الانتهاء منه
بس سؤال اخر انا اعدل في الكود بحيث يكمل باقي الصفوف من زر التالي بس يعاود عندي صف التصنيف