منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشروع class ارجوا مساعده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشروع class ارجوا مساعده (/showthread.php?tid=21321)



مشروع class ارجوا مساعده - nader309 - 08-08-17

السلام عليكم 

اول الشي انا عندي vb 2010 

بدي ساوي class 1 

و form1

لح ساوي TextBox1 و TextBox2  جانب بعض 

بدي ساوي dim x و dim y

و

TextBox1=x

TextBox1=y

طيب ساويت Button1 
لح خلي x=20
وy=20

بدي خلي جميع المعلومات في class1 

واقوم باستدعاء الى form1

وعندما اضغط على Button1 بصير TextBox و الثاني ياخذوا 20 مثل ما كتبت عن x , y

اعتقد الطريقه فيها function[url=https://stackoverflow.com/questions/4908692/difference-between-byval-and-byref][/url]
و من جمل byref 
ارجوا شرح جمل ايضا وشكرا لكم

ارجوا شرح لانوا مالي فهمان byref وكيف استعماله 


وشكرا


RE: مشروع class ارجوا مساعده - أبو نوره - 09-08-17

مرحبا اخى

مفهمتش انت عاوز ايه غير byref

byref يعني بالمرجع او بتبسيط اكتر التحكم في قيمة المتغير الاصلى

شوف هذا المثالين يمكن تفهم المقصود
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

    Dim ByValue 
As Integer 10
    changeByValue
(ByValue)
 
   MsgBox("ByValue= " ByValue)


 
   Dim ByReference As Integer 10
    changeByReference
(ByReference)
 
   MsgBox("ByReference= " ByReference)

End Sub

Sub changeByValue
(ByVal n As Integer)
 
   n 20
End Sub

Sub changeByReference
(ByRef n As Integer)
 
   n 20
End Sub 
حاول تستنتج ليه في الرساله الاولى بقيت القيمه 10 متغيرتش وفي الثانيه صارت 20