Nhập môn lập trình Visual Basic 6.0

Coding conventions

Object Naming Conventions

Object name has 2 parts: prefix and description.

The prefix that makes it easy to identify the type of object, the description mentions name of objects.

- Conventions of description part are:

+ In English.

+ Can contain many words, each word is contiguous to others (No hyphen).

+ No acronym except listed in table Acronyms (see 4. Acronym).

+ Capitalize the first letter of each word.

(Note: These conventions will be applied to all of name types mentioned after in this document)

- Prefix conventions for some of the objects supported by Visual Basic are listed below (Sorted by control name):

Prefix conventions for menus

Menu control prefixes will be extended beyond the initial "mnu" label by adding an additional prefix for each level of nesting, with the final menu caption at the end of the name string. The following table lists some examples.

Variable naming conventions

Variable name must describe data type, scope and identifier of a variable.

Variable data types

Variable scope prefixes

Constants

The constant names will be UPPER_CASE with underscores (_) between words. For example:

Prefixes for ActiveX Data Objects(ADO)

Use the following prefixes to indicate ActiveX Data Objects.

Structured Coding Conventions

In addition to naming conventions, structured coding conventions, such as code commenting and consistent indenting, can greatly improve code readability.

Code Commenting Conventions

All procedures and functions should begin with a brief comment describing the functional characteristics of the procedure (what it does). Input, output patameters passed to a procedure should be described. Function return values and global variables that are changed by the procedure must also be described at the beginning of each procedure.

Remember the following points:

- Every important variable declaration should include an inline comment describing the use of the variable being declared.

- Variables, controls, and procedures should be named clearly enough that inline commenting is only needed for complex implementation details.

- At the start of the.bas module that contains the project's Visual Basic generic constant declarations, we should include an overview that describes the application, enumerating primary data objects, procedures, algorithms, dialogs, databases, and system dependencies. Sometimes a piece of pseudocode describing the algorithm can be helpful.

Formatting Your Code

Here are a few pointers:

- Standard, tab-based, nested blocks should be indented four spaces (as the Visual Basic default).

- The functional overview comment of a procedure should be indented one space. The highest level statements that follow the overview comment should

be indented one tab, with each nested block indented an additional tab. For

example:

'*****************************************************
' Purpose: Locates the first occurrence of a
' specified user in the UserList array.
‘ Inputs:
‘ strUserList(): the list of users to be searched.
‘ strTargetUser: the name of the user to search for.
' Returns: The index of the first occurrence of the
' rsTargetUser in the rasUserList array.
' If target user is not found, return -1.
'*****************************************************
Function FindUser (strUserList() As String, strTargetUser As _ String)As Integer
Dim inti As Integer ' Loop counter.
Dim blnFound As Integer ' Target found flag. intFindUser = -1
inti = 0
While inti <= Ubound(strUserList) and Not blnFound
If strUserList(inti) = strTargetUser Then blnFound = True
intFindUser = inti
End If
Wend
End Function

Grouping Constants

Visual Basic generic constants will be grouped in a single module to separate them from application-specific declarations.

& and + Operators

Always use the & operator when linking strings and the + operator when working with numerical values. Using the +operator to concatenate may cause problems when operating on two variants. For example:

vntVar1 = "10.01"
vntVar2 = 11
vntResult = vntVar1 + vntVar2 'vntResult = 21.01
vntResult = vntVar1 & vntVar2 'vntResult = 10.0111

Creating Strings for MsgBox, InputBox, and SQL Queries

When creating a long string, use the underscore line-continuation character to create multiple lines of code so that you can read or debug the string easily. This technique is particularly useful when displaying a message box (MsgBox) or input box (InputBox) or when creating an SQL string. For example:

Dim Msg As String
Msg = "This is a paragraph that will be " _
& "in a message box. The text is" _
& " broken into several lines of code" _
& " in the source code, making it easier" _
& " for the programmer to read and debug."
MsgBox Msg
Dim QRY As String
QRY = "SELECT *" _
& " FROM Titles" _
& " WHERE [Year Published] > 1988"
TitlesQry.SQL = QRY

Other conventions

Error trapping in development progress must follow these rules:

- Cascading error trapping. That mean all called functions will return system error codes, and showing message box will be implemented at the most exterior function/procedure.

- All system message will be located in resource file.

- Showing message boxes are implemented by pass parameters to a showing message global function.

- Error code contains 3 number.

- Versioning all modules: form module, code module...

- Display solution: 800x600 pixels

- Font size setting: Large font

- All of file name (*.vbp, *.frm, *.bas...) must less than 3 characters.

- Error code = 0 is OK.

- Error code < 0 is error.

- Error code >0 is warning.

- Function names should begin with a verb, such as InitNameArray or CloseDialog.

Form design standard

Common conventions in form design

Sample:

Form controls appearance conventions

Report design standard (for Crystal Report)

Common conventions in report design

Report objects appearance conventions

Sample:

Left subtitle Report title Right subtitle

Database design standards

All of object names (include: table names, view names, field names...) in database must follow these conventions:

- In English.

- Can containts one or more words and no underscore between these words.

- No acronym except listed in table Acronyms bellow.

- The first letter of each word must be capitalized.

Soạn thảo Code

Ngoài khả năng soạn thảo văn bản để viết chương trình, cửa sổ Code còn hỗ trợ một số chức năng khác như:

Đánh dấu (marks)

Dùng đánh dấu các dòng chương trình trong cửa sổ Code để dễ dàng xem lại về sau. Để bật tắt khả năng này, cũng như tìm kiếm dấu hiện hành, chọn Bookmarks từ menu Edit, hoặc chọn từ thanh công cụ Edit.

Dùng phím trong cửa sổ Code

Một số chức năng tự động

Khai báo biến

Để khai báo biến ta dùng lệnh Dim: Dim <Tên biến > [As<kiểu dữ liệu>]

Biến khai báo trong thủ tục chỉ tồn tại khi thủ tục thi hành. Nó sẽ biến mất khi thủ tục chấm dứt. Giá trị của biến trong thủ tục là cục bộ đối với thủ tục đó, nghĩa là ta không thể truy nhập biến từ bên ngoài thủ tục. Nhờ đó, ta có thể dùng trùng tên biến cục bộ trong những thủ tục khác nha.

Kiểu dữ liệu trong khai báo Dim có thể là những kiểu cơ bản như Integer, String hoặc Currency. Ta cũng có thể dùng đối tượng của VB (như Object, Form1, TextBox) hoặc của các ứng dụng khác.

Khai báo biến trong phần Declarations của một mô-đun nghĩa là biến đó tông tại và có tầm hoạt động trong mô-đun đó.

Khai báo biến với từ khoá Public nghĩa là biến đó tồn tại và có tầm hoạt động của toàn ứng dụng .

Khai báo biến cục bộ với từ khoá Static nghĩa là mặc dầu biến đó biến mất khi thủ tục chấm dứt, nhưng giá trị của nó vẫn được giữ lại để tiếp tục hoạt động khi thủ tục được gọi trong lần sau.

Khai báo ngầm

Nghĩa là ta không cần khai báo tường minh trước khi sử dụng biến.

Function SafeSqr(num)
    TempVal = Abs(num) SafeSqr = Sqr(TempVal)
    End Function
    

Mặc dù cách này có vẻ thuận tiện nhưng có thể gây lỗi nếu ta gõ nhầm tên biến.

unction SafeSqr(num)
    TempVal = Abs(num) SafeSqr = Sqr(TemVal)
    End Function
    

Hàm này trả về zero. Khi VB gặp tên mới, nó tạo ra một biến khác với tên đó.

Khai báo tường minh

Để tránh những rắc rối trên, ta nên quy định VB phải báo lỗi khi gặp một tên biến không khai báo. Ta đặt dòng lệnh :

Option Explicit

Trong phần Declarations của mô-đun. Một cách khác, từ menu Tools, chọn

Options, chọn tab Editor và đánh dấu vào tuỳ chọn Require Variable Declaration. VB tự động chèn dòng lệnh Option Explicit vào một mô-đun mới, nhưng không phải là những mô-đun đã được tạo. Do đó, đối với các mô-đun này, ta phải thêm dòng lệnh bằng tay.

Option Explicit chỉ hoạt động trên từng mô-đun. Vì vậy, ta phải thêm dòng này vào mỗi mô-đun của biểu mẫu, mô-đun chuẩn, hay mô-đun lớp.

Khai báo biến Static

Để khai báo tát cả các biến cục bộ trong một thủ tục là Static, ta đặt từ khoá Static vào tên thủ tục:

Static Function RunningTotal(num)
    

VB sẽ hiểu rằng tất cả các biến khai báo trong thủ tục này đều là Static, dù cho chúng được khai báo là Private, là Dim hoặc thậm chí khai báo ngầm.

Từ khoá Static có thể đặt ở đầu thủ tục Sub hoặc Function, kể cả thủ tục xử lý sự kiện hoặc những hàm Private.

Hằng

Dùng để chứa những dữ liệu tạm thời nhưng không thay đổi trong suốt thời gian chương trình hoạt động. Sử dụng hằng số làm chương trình sáng sủa và dễ đọc nhờ những tên gợi nhớ thay vì các con số. VB cung cấp một số hằng định nghĩa sẵn, nhưng ta có thể tự tạo hằng.

Ta có thể dùng cửa sổ Object Browser để xem danh sách các ứng dụng hằng có sẵn của VB và VBA( Visual basic for Application). Các ứng dụng khác cung cấp những thư viện đối tượng, như Microsoft Exel, Microsoft Project, hoặc các thư viện của điều khiển ActiveX cũng có hằng định nghĩa sẵn.

Trong trương hợp trùng tên hằng trong những thư viện khác nhau, ta có thể dung cách chỉ rõ tham chiếu hằng:

[<Libname>][<tên mô-đun>]<tên hằng>
    

Libname là tên lớp, tên điều khiển hoặc tên thư viện.

|Public|private|Const<tên hằng>[As<kiểu dữ liệu>]= <biểu thức>
    

Private I as Interger, Amt as double
Private YourName as String, BillsPaid as Currency
Private Test,Amount, J as integer

Dim EmpName As String *50

Dim blnRunning as Boolean
    ‘ Check to see ì the tape is running. 
    If recorder.Direction = 1 Then blnRunning = True
    End if
    

Dim objDb As Object
    Set objDb=OpenDatabase(“c:vb5Biblio.mdb”)
    

Dim Somevalue 'Variant by default
    Somevalue = "17" 'SomeValue contains "17"(a two character string). Somevalue = Somevalue – 15'somevalue now cotains the numeric value 2. Somevalue = "U" & Somevalue 'somevalue now cotains.
    

Private Sub cmdExplore_click() Dim VarVariant As Variant VarVariant = 12
    Form1.Print VarType(VarVariant) VarVariant = "Peter"
    Form1.Print VarType(VarVariant) VarVariant = True
    Form1.Print VarType(VarVariant) VarVariant = #1/1/2001# Form1.Print VarType(VarVariant) End Sub