Mục lục 2 Làm quen với visual basic 9

16.3.1Tạo lớp xuất dữ liệu

Phần này xây dựng trên hàm xuất HTML mô tả trong chương 14 “Thiết lập báo cáo và xuất thông tin ” để cung cấp việc xuất dữ liệu ta đã sử dụng lớp CCustomer

Để cung cấp cho lớp CCustomer khả năng xuất, ta thêm một thuộc tính và một phương thức cho lớp. Thuộc tính mới, HTMLText, lấy thuộc tính của đối tượng CCustomer và định dạng nó thành một trang HTML. Thủ tục thuộc tính này gọi một hàm (private), HTMLRow để định dạng từng dòng của bảng.

Public Property Get HTMLText() As String

Dim str As String

str = "" & vbCrLf

str = str & "" & vbCrLf

str = str & "" & vbCrLf

str = str & "" & vbCrLf

str = str & "" & vbCrLf

str = str & "" & vbCrLf

str = str & HTMLTableRow("First name:", FirstName)

str = str & HTMLTableRow("Last name:", LastName)

str = str & HTMLTableRow("Address:", Address)

str = str & HTMLTableRow("City:", City)

str = str & HTMLTableRow("State:", State)

str = str & "

"