+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج كود اخفاء واظهار الزر من فظلكم (/showthread.php?tid=32497)
محتاج كود اخفاء واظهار الزر من فظلكم - sofiane-phy - 12-12-19
السلام عليكم ، لدي زر و داتا غريد فيو
المطلوب : اذا كانت خلايا الداتا غريد فيو لا تحتوي على بيانات حتى و لو كانت خلية واحدة اخفي الزر ، و اذا كان العكس اظهر الزر
بارك الله فيكم
RE: محتاج كود اخفاء واظهار الزر من فظلكم - sofiane-phy - 12-12-19
ممكن مساعدة
RE: محتاج كود اخفاء واظهار الزر من فظلكم - asemshahen5 - 12-12-19
ضع هذا الكود في مديول :
PHP كود :
Public Sub DgvValue(Dgv As DataGridView, btn As Button)
Dim i As Integer = 0
Dim x As Integer = 0
Dim bool As Boolean = Dgv.AllowUserToAddRows
If Dgv.AllowUserToAddRows = True Then
Dgv.AllowUserToAddRows = False
End If
If Dgv.Rows.Count > 0 Then
For Each Col As DataGridViewColumn In Dgv.Columns
For Each row As DataGridViewRow In Dgv.Rows
If row.Cells(Col.Name).Value.ToString.Length = 0 Then
i += 1
ElseIf Not row.Cells(Col.Name).Value.ToString.Length = 0 Then
x += 1
End If
Next
Next
If i > 0 Then
btn.Visible = False
MsgBox("عدد الخلايا الفارغة : " & i)
ElseIf i = 0 Then
btn.Visible = True
MsgBox("عدد الخلايا الممتلئة : " & x)
End If
End If
Dgv.AllowUserToAddRows = bool
End Sub
و هذا كود الاستخدام :
PHP كود :
DgvValue(DataGridView1, Button2)
RE: محتاج كود اخفاء واظهار الزر من فظلكم - sofiane-phy - 12-12-19
بارك الله فيك أخي ، يعطيك العافية
RE: محتاج كود اخفاء واظهار الزر من فظلكم - asemshahen5 - 18-12-19
الحمد الله و الشكر الله رب العالمين .
RE: محتاج كود اخفاء واظهار الزر من فظلكم - mohammed drem - 15-01-20
اضغط دبل كليك علي الزر وضع الكود التالي
hide.اسم الزر