নাল রেফারেন্স ব্যতিক্রম - ভিজ্যুয়াল বেসিক
NullReference Exceptionজন্য ভিসুয়াল বেসিক মধ্যে এক থেকে কোন পার্থক্য নাই সি # । সর্বোপরি, তারা উভয়ই .NET ফ্রেমওয়ার্কে সংজ্ঞায়িত একই ব্যতিক্রমের প্রতিবেদন করছে যা তারা উভয়ই ব্যবহার করে। ভিজ্যুয়াল বেসিকের অনন্য কারণগুলি বিরল (সম্ভবত কেবল একটি)।
এই উত্তরটি ভিজ্যুয়াল বেসিক পদগুলি, বাক্য গঠন এবং প্রসঙ্গ ব্যবহার করবে। ব্যবহৃত উদাহরণগুলি প্রচুর অতীত স্ট্যাক ওভারফ্লো প্রশ্ন থেকে আসে। পোস্টে প্রায়শই দেখা যায় এমন ধরণের পরিস্থিতি ব্যবহার করে প্রাসঙ্গিকতা সর্বাধিককরণের জন্য এটি । যাদের প্রয়োজন হতে পারে তাদের জন্য আরও কিছুটা ব্যাখ্যা প্রদান করা হয়েছে। আপনার অনুরূপ উদাহরণ খুব সম্ভবত এখানে তালিকাভুক্ত করা হয়।
বিঃদ্রঃ:
- এটি ধারণা-ভিত্তিক: আপনার প্রকল্পে পেস্ট করার কোনও কোড নেই। একটি
NullReferenceException(এনআরই) কী কী কারণে হয়, এটি কীভাবে সন্ধান করা যায়, কীভাবে এটি ঠিক করা যায় এবং কীভাবে এড়ানো যায় তা বুঝতে আপনাকে সহায়তা করার উদ্দেশ্যে এটি করা হয়েছে। একটি এনআরই এর অনেক কারণ হতে পারে তাই এটি আপনার একমাত্র মুখোমুখি হওয়ার সম্ভাবনা নেই।
- উদাহরণ (স্ট্যাক ওভারফ্লো পোস্টগুলি থেকে) সর্বদা প্রথম স্থানে কিছু করার সর্বোত্তম উপায় প্রদর্শন করে না।
- সাধারণত, সবচেয়ে সহজ প্রতিকার ব্যবহৃত হয়।
বেসিক অর্থ
" অবজেক্টটির কোনও উদাহরণে সেট করা হয়নি" বার্তাটির অর্থ আপনি কোনও অবজেক্টটি ব্যবহার করার চেষ্টা করছেন যা আরম্ভ করা হয়নি। এটি এর মধ্যে একটিতে সিদ্ধ হয়:
- আপনার কোডটি একটি অবজেক্ট ভেরিয়েবল হিসাবে ঘোষণা করেছে, তবে এটি এটি আরম্ভ করে নি (উদাহরণ তৈরি করুন বা এটি ' ইনস্ট্যান্টিয়েট করুন ')
- আপনার কোড ধরে নেওয়া এমন কিছু যা কোনও বস্তুর সূচনা করবে, তা হয়নি
- সম্ভবত, অন্যান্য কোড অকাল আগে অবধি ব্যবহার করা অবধি অবৈধ
কারণ সন্ধান করা
যেহেতু সমস্যাটি কোনও অবজেক্ট রেফারেন্স যা হ'ল Nothing, উত্তরটি হ'ল কোনটি একটি তা খুঁজে বের করার জন্য তাদের পরীক্ষা করা। তারপরে এটি কেন প্রাথমিক করা হয়নি তা নির্ধারণ করুন। বিভিন্ন ভেরিয়েবলের উপর মাউস ধরে রাখুন এবং ভিজ্যুয়াল স্টুডিও (ভিএস) তাদের মানগুলি দেখায় - অপরাধী হবে Nothing।
আপনার প্রাসঙ্গিক কোড থেকে যে কোনও ট্রাই / ক্যাচ ব্লকগুলি মুছে ফেলা উচিত, বিশেষত এমনগুলি যেখানে ক্যাচ ব্লকে কিছুই নেই। এটি আপনার কোডটিকে ক্রাশ করার কারণ যখন এটি কোনও অবজেক্টটি ব্যবহার করার চেষ্টা করে Nothing। আপনি যা চান এটি এটি কারণ এটি সমস্যার সঠিক অবস্থানটি সনাক্ত করতে এবং আপনাকে এটির কারণটি সনাক্ত করার অনুমতি দেয়।
একটি MsgBoxক্যাচ যা প্রদর্শন করে Error while...তাতে খুব একটা সহায়ক হবে। এই পদ্ধতিটি খুব খারাপ স্ট্যাক ওভারফ্লো প্রশ্নগুলির দিকে পরিচালিত করে , কারণ আপনি প্রকৃত ব্যতিক্রম, বস্তুর সাথে জড়িত বা এমনকি কোডের লাইনটি যেখানে ঘটে তা বর্ণনা করতে পারবেন না।
আপনি নিজের বস্তুগুলি পরীক্ষা করতে Locals Window( ডিবাগ -> উইন্ডোজ -> স্থানীয় ) ও ব্যবহার করতে পারেন ।
সমস্যাটি কী এবং কোথায় তা জানার পরে সাধারণত কোনও নতুন প্রশ্ন পোস্ট করার চেয়ে সমাধান করা মোটামুটি সহজ এবং দ্রুত।
আরো দেখুন:
উদাহরণ এবং প্রতিকার
ক্লাস অবজেক্টস / একটি ইনস্ট্যান্স তৈরি করা
Dim reg As CashRegister
...
TextBox1.Text = reg.Amount ' NRE
সমস্যাটি হ'ল Dimক্যাশ-রেজিস্টার বস্তু তৈরি করে না ; এটি কেবলমাত্র এই ধরণের নামের একটি ভেরিয়েবল ঘোষণা করে reg। কোনও বস্তুর পরিবর্তনশীল ঘোষণা করা এবং একটি উদাহরণ তৈরি করা দুটি ভিন্ন জিনিস।
প্রতিকার
Newঅপারেটর প্রায়ই যখন আপনি এটি ঘোষণা উদাহরণস্বরূপ তৈরি করতে ব্যবহার করা যেতে পারে:
Dim reg As New CashRegister ' [New] creates instance, invokes the constructor
' Longer, more explicit form:
Dim reg As CashRegister = New CashRegister
যখন পরে কেবল উদাহরণটি তৈরি করা উপযুক্ত হবে:
Private reg As CashRegister ' Declare
...
reg = New CashRegister() ' Create instance
দ্রষ্টব্য: কনস্ট্রাক্টর ( ) সহ কোনও পদ্ধতিতে আবার ব্যবহার করবেন না :DimSub New
Private reg As CashRegister
'...
Public Sub New()
'...
Dim reg As New CashRegister
End Sub
এটি একটি স্থানীয় পরিবর্তনশীল তৈরি করবে reg, যা কেবলমাত্র সেই প্রসঙ্গে (উপ) উপস্থিত রয়েছে। regমডিউল স্তর সঙ্গে পরিবর্তনশীল Scopeযা আপনি অন্য যেকোন স্থানে দেহাবশেষ ব্যবহার করবে Nothing।
Newঅপারেটরকে হারিয়ে যাওয়াNullReference Exceptions স্ট্যাক ওভারফ্লো প্রশ্নগুলির পর্যালোচনা করা # 1 কারণ ।
ভিজ্যুয়াল বেসিক বারবার ব্যবহার করে প্রক্রিয়াটি পরিষ্কার করার চেষ্টা করে New: Newঅপারেটর ব্যবহার করে একটি নতুন অবজেক্ট তৈরি হয় এবং কলগুলি Sub New- কনস্ট্রাক্টর - যেখানে আপনার অবজেক্টটি অন্য কোনও সূচনা করতে পারে।
পরিষ্কার হতে, Dim(বা Private) কেবল একটি ভেরিয়েবল এবং এর ঘোষণা করে Type। ব্যাপ্তি তা সমগ্র মডিউল / বর্গ জন্য বিদ্যমান বা একটি পদ্ধতি স্থানীয় হল - - ভেরিয়েবলের দ্বারা নির্ধারিত হয় যেখানে এটি ঘোষিত হয়। Private | Friend | Publicঅ্যাক্সেস স্তর সংজ্ঞা দেয়, স্কোপ নয় ।
আরও তথ্যের জন্য, দেখুন:
অ্যারেগুলির
অ্যারেগুলিও তাত্ক্ষণিকভাবে আবশ্যক:
Private arr as String()
এই অ্যারেটি কেবল ঘোষিত হয়েছে, তৈরি হয়নি। অ্যারে শুরু করার বিভিন্ন উপায় রয়েছে:
Private arr as String() = New String(10){}
' or
Private arr() As String = New String(10){}
' For a local array (in a procedure) and using 'Option Infer':
Dim arr = New String(10) {}
দ্রষ্টব্য: ভিএস ২০১০ থেকে শুরু করে, যখন আক্ষরিক ব্যবহার করে স্থানীয় অ্যারে শুরু করা হয় এবং Option Infer, As <Type>এবং Newউপাদানগুলি alচ্ছিক:
Dim myDbl As Double() = {1.5, 2, 9.9, 18, 3.14}
Dim myDbl = New Double() {1.5, 2, 9.9, 18, 3.14}
Dim myDbl() = {1.5, 2, 9.9, 18, 3.14}
ডেটা টাইপ এবং অ্যারের আকার নির্ধারিত ডেটা থেকে অনুমান করা হয়। ক্লাস / মডিউল স্তর ঘোষণা এখনও প্রয়োজন As <Type>সঙ্গে Option Strict:
Private myDoubles As Double() = {1.5, 2, 9.9, 18, 3.14}
উদাহরণ: শ্রেণি সামগ্রীর অ্যারে ray
Dim arrFoo(5) As Foo
For i As Integer = 0 To arrFoo.Count - 1
arrFoo(i).Bar = i * 10 ' Exception
Next
অ্যারে তৈরি করা হয়েছে, তবে এতে থাকা Fooবস্তুগুলি নেই।
প্রতিকার
For i As Integer = 0 To arrFoo.Count - 1
arrFoo(i) = New Foo() ' Create Foo instance
arrFoo(i).Bar = i * 10
Next
একটি ব্যবহার করে List(Of T)বৈধ বস্তু ছাড়াই উপাদান থাকা বেশ কঠিন করে তোলে:
Dim FooList As New List(Of Foo) ' List created, but it is empty
Dim f As Foo ' Temporary variable for the loop
For i As Integer = 0 To 5
f = New Foo() ' Foo instance created
f.Bar = i * 10
FooList.Add(f) ' Foo object added to list
Next
আরও তথ্যের জন্য, দেখুন:
তালিকা এবং সংগ্রহ
.NET সংগ্রহ (যার মধ্যে বিভিন্ন ধরণের রয়েছে - তালিকাগুলি, অভিধান ইত্যাদি) এছাড়াও তাত্ক্ষণিকভাবে তৈরি বা তৈরি করতে হবে।
Private myList As List(Of String)
..
myList.Add("ziggy") ' NullReference
আপনি একই কারণে একই ব্যতিক্রম পান - myListকেবলমাত্র ঘোষিত হয়েছিল, তবে কোনও উদাহরণ তৈরি করা হয়নি। প্রতিকার একই:
myList = New List(Of String)
' Or create an instance when declared:
Private myList As New List(Of String)
একটি সাধারণ পর্যবেক্ষণ একটি শ্রেণি যা একটি সংগ্রহ ব্যবহার করে Type:
Public Class Foo
Private barList As List(Of Bar)
Friend Function BarCount As Integer
Return barList.Count
End Function
Friend Sub AddItem(newBar As Bar)
If barList.Contains(newBar) = False Then
barList.Add(newBar)
End If
End Function
যে কোনও পদ্ধতির ফলে এনআরই হবে, কারণ barListএটি কেবল ঘোষণা করা হয়, তাত্ক্ষণিক নয়। একটি উদাহরণ Fooতৈরি করা অভ্যন্তরের উদাহরণও তৈরি করবে না barList। এটি নির্মাণকারীর মধ্যে এটি করার উদ্দেশ্য হতে পারে:
Public Sub New ' Constructor
' Stuff to do when a new Foo is created...
barList = New List(Of Bar)
End Sub
আগের মত, এটি ভুল:
Public Sub New()
' Creates another barList local to this procedure
Dim barList As New List(Of Bar)
End Sub
আরও তথ্যের জন্য, List(Of T)ক্লাস দেখুন ।
ডেটা সরবরাহকারী অবজেক্টস
ডাটাবেস উপহার সঙ্গে একটি NullReference জন্য অনেক সুযোগ ওয়ার্কিং কারণ অনেক বস্তু (হতে পারে Command, Connection, Transaction, Dataset, DataTable, DataRowsএকবারে ....) ব্যবহারে রয়েছে। দ্রষ্টব্য: আপনি কোন ডেটা সরবরাহকারীর ব্যবহার করছেন তা বিবেচ্য নয় - মাইএসকিউএল, এসকিউএল সার্ভার, ওলেডিবি ইত্যাদি - ধারণাগুলি একই রকম।
উদাহরণ 1
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim MaxRows As Integer
con.Open()
Dim sql = "SELECT * FROM tblfoobar_List"
da = New OleDbDataAdapter(sql, con)
da.Fill(ds, "foobar")
con.Close()
MaxRows = ds.Tables("foobar").Rows.Count ' Error
dsপূর্বের মতো , ডেটাসেট অবজেক্টটি ঘোষিত হয়েছিল, তবে কোনও উদাহরণ কখনই তৈরি হয়নি। এটি DataAdapterএকটি বিদ্যমানকে পূরণ করবে DataSet, একটি তৈরি করবে না। এই ক্ষেত্রে, যেহেতু dsস্থানীয় পরিবর্তনশীল, তাই IDE আপনাকে সতর্ক করে যে এটি হতে পারে:
যখন মডিউল / শ্রেণি স্তরের ভেরিয়েবল হিসাবে ঘোষিত হয়, যেমনটি ঘটেছে বলে মনে হয় con, কম্পাইলারটি জানতে পারে না যে বস্তুটি একটি প্রবাহের পদ্ধতি দ্বারা তৈরি হয়েছিল। সতর্কতা অবহেলা করবেন না।
প্রতিকার
Dim ds As New DataSet
উদাহরণ 2
ds = New DataSet
da = New OleDBDataAdapter(sql, con)
da.Fill(ds, "Employees")
txtID.Text = ds.Tables("Employee").Rows(0).Item(1)
txtID.Name = ds.Tables("Employee").Rows(0).Item(2)
একটি টাইপো এখানে সমস্যা: Employeesবনাম Employee। DataTable"কর্মচারী" নামে কোনও নাম তৈরি করা হয়নি, সুতরাং NullReferenceExceptionএটির অ্যাক্সেস করার চেষ্টা করে একটি ফলাফল। আর একটি সম্ভাব্য সমস্যা অনুমান করছে যে এটি হবে Itemsযা এসকিউএল-এর যেখানে যেখানে একটি বিধি অন্তর্ভুক্ত রয়েছে তা নাও হতে পারে।
প্রতিকার
যেহেতু এটি একটি টেবিল ব্যবহার করে তাই Tables(0)বানান ত্রুটিগুলি এড়িয়ে চলবে। পরীক্ষা Rows.Countকরাও সহায়তা করতে পারে:
If ds.Tables(0).Rows.Count > 0 Then
txtID.Text = ds.Tables(0).Rows(0).Item(1)
txtID.Name = ds.Tables(0).Rows(0).Item(2)
End If
Fillএটি এমন একটি ফাংশন Rowsযা আক্রান্তের সংখ্যা ফিরিয়ে দেয় যা পরীক্ষাও করা যায়:
If da.Fill(ds, "Employees") > 0 Then...
উদাহরণ 3
Dim da As New OleDb.OleDbDataAdapter("SELECT TICKET.TICKET_NO,
TICKET.CUSTOMER_ID, ... FROM TICKET_RESERVATION AS TICKET INNER JOIN
FLIGHT_DETAILS AS FLIGHT ... WHERE [TICKET.TICKET_NO]= ...", con)
Dim ds As New DataSet
da.Fill(ds)
If ds.Tables("TICKET_RESERVATION").Rows.Count > 0 Then
দ্য DataAdapterপ্রদান করবে TableNamesপূর্ববর্তী উদাহরণে দেখানো, কিন্তু এটা এসকিউএল বা ডাটাবেস টেবিল থেকে না পার্স নাম থাকবে না। ফলস্বরূপ, ds.Tables("TICKET_RESERVATION")অস্তিত্বহীন টেবিলের উল্লেখ করে।
প্রতিকার , একই সূচক দ্বারা টেবিল রেফারেন্স:
If ds.Tables(0).Rows.Count > 0 Then
আরো দেখুন ডেটা টেবিল ক্লাসও ।
অবজেক্ট পাথ / নেস্টেড
If myFoo.Bar.Items IsNot Nothing Then
...
কোডটি কেবলমাত্র Itemsউভয়ই পরীক্ষা করছে myFooএবং Barকিছুই নাও হতে পারে। প্রতিকার একটি সময়ে সমগ্র শৃঙ্খল বা বস্তু এক পথ পরীক্ষা করা:
If (myFoo IsNot Nothing) AndAlso
(myFoo.Bar IsNot Nothing) AndAlso
(myFoo.Bar.Items IsNot Nothing) Then
....
AndAlsoগুরুত্বপূর্ণ। প্রথম Falseশর্তটি সম্মুখীন হওয়ার পরে পরবর্তী পরীক্ষাগুলি করা হবে না । এটি কোডটিকে একবারে myFoo.Bar(এবং যদি) পরে মূল্যায়ন করে একবারে অবজেক্টগুলিতে 'এক স্তর' সুরক্ষিতভাবে 'ড্রিল' করতে দেয় andmyFoo বৈধ হওয়ার জন্য নির্ধারিত হয় । জটিল অবজেক্ট কোডিংয়ের সময় অবজেক্ট চেইন বা পাথগুলি বেশ দীর্ঘ হতে পারে:
myBase.myNodes(3).Layer.SubLayer.Foo.Files.Add("somefilename")
কোনও nullবস্তুর 'ডাউন স্ট্রিম' কিছু উল্লেখ করা সম্ভব নয় । এটি নিয়ন্ত্রণগুলিতেও প্রযোজ্য:
myWebBrowser.Document.GetElementById("formfld1").InnerText = "some value"
এখানে, myWebBrowserবা Documentকিছুই বা হতে পারেformfld1 উপাদান উপস্থিত থাকতে পারে না।
ইউআই নিয়ন্ত্রণ
Dim cmd5 As New SqlCommand("select Cartons, Pieces, Foobar " _
& "FROM Invoice where invoice_no = '" & _
Me.ComboBox5.SelectedItem.ToString.Trim & "' And category = '" & _
Me.ListBox1.SelectedItem.ToString.Trim & "' And item_name = '" & _
Me.ComboBox2.SelectedValue.ToString.Trim & "' And expiry_date = '" & _
Me.expiry.Text & "'", con)
অন্যান্য জিনিসগুলির মধ্যে, এই কোডটি অনুমান করে না যে ব্যবহারকারী এক বা একাধিক ইউআই নিয়ন্ত্রণগুলিতে কিছু নির্বাচন না করে থাকতে পারে। ListBox1.SelectedItemভাল হতে পারে Nothing, সুতরাং ListBox1.SelectedItem.ToStringএকটি এনআরই ফলাফল হবে।
প্রতিকার
এটি ব্যবহারের আগে ডেটা বৈধ করুন (এছাড়াও ব্যবহার করুন) Option Strict এবং এসকিউএল পরামিতি):
Dim expiry As DateTime ' for text date validation
If (ComboBox5.SelectedItems.Count > 0) AndAlso
(ListBox1.SelectedItems.Count > 0) AndAlso
(ComboBox2.SelectedItems.Count > 0) AndAlso
(DateTime.TryParse(expiry.Text, expiry) Then
'... do stuff
Else
MessageBox.Show(...error message...)
End If
বিকল্পভাবে, আপনি ব্যবহার করতে পারেন (ComboBox5.SelectedItem IsNot Nothing) AndAlso...
ভিজ্যুয়াল বেসিক ফর্মগুলি
Public Class Form1
Private NameBoxes = New TextBox(5) {Controls("TextBox1"), _
Controls("TextBox2"), Controls("TextBox3"), _
Controls("TextBox4"), Controls("TextBox5"), _
Controls("TextBox6")}
' same thing in a different format:
Private boxList As New List(Of TextBox) From {TextBox1, TextBox2, TextBox3 ...}
' Immediate NRE:
Private somevar As String = Me.Controls("TextBox1").Text
এটি একটি এনআরই পাওয়ার মোটামুটি সাধারণ উপায়। সি # তে, কীভাবে এটি কোডিং করা হয়েছে তার উপর নির্ভর করে IDE এটি রিপোর্ট করবেControls যা বর্তমান প্রসঙ্গে নেই বা "স্থিতিশীল সদস্যকে উল্লেখ করতে পারে না"। সুতরাং, কিছুটা হলেও, এটি একটি ভিবি-কেবল পরিস্থিতি। এটি জটিলও কারণ এটির ফলে ব্যর্থতা ক্যাসকেড হতে পারে।
অ্যারে এবং সংগ্রহগুলি এভাবে শুরু করা যায় না। এই আরম্ভের কোডটি কনস্ট্রাক্টর তৈরি করার আগেForm বা চালিত হবেControls । ফলস্বরূপ:
- তালিকা এবং সংগ্রহটি খালি থাকবে
- অ্যারেতে নথিংয়ের পাঁচটি উপাদান থাকবে
somevarনিয়োগ একটি তাৎক্ষণিক NRE পরিণাম ডেকে আনবে কারণ কিছুই নেই .Textসম্পত্তি
অ্যারে উপাদানগুলি পরে রেফারেন্স করার ফলে একটি এনআরই হবে। যদি আপনি এটি করেন Form_Load, কোনও বিজোড় বাগের কারণে, আইডিই ব্যতিক্রম ঘটলে এটি রিপোর্ট করতে পারে না । আপনার কোডটি অ্যারে ব্যবহার করার চেষ্টা করার পরে ব্যতিক্রমটি পপ আপ হবে । এই "নীরব ব্যতিক্রম" এই পোস্টে বিস্তারিত রয়েছে । আমাদের উদ্দেশ্যে, মূলটি হ'ল যখন কোনও ফর্ম তৈরি করার সময় বিপর্যয়কর কিছু ঘটে ( Sub Newবা Form Loadইভেন্ট), ব্যতিক্রমগুলি অ-রিপোর্টিত হতে পারে, কোডটি প্রক্রিয়াটি থেকে বেরিয়ে যায় এবং কেবল ফর্মটি প্রদর্শন করে।
যেহেতু আপনার Sub Newবা Form Loadইভেন্টের অন্য কোনও কোড এনআরইর পরে চলবে না, অন্য অনেকগুলি দুর্দান্ত জিনিস অবিচ্ছিন্ন ছেড়ে দেওয়া যেতে পারে।
Sub Form_Load(..._
'...
Dim name As String = NameBoxes(2).Text ' NRE
' ...
' More code (which will likely not be executed)
' ...
End Sub
নোট করুন এটি যে কোনও এবং সমস্ত নিয়ন্ত্রণ এবং উপাদান রেফারেন্সগুলিতে এইগুলিকে অবৈধ করে তোলে তা প্রযোজ্য:
Public Class Form1
Private myFiles() As String = Me.OpenFileDialog1.FileName & ...
Private dbcon As String = OpenFileDialog1.FileName & ";Jet Oledb..."
Private studentName As String = TextBox13.Text
আংশিক প্রতিকার
এটা যে ভিবি একটি সতর্কবার্তা প্রদান করে না জানতে আগ্রহী, কিন্তু প্রতিকার হয় ডিক্লেয়ার ফর্ম পর্যায়ে পাত্রে, কিন্তু আরম্ভ তাদের ফর্ম লোড ইভেন্ট হ্যান্ডলার যখন নিয়ন্ত্রণ না বিদ্যমান। কল করার Sub Newপরে আপনার কোডটি যতক্ষণ না করা যায় ততক্ষণ এটি করা যেতে পারে InitializeComponent:
' Module level declaration
Private NameBoxes as TextBox()
Private studentName As String
' Form Load, Form Shown or Sub New:
'
' Using the OP's approach (illegal using OPTION STRICT)
NameBoxes = New TextBox() {Me.Controls("TextBox1"), Me.Controls("TestBox2"), ...)
studentName = TextBox32.Text ' For simple control references
অ্যারে কোডটি এখনও জঙ্গলের বাইরে নাও থাকতে পারে। ধারক নিয়ন্ত্রণে থাকা কোনও নিয়ন্ত্রণ (যেমন GroupBoxবা এর মতো Panel) পাওয়া যাবে না Me.Controls; তারা সেই প্যানেল বা গ্রুপবক্সের নিয়ন্ত্রণের সংগ্রহে থাকবে। যখন নিয়ন্ত্রণের নাম ভুল বানান করা হয় ( "TeStBox2") তখনও কোনও নিয়ন্ত্রণ ফিরে আসবে না । এই ক্ষেত্রে,Nothing আবার সেই অ্যারে উপাদানগুলিতে পুনরায় সংরক্ষণ করা হবে এবং আপনি যখন রেফারেন্স দেওয়ার চেষ্টা করবেন তখন একটি এনআরই ফলাফল হবে।
এগুলি এখন সন্ধান করা সহজ হওয়া উচিত যা আপনি জানেন যে আপনি কী সন্ধান করছেন:
"বাটন 2" এ থাকে Panel
প্রতিকার
ফর্মের Controlsসংগ্রহটি ব্যবহার করে নামের মাধ্যমে অপ্রত্যক্ষ রেফারেন্সের চেয়ে নিয়ন্ত্রণ রেফারেন্সটি ব্যবহার করুন:
' Declaration
Private NameBoxes As TextBox()
' Initialization - simple and easy to read, hard to botch:
NameBoxes = New TextBox() {TextBox1, TextBox2, ...)
' Initialize a List
NamesList = New List(Of TextBox)({TextBox1, TextBox2, TextBox3...})
' or
NamesList = New List(Of TextBox)
NamesList.AddRange({TextBox1, TextBox2, TextBox3...})
ফাংশন রিটার্নিং কিছুই
Private bars As New List(Of Bars) ' Declared and created
Public Function BarList() As List(Of Bars)
bars.Clear
If someCondition Then
For n As Integer = 0 to someValue
bars.Add(GetBar(n))
Next n
Else
Exit Function
End If
Return bars
End Function
এটি এমন একটি ক্ষেত্রে যেখানে আইডিই আপনাকে সতর্ক করবে যে ' সমস্ত পাথই কোনও মান দেয় না এবং NullReferenceExceptionফলস্বরূপ ফলাফল হতে পারে '। আপনি প্রতিস্থাপন দ্বারা কোনো রকম সতর্কতা দমন করতে পারেন, Exit Functionসঙ্গে Return Nothing, কিন্তু যে সমস্যা সমাধানের নেই। যে কোনও কিছু যা রিটার্নটি ব্যবহারের চেষ্টা করে যখন someCondition = Falseকোনও এনআরই ফলাফল হয়:
bList = myFoo.BarList()
For Each b As Bar in bList ' EXCEPTION
...
প্রতিকার
Exit Functionসঙ্গে ফাংশন প্রতিস্থাপন Return bList। খালি ফিরানো Listফেরত দেওয়ার মতো নয় Nothing। যদি কোনও সুযোগ থাকে যে কোনও প্রত্যাবর্তিত বস্তু হতে পারে তবে Nothingএটি ব্যবহারের আগে পরীক্ষা করুন:
bList = myFoo.BarList()
If bList IsNot Nothing Then...
দুর্বলভাবে বাস্তবায়িত চেষ্টা / ধরুন
একটি খারাপভাবে প্রয়োগ করা চেষ্টা / ক্যাচ সমস্যাটি কোথায় লুকিয়ে রাখতে পারে এবং এর ফলাফল নতুন হয়:
Dim dr As SqlDataReader
Try
Dim lnk As LinkButton = TryCast(sender, LinkButton)
Dim gr As GridViewRow = DirectCast(lnk.NamingContainer, GridViewRow)
Dim eid As String = GridView1.DataKeys(gr.RowIndex).Value.ToString()
ViewState("username") = eid
sqlQry = "select FirstName, Surname, DepartmentName, ExtensionName, jobTitle,
Pager, mailaddress, from employees1 where username='" & eid & "'"
If connection.State <> ConnectionState.Open Then
connection.Open()
End If
command = New SqlCommand(sqlQry, connection)
'More code fooing and barring
dr = command.ExecuteReader()
If dr.Read() Then
lblFirstName.Text = Convert.ToString(dr("FirstName"))
...
End If
mpe.Show()
Catch
Finally
command.Dispose()
dr.Close() ' <-- NRE
connection.Close()
End Try
এটি প্রত্যাশার মতো কোনও বস্তু তৈরি না হওয়ার ঘটনা, তবে খালিটির পাল্টা উপযোগিতাও প্রদর্শন করে Catch।
সেখানে SQL এর যে একটি অতিরিক্ত কমা একটি ব্যতিক্রম যা ফলাফলের ( 'mailaddress' পরে) হয় .ExecuteReader। Catchকিছু না করার পরে , Finallyপরিষ্কার করার চেষ্টা করে, তবে যেহেতু আপনি Closeকোনও নাল DataReaderবস্তু করতে পারেন না , একেবারে নতুনNullReferenceException ফলাফল।
একটি খালি Catchব্লক হ'ল শয়তানের খেলার মাঠ। এই Finallyব্লকে তিনি কেন এনআরই পাচ্ছিলেন তা নিয়ে এই ওপি বিস্মিত হয়েছিল । অন্যান্য পরিস্থিতিতে, খালি খালি এর Catchফলে আরও কিছু প্রবাহিত হতে পারে যা নদীর গভীরতার দিকে চলে যায় এবং সমস্যার জন্য ভুল জায়গায় ভুল জিনিসগুলি দেখার জন্য আপনাকে সময় ব্যয় করতে পারে। (উপরে বর্ণিত "নীরব ব্যতিক্রম" একই বিনোদনের মান সরবরাহ করে))
প্রতিকার
খালি ট্রাই / ক্যাচ ব্লক ব্যবহার করবেন না - কোডটি ক্র্যাশ করুন যাতে আপনি ক) কারণটি সনাক্ত করতে পারেন খ) অবস্থানটি চিহ্নিত করুন এবং গ) সঠিক প্রতিকার প্রয়োগ করুন। বিকাশকারী / বিকাশকারীদের এগুলি ঠিক করার জন্য অনন্যভাবে যোগ্য ব্যক্তি থেকে ব্যতিক্রমগুলি লুকানোর উদ্দেশ্যে নয়।
ডিবিএনল কিছুই নাথিংয়ের মতো নয়
For Each row As DataGridViewRow In dgvPlanning.Rows
If Not IsDBNull(row.Cells(0).Value) Then
...
IsDBNullফাংশন পরীক্ষা করতে ব্যবহৃত একটি হয় মান সমান System.DBNull: দুটিই MSDN থেকে:
System.DBNull মানটি নির্দেশ করে যে অবজেক্টটি অনুপস্থিত বা অস্তিত্বহীন ডেটা উপস্থাপন করে। ডিবিএনল কিছুই নাথিংয়ের মতো নয়, যা ইঙ্গিত দেয় যে একটি ভেরিয়েবলটি এখনও আরম্ভ করা হয়নি।
প্রতিকার
If row.Cells(0) IsNot Nothing Then ...
আগের মত, আপনি কোনও কিছুর জন্য পরীক্ষা করতে পারবেন না, তবে একটি নির্দিষ্ট মানের জন্য:
If (row.Cells(0) IsNot Nothing) AndAlso (IsDBNull(row.Cells(0).Value) = False) Then
উদাহরণ 2
Dim getFoo = (From f In dbContext.FooBars
Where f.something = something
Select f).FirstOrDefault
If Not IsDBNull(getFoo) Then
If IsDBNull(getFoo.user_id) Then
txtFirst.Text = getFoo.first_name
Else
...
FirstOrDefaultপ্রথম আইটেম বা ডিফল্ট মান প্রদান করে, যা Nothingরেফারেন্স ধরণের জন্য এবং কখনই নয় DBNull:
If getFoo IsNot Nothing Then...
নিয়ন্ত্রণ
Dim chk As CheckBox
chk = CType(Me.Controls(chkName), CheckBox)
If chk.Checked Then
Return chk
End If
যদি একটি CheckBoxসহ chkNameখুঁজে পাওয়া যায় না (বা এটিতে বিদ্যমান GroupBox), তবে chkকিছুই হবে না এবং কোনও সম্পত্তি রেফারেন্স করার চেষ্টা করা ব্যতিক্রম ঘটবে।
প্রতিকার
If (chk IsNot Nothing) AndAlso (chk.Checked) Then ...
ডেটাগ্রিডভিউ
ডিজিভিতে পর্যায়ক্রমে কয়েকটি কৌতুক দেখা যায়:
dgvBooks.DataSource = loan.Books
dgvBooks.Columns("ISBN").Visible = True ' NullReferenceException
dgvBooks.Columns("Title").DefaultCellStyle.Format = "C"
dgvBooks.Columns("Author").DefaultCellStyle.Format = "C"
dgvBooks.Columns("Price").DefaultCellStyle.Format = "C"
যদি dgvBooksথাকে AutoGenerateColumns = Trueতবে এটি কলামগুলি তৈরি করবে, তবে এটি তাদের নাম দেয় না, সুতরাং উপরোক্ত কোডটি ব্যর্থ হলে নামটি উল্লেখ করে।
প্রতিকার
ম্যানুয়ালি কলামগুলির নাম দিন, বা সূচী দ্বারা রেফারেন্স:
dgvBooks.Columns(0).Visible = True
উদাহরণ 2 - নিউরো থেকে সাবধান থাকুন
xlWorkSheet = xlWorkBook.Sheets("sheet1")
For i = 0 To myDGV.RowCount - 1
For j = 0 To myDGV.ColumnCount - 1
For k As Integer = 1 To myDGV.Columns.Count
xlWorkSheet.Cells(1, k) = myDGV.Columns(k - 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = myDGV(j, i).Value.ToString()
Next
Next
Next
আপনার যখন DataGridViewহয়েছে AllowUserToAddRowsযেমন True(ডিফল্ট), Cellsশূন্যস্থান / নীচে নতুন সারি সমস্ত কিছু থাকবে Nothing। সামগ্রীগুলি (উদাহরণস্বরূপ ToString) ব্যবহার করার সর্বাধিক প্রচেষ্টার ফলে একটি এনআরই হবে।
প্রতিকার
একটি For/Eachলুপ ব্যবহার করুন এবং IsNewRowসম্পত্তিটি এটি শেষ সারিতে কিনা তা নির্ধারণ করতে পরীক্ষা করুন । এটি AllowUserToAddRowsসত্য বা না তা কার্যকর করে:
For Each r As DataGridViewRow in myDGV.Rows
If r.IsNewRow = False Then
' ok to use this row
আপনি যদি For nলুপ ব্যবহার করেন তবে সারি গণনাটি সংশোধন করুন বা সত্য Exit Forহলে ব্যবহার করুন IsNewRow।
আমার.সেটেটিং (স্ট্রিংকলেকশন)
বিশেষ পরিস্থিতিতে, একটি আইটেম থেকে ব্যবহার করার চেষ্টা My.Settingsযা একটি StringCollectionএকটি NullReference প্রথমবারের আপনি এটি ব্যবহার হতে পারে। সমাধান একই, কিন্তু হিসাবে সুস্পষ্ট না। বিবেচনা:
My.Settings.FooBars.Add("ziggy") ' foobars is a string collection
যেহেতু ভিবি আপনার জন্য সেটিংস পরিচালনা করছে, সংগ্রহটি এটি আরম্ভ করার জন্য এটি আশা করা যুক্তিসঙ্গত। এটি হবে, তবে কেবলমাত্র আপনি যদি পূর্বে সংগ্রহটিতে প্রাথমিক এন্ট্রি যোগ করেছেন (সেটিংস সম্পাদকে)। যেহেতু সংগ্রহটি (আপাতদৃষ্টিতে) কোনও আইটেম যুক্ত করা হয় তখন এটি আরম্ভ করা Nothingহয়, সেটিংস সম্পাদনায় কোনও আইটেম যোগ করার জন্য না থাকলে এটি অবশেষ থাকে ।
প্রতিকার
ফর্মের Loadইভেন্ট হ্যান্ডলারটিতে সেটিংস সংগ্রহের সূচনা করুন , যদি / প্রয়োজন হয়:
If My.Settings.FooBars Is Nothing Then
My.Settings.FooBars = New System.Collections.Specialized.StringCollection
End If
সাধারণত, Settingsপ্রথমবার অ্যাপ্লিকেশনটি সঞ্চালনের সময় সংগ্রহটি আরম্ভ করা দরকার। একটি বিকল্প প্রতিকার হ'ল প্রকল্প -> সেটিংস | আপনার সংগ্রহে প্রাথমিক মান যুক্ত করা FooBars , প্রকল্পটি সংরক্ষণ করুন, তারপরে জাল মানটি সরান।
গুরুত্বপূর্ণ দিক
আপনি সম্ভবত Newঅপারেটরটি ভুলে গেছেন ।
অথবা
আপনি ধরে নিয়েছেন এমন কিছু আপনার কোডটিতে একটি প্রাথমিক অবজেক্ট ফিরিয়ে দেওয়ার জন্য নির্দ্বিধায় সম্পাদন করবে not
সংকলক সতর্কতা (কখনও) উপেক্ষা করবেন না এবং Option Strict On(সর্বদা) ব্যবহার করুন ।
এমএসডিএন নাল রেফারেন্স ব্যতিক্রম