Penugasan Variabel Objek (Visual Basic)
Anda menggunakan pernyataan penugasan normal untuk menetapkan objek ke variabel objek. Anda dapat menetapkan ekspresi objek atau kata kunci Tidak Ada, seperti yang diilustrasikan contoh berikut.
Dim thisObject As Object
' The following statement assigns an object reference.
thisObject = Form1
' The following statement discontinues association with any object.
thisObject = Nothing
Nothing berarti tidak ada objek yang saat ini ditetapkan ke variabel.
Inisialisasi
Ketika kode Anda mulai berjalan, variabel objek Anda diinisialisasi ke Nothing. Yang deklarasinya menyertakan inisialisasi diinisialisasi ulang ke nilai yang Anda tentukan saat pernyataan deklarasi dijalankan.
Anda dapat menyertakan inisialisasi dalam deklarasi Anda dengan menggunakan kata kunci Baru. Pernyataan deklarasi berikut mendeklarasikan variabel objek testUri dan ver dan menetapkan objek tertentu untuknya. Masing-masing menggunakan salah satu konstruktor kelebihan beban dari kelas yang sesuai untuk menginisialisasi objek.
Dim testUri As New System.Uri("https://www.microsoft.com")
Dim ver As New System.Version(6, 1, 0)
Disasosiasi
Mengatur variabel objek ke Nothing menghentikan asosiasi variabel dengan objek tertentu. Ini mencegah Anda mengubah objek secara tidak sengaja dengan mengubah variabel. Ini juga memungkinkan Anda untuk menguji apakah variabel objek menunjuk ke objek yang valid, seperti yang ditunjukkan contoh berikut.
If otherObject IsNot Nothing Then
' otherObject refers to a valid object, so your code can use it.
End If
Jika objek yang dirujuk variabel Anda ada di aplikasi lain, pengujian ini tidak dapat menentukan apakah aplikasi tersebut telah dihentikan atau hanya membatalkan objek.
Variabel objek dengan nilai Nothing juga disebut referensi null.
Instans saat ini
Instans saat ini dari suatu objek adalah instans di mana kode saat ini dijalankan. Karena semua kode dijalankan di dalam prosedur, instans saat ini adalah instans di mana prosedur dipanggil.
Kata kunci Me bertindak sebagai variabel objek yang mengacu pada instans saat ini. Jika prosedur tidak Dibagikan, prosedur dapat menggunakan kata kunci Me untuk mendapatkan penunjuk ke instans saat ini. Prosedur bersama tidak dapat dikaitkan dengan instans tertentu suatu kelas.
Penggunaan Me sangat berguna untuk meneruskan instans saat ini ke prosedur di modul lain. Misalnya, Anda memiliki sejumlah dokumen XML dan ingin menambahkan beberapa teks standar ke semua dokumen tersebut. Contoh berikut menentukan prosedur untuk melakukan ini.
Sub addStandardText(XmlDoc As System.Xml.XmlDocument)
XmlDoc.CreateTextNode("This text goes into every XML document.")
End Sub
Setiap objek dokumen XML kemudian dapat memanggil prosedur dan meneruskan instans saat ini sebagai argumen. Contoh berikut menunjukkan hal berikut.
addStandardText(Me)
