Giáo trình đào tạo Visual Basic 9. Hộp thoại Collection Builder xuất hiện. Trong ô Name, nhập tên của lớp tập hợp – colOrder. 10. Chọn COrder trong bảng có chữ “Collection Of “.i | Giáo trình đào tạo Visual Basic 9. Hộp thoại Collection Builder xuất hiện. Trong ô Name nhập tên của lớp tập hợp - colOrder. 10. Chọn COrder trong bảng có chữ Collection Of .Điều này cho biết lớp tập hợp này là một tập hợp của đối tượng COrder. Nó tạo sự an toàn về kiểu cho lớp - khác với các tập hợp thông thường chỉ đối tượng COrder mới được thêm vào tập hợp này. 11. Nhấn OK. Lớp tập hợp được thêm vào tiện ích xây dựng lớp. 12. Ta có thấy tiện ích xây dựng lớp phát sinh các thuộc tính và phương thức để hỗ trợ 4 phương thức của tập hợp Add Count Item và Remove cũng như là NewEnum. Lưu ý Tiện ích xây dựng lớp tạo thuộc tính NewEnum cho phép lớp tập hợp hỗ trợ phép lặp xuyên qua tập hợp dùng câu trúc điều khiển For . Không nhât thiêt phải dùng thuộc tính này trong chương trình nhuhg ta biêt sẽ dùng nó với For Hình Cửa sô tiện ích xây dựng lớp sau khi nó tạo một lớp tập hợp. 13. Bây giờ ta định nghĩa lớp tập hợp ta có thể yêu cầu tiện ích xây dựng lớp phát sinh chương trình bằng chọn menu File Update Project hoặc dùng phím tắt Ctrl S. 14. Tiện ích tự động xây dựng lớp tập hợp. Đóng tiện ích bằng cách chọn File Exit. Ta thấy lớp Orders được tạo ra do tiện ích xây dựng lớp. Ta cũng thấy rằng tiện ích đã định nghĩa lại cú pháp của phương thức Add của tập hợp. Thay vì lấy đối tượng làm tham biến như phương thức Add của tập hợp quy ước phương thức Add mới lấy biến làm tham biến. Những biến này gắn với các thuộc tính của đối tượng COrder. Điều này cho phép ta tạo đối tượng thêm nó vào tập hợp gán giá trị cho nó - những cải tiến đáng kể so với cách thức thực hiện thông thường. Dim MyOrder as COrder Dim MyOrders as colOrder Set MyOrders New colOrder set MyOrder Cheese 201 6 5 99 FPT Software Solution Trang 217 264 Giáo trình đào tạo Visual Basic Mặc dù vậy đây chưa phải là cú pháp tốt nhất để thêm mộ phần tử vào tập hợp. Có thể dùng cách gọn gàng hơn Dim MyOrder as COrder Dim MyOrders as colOrder Set MyOrders New colOrder set
