Quay ra
Khóa Hàm Th Visual Basic 6.0ụ
Ch ng Hai- Vi t ch ng trnh đ u tiênươ ế ươ ầ
Bn đang làm quen v i môi tr ng tri n khai l p trnh (Integrated Developmentạ ớ ườ ể ậ
Environment - IDE) c a MS VB6 và r t nóng ru t mu n vi t nh ng dng 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 trnh Visual Basicử ạ ộ ố ấ ề ẽ ạ ế ồ ộ ươ
g m có ph n mă l p trnh và các hnh nh (visual components). B n có th thi t kồ ầ ậ ả ạ ể ế ế
ph n hnh 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 trnh b ng cách ch n Standard EXE, môi tr ngạ ắ ầ ế ế ộ ươ ằ ọ ườ
tri n khai l p trnh (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 hnh 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 hnh 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 hnh 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 hnh 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). ệ ệ
Trong hnh trên ta có ba Label và ba Textbox. Mu n s a ch Label1 ra "Ten" th edit ố ử ữ
Property Caption. Cn 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 trnh (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 hnh d i đây).ữ ặ ủ ư ướ
N u b n th y b c mnh 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ó hnhớ ạ ể ư ấ ử ổ ả ọ
gi ng nh m t cái cây (tree) cho th y ta có m t Form 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 hnh nhế ứ ả
(thí d b n dùngụ ạ Properties Window đ ch n m t icon hnh g ng m t c i làm iconể ọ ộ ươ ặ ườ
cho frmMainForm) th các hnh 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 trnh. Tuyế ứ ả ố ư ủ ạ ươ
nhiên b n nên dùng cùng m t tên cho c hai đ sau n y d tm 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 cn l i là mă l p trnh 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) hnh nh c a Form. ả ể ế ậ ạ ả ủ
Sau n y, khi đă lăo luy n VB, b n có th dùng m t ch ng trnh 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 trnh kh i đ uỹ ậ ủ ể ế ộ ố ươ ở ầ
cho chúng ta t các b ng k m (Template).ừ ả ẻ
Thêm mă l p trnh đ x l m t s c ậ ể ử ư ộ ự ố
H u h t l p trnh trong Visual Basic là vi t mă đ x l các s c (Event). Thí dầ ế ậ ế ể ử ư ự ố ụ
mu n ch m d t ch ng trnh, 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 trnh 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: ẽ ế ẵ ạ ỏ ủ ộ
Private Sub cmdXuat_Click()
End ' B n ch vi t thêm dng n y đ k t thúc ch ng trnhạ ỉ ế ầ ể ế ươ
End Sub