Tài liệu Visual Basic Bách Khoa-Chương 3-Xử dụng class module doc

Ứng dụng của các bạn, nếu được tách ra thành từng cơ cấu components thì rất dể dàng trong việc phát triển developement và giử gìn...Sau đây, chúng tôi sẽ lần lượt giải thích làm sau việc

Chương 3 : Xử dụng Class Module

Class Module là gì ? Là tổng hợp của các bộ phận trong ứng dụng của các bạn Gọi tắt là COM ( Component Object Model ) Phương pháp viết chương trình hiện đại là xử dụng components, một cơ chế trong ứng dụng của các bạn Như chúng ta biết : Hệ thống viễn thông ngày càng phát triển và đóng một vai trò quan trọng trong đời sống hàng ngày của mọi người trên thế giới Và trong hệ thống viễn thông, đại đa số, họ xử dụng COM components Do đó, trong việc viết chương trình ứng dụng, các bạn không thể thiếu các COM components được

Ứng dụng của các bạn, nếu được tách ra thành từng cơ cấu (components) thì rất dể dàng trong việc phát triển (developement) và giử gìn Sau đây, chúng tôi sẽ lần lượt giải thích làm sau việc xử dụng Class Module là hữu ích

Chương 3 _ Phần 1_ Ðoạn 1 : Xử dụng object và components

COM components, chính nó là bộ phận mang lấy một chức năng nhất định trong ứng dụng Chính nó cũng là một ứng dụng, cũng có code, methodes, functions và được hoán chuyển thành dll, bas, , và từ đó, nó được xử dụng như COM

Dưới đây là hình ảnh cho thấy các bạn có thể tạo thành một component và cùng một lúc có thể tạo thành 2 instances lúc run time

Khi bạn đã có Components rồi, bạn có thể lấy từ trong dự án của bạn hay là dự án ở ngoài đều xử dụng được hết

Chương 3_Phần 1_Ðoạn 2 : Những lợi ích khi xử dụng Components

*Xử dụng nhiều lần : Khi các bạn tạo thành cho mình một bộ phận trong ứng dụng rồi

(component) thì bộ phận đó sẽ được xử dụng nhiều lần Hoặc trong ứng dụng của bạn nhưng ở trong những form khác chẳng hạn Hay là những người trong nhóm phát triển ứng dụng vẫn có thể xử dụng component đó

Chỉ cần bạn bỏ bộ phận đó trong kho nhu liệu là bạn có thể xử dụng bất cứ lúc nào Với Object browser, bạn có thể gọi component đó và xử dụng nhiều lần

*Làm giảm bớt sự phức tạp : Những người làm việc cùng nhóm với bạn sẽ không mất

nhiều thời gian và công sức khi tìm hiểu những chức năng từng bộ phận trong phương trình ứng dụng

*Dể dàng trong việc sửa đổi : Khi cần thay đổi phương trình ứng dụng, các bạn không

cần phải tốn nhiều thời gian và tránh được rất nhiều bugs khi nâng cấp ứng dụng

Chương 3_Phần 1_Ðoạn 3 : Windows Distributed InterNet Applications

Architecture

Windows Distributed InterNet Architecture gọi tắt là Windows DNA, là hệ thống mới giúp cho hệ thống viển thông được trao đổi thông tin dể dàng hơn Nó dựa trên cơ bản của gia đình Windows (95, 98, NT, 2000 ) cộng với các components đã được thiết lập từ bên trong hay bên ngoài mà trao đổi các lượng thông tin giửa Client, Server, users, application

Một ứng dụng sẽ được nhiều người xử dụng đến trong tương lai là Web Application Và Web Application không thể thiếu Windows DNA được Windows DNA được cấu tạo bởi công thức sau đây :

Integrated Storage > Business Processes > User Interface and Navigation

Từ đó, các bạn đã thấy COM giử vai trò quan trọng như thế nào trong hệ thống viễn thông hiện đại

Chương 3_Phần 1_Ðoạn 4 : Class Module là gì ?

Các bạn muốn có một COM component trong ứng dụng của mình, chuyện đầu tiên là các bạn phải có một class module trong ứng dụng của bạn trước Rối sau đó, các bạn có thể xử dụng bộ phận COM đó trong suốt quá trình hoàn chỉnh ứng dụng hay cho các vay mượn tùy theo yêu cầu của chương trình

Class Module, đơn giản là một loại Visual Basic code module Ðược viết dưới dạng *.cls và tương tợ như *.bas , Khác biệt ở chổ là Class Module bao gồm chức năng (funtion) mà chức năng này có thể xử dụng ở những form khác trong cùng một ứng dụng Mỗi một class module ứng cho một bộ phận trong ứng dụng và các bạn có thể có vài thể loại class module trong ứng dụng của mình

Ðể xử dụng class module, các bạn phải làm cho nó một instance, rồi sau đó thông qua instance đó, mà các properties, methods, events của nó để rồi hoàn thành một cái class cho ứng dụng

Thí dụ điển hình là như vầy :

Muốn có một Employee class mà nó có properties là : Lastname, Firstname Method là hired Bạn phải làm một instance cho Employee object Rồi sau đó, muốn tìm chi tiết về các nhân viên bất cứ ở đâu trong ứng dụng, chúng ta chỉ cần xử dụng Employee class module

mà thôi

Chương 3_Phần 2_Ðoạn 1 : Xử dụng Class Builder

Ðể dể dàng cho việc tạo thành Class, Visual Basic có một công cụ gọi là Class Builder Nó

tự động làm cho bạn một số việc và chuyện của các bạn là điền vào chi tiết mà thôi Ðây là công cụ để tạo thành Class :

Theo các bước sau đây, các bạn sẽ có Class Builder trong ứng dụng của mình :

1. Trên Add_Ins menu, bấm ở Add-In Manager

2. Chọn VB 6 Class Builder Utilitytrong danh sách sẳn có

3. Dưới Load Behavior, chọn Loaded/Unloaded, rồi bấm trên OK

Theo những bước sau đây, các bạn có thể thêm class vào ứng dụng của mình :

1. Trên Add-Ins menu, bấm trên Class Buider Utility

2. Trong Class Builder, bấm File menu, New và chọn Class

3. Trong Class Module Builder, thêm vào các chi tiết

4. Ðiền các chi tiết cần thiết vào phần Attributes và help file nếu có Sau đây là những phần mà Class Builder bao gồm :

Property Builder

Method Builder

Event Builder

Attributes

Chương 3_Phần 2_Ðoạn 2 : Class Module Events

Ðể tạo dể dàng cho các bạn viết ứng dụng, Visual Basic đã viết sẳn cho các bạn 2 events

Ðó là initialize và terminate

Initialize event : Nhất định các bạn phải kiểm soát các nhu liệu hay tài liệu cần thiết cho

ứng dụng của mình, do đó, initialize event là event đầu tiên mình phải xử dụng Sau đây là các hàng code :

Private Sub Class_Initialize ()

'Initialize Data

iDept = 5

End Sub

Terminate event : Dùng để chấm dứt công việc Sau đây là các hàng code

Private Sub Class_Terminate()

'Any termination code

End Sub

Và dỉ nhiên các bạn có thể thêm vào nhiều event nữa tùy theo yêu cầu của người xử dụng

Chương 3_Phần 2_Ðoạn 2 : Adding Component information and Help

Vì có nhiều classes trong ứng dụng, cho nên để dể dàng trong việc xử dụng, chúng ta cần phải thêm vào các chi tiết nói về chức năng của class đó Và mỗi khi mủi chuột chỉ đến đâu thì những lời giải thích về chức năng đó hiện ra Theo các bước sau đây thì các bạn có thể thêm vào các lời giải thích :

1. Mở project có class mà bạn sẽ xử dụng

2. Mở code window của class module đó

3. Trên Tools menu, bấm trên Procedure Attributes

4. Ðiền vào các ô trống Description và Help context ID

Một cách khác nữa là :

1. Trên Project menu, bấm trên project properties

2. Ðiền vào tên Help file, rồi bấm OK

Nhìn vào hình ảnh dưới đây, chúng ta sẽ thấy làm sao để điền thêm chi tiết vào bộ phận Class

Chương 3 _Phần 2_Ðoạn 4 : Xử dụng Object Browser

Ðể nhận xét một cách tổng quát một class trong ứng dụng, hãy xử dụng Oject Browser Object Browser trong Visual Basic là một công cụ dùng để nhìn xem các properties,

methods, events chứa đựng trong một class Trên View menu, bấm trên Object Browser, các bạn sẽ có một Object Browser Theo các bước trên, các bạn sẽ có được :

Có 2 bản danh sách cho thấy project có bao nhiêu classes? Trong class có bao nhiêu

members ? Và Object Browser cho chúng ta nhìn biết các bộ phận tron ứng dụng dể dàng hơn

Chương 3 _Phần 3 _Ðoạn 1 : Tạo thành Property

Property xác định nhu liệu hay chức năng của một class Thí dụ như một class Employee có thể có các properties như FirstName, LastName, HireDate…Các bạn có thể xác định

property trong ứng dụng của mình bằng 2 cách :

Xử dụng Public Variables : Các bạn không cần phải viết code khi property được hình

thành, bạn chỉ cần xác định Public variable để giử nhu liệu mà thôi Thí dụ như sau

Public FirstName As String

Xử dụng Property Procedure : Dùng cách này nếu các bạn muốn viết code khi hình

thành property Với property procedure, các bạn có thể làm những việc sau đây :

 Tiến hành procedure khi các dử kiện của property được xác định

 Làm cho property có một chức năng nhất định như giao trả một nhu liệu giới hạn nào đó

 Không cho phép property thay đổi

Property procedure có 3 phần : Set, Let, Get Khi hình thành property procedure, các bạn xác định theo từng cặp, thí dụ như : Set và Get, Let và Get Bởi vì lý do giản dị là property set hay let phải được tiến hành trước, rồi sau đó, procedure get mới có thể cung cấp nhu liệu mà procedure Set hay Let xác định Như thí dụ điển hình sau đây :

Public Property Let FirstName(passedName As String)

mvarFirstName = Ucase(passedName)

End Property

Public Property Get FirstName() As String

FirstName = mvarFirstName

End Property

Xử dụng default Property : Theo những bước sau đây các bạn sẽ xác định được

default property

1 Mở class mà nó có chứa đựng property

2 Trên Tools menu, chọn Procedure Attributes

3 Trong khung ảnh Procedure Attributes, bấm nút Advanced

4 Trong danh sách các property, chọn lấy property mà bạn muốn nó trở thành default

5 Trong danh sách Procedure ID, chọn Default rồi bấm nút OK

Các bạn sẽ thấy hình ảnh procedure attributes sau đây

Chương 3_Phần 3_Ðoạn 2 : Tạo thành Methods

Methods đại diện cho một chức năng trong ứng dụng của bạn mà class bao gồm Thí dụ như class Employee có 2 methods là Hire và PayIncrease Ðể tạo thành method cho một bộ phận trong ứng dụng, bạn chỉ cần tạo thành Public Sub hay là Function procedure trong class module đó

Sau đây là thí dụ làm sao để tạo thành một method là thêm dữ kiện vào trong kho nhu liệu :

Public Function Hire() As Boolean

‘ add employee record to database here

MsgBox “Employee was added to the Database”

‘ if successful

Hire = True

End Sub

Sau đây là thí dụ để tạo thành method tăng lương cho nhân viên :

Public Function PayIncrease (dPercent As Double) As Integer

mvarSalary = mvarSalary * (1 + dPercent)

End Function

Chương 3_Phần 3_Ðoạn 3 : Xử dụng Named Constants

Khi các bạn xử dụng cách thay thế (variables) thì trong suốt quá trình ứng dụng tiến hành, variables sẽ giao trả cho bạn nhiều nhu liệu chứa trong Database (Kho nhu liệu) Nhưng với Named Constants (thay thế bằng cách đặt tên), các bạn sẽ có lợi điểm là Named Constant chỉ giao trả một nhu liệu nhất định mà thôi Thí dụ như trong trường hợp phải xài 2 nút Yes

và No cho một lựa chọn, bạn chỉ cần xài Named Constant là vbYesNo mà thôi

Tạo thành Named Constants : Ðơn giản như chúng ta xử dụng variable vậy Sau đây là

thí dụ làm sao để có Named Constant tên là JobLevel

Public Enum JobLevel

jExecutive = 1

jManagement = 2

jStaff = 3

End Enum

Với Named Constant này, bạn có thể thêm method vào trong class module của mình Như method xem cấp bậc việc làm của nhân viên như sau :

Public Sub CheckExecutiveStatus(iLevel As JobLevel)

If iLevel = jExecutive Then

MsgBox “Executive Level Status Approved”

Else

MsgBox “Executive Status Denied”

End If

End Sub

Xử dụng Enumerations (cách xếp thứ tự bằng số) như là Property value : Các bạn

đã có Named Constant, các bạn cũng đã biết property value đi theo từng cặp Set và Get hay là Let và Get Thì để xác định một chứ năng giao trả một dử kiện nhất định cho class module của mình, phương pháp hữu hiệu nhất là xử dụng Enumerations Property value Thí

dụ bạn xáx định một property có tên là ActiveJobLevel thì hãy theo những bước sau đây : Private mvarJobLevel As JobLevel

Public Property Let ActiveJobLevel (jl As JobLevel)

mvarJobLevel = jl

End Property

Public Property Get ActiveJobLevel () As JobLevel

ActiveJobLevel = mvarJobLevel

End Property

Chương 3_Phần 3_Ðoạn 4 : Thêm Events vào trong Class Module

Trước đó chúng ta đã biết Visual Basic có sẳn 2 events là Initialize và Terminate Và chúng

ta cũng có thể thêm events vào trong class của mình tùy theo yêu cầu Thí dụ như chúng

ta có một component gọi là COrder Chúng ta có thể dựng nên một event gọi là Status khi COrder tiến hành Theo 2 bước sau đây, chúng ta có thể thêm events vào trong class :

1 Declare the event (Nhận định the event)

2 Raise the event (Dựng lên the event)

Nhận định event : Xử dụng keyword là Event để nhận định Chẳng hạn như :

Public Event Status(ByVal StatusText As String)

Dựng lên event : Xử dụng RaiseEvent statement để dựng lên event Chẳng hạn như :

Public Sub SubmitOrder()

‘code to submit an order goes here

RaiseEvent Status (“Checking Credit ”)

‘code to check the credit goes here

RaiseEvent Status (“Processing Order ”)

‘code to process an order goes here

End Sub

Những liên hệ khác với component : Khi nhận định Event, chúng ta có thể xử dụng

ByVal (by value) hay ByRef (by reference) Do đó tùy theo trường hợp nhận định event mà chúng ta dựng event lên Nếu ByRef, chúng ta phải làm sao để class có thể trao đổi nhu liệu

và event được tiến hành Chẳng hạn như thí dụ sau đây :

Dim iLimit As Integer

iLimit = 400

‘raise the event to be handled by the client

RaiseEvent LimitChanged(iLimit)

‘now check to see if the client changed the limit

If iLimit <> 400 Then

‘client did not accept the new limit

End If

Chương 3_Phần 3_Ðoạn 5 : Dựng Errors cho class

Như chúng ta đã biết, không làm sao tránh khỏi bugs tron ứng dụng, cho nên chúng ta phải dựng nên một hay nhiều bộ phận quản lý Errors trong ứng dụng Ðể dựng nên bộ phận quản lý Errors, hãy theo công thức sau đây :

ERR.Raise Number, Source, Description, HelpFile, HelpContext

Cẩn thận nhớ đừng để trùng Errors number đã có sẳn trong Visual Basic Sau đây là một thí

dụ về Errors handler

Err.Raise vbOjectError + 100, “CEmployee”, “Employee could not be added”