(30-11-16, 10:54 PM)الشاكي لله كتب : ماشاء الله اخوي شحادة ابداااااع

أعتز بشهادتك أستاذي الحبيب
على فكرة هذا أيام VB6 وأخذ مني الكثير من الوقت وخاصة قاعدة بيانات الأسئلة
من حوالي سنة طلب مني مدرس قطري إعادة برمجته بتقنية WPF مقابل 300 دولار مع مولد أسئلة لكي يستخدمه في مدرسته مع الطلاب مع إضافة بعض التعديلات والمزايا
وبالفعل قمت بالعمل واستغرق حوالي 20 يوماً
ولكن العمل خاص لا أستطيع نشره

(30-11-16, 10:49 PM)السندبااد كتب :

هل رأيت هذه النسخة :

http://www.shhada.net/downloads.php?action=show&id=9

(03-10-13, 04:13 AM)mohammed moh كتب : و عليكم السلام و رحمة الله
إن كنت فهمت قصدك ممكن هذا الحل يساعدك و الله أعلم
المهم تفضل الكود و توكل على الله

PHP كود :

   Private Sub form1_Paint(ByVal sender As Object,ByVal e As PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        Dim pen As New Pen(Color.Red, 2.0)
        For Each x As Control In Me.Controls
            If TextBox1.Text > "" Then
                If TypeOf x Is TextBox Then

                    g.DrawRectangle(pen, New Rectangle(x.Location, x.Size))
                End If
            End If
        Next
        pen.Dispose()
    End Sub

   
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Refresh()
    End Sub 


+ أنت حر في إختيار الشرط الذي تريد مثلا انا في هذا المثال اخترت أنه عندما يكون النص غير فارغ يقوم بتلوين الإيطار
بالتوفيق أخي الكريم