Cung cấp help cùng với ứng dụng

10.1.2.2.1Kiểm tra giá trị thuộc tính

Public Property Let X(ByVal vData As Integer)

mvarX = vData

End Property

Tuy nhiên, nếu ta truyền vào số -7983, hộp chắc chắn sẽ không hiển thị trên biểu mẫu. Ta có thể cấm điều nằy bằng cách:

Public Property Let X(ByVal vData As Integer)

if vData >0 Then mvarX = vData

End Property

Đối tượng sẽ bỏ qua giá trị âm truyền vào.

10.1.2.2.2Thuộc tính chỉ được đọc (Read – Only)

10.1.3Tham số tuỳ chọn

Ví dụ mẫu – Dùng tham số tuỳ chọn

1. 
   Dừng chương trình. Trong cửa sổ Project Explorer, nhấn đúp chuột lên clsBox để mở cửa sổ Code.
   
2. 
   Tìm phương thức ClearBox, đánh dấu khối thủ tục và nhấn phím Delete để xoá nó đi.
   
3. 
   Sửa phương thức DrawBox để thêm vào tham số tuỳ chọn màu:
   

If IsMissing(lColor) Then

Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + _

mvarHeight),, B

Else

Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + _

End If

4. 
   Đến đây, chương trình chưa thể biên dịch, vì vẫn còn một dòng lệnh tham chiếu đến phương thức ClearBox.
   

Xoá dòng này và thay thế bằng dòng lệnh

.DrawBox Me, Me.BackColor

5. 
   Thi hành chương trình. Không có thay đổi trong kết quả.
   

Lưu ý rằng tham số tuỳ chọn phải là tham số cuối cùng trong danh sách được truyền. Ví dụ, dòng lệnh sau đây không được chấp nhận:

Public Sub MyRoutine (Optional sName As String, nAge As Integer)

Ta phải sửa thành:

Public Sub MyRoutine (nAge As Integer, Optional sName As String)

Thận trọng:

Mặc dù tham số tuỳ chọn có tính linh hoạt, giúp ta giảm số dòng chương trình, nhưng nó cũng cho ta những rắc rối kèm theo.

Một trong những lý do để chuyển từ lập trình theo cấu trúc sang lập tình hướng đối tượng là làm cho chương tình dễ đọc, dễ hiểu, dễ xây dựng và dễ bảo trì. Tham số tuỳ chọn làm giảm tính an toàn và tăng độ phức tạp của chương trình khi ta cần gỡ rối.

Tham số tuỳ chọn cung cấp tính năng tái sử dụng chương trình, giúp tạo ra các đối tượng hay thành phần đa mục đích nhưng ta phải cẩn thận và tự hỏi: thêm vào thì có lợi ích gì cho thủ tục của ta, hay là chương trình sẽ tốt hơn nếu ta không dùng nó?

10.1.4Sự kiện của lớp

Ví dụ - Định nghĩa và kích hoạt sự kiện

1. 
   Định nghĩa sự kiện Draw. Một trong những thông tin cần cập nhật là toạ độ (x,y) của hộp. Mở cửa sổ Code và thêm dòng lệnh sau vào phần General Declarations:
   

Tuy nhiên, dòng lệnh này chưa thể hiện lúc nào thì sự kiện được kích hoạt.

2. 
   Ta muốn sự kiện Draw được sinh ra mỗi khi hộp được vẽ trên biểu mẫu. Tìm phương thức DrawBox và thêm dòng lệnh in đậm vào cuối của phương thức này:
   

If IsMissing(lColor) Then

Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + _

mvarHeight),, B

Else

Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + _

End If

End Sub

3. 
   Tìm thủ tục xử lý sự kiện Click của biểu mẫu. Tìm và xoá dòng lệnh tạo đối tượng A_Box và thêm một dòng vào phần General Declarations:
   

Private Sub Form_Click()

Dim nIndex As Integer

With A_Box

.Y = 0

.Width = 1000

For nIndex = 0 To 1000

.DrawBox Me, Me.BackColor

.X = nIndex

.DrawBox Me

Next

End Sub

4. 
   Thêm một dòng vào sự kiện Form_Load:
   

Set A_Box = New clsBox

End Sub

5. 
   Chọn A_Box từ danh sách trong cửa sổ Code. Chọn sự kiện Draw từ danh sách các sự kiện.
   
6. 
   Trong sự kiện này, ta dùng lệnh Print để in ra toạ độ của hộp trong cửa sổ gỡ rối (hay còn gọi là cửa sổ Immediate)
   

Debug.Print "The box just got drawn at " & X & ", " & Y

End Sub

7. 
   Thi hành chương trình. Nhấn chuột trên biểu mẫu, ta thấy hộp trượt qua màn hình. Đồng thời trong cửa sổ Immediate, ta thấy các dòng văn bản hiển thị toạ độ hiện hành của hộp.
   

Để có thể xử lý các sự kiện của một đối tượng tự tạo, ta cần khai báo đối tượng hơi khác một chút. Trước hết, nó phải được khai báo là Private trong biểu mẫu (hoặc modul), thay vì là Private trong một thủ tục. Sau đó, ta phải dùng từ WithEvents thay vì Dim:

Private WithEvents A_Box As clsBox

Từ khóa WithEvents báo cho VB biết ta đang khai báo một đối tượng có sự kiện, và ta dự định viết chương trình để xử lý những sự kiện này.

Chú ý từ khoá New bị loại bỏ trong dòng lệnh WithEvents. Khi ta viết:

Dim A_Box As New clsBox

Nghĩa là không chỉ thông báo cho VB rằng ta sắp sử dụng một đối tượng dựa theo lớp clsBox, ta còn yêu cầu VB cấp phát vùng nhớ cho đối tượng và tạo nó. Tuy nhiên, do hạn chế của VB, điều này không được thực hiện với từ khoá WithEvents. Thay vào đó, ta phải tạo đối tượng riêng, bằng cách thêm dòng lệnh vào sự kiện Form_Load.

Tóm lại, đối với sự kiện, ta cần nhớ:

• 
  Khai báo sự kiện dùng Public Event.
  
• 
  Phát sự kiện dùng RaiseEvent
  
• 
  Tạo đối tượng với Dim WithEvents, không dùng New.
  
• 
  Tạo đối tượng như sau:
  

• 
  Viết chương trình để bắt sự kiện tương tự xử lý sự kiện của điều khiển.
  

10.1.5Huỷ đối tượng

Sau khi sử dụng một đối tượng và không cần dừng nữa, ta cần huỷ nó đi. Điều này đặc biệt quan trọng khi ta sử dụng nhiều đối tượng trong ứng dụng. Nếu không huỷ đối tượng, sự hao hụt vùng nhớ sẽ làm giảm khả năng hoạt động của ứng dụng. Ta dùng dòng lệnh sau:

Set <đối tượng> = Nothing

Nơi lý tưởng để huỷ một đối tượng là trong sự kiện Unload của biểu mẫu.

Ví dụ:

Private Sub Form_Unload (Cancel As Integer)

Set A_Box = Nothing

End Sub

Каталог: hungpn -> LaptrinhWindowsVB
LaptrinhWindowsVB -> Kiến trúc ole db/ado
LaptrinhWindowsVB -> ListView dùng để hiển thị danh sách các đối tượng theo nhiều hình thức thể hiện khác nhau. Ví dụ: trong cửa sổ Window Explorer, bên trái là danh sách các ổ đĩa và thư mục được tổ chức theo dạng cây sử dụng TreeView

tải về 1.69 Mb.

Chia sẻ với bạn bè của bạn: