28-11-16, 12:23 PM
حقيقة كثيرة هي التطبيقات التي قلدت من سيربح المليون، لكنها ليست على معظمها جيدة، هل بالامكان المساعدة في بعض الكودات فيها؟
من حاول يخبرني عن كودات: المستوى والنتيجة وشكرا.
من حاول يخبرني عن كودات: المستوى والنتيجة وشكرا.

(30-11-16, 10:54 PM)الشاكي لله كتب : [ -> ]ماشاء الله اخوي شحادة ابداااااع
(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
بالتوفيق أخي الكريم