Tương đương hoặc giải pháp thay thế cho typedef trong VB.NET là gì?

Question

Tôi đang mã hóa một ứng dụng VB.NET mà rất nhiều giao dịch với một loại bộ sưu tập. Xem mã bên dưới:

Dim sub_Collection As System.Collections.Generic.Dictionary(Of String, 
          System.Collections.ObjectModel.Collection) 

Tôi phải nhập dòng trên nhiều lần. Nếu tôi thay đổi loại bộ sưu tập, thì tôi phải thực hiện thay đổi cho tất cả các phiên bản. Vì vậy, nếu có một cách để sử dụng "một typedef tương đương", sau đó tôi có thể thoát khỏi tất cả những vấn đề này. Tôi đã thử với nhập khẩu, nhưng nó chỉ dành cho không gian tên và nó không thể được sử dụng cho các lớp học. Bất kỳ bàn tay giúp đỡ sẽ được đánh giá rất nhiều.

Lưu ý: Tôi đang sử dụng VB 2008, Windows XP. Kiểu ứng dụng là các dạng cửa sổ (VB).

EDIT: Tôi đã thực hiện một số lần thử dựa trên câu trả lời dưới đây của code_gray.

Đây là lần thử đầu tiên.

Imports dictionary_WaterBill = System.Collections.Generic.Dictionary(Of String, System.Collections.ObjectModel.Collection(Of WaterBill)) 
Structure WaterBill 
... 
... 
End Structure 

Tôi đã nhận lỗi như

Error:Type 'WaterBill' is not defined. 

này được thử 2.

Structure WaterBill 
... 
... 
End Structure 
Imports dictionary_WaterBill = System.Collections.Generic.Dictionary(Of String,  
System.Collections.ObjectModel.Collection(Of WaterBill)) 

Tôi đã nhận lỗi như

Error:'Imports' statements must precede any declarations. 

Bất kỳ ai được chào đón để rơi ánh sáng về vấn đề này.

Answer 1

Giải pháp đơn giản chỉ đơn giản là thêm Imports statement cho hai không gian tên mà bạn đang sử dụng. Ngay từ dơi, loại bỏ một nửa số định danh loại dài của bạn.

Ở phía trên cùng của tập tin mã của bạn, đặt dòng:

Imports System.Collections 
Imports System.Collections.Generic 
Imports System.Collections.ObjectModel 

Và sau đó tuyên bố của bạn có thể được thay đổi để:

Dim sub_Collection As Dictionary(Of String, Collection) 

tôi khuyên bạn nên phương pháp này vì nó vẫn sử dụng tên chuẩn, giúp mã của bạn dễ đọc đối với các lập trình viên khác.

---

Cách khác là sử dụng tuyên bố Imports để khai báo bí danh. Một cái gì đó như:

Imports GenericDict = System.Collections.Generic.Dictionary(Of String, 
          System.Collections.ObjectModel.Collection) 

Và sau đó bạn có thể thay đổi tuyên bố của bạn để:

Dim sub_Collection As GenericDict 

*** Bằng cách này, để có được một trong những mẫu để biên dịch, bạn sẽ phải để chỉ định loại cho Collection, chẳng hạn như Collection(Of String).

Answer 2

Tạo một lớp được thừa kế không có nội dung:

Class WaterBillDictionary 
    Inherits System.Collections.Generic.Dictionary(Of String, System.Collections.ObjectModel.Collection(Of WaterBill)) 
End Class 

Structure WaterBill 
    ... 
End Structure 

Nếu bạn muốn có một nhà xây dựng cụ thể, bạn sẽ phải viết một wrapper chấp nhận các thông số và vượt qua chúng để các nhà xây dựng cơ bản. Ví dụ:

Public Sub New() 
    MyBase.New() 
End Sub 

Public Sub New(capacity As Integer) 
    MyBase.New(capacity) 
End Sub 

Nếu bạn đã bao giờ cần phải thay đổi tên của WaterBillDictionary, bạn có thể sử dụng tính năng đổi tên Visual Studio để tự động thay đổi tên trong toàn bộ giải pháp.