Tự học Visual Basic phần 1

T HC VISUAL BASIC 6.0 - PHN I 1
MC LC
Chng Mt - Hoan nghênh đn vi VB6 .................................................2
Chng Hai- Vit chng trình đu tiên..................................................15
Chng Ba – Form và các Controls thông thng...................................27
Chng Bn - Vit Code ..........................................................................43
Chng Nm - Các loi d kin ...............................................................55
Chng Sáu - Dùng d kin .....................................................................67
Chng By - Dùng List Controls............................................................78
T HC VISUAL BASIC 6.0 - PHN I 2
Chng Mt - Hoan nghênh đn vi VB6
Chào mng bn đn vi Visual Basic 6
Dùng VB6 là cách nhanh và tt nht đ lp trình cho Microsoft Windows.
Cho dù bn là chuyên nghip hay mi m đi vi chng trình Windows,
VB6 s cung cp cho bn mt b công c hoàn chnh đ đn gin hóa
vic trin khai lp trình ng dng cho MSWindows.
Visual Basic là gì? Phn "Visual" đ cp đn phng pháp đc s
dng đ to giao din đ ha ngi dùng (Graphical User Interface hay
vit tc là GUI) . Có sn nhng b phn hình nh, gi là controls, bn tha
h sp đt v trí và quyt đnh các đc tính ca chúng trên mt khung màn
hình, gi là form. Nu bn đã tng s dng chng trình v chng hn
nh Paint, bn đã có sn các k nng cn thit đ to mt GUI cho VB6.
Phn "Basic" đ cp đn ngôn ng BASIC (Beginners All-Purpose
Symbolic Instruction Code), mt ngôn ng lp trình đn gin, d hc,
đc ch ra cho các khoa hc gia (nhng ngi không có thì gi đ hc
lp trình đin toán) dùng.
Visual Basic đã đc ra t MSBasic, do Bill Gates vit t thi dùng cho
máy tính 8 bits 8080 hay Z80. Hin nay nó cha đn hàng trm câu lnh
(commands), hàm (functions) và t khóa (keywords). Rt nhiu
commands, functions liên h trc tip đn MSWindows GUI. Nhng
ngi mi bt đu có th vit chng trình bng cách hc ch mt vài

commands, functions và keywords. Kh nng ca ngôn ng này cho phép
nhng ngi chuyên nghip hoàn thành bt k điu gì nh s dng ngôn
ng lp trình MSWindows nào khác.
Ngi mang li phn "Visual" cho VB là ông Alan Cooper. Ông đã gói
môi trng hot đng ca Basic trong mt phm vi d hiu, d dùng,
không cn phi chú ý đn s tinh xo ca MSWindows, nhng vn dùng
các chc nng ca MSWindows mt cách hiu qu. Do đó, nhiu ngi
xem ông Alan Cooper là cha già ca Visual Basic.
Visual Basic còn có hai dng khác: Visual Basic for Application (VBA)
và VBScript. VBA là ngôn ng nm phía sau các chng trình Word,
Excel, MSAccess, MSProject, .v.v.. còn gi là Macros. Dùng VBA trong
T HC VISUAL BASIC 6.0 - PHN I 3
MSOffice, ta có th làm tng chc nng bng cách t đng hóa các
chng trình.
VBScript đc dùng cho Internet và chính Operating System.
Dù cho mc đích ca bn là to mt tin ích nh cho riêng bn, trong mt
nhóm làm vic ca bn, trong mt công ty ln, hay cn phân b chng
trình ng dng rng rãi trên th gii qua Internet, VB6 cng s có các
công c lp trình mà bn cn thit.
Các n bn Visual Basic 6
Có ba n bn VB6: Learning, Professional và Enterprise. Chúng ta hãy
gát qua n bn Learning. Bn có th dùng n bn Professional hay
Enterprise.
n bn Professional cung cp đy đ nhng gì bn cn đ hc và trin
khai mt chng trình VB6, nht là các control ActiveX, nhng b phn
lp trình tin ch và rt hu dng cho các chng trình ng dng
(application programs) ca bn trong tng lai. Ngoài đa compact chính
cho VB6, tài liu đính kèm gm có sách Visual Studio Professional
Features và hai đa CD Microsoft Developer Network (MSDN).
n bn Enterprise là n bn Professional cng thêm các công c Back

Office chng hn nh SQL Server, Microsoft Transaction Server, Internet
Information Server.
Cài đt VB6
 cài đt VB6, máy tính ca bn cn phi có mt  đa CD-ROM (CD
drive) . Bn cn ít nht 32 MB RAM, 2 GB hard disk và CPU Pentium II.
Khi b VB6 CD vào CD drive, nó s t khi đng đ display menu cho
bn chn nhng th gì cn Setup, hãy click Install Visual Basic 6.0 đ
cài VB6. Ngoi tr các file h điu hành (Operating System) trong th
mc (folder) \Os, các file trong đa compact đu không b nén. Vì th, bn
có th s dng chúng trc tip t đa. Ví d, có nhiu công c và thành
phn trong folder \Tools vn có th đc cài đt trc tip t CD-ROM.
Ngoài ra, bn có th chy Setup khi nào cn thit. Ví d, bn có th chy
T HC VISUAL BASIC 6.0 - PHN I 4
Setup đ cài đt li Visual Basic trong folder khác, hoc đ cài đt thêm
bt các phn ca VB6.
Nu vì lý do gì h thng không install các đa compact MSDN (bn s
khám phá ra điu ny khi thy Help không có mt lúc chy VB6), bn có
th cài đt chúng trc tip t đa s 1 ca b MSDN.
 b xung và xóa các thành phn VB:
1. B đa compact vào CD drive.
2. Nu menu không t đng hin lên thì chy chng
trình Setup có sn tong folder gc trên đa compact.
3. Chn nút Custom trong hp thoi (dialog) Microsoft
Visual Basic 6.0 Setup.
4. Chn hay xóa các thành phn bng cách check hay
uncheck các hp danh sách Options ca dialog
Custom.
5. Thc hin các ch dn Setup trên màn hình.
Ghi chú: Trong lúc cài VB6, nh chn Graphics nu không bn s thiu
mt s hình nh nh icons, bitmaps v.v... áng l Microsoft cho t đng

cài đt Graphics, tc là Default (không có nói gì) thì cài đt Graphics.
Integrated Development Environment (IDE) ca VB6
Khi khi đng VB6 bn s thy m ra nhiu ca s (windows),
scrollbars, v.v.. và nm chng lên là New Project dialog.  đây VB6 cho
bn chn mt trong nhiu loi công trình.
T HC VISUAL BASIC 6.0 - PHN I 5
Chn Standard EXE. Mt lát sau trên màn nh s hin ra giao din ca
môi trng phát trin tích hp (Integrated Development Environment -
IDE ) ging nh di đây:
T HC VISUAL BASIC 6.0 - PHN I 6
IDE ca VB6 bao gm các yu t sau:
Menu Bar
Cha đy đ các commands mà bn s dng đ làm vic vi VB6, k c
các menu đ truy cp các chc nng đc bit dành cho vic lp trình
chng hn nh Project, Format, hoc Debug. Trong Menu Add-Ins có
Add-Ins Manager cho phép bn gn thêm nhng menu con nhim ý đ
chy các chng trình li ích cho vic lp trình.
Trong Add-Ins Manager dialog bn chn mt Add-In ri check mt hay
nhiu hp trong khung Load behavior:
Toolbars (Debug, Edit, form Editor, Standard)
Các toolbars có hình các icons cho phép bn click đ thc hin công vic
tng đng vi dùng mt menu command, nhng nhanh và tin hn.
Bn dùng menu command View | Toolbars (click lên menu command
View cho popupmenu hin ra ri click command con Toolbars) đ làm
cho các toolbars hin ra hay bin mt đi. Bn có th thay đi v trí mt
toolbar bng cách nm vào hai gch vertical nm bên trái toolbar ri di
toolbar đi ch khác (nm  đây ngha là đ pointer ca mouse lên ch
T HC VISUAL BASIC 6.0 - PHN I 7
chm đ trong hình phía di ri bm xung và gi nút bên trái ca
mouse, trong khi kéo pointer đi ni khác).

Ngoài ra bn cng có th sa đi các toolbars theo ý thích bng cách
dùng Menu command View | Toolbars | Customize...
Toolbox
ây là hp đ ngh vi các công c, gi là controls, mà bn có th đt lên
các form trong lúc thit k (design). Nu Toolbox bin mt, bn có th
display nó tr li bng cách dùng menu command View | Toolbox. Bn
T HC VISUAL BASIC 6.0 - PHN I 8
có th khin toolbox display nhiu controls hn bng cách chn
Components... t context menu (chn Toolbox ri bm nút phi ca
mouse đ display context menu) hay dùng menu command Project |
Components. Ngoài vic trình bày Toolbox mc đnh, bn có th to
cách trình bày khác bng cách chn Add Tab... t context menu và b
sung các control cho tab t kt qu.
Project Explorer
S lit kê các forms và các modules trong project hin hành ca bn. Mt
project là s tp hp các files mà bn s dng đ to mt trình ng dng.
Tc là, trong VB6, khi nói vit mt program có ngha là trin khai mt
project.
Properties window
Lit kê các đc tính ca các forms hoc controls đc chn. Mt property
là mt đc tính ca mt object chng hn nh size, caption, hoc color.
Khi bn sa đi mt property bn s thy hiu qu ngay lp tc, thí d
thay đi property Font ca mt Label s thy Label y đc display bng
Font ch mi. Khi bn chn mt Property ca control hay form trong
Properties window, phía bên phi  ch value ca property có th display
ba chm (. . .) hay mt tam giác cha xung. Bm vào đó đ display mt
T HC VISUAL BASIC 6.0 - PHN I 9
dialog cho bn chn value. Thí d di đây là dialog đ chn màu cho
property ForeColor ca control Label1.
Form Layout

Bn dùng form Layout đ chnh v trí ca các forms khi form hin ra ln
đu lúc chng trình chy. Dùng context command Resolution Guides
đ thy nu dùng mt màn nh vi đ mn (resolution) t hn, thí d nh
640 X 480, thì nó s nh nh th nào.
T HC VISUAL BASIC 6.0 - PHN I 10
Form Designer
Dùng đ thit k giao din lp trình. Bn b sung các controls, các đ ha
(graphics), các hình nh và mt form đ to s ma sát mà bn mun. Mi
form trong trình ng dng ca bn có designer form riêng ca nó. Khi
bn maximise mt form designer, nó chim c khu làm vic. Mun làm
cho nó tr li c bình thng và đng thi đ thy các form designers
khác, click nút Restore Window  góc bên phi, phía trên.
Immediate Window
Dùng đ g ri (debug) trình ng dng ca bn. Bn có th display d
kin trong khi chy chng trình ng dng. Khi chng trình đang tm
ngng  mt break point, bn có th thay đi giá tr các variables hay
chy mt dòng chng trình.
View Code button
Click lên nút ny đ xem code ca mt form mà bn đã chn. Window
ca code ging nh di đây:
T HC VISUAL BASIC 6.0 - PHN I 11
Trong Code window bn có th chn display tt c Sub ca code cùng
mt lúc nh trong hình hay display mi ln ch mt Sub bng cách click
button có hình ba dòng nm  góc bên trái phía di.
View form button
Click lên nút ny đ xem form ca mt form mà bn đã chn.
Ghi chú: Nhiu windows trong IDE nh Toolbars, Toolbox, Project
Explorer .v.v..có th trôi lình bình (floating) hay đu  bn (docked). Bn
có th thay đi v trí chúng bng cách nm vào Title Bar ca window ri
di đi. D nhiên bn cng có th m rng hay làm nh mt window bng

cách di mt cnh vertical hay horizontal ca nó. Khi đ mt window lên
trên mt window khác chúng có th tìm cách dính nhau.
Trong hình di đây, Properties Window và Form Layout đã đc kéo ra
ngoài cho floating.
T HC VISUAL BASIC 6.0 - PHN I 12
Nhn tr giúp trong khi đang làm vic
Trong khi lp trình bn có th cn tìm hiu các thông tin liên quan đn
các commands, functions .v.v.. ca VB6. Bn có th khi đng Microsoft
Developer Network | MSDN Library Visual Studio 6.0 t nút Start,
hay click Help | Contents t Menu Bar ca VB6, hay chn mt keyword
(highlight keyword) ri n F1 đ đc Help.
T HC VISUAL BASIC 6.0 - PHN I 13
Ni dung Help bao gm nhiu đc đim đc thit k đ thc hin vic
tìm kim thông tin d dàng hn. Bn có th da trên Contents đ đc tài
liu nh mt quyn sách, Index đ đc nhng đon có nhc đn mt
keyword hay Search đ tìm mt tài liu nhanh hn. Ví d, vic g ri
thông tin bt ngun t nhiu đc tính khác nhau ph thuc vào loi đ án
mà bn đang làm vic. Các liên kt đc mô t trong phn ny thc hin
vic tìm kim d dàng hn.
Ngoài ra, bn cng có th click See Also di tiêu đ ca ch đim đ
xem các tiêu đ ca các ch đim mà bn có th đi đn hoc liên h đn
nhiu thông tin.
Context Sensitive Help (tr giúp trong đúng tình hung)
Nhiu phn ca VB6 là context sensitive, có ngha là lúc bi ri ch cn
n nút F1 hoc highlight keyword ri nhn F1 là đc thông tin nhng gì
liên h trc tip vi tình hung hin gi ca bn.
Bn có th nhn F1 t bt k phn context sensitive nào ca giao din
VB6 đ display thông tin Help v phn đó. Các phn context sensitive là:
• Các Windows ca VB6 nh Properties, Code .v.v..
• Các control trong Toolbox.

• Các Object trên mt form hoc Object tài liu.
• Các đc tính trong Window Properties.
• Các keywords ca VB6
• Các thông báo li (error messages)
Ngoài ra, trong Help thng có Example. Bn click lên ch Example đ
display mt thí d minh ha cách dùng mt function hay property.
Microsoft on the Web
Web site ca Microsoft cha nhiu thông tin cp nht cho nhng ngi
lp trình VB6. Trang ch Visual Basic đt ti URL
Thông tin có sn ti đa ch ny bao
gm:
T HC VISUAL BASIC 6.0 - PHN I 14
• Cp nht các đc tính mi, các phiên bn sn phm,
các sn phm liên h, các thuyt trình (seminar) và các
hot đng (event) đc bit.
• Thông tin b sung trên các đc tính VB6 cha trong
các bài vit gi là White Papers, các mách nc (tips)
và các trình tr giáo, ngun đào to.
• Sn phm mi ti xung (download) bao gm s cp
nht đn các file chng trình, các cp nht tr giúp,
các trình điu khin, và các file liên h khác ca VB6.
 truy cp Web site ca Microsoft, t menu Help chn Microsoft on
the Web ri chn menu con tùy thích nh di đây.
Ghi chú: Mt s ni dung trên Web site ca Microsoft đc ti u hóa
dành cho Microsoft Internet Explorer và không th display đy đ trong
mt b trình duyt (browser) khác. Do đó bn nên ch dùng Internet
Explorer làm browser trên máy bn mà thôi.
T HC VISUAL BASIC 6.0 - PHN I 15
Chng Hai- Vit chng trình đu tiên
Bn đang làm quen vi môi trng trin khai lp trình (Integrated

Development Environment - IDE) ca MS VB6 và rt nóng rut mun
vit nhng dòng mã đu tiên đ chào mng th gii.
Ta th ôn li mt s vn đ mà có l bn đã bit ri. Mt chng trình
Visual Basic gm có phn mã lp trình và các hình nh (visual
components). Bn có th thit k phn hình nh bng cách dùng nhng đ
ngh (Controls hay Objects) t Túi đ ngh (Toolbox) nm bên trái. Nu
bn không thy cái Túi đ ngh thì dùng mnh lnh Menu View|Toolbox
đ bt nó hin ra.
Khi bn bt đu thit k mt chng trình bng cách chn Standard EXE,
môi trng trin khai lp trình (IDE) cho bn sn mt Form tên là Form1.
Bn có th đi tên (Name) nó trong cái ca s Propeties nm phía di
bên phi (trong hình di đây ta edit Name property ca Form1 thành ra
frmMainForm). Bn cng có th sa đ ta (Title) ca form ra cái gì có ý
ngha hn bng cách đi Caption ca form cng trong ca s Propeties
(trong hình di đây ta edit Caption property ca form thành ra "Chi tiet
cua ban toi").
Sp đt các vt dng lên Form
Mun đt mt Control lên Form, click hình cái Control trong Toolbox ri
Drag (bm nút trái ca con chut ri kéo cho thành hình ch nht trc
khi buông nút trái ra) con chut trên Form v thành c ca Control.
Nhng Controls bn s dùng thng nht t Toolbox là Label (nhãn),
Textbox (hp đ đánh ch vào) và CommandButton (nút bm mnh
lnh).
T HC VISUAL BASIC 6.0 - PHN I 16
Trong hình trên ta có ba Label và ba Textbox. Mun sa ch Label1 ra
"Ten" thì edit Property Caption. Còn Textbox không dùng Property
Caption mà dùng Property Text. Ta cng có th thay đi các Property
Caption và Text trong khi chy chng trình (at run-time). Trong lúc thit
k (design time) bn có th sa đi kiu ch ca nhng Controls bng
cách edit Property Font ca chúng trong ca s Properties (click bên phi

ca Property Font trong Properties Window, IDE s pop-up cái Font
dialog đ bn la chn nhng đc tính ca Font nh trong hình di
đây).
Nu bn thy bc mình ti sao cái c ch t có (default size) ca các
Control hi nh, bn có th gii quyt bng cách sa c ch ca chính
Form cho nó ln hn. Vì khi mt Control đc đt lên mt Form, nó tha
k c ch ca Form.
 sp xp cho mt s Control thng hàng vi nhau bn chn c nhóm
ri dùng mnh lnh Menu Format|Align|Lefts .v.v..Nu bn cha bit
cách chn mt nhóm Control thì có hai cách. Cách th nht bn đè nút
Shift trong khi click các Control bn mun chn. Cái Control mà bn
chn sau cùng s là cái chun đ các Control khác s làm ging theo.
Cách th hai là Drag cho si dây thun (rubber band) bc chung quanh các
Control. Trong trng hp các Control ny nm trong mt container, thí
d nh mt khung (Frame) hay PictureBox, thì bn phi click Form
trc, ri đè nút Ctrl trong khi Drag rubber band bao các Control.
Cha mi th ca mt d án VB
Ti đây bn đ ý thy trong ca s bên phi, phía trên, gi là Project
Explorer, có hình ging nh mt cái cây (tree) cho thy ta có mt Form
T HC VISUAL BASIC 6.0 - PHN I 17
trong mt Project (d án). Project là mt cách tin dng đ ta sp xp
nhng gì cn thit cho mt d án. Thng thì mt d án có nhiu Form
và có th cn nhng th khác.
Mi Form s đc cha vào đa di dng "frmMainForm.frm". Bn
save mt form bng menu command File | Save formfilename.frm. Nu
trong Form1 có cha hình nh (thí d bn dùng Properties Window đ
chn mt icon hình gng mt ci làm icon cho frmMainForm) thì các
hình nh ca frmMainForm s đuc t đng cha trong h s
"frmMainForm.frx". Lu ý là không nht thit tên ca h s (file) mà bn
phi cho bit khi cha (save) phi ging nh tên ca Form mà bn dùng

trong chng trình. Tuy nhiên bn nên dùng cùng mt tên cho c hai đ
sau ny d tìm h s nu có tht lc. Theo qui c thông thng, các
Form đc đt tên bt đu bng "frm", thí d nh "frmMainForm".
Khi bn save mt Project thì có ngha là save tt c h s dùng cho d án,
k c các Form và mt h s cho chính Project, thí d nh
"MyFirstProg.vbp" ("vbp" là vit tt ch Visual Basic Project). Bn save
Vb6 project bng menu command File | Save Project. À, mun đi tên
Project, bn click lên hàng trên cùng bên phi trong ca s Project
Explorer (Project1 (Project1.vbp)), ri edit tên ca Project trong ca s
Properties phía di. Bn nên cha tt c nhng h s dùng cho cùng mt
Project trong cùng mt tp (Folder/Directory).
Bn có th dùng Notepad đ m ra xem chi, coi trong
"frmMainForm.frm" có gì. Bn s thy trong y gm có hai phn: phn
đu là din t các Control nm trong Form, phn còn li là mã lp trình
mà bn vit. Bn cng s chú ý là các properties mà bn đã sa cho các
Control đu đc ghi li trong phn đu nói trên. VB da vào phn din
t các Control đ thit lp li (reconstruct) hình nh ca Form.
T HC VISUAL BASIC 6.0 - PHN I 18

Sau ny, khi đã lão luyn VB, bn có th dùng mt chng trình t đng
ch (generate) ra nhng hàng din t các Control cho mt Form.
ó là k thut dùng trong các Wizards ca VB đ ch mt s chng
trình khi đu cho chúng ta t các bng km (Template).
Thêm mã lp trình đ x lý mt s c
Hu ht lp trình trong Visual Basic là vit mã đ x lý các s c (Event).
Thí d mun chm dt chng trình, ngi s dng s click nút "Xuat".
 thc hin điu ny trong khi trin khai chng trình bn doubleClick
(click liên tip 2 ln) nút "Xuat". VB IDE s vit sn cho bn cái v ca
mt Subroutine:
T HC VISUAL BASIC 6.0 - PHN I 19

Private Sub cmdXuat_Click()
End
' Bn ch vit thêm dòng ny đ kt thúc chng trình
End Sub
 ý là tên (Name) ca nút Xuat là "cmdXuat" ("cmd" là vit tt ch
CommandButton), VB gn thêm du gch di và Event Click đ làm
thành tên cmdXuat_Click ca Sub, chng trình nh s đc x lý khi
ngi s dng click nút Xuat. Chng trình nh hay Subroutine ny còn
đc gi là Event Handler cho Event Click. Hàng ch xanh lá cây là dùng
đ gii thích cho lp trình viên (gi là Comment), VB s hoàn toàn không
chú ý đn nó khi x lý Sub cmdXuat_Click.
Comment có ngha là chú thích. Trong VB chú thích bt đu bng du
single quote
'. Khi VB thy du ny là nó b qua nhng gì còn li trên
dòng mã.
Là Lp trình viên chuyên nghip bn nên tp thói quen dùng Comment
mi ni đ giúp ngi khác và chính bn hiu chng trình ca mình.
Nên nh là tin phí tn đ bo trì mt chng trình thì ít nht là tng
đng vi s tin b ra ln đu đ trin khai. Bo trì có ngha là thm
ving li chng trình đ sa li (fix bug) và thêm các đc đim cho hay
hn (enhancement).
Nói chung h bn làm điu gì bí him hay cc c thì làm n gii thích rõ
ràng.
Nu mun ct mt dòng mã VB ra làm hai dòng thì chm dt dòng th
nht bng du gch di _.
Tip theo, bn doubleClick nút "Viet vao dia" và vit nhng hàng mã sau:
Private Sub cmdViet_Click()
Open "myFriends.txt" For Output As #2
' M mt h s đ vit ra và gi là cng s 2
' Vit vào cng s 2: Tên, a ch và Tui, ngn cách nhau bng du chm phy

Print #2, txtTen & ";" & txtDiachi & ";" & txtTuoi
Close #2
' óng cng s 2
End Sub
Trong Sub cmdViet_Click, trc ht ta m mt h s tên là
"myFriends.txt" và gi nó là cng s 2. Sau khi m h s đ vit ra ta
ráp Tên, a ch và Tui li, ngn cách bng du chm phy (;) đ đánh
du nh sau ny ta mun g riêng ba th ra tr li. Du "&" là operator
đ ráp (concatenate) hai dòng ch (text string) li vi nhau.
T HC VISUAL BASIC 6.0 - PHN I 20
Print #2 có ngha là vit ra cng s 2, tc là h s "myFriends.txt".
Th chúng ta vit ra cng 2 là Tên, a ch và Tui (txtTen & ";" &
txtDiachi & ";" & txtTuoi).
Nhng rc ri ca vic m mt h s
Cái cng s 2  trên là ta t chn (arbitrary). Tht ra mun gi cng s
my cng đc, min là cha có phn nào khác trong cùng chng trình
ny đang dùng cng s y. ây là mt cách VB làm vic cho tin thay vì
gi nguyên mt cái tên h s dài.
Nu mun chc chn không trùng s cng vi ch nào khác, ta có th làm
nh sau:
fileNo = freefile
Ri thay th s 2 bng ch fileNo trong Sub cmdViet_Click. freeFile là
mt Function (chng trình nh dùng đ tính ra mt th gì) nh VB cp
phát cho mt con s đi din h s cha ai dùng.
Ch Output trong câu ( Open "myFriends.txt" For Output As #2
) dùng 
đây đ nói t CPU (Central Processing Unit) ta mun "vit ra" mt h s.
Khi m mt h s đ vit ra kiu ny thì nu h s cha có nó s đc
dng nên (created). Nu h s đã có ri thì nó s b xoá b (delete) và
đng thi mt h s trng và mi s đc dng nên. ng t chuyên

môn là "vit chng lên" (overwrite).
Nu ta m mt h s đ "đc vào" thì dùng ch "Input" thay vì
"Output". Còn nu "vit thêm" vào mt h s có sn (ch không
overwrite h s y) thì dùng ch "Append" thay vì "Output". Trong
trng hp y bn phi kim xem h s "myFriends.txt" đã có sn cha.
Bn có th vit nh sau:
If Dir("myFriends.txt") <> "" then
' Nu h s "myFriends.txt" hin hu
Open "myFriends.txt" For Append As #2 ' M mt h s đ vit thêm và gi là
cng s 2
T HC VISUAL BASIC 6.0 - PHN I 21
Else
Open "myFriends.txt" For Output As #2 ' M mt h s đ vit ra và gi là cng
s 2
End If
Function Dir("myFriends.txt") dùng  trên s cho ta tên ca h s nu h
s hin hu, ngc li nó s cho mt dòng ch trng (empty string), biu
hiu là "". Ti đây, nu lanh ý bn s hi h s "myFriends.txt" nm 
folder nào. Câu tr li là không bit chc. Nu bn cha cha (save)
chng trình vào da (vì mi vit) thì nó nm  folder ca VB6.EXE. Còn
nh đã cha chng trình ri thì có l nó nm  folder ca chng trình
bn. Mun h s "myFriends.txt" luôn luôn đi cùng vi chng trình, bn
có th làm nh sau:
MyLocalFolder = App.path
' Ly folder ca chng trình x lý ca bn
If Right(MyLocalFolder,1) <> "\" then ' Nu ch cui cùng không phi là backslash
MyLocalFolder = MyLocalFolder & "\" ' thì gn thêm mt backslash  cui
End If

' M mt h s vi tên có folder (full pathname) đ vit ra và gi là cng s 2

Open MyLocalFolder & "myFriends.txt" For Output As #2
Cui cùng ta đóng h s li bng câu Close #2.. T rày VB có th cp s
2 đ làm cng cho ch khác trong chng trình.
Default Property ca mt Control
"txtTen" đc dùng  đây là vit tt cho "txtTen.text", vì Default
Property ca mt TextBox là text ca nó. Default Property ca mt
Control là Property đc VB dùng khi bn ch cho tên ca Control mà
thôi.
Trong khi đó Default Property ca Label là Caption.
Vì txtTen đc dùng nh txtTen.txt đ nói đn mt dòng ch, nên trong
chng trình ta nhc đn nó y nh mt variable (mã s) dùng cho mt
string. Do đó vi qui c dùng ba ch đu "txt" cho tên ca mt Textbox
giúp ta nhn din ngay nó không phi là mt string variable bình thng.
Hãy lu ý s khác bit khi gi mt Sub trong hai trng hp sau:
Call CheckmyTextbox (txtDiachi)
' txtDiachi đc xem là Textbox trn vn
CheckmyTextbox txtDiachi ' txtDiachi đc xem là txtDiachi.text, mt dòng ch
T HC VISUAL BASIC 6.0 - PHN I 22
Th t các Control trên mt Form
Trong chng trình ny ta mun ngi x dng cho vào d kin theo th
t "Tên, a ch, Tui". Khi mi vào, ta mun cái du chp tt (cursor )
nm trong txtTen ngay đ ngi x dng khi mt công click vào
Textbox y khi mun mang cursor tr li đó. Ta nói là txtTen có cái
Focus.
Sau khi ngi x dng đã cho tên vào ri, cô s đánh nút Tab đ di
chuyn cursor qua Control tip theo, mà ta mun là txtDiachi.  sp th
t các Control cho s di chuyn ca cursor khi ngi x dng đánh nút
Tab ta edit Property TabIndex ca các Control. TabIndex bt đu bng s
0. Nhiu khi ngi x dng thích dùng nút Enter thay vì Tab đ di
chuyn Cursor qua Control tip theo, bn có th làm nh sau cho Textbox

txtTen:
Private Sub txtTen_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
' Nu nút bm là Enter
SendKeys "{TAB}" ' gi mo gi nút Tab
KeyAscii = 0 ' Nut trng nút Enter đ Windows không còn lo cho nó
End If
End Sub
Cho các Textbox khác nh txtDiachi, txtTuoi bn cng làm tng t nh
vy. Khi bn doubleClick txtTen ln đu đ vit mã, VB cho bn Private
Sub txtTen_Change(). Bn phi click cái Combobox bên phi, phía trên
ca Code Window, cho nó m ra và chn Event KeyPress.
Nu bn mun chng trình mình còn chuyên nghip hn, bn cho phép
ngi x dng bm nút Alt+o (bm nút Alt xung trong khi bm nút o)
đ mang Cursor v txtTuoi hay Alt+d đ mang Cursor v txtDiachi.
Mun th bn phi thêm vào du "&"  phía trc các ch T, D và o
trong Caption ca các label lblTen, lblDiachi và lblTuoi.
K đó bn phi cho giá tr TabIndex ca lblTen, txtTen, lblDiachi,
txtDiachi, lblTuoi, txtTuoi liên tip là 0,1,2,3,4,5. Khi ngi x dng
đánh Alt+o, VB s mang Cursor v nhãn lblTuoi, nhng vì không có ch
cho nó đáp trong label nên nó phi đáp vào Control k đó, tc là txtTuoi.
Khi ta đã cho TabIndex ca các Control nhng giá tr k trên thì khi Form
hin ra Cursor s nm trong TextBox txtTen vì mc du lblTen có
T HC VISUAL BASIC 6.0 - PHN I 23
TabIndex nh nht(0), nó không phi là ch Cursor đáp lên đc, nên
Cursor phi đáp lên textbox có TabIndex value k đó, tc là 1.
Nu bn không mun Cursor ngng li  mt TextBox nào thì edit
Property TabStop ca TextBox đó cho bng False. Trong trng hp y
ngi s dng vn có th click vào TextBox và sa dòng ch  đó đc
nh thng. Nu bn tht s không mun cho phép ngi s dng sa gì

 TextBox thì edit Property Enabled bng False hay Property Locked
bng True. Khi Enabled ca mt TextBox bng False thì TextBox tr nên
m đi.
Nhân tin ta edit thêm du "&"  phía trc các ch X và V trong
Caption các CommandButton "Xuat" và "Viet vao dia". Sau ny ngi s
dng có th bm Alt-X coi nh tng đng vi click nút "Xuat".
Nu nh trong Form bn có nhiu Textbox quá, đi nút Enter ra nút Tab
cho tng Textbox mt thì mt công quá. Bn có th làm mt cái chung
cho c Form. Tc là nói rng bn không cn bit nút Enter va mi đc
đánh  TextBox nào, bn c nhm mt đi nó ra nút Tab.
Trc ht bn phi chn (select) Form ri edit Property KeyPreview ca
nó thành True. Bn làm vic ny đ dn Form git cái nút ngi s dng
đánh (keystroke) trc khi TextBox thy. Form s tráo nút Enter thành
Tab ri lng lng trao cho TextBox. Bn có th thay th tt c các
KeyPress event handler ca các TextBox bng đon mã nh sau:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
' Nu nút bm là Enter
SendKeys "{TAB}" ' gi mo gi nút Tab
KeyAscii = 0 ' Nut trng nút Enter đ Windows không còn lo cho nó
End If
End Sub
Khi bn doubleClick lên bt c ch nào trên Form không có Control nm,
ln đu đ vit mã, VB cho bn Private Sub Form_Load(). Bn phi click
cái Combobox bên phi, phía trên ca Code Window, cho nó m ra và
chn Event KeyPress.
em ra trình làng
T HC VISUAL BASIC 6.0 - PHN I 24
 làm thành mt h s áp dng EXE, bn dùng mnh lnh Menu
File|Make MyFirstProg.exe. Cho thêm chút hng v ca cuc đi tôi

click Form ri edit Property Icon, chn cho nó t folder:
D:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc
mt icon hình gng mt ci. Ri bm mnh lnh Menu File|Save
Project.
Khi dùng Explorer đ xem các h s ca MyFirstProg.vbp bn s thy
nh di đây:
áng l tôi dùng mt folder khác thay vì VB98 đ cha d án
MyFirstProg.vbp. H s MyFirstProg.vbw là Workspace (ch làm vic)
dành cho VB, ta không nên đng ti.
Bn có th làm mt Shortcut cho MyFirstProg.exe vi cái icon hình
gng mt ci đt lên Desktop đ chy bên ngoài IDE ca VB.
Có l bn mun Download h s:
MyFirstProg.zip, nén chung tt c các
h s nói trên trong d án MyFirstProg.vbp.
Bây gi ngay trong VB IDE bn có th chy chng trình bng cách
dùng mnh lnh Menu Run|Start hay bm F5.
Bn cng có th Click lên du tam giác ch v bên phi (nút Play ca
cassette) nm trong toolbar ngay phía di VB menu.
T HC VISUAL BASIC 6.0 - PHN I 25

Cách nén các files trong mt folder thành mt zip file duy
nht
 gi nhiu files bng cách đính kèm (attach) mt Email trên Internet ta
cn phi nén các files y thành mt file duy nht, gi là Zip file. Trc
ht, trong Window Explorer bn chn nhng files bn mun Zip chung
li. Bn chn nhiu files bng cách đè nút Ctrl trong khi click lên tên
tng file mt. Nu bn đè lên nút Shift, thay vì nút Ctrl, thì c mi lúc
bn click, Window Explorer s select c mt dc tên các files nm gia
tên hai files bn click mi nht. Ngoài ra bn cng có th dùng Menu
Command Edit | Select All, hay Ctrl+A đ select tt c các files trong

mt folder. ây là trng hp bn s dùng khi Zip tt cc các files trong
mt VB6 project đ gi qua Thy/Cô.
Sau khi đã select các file ri, bn right click lên các file y đ context
menu pop-up. Chn Add to Zip.
Nu bn không thy pop-up command Add to Zip thì là bn cha install
chng trình Winzip. Trong trng hp y, download Winzip t Internet
và install.