ماهو كود مسح جميع الحقول في هذا البرنامج (مرفق صورة) ..؟

السؤال الأول :

ضع هذا الكود في زر clear

 Dim ctr As Control

 For Each ctr In Me
   If TypeOf ctr Is TextBox Then
     ctr.Text = ""
   End If

 Next

السؤال الثاني غير مفهوم بالنسبة لي

تحياتي

السلام عليكم

أخي الكريم انتبه... يبدو برنامجك يعمل في بيئة .NET لذلك احرص على الكتابة في القسم المخصص

على أية حال اذا كنت تستخدم VB6 اقرأ الآتي:

أضف في حدث Click لزر CmdMode الكود التالي :

Private Sub CmdMode_Click()
Dim d, re
d = MODE(List1, re)
MsgBox "Mode Number: " & d & vbCrLf & "Number Of Repeat: " & re
End Sub

و الذي يستدعي بدوره الوظيفة Mode :

Private Function MODE(Mylist As ListBox, repeat_num As Variant) As Variant
Dim Num As Integer
Dim k As Integer
MODE = Val(Mylist.List(0))
repeat_num = 0
For i = 0 To Mylist.ListCount - 1
    Num = Val(Mylist.List(i))
    k = 0
     For j = 0 To Mylist.ListCount - 1
         If Num = Val(Mylist.List(j)) Then
             k = k + 1
         End If
     Next j
     If k > repeat_num Then
         repeat_num = k
         MODE = Val(Mylist.List(i))
     End If
Next i
If repeat_num = 1 Then
 MODE = "   N O T H I N G   F O U N D"
 repeat_num = "   N O T H I N G"
End If
End Function

نتيجة الاكواد أعلاه تحاكي وظيفة Mode في Microsoft Excel بمعنى:

1- في حال النجاح يعطيك الرقم الأكثر تكرارا.. بالاضافة الى عدد مرات التكرار.

2- في حال وجود عدة أرقام متماثلة في التكرار ..سيعطيك منها اول قيمة كنت قد أدخلتها في الليست بوكس.

3- في حال عدم وجود تكرار سيعطي رسالة تفيد بذلك.

بالتوفيق

اخوي عماني انا استخدم فيجول بيسك 2008 والكود ما ضبط معي ، شكرا لك ..

اخوي ديفد راح اسأل عنه في دوت نت مشكور وما قصرت ..

nnkk كتب:

اخوي عماني انا استخدم فيجول بيسك 2008 والكود ما ضبط معي ، شكرا لك ..

اخوي ديفد راح اسأل عنه في دوت نت مشكور وما قصرت ..

هذا الكود للدوت نت

        Dim ctr As Control

        For Each ctr In Me.Controls
            If TypeOf ctr Is TextBox Then
                ctr.Text = ""
            End If

        Next

تحياتي