[محمد علي 123]

لم يتم تعيين مرجع كائن لمثيل كائن

[معاند الحظ]

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

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

اي كانك صرحت عن المتغير بالطريقة  التالية:

كود :

 Dim customer1 As Customer

الكود السابق سينتج نفس رسالة الخطأ لديك 
والصحيح ان تكتب كود التصريح كما في الكود التالي:

كود :

' For customer1, call the constructor that takes no arguments.
 Dim customer1 As New Customer()
 
 ' For customer2, call the constructor that takes the name of the
 ' customer as an argument.
 Dim customer2 As New Customer("Blue Yonder Airlines")
 
 ' For customer3, declare an instance of Customer in the first line
 ' and instantiate it in the second.
 Dim customer3 As Customer
 customer3 = New Customer()
 
 ' With Option Infer set to On, the following declaration declares
 ' and instantiates a new instance of Customer.
 Dim customer4 = New Customer("Coho Winery")
 
 

[محمد علي 123]

(01-04-20, 05:29 PM)شكرا لك والعفو منكم على اني لم اسلم كتب : الاخ محمد علي
رغم عدم وضع الكود الذي اصدر الخطأ واكتفائك بالصورة لكن هذا لن يكفي اذا كنت تريد ان يتم الاجابة على سؤالك هذا او اي سؤال اخر
مستقبلا هذي مجرد نصيحة بالاضافة يستحسن ان تبدأ بالسلام اولا فقد يقرا السؤال احدهم ويرى انك لم تسلم ولا يرد

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

اي كانك صرحت عن المتغير بالطريقة  التالية:

كود :

 Dim customer1 As Customer

الكود السابق سينتج نفس رسالة الخطأ لديك 
والصحيح ان تكتب كود التصريح كما في الكود التالي:

كود :

' For customer1, call the constructor that takes no arguments.
 Dim customer1 As New Customer()
 
 ' For customer2, call the constructor that takes the name of the
 ' customer as an argument.
 Dim customer2 As New Customer("Blue Yonder Airlines")
 
 ' For customer3, declare an instance of Customer in the first line
 ' and instantiate it in the second.
 Dim customer3 As Customer
 customer3 = New Customer()
 
 ' With Option Infer set to On, the following declaration declares
 ' and instantiates a new instance of Customer.
 Dim customer4 = New Customer("Coho Winery")