السلام عليكــم ورحمـة الله وبركاتــه
الله يجزاكم خير اريد شرح عن هذا الكود
Private Sub TextBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseLeave
وعليكــم السـلام ورحمة الله وبركاتـه..
شرح كود لو تكرمتو
مرحباً ( أخي, أختي ) الكريم(ـة) .
شرح ماذا ؟
هل تقصد : متى ينفجر هذا الحدث ؟
إذا كان هذا ماتقصده : ( ينفجر الحدث ( MouseLeave ) عند خروج الـ Mouse من منطقة ( Region ) المرسل ( TextBox1 ) ) .
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
شكراً على مساعدتي
لو تكرمت اكثر اريد معرفة هذي اهم شي
(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Mail : pc-moon@hotmail.com
من تواضع لله رفعه
قل خيرا أو اصمت
Byval يمكنك اعتبارها كـ ( بواسطة ) تستخدم لتعريف Parameter, هنالك استخدام أخر ( Byref ) يمكنك اعتبارها كـ ( بالمرجع ) .
مثال على Byref, لنأخذ شيء من الـ Visual Basic :
[color= #000000; font-weight: bold;]Public Shared [color= #000000; font-weight: bold;]Function TryParse[color= #009900;]( Byval InValue [color= #b1b100;]As Object[color= #339933;], Byref OutValue [color= #b1b100;]As Integer [color= #009900;]) [color= #b1b100;]As Boole an Try OutValue [color= #339933;]= Integer[color= #339933;].Parse[color= #009900;]( InValue [color= #009900;]) [color= #339933;]: [color= #b1b100;]Return [color= #000000; font-weight: bold;]True Catch [color= #b1b100;]Return [color= #000000; font-weight: bold;]False [color= #990000;]End Try [color= #990000;]End [color= #000000; font-weight: bold;]Function
الإستخدام :
Dim OutValue [color= #b1b100;]As Integer [color= #339933;]= [color= #cc66cc;]0 [color= #b1b100;]If TryParse[color= #009900;]( [color= #0000ff;]"1000"[color= #339933;], OutValue [color= #009900;]) Then Msgbox[color= #009900;]( OutValue [color= #009900;]) [color= #b1b100;]Else Msgbox[color= #009900;]( [color= #0000ff;]"The given value wasn't in a correct format" [color= #009900;]) [color= #990000;]End [color= #b1b100;]If
بالنسبة للـ Sender المرسل ( اي بمعنى القائم بتفجير الحدث ) هو عبارة عن Object يمكنك الاستعانة به عند استخدام حدث معين لعدة عناصر من نفس النوع .
مثال :
[color= #000000; font-weight: bold;]Private Sub TextBoxes_TextChanged[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].OBject[color= #339933;], [color= #990000;]_ Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles TextBox1[color= #339933;].TextChanged[color= #339933;], [color= #990000;]_ TextBox2[color= #339933;].TextChanged[color= #339933;], TextBox3[color= #339933;].TextChanged Dim CTextBox [color= #b1b100;]As TextBox [color= #339933;]= DirectCast[color= #009900;]( Sender[color= #339933;], TextBox [color= #009900;]) [color= #b1b100;]If Not CTextBox[color= #339933;].Text [color= #339933;]= String[color= #339933;].[color= #990000;]Empty Then MsgBox[color= #009900;]( CTextBox[color= #339933;].Text [color= #009900;]) [color= #990000;]End Sub
الـ EventArgs لاتخدمك بشيء, لذلك ليس هنالك مايشرح عنه, لكن في بعض الأحيان أو مع بعض الأحداث مثل ( MouseMove, KeyPress ) يمكنك الاستعانة بتابع الحدث E .
مثال عن الحدث MouseMove :
[color= #000000; font-weight: bold;]Private Sub Form1_MouseMove[color= #009900;](ByVal Sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_ ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].MouseEventArgs[color= #009900;]) Handles Me[color= #339933;].MouseMove Using G [color= #b1b100;]As Graphics [color= #339933;]= CreateGraphics[color= #009900;]([color= #009900;]) G[color= #339933;].DrawLine[color= #009900;](Pens[color= #339933;].Black[color= #339933;], [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #339933;], E[color= #339933;].X[color= #339933;], E[color= #339933;].Y[color= #009900;]) [color= #990000;]End Using [color= #990000;]End Sub
مثال عن الحدث KeyPress :
[color= #000000; font-weight: bold;]Private Sub Form1_KeyPress[color= #009900;](ByVal Sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_ ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].KeyPressEventArgs[color= #009900;]) Handles Me[color= #339933;].KeyPress MsgBox[color= #009900;](E[color= #339933;].KeyChar[color= #339933;].ToString[color= #009900;]) [color= #990000;]End Sub
Handles لإلحاق الحدث بعملاء, مثال : ( Handles TextBox1.TextChanged ) .
يمكنك أيضاً إضافة الأحداث في وقت التشغيل .
مثال :
[color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_ Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles Button1[color= #339933;].Click Dim NewTextBox [color= #b1b100;]As [color= #000000; font-weight: bold;]New TextBox NewTextBox[color= #339933;].Top [color= #339933;]= CInt[color= #009900;]( [color= #cc66cc;]22 [color= #339933;]* Controls[color= #339933;].[color= #990000;]Count [color= #009900;]) AddHandler NewTextBox[color= #339933;], AddressOf TextBoxes_TextChanged Controls[color= #339933;].Add[color= #009900;]( NewTextBox [color= #009900;]) [color= #990000;]End Sub Privte Sub TextBoxes_TextChanged[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_ Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventARgs[color= #009900;]) Dim CTextBox [color= #b1b100;]As TextBox [color= #339933;]= DirectCast[color= #009900;]( Sender[color= #339933;], CTextBox [color= #009900;]) [color= #b1b100;]If Not CTextBox[color= #339933;].Text [color= #339933;]= String[color= #339933;].[color= #990000;]Empty Then MsgBox[color= #009900;]( CTexBox[color= #339933;].Text [color= #009900;]) [color= #990000;]End Sub
إذا أردت شرح عن شيء من المذكور, لاتتردد في سؤال عنه .
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 1 يناير 2009 في 20:15
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
شكراً ماشاء الله
الله يذيدك من العلم
صراحة ضعت مع الاكواد
لو تكرمت نشرح القليل و الاساس من الاكواد
# # Public Shared Function TryParse( Byval InValue As Object, Byref OutValue As Integer ) As Boole an # Try # OutValue = Integer.Parse( InValue ) : Return True # Catch # Return False # End Try # End Function
نبدا بالكود الاول
Mail : pc-moon@hotmail.com
من تواضع لله رفعه
قل خيرا أو اصمت
حسناً .
لقد استخدمت المثال الأول, لشرح فكرة استخدام ( Byref ), في الـVisual Basic, هنالك عدد معين من الكائنات التي تدعم هذه العملية كـ ( Integer, Double, Single, Date )
مثال : Integer.TryParse()
Dim Value As Integer = 0
If Integer.TryParse( "1000", Value ) Then
Msgbox( "It was a valid value")
Else
Msgbox( "It wasn't valid")
End If
هذه العملية هي عملية ذات مرجع منطقي ( Boolean ) تستخدم المرجع Value, إذا كانت القيمة المعطاة ( قيمة سليمة ) تًرجع العملية ( True ) إذا لم تكن, أي إذا جربنا :
If Not Integer.TryParse( "100ABC", Value ) Then
Msgbox( "Value wasn't in a correct format" )
End If
هنا تًرجع العملية ( False ) لأن القيمة المعطاة ليس في هيئة صحيحة ...
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
ماشاء الله تبارك الله عليك
الله يذيدك من العلم
اخوك ضعيف في اللغة اريد التوسع الله يوفقك
هذا الكود ماذا عملة اقصد اش فائدتة
Byval InValue As Object
و هذا الجذاء الثاني
Byref OutValue As Integer
و بعد هذا نطرق للخرى
و اتمنى
لو تضيف موضوع لفائدة الجميع
Mail : pc-moon@hotmail.com
من تواضع لله رفعه
قل خيرا أو اصمت
مرحباً أخي الكريم .
بالنسبة للأول استخدمنا ( InValue ) لنرسل للعملية قيمة نريد محاولة تحويلها الى نوع أخر ( Integer ) .
بالنسبة للثاني استخدمنا ( OutValue ) كمرجع اخر للعملية, فإذا تم تحويل القيمة المرسلة عبر ( InValue ) بشكل صحيح, سيتم ارجاع القيمة عبر ( OutValue ) .
بالنسبة لنهابة العملية ( As Boolean ) اساس العملية ( اساس منطقي ), إذا تم كل شيء على مايرام سترجع القيمة ( True ) وإذا لم يتم سترجع القيمة ( False ) ...
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.