ĐỐI TƯỢNG FORM

1. Thuộc tính

Thuộc tính Ý nghĩa

Caption Đặt tiêu đề cho form. Giá trị mặc định là tên form

BorderStyle Quy định kiểu khung cho form

Appearance Qui định cách thể hiện form (Flat/ 3D)

ControlBox Có hoặc không có Control Menu Box (True/False)

MaxButton Làm mờ nút phóng lớn (True/False)

MinButton Làm mờ nút thu nhỏ (True/False)

Icon Qui định Icon đại diện cho form

Picture Đặt hình làm nền cho form

Moveable Di chuyển/ Không di chuyển được (True/False)

ShownInTaskbar Có nút đại diện chương trình trên taskbar (True/False)

WindowState Trạng thái form (Normal/Minimized/Maximized)

2. Phuơng thức

Show Xuất hiện form

Hide Che dấu form Ví dụ:

frmMain.Show ‘ Làm xuất hiện form Hoặc

FrmMain.Hide ‘ Che dấu form Lưu ý:

Phương thức Show nạp form vào bộ nhớ và làm xuất hiện nó trên màn hình. Nếu form đã được nạp vào trước đó thì nó chỉ làm xuất hiện form trên .

Phương thức Hide làm form không xuất hiện trên màn hình, nó vẫn còn được nạp vào bộ nhớ, để giải phóng form khỏi bộ nhớ, sử dụng phương thức Unload <Đối tượng> 3. Xử lý sự kiện (Handling Event)

Sự kiện Xảy ra khi

Load Form được nạp vào bộ nhớ

Activate Form xuất hiện lần đầu tiên hoặc khi chuyển trở lại form từ một form khác

Deactivate Người dùng chuyển sang form khác hoặc form thực hiện phương thức hide

Unload Form được giải phóng khỏi bộ nhớ

Initialize Form được tạo ra ban đầu trong bộ nhớ

Ví dụ 1 - Kiểm tra các sự kiện Initialize, Load, Unload: 1. Khởi động Visual Basic/Standard EXE

2. Nhấp đúp vào form1 để mở cửa sổ mã lệnh (code window), viết lệnh cho sự kiện

Load như sau:

Private Sub Form_Load() MsgBox "Form Load Event" End Sub

3. Lặp lại bước 3 đểđịnh nghĩa mã lệnh cho các sự kiện Initialize và Unload

Private Sub Form_Initialize()

MsgBox "Form Initialization Event" End Sub

Private Sub Form_Unload(Cancel As Integer) MsgBox "Form Unload Event"

End Sub

4. Bấm F5 để chạy chương trình, để ý các Message Box sẽ xuất hiện theo thứ tự do trình tự Initialize Æ Load Æ Unload

Ví dụ 2 - Kiểm tra các phương thức Show, Hide, Unload

Chương trình khi chạy sẽ xuất hiện 1 form như hình. Bấm nút “Show second form”, form thứ 2 sẽ xuất hiện. Bấm nút “Close this form” , form thứ 2 sẽđóng lại.

Các bước thiết kế như sau: 1. New/Standard EXE

2. Đặt thuộc tính Caption của Form 1 thành Vi du 2 - Form 1

3. Nhấp đúp CommandButton trên ToolBox, Button xuất hiện trên Form1. Điều chỉnh thuộc tính Caption thành “Show second form”

4. Bấm nút Add form/form để thêm form2.

5. Đặt thuộc tính Caption của Form 2 thành Vi du 2 - Form 2

6. Nhấp đúp CommandButton trên ToolBox, Button xuất hiện trên Form2. Điều chỉnh thuộc tính Caption thành “Close this form”

7. Nhấp đúp Button trên form 2 , định nghĩa mã lệnh như sau:

Private Sub Command1_Click() Unload Me

End Sub

8. Nhấp đúp Button trên form 1 , định nghĩa mã lệnh như sau:

Private Sub Command1_Click() Form2.Show

End Sub

Bấm F5 chạy chương trình để kiểm tra kết qủa

III. LABEL

Trình bày một nội dung trên form

1. Thuộc tính

Thuộc tính Ý nghĩa

Caption Qui định nội dung trình bày

Alignment Quy định kiểu canh lề trong Label (0-Left 1- Right 2- Center)

BackStyle Kiểu nền Label (0 - Transparent 1 - Opaque)

AutoSize Tự động co giãn kích thước Label để thể hiện đầy đủ nội dung (True/False) Wordwrap Tựđộng cuộn chữ (True/False) Và các thuộc tính chung 2. Xử lý sự kiện Gồm các sự kiện chung IV. TEXTBOX

1. Thuộc tính

Thuộc tính Ý nghĩa

Text Chứa nội dung nhập vào

Alignment Quy định kiểu canh lề trong TextBox (0-Left 1- Right 2- Center)

Locked Cho phép thay đổi nội dung textbox (True/False)

MaxLength Qui định chiều dài tối đa cho phép nhập

Multiline Cho phép nhập nội dung nhiều dòng (True/False) Và các thuộc tính chung 2. Xử lý sự kiện Gồm các sự kiện chung V. COMMANDBUTTON Đối tượng được sử dụng để ra lệnh 1. Thuộc tính

Caption Nội dung thể hiện trên nút bấm Và các thuộc tính chung.

2. Xử lý sự kiện

Gồm các sự kiện chung

VI. FOCUS VÀ THỨ TỰ TAB 1. Focus 1. Focus

Trên màn hình Windows, mỗi một đối tượng điều khiển khi được chọn để hoạt động (Active) sẽ nhận focus. Khi một cửa sổ hoặc form đang nhận focus thanh tiêu đề

(Title Bar) sẽ có màu đậm. Khi một đối tượng điều khiển trên form nhận focus sẽ có

đường viền bao quanh đối tượng hoặc cursor xuất hiện bên trong đối tượng (Textbox). Người dùng có thể thay đổi focus của đối tượng trên form bằng cách sử

dụng phím Tab hoặc Shift+Tab. Đối tượng nhận focus sẽ phản ứng với các sự kiện bấm phím Hình 2.3: Đối tượng nhận Focus Nút chọn đang nhận Focus Nút bấm đang nhận Focus

2. Thứ tự Tab (Tab Order)

Người dùng có thể chọn đối tượng nhận focus trên form bằng cách bấm phím Tab

hoặc Shift+Tab theo thứ tự các đối tượng được đặt lên form. Có thể qui định thứ tự

này trong lúc thiết kê giao diện chương trình bằng cách điều chỉnh thuộc tính

TabIndex. Đối tượng nhận focus đầu tiên trên form sẽ có TabIndex = 0. Để chọn đối tượng nhận focus trên form bằng chương trình, sử dụng phương thức SetFocus.

3. Phím nóng (HotKey)

Là tổ hợp phím kết hợp giữa phím Alt và một phím khác. Hotkey được sử dụng để

chọn nhanh một đối tượng trên form bằng bàn phím mà không cần bấm phím TAB để

chọn đối tượng theo thứ tự Tab .

Hotkey được định nghĩa trên thuộc tính Caption của đối tượng bằng cách nhập ký tự

“&” phía trước ký tự muốn định nghĩa Hotkey Ví dụ:

Muốn Đối tượng có Hotkey

Giá trị HotKey Giá trị của thuộc tính Caption

Alt+C &Close

Alt+S In &Sync

Alt+S &Nam Riêng TextBox thì Hotkey được định nghĩa trên thuộc tính Caption của Label đi kèm với TextBox. Label được gọi là đi kèm với TextBox nếu TabIndex của nó có giá trị kế

trước (nhỏ hơn 1 đơn vị) giá trịTabIndex của TextBox

4. Ví dụ

Phần sau trình bày ví dụ về các định nghĩa Hotkey và thứ tự nhận focus cho chương trình ví dụđã trình bày ở chương 1

Mở lại project vd1.prj đã làm ở chương 1, điều chỉnh lại thuộc tính của các đối tượng theo như bảng sau:

Form1

Thuộc tính (Property) Giá trị (Value)

Name FrmTinh Caption Cong hai so

Height 2500 Width 2800

Label1

Thuộc tính (Property) Giá trị (Value)

Name Label1 Caption Nhap so thu &1

TabIndex 0

TextBox1

Thuộc tính (Property) Giá trị (Value)

Name txtSo1 Height 315 Width 735 TabIndex 1

Label2

Thuộc tính (Property) Giá trị (Value)

Name Label2 Caption Nhap so thu &2

TextBox2

Thuộc tính (Property) Giá trị (Value)

Name txtSo2 Height 315 Width 735 TabIndex 3

CommandButton

Thuộc tính (Property) Giá trị (Value)

Name CmdTinh Caption &Tinh Height 330 Width 1335 TabIndex 4 TextBox3

Thuộc tính (Property) Giá trị (Value)

Name txtTong Locked True Height 315 Width 735 TabIndex 5

Bấm F5 chạy chương trình. Để ý thứ tự nhận focus là TextBox1, TextBox2 và CommandButton. Các Hotkey Alt+1, Alt+2, Alt+T cũng có tác dụng tương tự.

Muốn con trỏ tựđộng chuyển sang TextBox dưới để nhập số thứ hai sau khi nhập số

thư nhất và bấm Enter, viết lệnh cho sự kiện bấm phím trên có TextBox như sau:thêm khả năng chuyển focus bằng cách bấm Enter sau khi nhập số tại các Textbox, có thể định nghĩa thêm các thủ tục xử lý sự kiện bấm phím Enter cho các Textbox1 và 2 như

sau:

Private Sub txtSo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 then txtSo2.Setfocus

End Sub

Private Sub txtSo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 then CmdTinh.Setfocus End Sub

Chương 3

Kiểu dữ liệu – Hằng – Biến

I. BIẾN (Variable) 1. Định nghĩa

Biến là ô nhớ chứa dữ liệu, giá trị của biến có thể thay đổi trong chương trình.

2. Khai báo

Dạng

Dim <Tên> As <Kiểu> [,<Tên> As <Kiểu>] Hoặc

Dim <Tên>

Trường hợp đầu, kiểu biến được khai báo rõ ràng, trường hợp sau kiểu của biến sẽ được xác định khi có lệnh gán giá trị cho biến.

Ví dụ: Dim X As Integer Dim Ht As String 3. Qui tắc đặt tên biến − Có chiều dài tối đa 255 − Không được bắt đầu bằng số − Không sử dụng khoảng trắng − Không dùng các ký hiệu toán tử − Không trùng từ khoá

− Không phân biệt chữ thường và chữ in Ví dụ Các biến đặt tên đúng MyNum& i% iNumOne strInputValue Các biến đặt tên sai 1Week Ho ten Giai.thua 4. Truy xuất biến

Biến được truy xuất bằng cách viết tên. Ví dụ

Dim Y As Integer X = 5

Y = 7

X = Y+2 ‘ Trị của biến X được gán bằng trị của biến Y cộng thêm 2 X = X+1 ‘ Tăng giá trị của biến X

Lưu ý

Biến sử dụng có thể không cần khai báo. Điều này có thể gây ra lỗi , ví dụ:

Dim Songay Dim X Songay = 1 X = 5

SoNgau = X+1 ‘ Visual Basic xem Songau là biến mới

Để buộc Visual Basic không tự động tạo biến khi chưa khai báo có thể thực hiện 1 trong 2 cách sau:

ƒ Viết phát biểu Option Explicit trong phần General của cửa sổ lệnh.

ƒ Qui định bằng tuỳ chọn Require variable Declaration trong

Tools/Options/Editor

Giá trị ban đầu của các loại biến sau khi khai báo như sau: Kiểu dữ liệu Giá trị đầu Integer 0 Long 0 Single 0 Double 0 String "" (blank) Boolean False Variant EMPTY Date 0 Currency 0 5. Phạm vi sử dụng biến

Một biến được khai báo chỉ tồn tại trong phạm vi khai báo, ngoài phạm vi đó mà sử

dụng lại Visual Basic sẽ xem như biến mới.

• Biến khai báo trong chương trình con chỉ có ý nghĩa trong chương trình con

đó. Trong ví dụ sau, các biến X, Y, Z chỉ có ý nghĩa trong thủ tục xử lý sự kiện cmdTinh.

Private sub cmdTinh() Dim X As Integer Dim Y As Integer Dim Z As Integer

X = CInt(txtSo1.Text) Y = CInt(txtSo2.Text) TxtTong.Text = X+Y End sub

• Biến khai báo với từ khoá Dim trong phần General của form có ý nghĩa tòan cục trong form, tất cả các chương trình con định nghĩa trong form đều có thể

sử dụng biến này.

• Biến khai báo với từ khoá Public trong phần General của form có ý nghĩa trong tất cả các chương trình con định nghĩa trong form đó và có thể sử dụng trong form khác bằng cách viết <Tên form>.<Tên biến>

• Biến khai báo với từ khoá Public trong Module có ý nghĩa trong toàn bộ

chương trình. Dim a As Integer Dimb As Integer Form1 Form2 ‰ Biến a chỉ có ý nghĩa trong form1 ‰ Biến b chỉ có ý nghĩa trong form2 Private sub XXX() … m …

End sub Private sub xxx() … m … End sub Form1 Form2 ‰ Biến m có thể sử dụng trong toàn bộ chương trình

Public m As Integer Module Publica As Integer Dim b As Integer Private sub xxx() … Form1.a … End sub Form1 Form2 ‰ Biến a có thể sử dụng trong form khác ‰ Biến b chỉ có ý nghĩa trong form2

6. Biến tĩnh

Là biến được khai báo với từ khoá static trong 1 chương trình con. Giá trị của biến tĩnh được sử dụng lại cho các lần gọi sau của chương trình con

Ví dụ: Thông báo số lần bấm nút, biến iNumOfClicksđược khai báo tĩnh.

Private Sub MyButton_Click() Static iNumOfClicks as Integer iNumOfClicks = iNumOfClicks + 1

MsgBox "Number of Clicks: " & CStr(iNumOfClicks) End Sub

II. KIỂU DỮ LIỆU

Kiểu Kích thước Phạm vi chứa

Byte 1 byte 0 .. 255

Integer 2 bytes -32,768 .. 32,767

Long 4 bytes Khoảng +/- 2.1E9

Single 4 bytes -3.402823E38 .. -1.401298E-45 (giá trị âm) 1.401298E-45 .. 3.402823E38 (Giá trị dương)

Double 8 bytes -1.79769313486232E308..-4.94065645841247E-324 (giá trị

âm)

4.94065645841247E-324 ..1.79769313486232E308 (giá trị

dương)

Currency 8 bytes 922,337,203,685,477.5808 .. 922,337,203,685,477.5807

String 1 byte cho mỗi ký tự

65,000 đối với chuỗi có kích thước cốđịnh 2 tỷđối với chuỗi động

Boolean 2 bytes True , False

Date 8 bytes Jan 1st 100 .. December 31st 9999

Variant 16 bytes + 1 byte cho mỗi ký tự

III. HẰNG

Hằng là đại lượng có giá trị không thay đổi trong chương trình. Hằng được khai báo trong phần General. Qui tắc đặt tên hằng cũng như biến. Hằng thường được khai báo bằng ký tự chữ in hoa. Khai báo hằng được viết như sau:

Const <Tên> [ As <Kiểu> ] = < Giá trị> Ví dụ:

IV. TOÁN TỬ Toán tử Ý nghĩa ^ Mũ - Đảo dấu *, / Nhân chia \ Chia nguyên Mod Lấy phần dư phép chia số nguyên +, - Cộng, trừ & Ghép chuỗi =, <>, <, >, <=, >= So sánh Not, And, Or Luận lý V. MỘT SỐ HÀM CHUẨN 1. Hàm đại số Hàm Ý nghĩa Ví dụ Abs(n) ⏐x⏐ Abs(-5) = 5 Sqr(x) Căn bậc 2 Sqr(4)=2 Exp(x) ex Exp(1)= 2.718282 Log(x) Logx Tính logn(x)=Log(x)/log(n)

Int(x) Số nguyên ≤ x Int(8.9) = 8, Int(-8.9)= -9

Fix(x) Số nguyên ≤ x Fix(8.4) = 8, Fix(-8.9)= -8

Round(x[,n]) Làm tròn đến n chữ số phần thập phân

Round(4.5)=6,

Round(34.673,2)=34.67

Sin(x) sinx Sin(pi/2)=1

Cos(x) cosx Cos(pi/3)=0.5

Tan(x) tgx

Atn(x) arctgx

2. Hàm thời gian

Hàm Ý nghĩa Ví dụ

Date Ngày hệ thống Dim dt As Date

Dt = Date

Day(d) Ngày trong tháng (1-31) Day(#12/2/00#)=2

Month(d) Tháng (1-12) Month(#12/2/00#)=12

Year(d) Năm Year((#12/2/00#)=2000

Weekday(d) Ngày trong tuần (1-Chủ nhật, 2-Thứ

hai, 7-Thứ bảy)

3. Hàm chuyển đổi

Hàm Ý nghĩa Ví dụ

Asc(n) Mã Ascii của ký tự n Asc(‘a’)=97, asc(‘A’)=65

Chr(n) Ký tự có mã n Chr(65)=’A’

Ucase(s) Đổi chuỗi chữ thường thành chữ in Ucase(“abcd”)=”ABCD”

Val(s) Đổi chuỗi thành số Val(“1234”)=1234

Str(n) Đổi số thành chuỗi Str(12.45)=” 12.45” Str(-4.56) = “-4.56”

4. Hàm kiểm tra kiểu dữ liệu

Hàm Ý nghĩa

IsNumeric(n) Kiểm tra n có phải là số hợp lệ

IsDate(n) Kiểm tra n có phải là giá trị ngày hợp lệ

VI. HỘP THÔNG BÁO (MESSAGE BOX)

Là một lớp cửa sổ windows đã định nghĩa sẵn. Hộp thông báo được để trình bày các thông điệp nhắc nhở người dùng từ chuơng trình hoặc yêu cầu người dùng xác nhận một điều gì đó. Hộp thông báo thực chất là một form với các thành phần sau:

• Nội dung thông báo

• Icon bên trái dùng mô tả tính chất loại thông báo

• Nút bấm để trả lời, gồm các loại OK, Cancel, Yes, No, Abort, Retry, Ignore Dạng hàm

MsgBox(<Thông báo>,<Các nút>,<Tiêu đề>)

Trong đó:

<Thông báo>

Chuỗi ký tự thông báo. Thông báo có chiều dài tối đa 1024 ký tự. Muốn thông báo hiện trên nhiều dòng, sử dụng ký tự chr(13)

<Các nút>

Qui định loại nút bấm và icon được sử dụng trong hộp thông báo, gồm các hằng sau:

Hằng Giá

trị

Ý nghĩa

vbOKOnly 0 Chỉ có nút OK

vbOKCancel 1 Nút OK và Cancel

vbAbortRetryIgnore 2 Nút Abort, Retry và Ignore

vbYesNoCancel 3 Nút Yes, No, Cancel

vbYesNo 4 Nút Yes, No

Button

vbRetryCancel 5 Nút Retry và Cancel

vbCritical 16 Icon

vbExclamation 48 Icon

vbInformation 64 Icon

vbDefaultButton1 0 Nút đầu tiên mặc định có focus vbDefaultButton2 256 Nút thứ hai mặc định có focus

Foc u s vbDefaultButton3 512 Nút thứ ba mặc định có focus vbApplicationModal 0 Người dùng phải trả lời rồi mới có thể tiếp tục sử dụng chương trình, có thể chuyển sang các chương trình khác

Modal vbSystemModal 4096 Người dùng phải trả lời rồi mới có

thể tiếp tục sử dụng chương trình, không thể chuyển sang các chương trình khác

Tham số <các button> được lấy giá trị bằng tổng các hằng trong mỗi nhóm trên. Ví dụ

Giá trị vbYesNo+vbQuestion+vbDefaultButton1 làm cho hộp thông báo có 2 nút Yes-No, Icon hiển thị là Question, nút đầu tiên có focus.

Nếu bỏ qua tham số này, hộp thông báo chỉ có nút OK

<Tiêu đề>

Qui định tiêu đề hộp thông báo, nếu không có tham số này, tiêu đề sẽ là tên của chương trình.

• Khi muốn sử dụng MsgBox với mục đích thông báo, thường chỉ cần ghi tham số

thứ nhất. Ví dụ:

If Not IsNumeric(Text1.Text) then

MsgBox “Dữ liệu nhập không hợp lệ” End if

• Khi chương trình muốn người sử dụng xác nhận một điều gì đó thì phải sử dụng MsgBox dưới dạng hàm. Hàm MsgBox khi đó sẽ trả về giá trị tùy theo nút mà người sử dụng bấm, các giá trị trả về có thể là: Hằng Giá trị Nút đã bấm vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore VbYes 6 Yes VbNo 7 No Ví dụ:

Ans = MsgBox(“Do you want to save ?”, _

if Ans = vbYes then

SaveDocument elseif Ans = vbNo then Quit else

Continue End if

Chương 4 Các cấu trúc điều khiển I. LỆNH ĐIỀU KIỆN IF Dạng 1: If <Điều kiện> then <lệnh> Chỉ có một <Lệnh> viết sau then Ví dụ: Max = a

If Max < b then max = b

Dạng 2:

If <Điều kiện> then <lệnh>

end if

Dạng này được sử dụng thay cho dạng 1 khi có nhiều lệnh sau then Dạng 3: If <Điều kiện 1> then <lệnh 1> elseif <Điều kiện 2 > then <lệnh 2> ... elseif <Điều kiện n > then <lệnh n> else <lệnh n+1> end if Ví dụ: If a > b then