Giáo án - Bài giảng: Giáo trình đào tạo visual basic FPT

Requested Range Not Satisfiable None of the range-specifier values in the Range request-header field overlap the current extent of the selected resource Apache/2.2.15 (CentOS) Server at tailieuhoctap.vn Port 80 i%j%(ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)ﾀ)F/?￾//0
0
0
0
0
0
0
0
0
?￾?￾[ﾀ ?￾ﾀﾀ?￾bjbj ﾀ?￾ ﾀΐ
ΐ
R?￾?￾ﾀUUﾀ ﾀ ﾀ t!!!?￾?￾ ﾀy5?￾!ﾀ?￾MN ﾀ dLWdWdmdl ﾀ,ﾀﾀ\ﾀ 0
xxxxxxx$ﾀﾀﾀﾀV7xqﾀ ?￾ﾀ k|l?￾?￾7xUUWdmdﾀﾀ.ﾀﾀﾀ?￾H U?￾ Wdﾀ mdxﾀ?￾xﾀﾀﾀG C ^imd@ﾀ ﾀ?￾?￾!?￾%S$?￾֎HﾀIT?￾ﾀ?￾< ﾀDiﾀﾀ 5i?￾H ﾀﾀ?￾ﾀ ﾀﾀ?￾$ ?￾?￾H ﾀ H ﾀ H ﾀ 7x7xR?￾H H ﾀ H ﾀ H ﾀﾀ?￾?￾?￾?￾ﾀH ﾀ H ﾀ H ﾀ H ﾀ H ﾀ H ﾀ H ﾀ H ﾀ H ﾀ : M?￾c l?￾c TOC \o "1-3" M?￾c l?￾c PAGEREF _Toc6394115 \h L?￾m quen v?￾i visual basic 6.0
PAGEREF _Toc6394116 \h 2.1 X?￾y d?￾ng ?￾ng d?￾ng ban ﾀu PAGEREF _Toc6394117 \h 2.1.1 Viﾀt ?￾ ng d?￾ng ban ﾀu PAGEREF _Toc6394118 \h 2.1.2 X?￾y d?￾ng t?￾nh nng Calendar PAGEREF _Toc6394119 \h 2.1.3 Th?￾m t?￾nh nng Clock PAGEREF _Toc6394120
\h 11 2.2 C?￾c t?￾nh nng m?￾i Visual basic 6.0
PAGEREF _Toc6394121 \h 11 2.2.1 Kh?￾i qu?￾t v ﾀn t ﾀt v?￾ Visual basic 6.0
PAGEREF _Toc6394122 \h 11 2.2.2 Khai th?￾c thﾀ m ﾀnh c?￾a c?￾c i?￾u khi?￾n m?￾ r?￾ng PAGEREF _Toc6394123 \h 12 2.3 L?￾m vi?￾c v?￾i m?￾i tr ﾀ?￾ng l ﾀp tr?￾nh Visual basic PAGEREF _Toc6394124 \h 12 2.3.1 T?￾m hi?￾u c?￾c ph ﾀn c?￾a IDE PAGEREF _Toc6394125 \h 12 2.3.2 Th?￾m v?￾ xo?￾ c?￾c c?￾ ng c?￾ IDE c?￾a Visual basic PAGEREF _Toc6394126 \h 13 2.3.3 Th?￾m c?￾c i?￾u khi?￾n v?￾o h?￾p c?￾ng c?￾ PAGEREF _Toc6394127 \h 14 2.3.4 ?￾nh h ﾀ?￾ng th?￾ng qua c?￾a s?￾ form v?￾ code PAGEREF _Toc6394128 \h 14 2.3.5 Qu ﾀn l?￾ ?￾ng d?￾ng v?￾i project explorer PAGEREF _Toc6394129 \h 14 2.3.6 C?￾a s?￾ properties PAGEREF _Toc6394130
\h 14 2.3.7 Hi?￾n th?￾ IDE PAGEREF _Toc6394131 \h 14 2.3.8 Tr?￾ gi?￾p PAGEREF _Toc6394132 \h 15 T?￾m hi?￾u Visual basic PAGEREF _Toc6394133 \h 16 3.1 Thu?￾c t?￾nh ph ﾀﾀng th?￾c v?￾ s?￾ ki?￾n PAGEREF _Toc6394134 \h 16 3.1.1 ?￾i t ﾀ?￾ng PAGEREF _Toc6394135 \h 16 3.1.2 Thu?￾c t?￾nh PAGEREF _Toc6394136 \h 16 3.1.3 Ph ﾀﾀng th?￾c PAGEREF _Toc6394137 \h 17 3.1.4 S?￾ ki?￾n PAGEREF _Toc6394138 \h 18 3.1.5 M?￾i quan h?￾ gi?￾a ph ﾀﾀng th?￾c, thu?￾c t?￾nh v?￾ s?￾ ki?￾n PAGEREF _Toc6394139 \h 18 3.1.6 C?￾a s?￾ Properties PAGEREF _Toc6394140
\h 19 3.1.7 Viﾀt ch ﾀﾀng tr?￾nh s?￾ d?￾ng thu?￾c t?￾nh, ph ﾀﾀng th?￾c v?￾ s?￾ ki?￾n PAGEREF _Toc6394141 \h 20
3.2 L?￾m vi?￾c v?￾i m?￾t ?￾ ?￾n PAGEREF _Toc6394142 \h 24 3.2.1 ?￾nh ngh)a PAGEREF _Toc6394143 \h 24 3.2.2 C?￾a s?￾ Project Explorer PAGEREF _Toc6394144 \h 25 3.2.3 T ﾀo ?￾ ?￾n PAGEREF _Toc6394145 \h 25 3.2.4 ?￾i thu?￾c t?￾nh ?￾ ?￾n PAGEREF _Toc6394146 \h 25 3.2.5 L ﾀu v?￾ ﾀt t?￾n ?￾ ?￾n PAGEREF _Toc6394147 \h 26 3.2.6 M?￾ ?￾ ?￾n c?￾ s ﾀn PAGEREF _Toc6394148 \h 26 3.2.7 Th?￾m xo?￾ v?￾ l ﾀu t ﾀp tin ?￾ ?￾n PAGEREF _Toc6394149 \h 27 3.2.8 Th?￾m i?￾u khi?￾n v?￾o ?￾ ?￾n PAGEREF _Toc6394150
\h 29 3.2.9 T ﾀo t?￾p tin EXE PAGEREF _Toc6394151 \h 30
3.2.10
S?￾a ?￾i thu?￾c t?￾nh ?￾ ?￾n PAGEREF _Toc6394152 \h 31 3.3 L?￾m vi?￾c v?￾i nhi?￾u ?￾ ?￾n PAGEREF _Toc6394153 \h 32 3.3.1 S?￾ d?￾ng Project Group PAGEREF _Toc6394154 \h 32 3.3.2 Th?￾m ?￾ ?￾n v?￾o nh?￾m ?￾ ?￾n PAGEREF _Toc6394155 \h 32 3.3.3 Xo?￾ ?￾ ?￾n nh?￾m ?￾ ?￾n PAGEREF _Toc6394156 \h 33 L?￾m vi?￾c v?￾i c?￾c i?￾u khi?￾n PAGEREF _Toc6394157 \h 34 4.1 C?￾c lo ﾀi i?￾u khi?￾n PAGEREF _Toc6394158 \h 34 4.1.1 Thao t?￾c v?￾i i?￾u khi?￾n PAGEREF _Toc6394159 \h 34 4.2 C?￾c i?￾u khi?￾n n?￾i t ﾀi PAGEREF _Toc6394160
\h 37 4.2.1 N?￾t l?￾nh PAGEREF _Toc6394161 \h 37 4.2.2 H?￾p b ﾀn PAGEREF _Toc6394162 \h 38 4.2.3 i?￾u khi?￾n cu?￾n PAGEREF _Toc6394163 \h 38 4.2.4 i?￾u khi?￾ n Timer PAGEREF _Toc6394164 \h 39 4.2.5 i?￾u khi?￾n nh?￾n PAGEREF _Toc6394165 \h 39 4.2.6 Checkbox: EMBED PBrush PAGEREF _Toc6394166 \h 39 4.2.7 M?￾t s?￾ thu?￾c tinh th?￾ng d?￾ng: PAGEREF _Toc6394167 \h 39 4.2.8 4.2.9 H?￾p danh s?￾ch (Listbox) PAGEREF _Toc6394168 \h 39 4.3 C?￾c i?￾u khi?￾n M ?￾i PAGEREF _Toc6394169 \h 40
Nh ﾀp m?￾n l ﾀp tr?￾nh PAGEREF _Toc6394170
\h 41 5.1 Chu ﾀn l ﾀp tr?￾nh (Coding convention) PAGEREF _Toc6394171 \h 41 5.1.1 Coding conventions PAGEREF _Toc6394172 \h 41 5.1.2 Form design standard PAGEREF _Toc6394173 \h 46 5.1.3 Report design standard (for Crystal Report) PAGEREF _Toc6394174 \h 49 5.1.4 Database design standards PAGEREF _Toc6394175 \h 50
5.2 Thiﾀt kﾀ tr ﾀ?￾c viﾀt ch ﾀﾀng tr?￾nh PAGEREF _Toc6394176 \h 51 5.3 C?￾c thao t?￾c th?￾ng d?￾ng c?￾a s?￾ Code PAGEREF _Toc6394177 \h 51 5.3.1 So ﾀn th ﾀo Code PAGEREF _Toc6394178 \h 51 5.3.2 M?￾t s?￾ ch?￾c nng t?￾ ?￾ng PAGEREF _Toc6394179 \h 52 5.4 Biﾀn h ﾀng v?￾ c?￾c ki?￾u d?￾ li?￾u PAGEREF _Toc6394180
\h 52 5.4.1 Khai b?￾o biﾀn PAGEREF _Toc6394181 \h 52 5.4.2 Khai b?￾o ng ﾀm PAGEREF _Toc6394182 \h 52 5.4.3 Khai b?￾o t ﾀ?￾ng minh PAGEREF _Toc6394183 \h 53 5.4.4 Khai b?￾o biﾀn Static PAGEREF _Toc6394184 \h 53 5.4.5 H ﾀng PAGEREF _Toc6394185 \h 53 5.5 H?￾m v?￾ th?￾ t?￾c PAGEREF _Toc6394186 \h 60
5.6 C ﾀu tr?￾c i?￾u khi?￾ n PAGEREF _Toc6394187 \h 61 5.6.1 C ﾀu tr?￾c ch?￾n PAGEREF _Toc6394188 \h 61 5.6.2 C ﾀu tr?￾c l ﾀp PAGEREF _Toc6394189 \h 62 5.6.3 L?￾m vi?￾c v?￾i c ﾀu tr?￾c PAGEREF _Toc6394190
\h 63 5.7 G?￾ r?￾i ch ﾀﾀng tr?￾nh PAGEREF _Toc6394191 \h 63 5.7.1 M?￾t s?￾ gi ﾀi ph?￾p gi ﾀm l?￾i PAGEREF _Toc6394192 \h 63 5.7.2 G?￾ r?￾i PAGEREF _Toc6394193 \h 64 5.8 B ﾀy l?￾i PAGEREF _Toc6394194 \h 65 5.8.1 L?￾nh On Error PAGEREF _Toc6394195 \h 65 5.8.2 Kﾀt th?￾c b ﾀy l?￾i PAGEREF _Toc6394196 \h 65 L ﾀp tr?￾nh x?￾ l?￾ giao di?￾n PAGEREF _Toc6394197 \h 66 6.1 Menu PAGEREF _Toc6394198 \h 66 6.1.1 D?￾ng tr?￾nh so ﾀn th ﾀo menu ?￾ t ﾀo menu PAGEREF _Toc6394199 \h 66 6.1.2 Viﾀt ch ﾀﾀng tr?￾nh i?￾u khi?￾n menu PAGEREF _Toc639420
0
\h 67 6.2 H?￾p tho ﾀi PAGEREF _Toc639420
1 \h 67 6.2.1 Th?￾ng i?￾p(Message box) PAGEREF _Toc639420
2 \h 67 6.2.2 H?￾p nh ﾀp(Input box) PAGEREF _Toc639420
3 \h 68 6.2.3 C?￾c h?￾p tho ﾀi th?￾ng d?￾ng(Common dialog) PAGEREF _Toc639420
4 \h 68 6.2.4 H?￾p tho ﾀi hi?￾u ch?￾nh PAGEREF _Toc639420
5 \h 69 6.3 Thanh c?￾ng c?￾(ToolBar) PAGEREF _Toc639420
6 \h 69 6.3.1 Trong ?￾ng d?￾ng ﾀn gi ﾀn PAGEREF _Toc639420
7 \h 69 6.3.2 Nh?￾ng ?￾i t ﾀ?￾ng PAGEREF _Toc639420
8 \h 69 6.4 Thanh tr ﾀng th?￾i PAGEREF _Toc639420
9 \h 69 6.5 X?￾ l?￾ chu?￾t v?￾ b?￾n ph?￾m PAGEREF _Toc6394210
\h 70
6.5.1 s?￾ ki?￾ n chu?￾t PAGEREF _Toc6394211 \h 70
6.5.2 Hi?￾u ch?￾nh tr?￾ chu?￾t PAGEREF _Toc6394212 \h 70
6.5.3 S?￾ ki?￾n b?￾n ph?￾m PAGEREF _Toc6394213 \h 70
X?￾ l?￾ t ﾀp tin PAGEREF _Toc6394214 \h 72 7.1 M?￾ h?￾nh FSO(File System Object model) PAGEREF _Toc6394215 \h 72 7.2 X?￾ l?￾ c?￾c t ﾀp tin v?￾i c?￾c d?￾ng l?￾nh v?￾ h?￾m I/O c?￾ i?￾n PAGEREF _Toc6394216 \h 72 7.2.1 C?￾c ki?￾u truy c ﾀp t ﾀp tin PAGEREF _Toc6394217 \h 72 7.3 C?￾c i?￾u khi?￾n tr?￾n h?￾ th?￾ng t ﾀp tin PAGEREF _Toc6394218 \h 75 7.3.1 H?￾p danh s?￾ch ?￾ )a PAGEREF _Toc6394219 \h 75 7.3.2 H?￾p danh s?￾ch th ﾀ m?￾c PAGEREF _Toc6394220
\h 75 7.3.3 H?￾p danh s?￾ch t ﾀp tin PAGEREF _Toc6394221 \h 76 7.4 i?￾u khi?￾n richtextbox PAGEREF _Toc6394222 \h 76 7.4.1 Ph ﾀﾀng th?￾c loadfile PAGEREF _Toc6394223 \h 77 7.4.2 Ph ﾀﾀng th?￾c savefile PAGEREF _Toc6394224 \h 77 S?￾ d?￾ng DLL v?￾ Windows API PAGEREF _Toc6394225 \h 78 8.1 DLL v?￾ c ﾀu tr?￾c c?￾a Windows PAGEREF _Toc6394226 \h 78 8.1.1 C?￾c h?￾p tho ﾀi th?￾ng d?￾ng PAGEREF _Toc6394227 \h 78 8.2 WIN API PAGEREF _Toc6394228 \h 79 8.3 S?￾ d?￾ng API PAGEREF _Toc6394229 \h 80
8.3.1 T?￾m kiﾀm API PAGEREF _Toc6394230
\h 80
8.3.2 C?￾c DLL c?￾a Windows PAGEREF _Toc6394231 \h 80
8.3.3 G?￾i API PAGEREF _Toc6394232 \h 81 8.4 D?￾ng API khai th?￾c kh ﾀ nng Multimedia PAGEREF _Toc6394233 \h 84 8.4.1 L?￾p multimedia PAGEREF _Toc6394234 \h 84 Th?￾m tr?￾ gi?￾p v?￾o ?￾ng d?￾ng PAGEREF _Toc6394235 \h 96 9.1 Th?￾m h?￾ tr?￾ cho Help PAGEREF _Toc6394236 \h 96 9.1.1 Thu?￾c t?￾nh HelpFile PAGEREF _Toc6394237 \h 96 9.1.2 Thu?￾c t?￾nh HelpContextID PAGEREF _Toc6394238 \h 96 9.2 Th?￾m h?￾ tr?￾ cho WHAT S THIS HELP PAGEREF _Toc6394239 \h 97 9.2.1 K?￾ch ho ﾀt What s This Help cho bi?￾u m ﾀu PAGEREF _Toc6394240
\h 97 9.3 Cung c ﾀp help c?￾ng v?￾i ?￾ng d?￾ng PAGEREF _Toc6394241 \h 98 9.3.1 Cung c ﾀp WinHelp PAGEREF _Toc6394242 \h 98 9.3.2 Cung c ﾀp HTML Help PAGEREF _Toc6394243 \h 98 10
L ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng PAGEREF _Toc6394244 \h 99 10
.1 Gi?￾i thi?￾u v?￾ ?￾i t ﾀ?￾ng PAGEREF _Toc6394245 \h 99 10
.1.1 ?￾i t ﾀ?￾ng VB PAGEREF _Toc6394246 \h 10
0
10
.1.2 Modul L?￾p PAGEREF _Toc6394247 \h 10
0
10
.1.3 Tham s?￾ tu?￾ ch?￾n PAGEREF _Toc6394248 \h 10
5 10
.1.4 S?￾ ki?￾n c?￾a l?￾p PAGEREF _Toc6394249 \h 10
6 10
.1.5 Hu?￾ ?￾i t ﾀ?￾ng PAGEREF _Toc6394250
\h 10
7 10
.2 Biﾀn ?￾i t ﾀ?￾ng PAGEREF _Toc6394251 \h 10
8 10
.2.1 T ﾀo i?￾u khi?￾n l?￾c thi h?￾nh PAGEREF _Toc6394252 \h 10
8 10
.2.2 S?￾ ki?￾n c?￾a m ﾀng i?￾u khi?￾n PAGEREF _Toc6394253 \h 10
9 10
.2.3 Qu ﾀn l?￾ i?￾u khi?￾n nh ﾀ biﾀn ?￾i t ﾀ?￾ng PAGEREF _Toc6394254 \h 110
10
.2.4 Khai b?￾o biﾀn ?￾i t ﾀ?￾ng PAGEREF _Toc6394255 \h 112 10
.3 T ﾀp h?￾p PAGEREF _Toc6394256 \h 114 10
.3.1 Thu?￾c t?￾nh Controls PAGEREF _Toc6394257 \h 114 10
.3.2 X?￾c ?￾nh i?￾u khi?￾n tr?￾n bi?￾u m ﾀu PAGEREF _Toc6394258 \h 114 10
.4 Bi?￾u m ﾀu MDI PAGEREF _Toc6394259 \h 117 10
.4.1 Bi?￾u m ﾀu (Child Form) PAGEREF _Toc6394260
\h 117 10
.4.2 T ﾀo Instance c?￾a bi?￾u m ﾀu PAGEREF _Toc6394261 \h 117 10
.4.3 X?￾c ?￾nh bi?￾u m ﾀu PAGEREF _Toc6394262 \h 118 10
.4.4 T ﾀo danh s?￾ch c?￾a s?￾ PAGEREF _Toc6394263 \h 118 11 C?￾ng c?￾ VB6 PAGEREF _Toc6394264 \h 120
11.1 ADD-INS PAGEREF _Toc6394265 \h 120
11.2 C?￾c c?￾ng c?￾ ADD-INS PAGEREF _Toc6394266 \h 120
11.2.1 Tr?￾nh c?￾i ﾀt ?￾ng d?￾ng PAGEREF _Toc6394267 \h 120
11.2.2 Tr?￾nh ?￾i t ﾀ?￾ ng d?￾ li?￾u t?￾ ?￾ng PAGEREF _Toc6394268 \h 120
11.2.3 Tr?￾nh x?￾y d?￾ng d?￾ li?￾u t?￾ ?￾ng PAGEREF _Toc6394269 \h 121 11.2.4 Tr?￾nh thiﾀt kﾀ Add-ins t?￾ ?￾ng PAGEREF _Toc6394270
\h 122 11.2.5 Tr?￾ nh thiﾀt kﾀ t?￾ ?￾ng PAGEREF _Toc6394271 \h 122 11.2.6 Ti?￾n ?￾ch x?￾y d?￾ng l?￾p PAGEREF _Toc6394272 \h 123 11.2.7 Tr?￾nh t ﾀo c?￾ng c?￾ t?￾ ?￾ng PAGEREF _Toc6394273 \h 123 11.3 Tr?￾nh ?￾ng g?￾i v?￾ tri?￾n khai ?￾ng d?￾ng PAGEREF _Toc6394274 \h 124 11.3.1 Ph?￾t h?￾nh ?￾ng d?￾ng PAGEREF _Toc6394275 \h 124 11.3.2 Tr?￾nh ?￾ng g?￾i v?￾ tri?￾n khai ?￾ng d?￾ng PAGEREF _Toc6394276 \h 124 11.3.3 M?￾ tr?￾nh ?￾ng g?￾i v?￾ tri?￾n khai VB PAGEREF _Toc6394277 \h 124 11.3.4 M?￾ tr?￾nh ?￾ng g?￾i v?￾ tri?￾ n khai nh ﾀ m?￾t ?￾ng d?￾ng ?￾c l ﾀp PAGEREF _Toc6394278 \h 124 11.3.5 Thi h?￾nh Wizard d ﾀ?￾i chﾀ ?￾ silent PAGEREF _Toc6394279 \h 125 11.3.6 Setup toolkit PAGEREF _Toc6394280
\h 125 11.4 B?￾i t ﾀp PAGEREF _Toc6394281 \h 126 12 Nh?￾ng kh?￾i ni?￾m c ﾀ b ﾀn v?￾ CSDL PAGEREF _Toc6394282 \h 127 12.1 C ﾀ s?￾ d?￾ li?￾u l?￾ g?￾?￾ PAGEREF _Toc6394283 \h 127 12.1.1 B?￾ m?￾y (Engine) c ﾀ s?￾ d?￾ li?￾u l?￾ g?￾?￾ PAGEREF _Toc6394284 \h 127 12.1.2 B ﾀn v?￾ tr ﾀ?￾ng PAGEREF _Toc6394285 \h 128 12.1.3 Recordset l?￾ g?￾ ?￾ PAGEREF _Toc6394286 \h 129 12.1.4 C?￾c ki?￾u c ﾀ s?￾ d?￾ li?￾u PAGEREF _Toc6394287 \h 129 12.1.5 T ﾀo l ﾀ?￾c ?￾ c ﾀ s?￾ d?￾ li?￾u PAGEREF _Toc6394288 \h 130
12.1.6 D?￾ng Visual Basic ?￾ t ﾀo m?￾t c ﾀ s?￾ d?￾ li?￾u PAGEREF _Toc6394289 \h 130
12.1.7 C?￾c m?￾i quan h?￾ PAGEREF _Toc6394290
\h 140
12.1.8 Chu ﾀn ho?￾ PAGEREF _Toc6394291 \h 141 12.2 S?￾ d?￾ng c?￾ a s?￾ xem d?￾ li?￾u PAGEREF _Toc6394292 \h 143 12.3 T ﾀo tr?￾nh thiﾀt kﾀ m?￾i tr ﾀ?￾ng d?￾ li?￾u PAGEREF _Toc6394293 \h 145 12.3.1 T ﾀo m?￾t giao di?￾n ng ﾀ?￾i s?￾ d?￾ng v?￾i thiﾀt kﾀ DATAENVIRONMENT PAGEREF _Toc6394294 \h 146 12.4 S?￾ d?￾ng i?￾u khi?￾n d?￾ li?￾u ?￾ t ﾀo giao di?￾ n ng ﾀ?￾i s?￾ d?￾ng PAGEREF _Toc6394295 \h 147 12.4.1 Kﾀt n?￾i v?￾i m?￾t c ﾀ s?￾ d?￾ li?￾u v?￾ l?￾m vi?￾c v?￾i c?￾c m ﾀu tin PAGEREF _Toc6394296 \h 148 12.4.2 T ﾀo m?￾t giao di?￾n ng ﾀ?￾i s?￾ d?￾ng c ﾀ b ﾀn PAGEREF _Toc6394297 \h 150
12.4.3 Thao t?￾c tr?￾n c?￾c m ﾀu tin th?￾ng qua i?￾u khi?￾n ADO Data PAGEREF _Toc6394298 \h 151 12.4.4 C?￾c thu?￾c t?￾nh quan tr?￾ng kh?￾c c?￾a i?￾u khi?￾n ADO DATA PAGEREF _Toc6394299 \h 155 12.5 T?￾ng kﾀt PAGEREF _Toc639430
0
\h 156 12.6 H?￾i v?￾ ?￾p PAGEREF _Toc639430
1 \h 157 13 C?￾c ?￾i t ﾀ?￾ng truy c ﾀp d?￾ li?￾u PAGEREF _Toc639430
2 \h 158 13.1 S?￾ d?￾ng m?￾ h?￾nh ?￾i t ﾀ?￾ng DAO PAGEREF _Toc639430
3 \h 158 13.1.1 L ﾀp tr?￾nh v?￾i ?￾i t ﾀ?￾ng PAGEREF _Toc639430
4 \h 160
13.1.2 S?￾ d?￾ng i?￾u khi?￾n DAO Data PAGEREF _Toc639430
5 \h 160
13.1.3 S?￾ d?￾ng thu?￾c t?￾nh Connect c?￾a i?￾u khi?￾n DAO Data ?￾ truy c ﾀp ngu?￾n d?￾ li?￾u b?￾n ngo?￾i PAGEREF _Toc639430
6 \h 160
13.2 S?￾ d?￾ng DAO ?￾ l?￾m vi?￾c v?￾i d?￾ li?￾u PAGEREF _Toc639430
7 \h 161 13.2.1 D?￾ng ?￾i t ﾀ?￾ng DataBase ?￾ kﾀt n?￾i v?￾i m?￾t CSDL PAGEREF _Toc639430
8 \h 161 13.2.2 S?￾ d?￾ng ?￾i t ﾀ?￾ng Recordset PAGEREF _Toc639430
9 \h 162 13.2.3 Ch?￾ c?￾c tu?￾ ch?￾n cho Recordset PAGEREF _Toc6394310
\h 163 13.3 S?￾ d?￾ng ?￾i t ﾀ?￾ng Field ?￾ thao t?￾c v?￾i c?￾c tr ﾀ?￾ng PAGEREF _Toc6394311 \h 163 13.4 S?￾d?￾ng c?￾c ph ﾀﾀng th?￾c duy?￾t v?￾i ?￾i t ﾀ?￾ng Recorset PAGEREF _Toc6394312 \h 164 13.4.1 S?￾ d?￾ng BOF v?￾ EOF ?￾ duy?￾t qua Recordset PAGEREF _Toc6394313 \h 164 13.4.2 D?￾ng BOF v?￾ EOF ?￾ x?￾c ?￾nh m?￾t Recordset c?￾ r?￾ng hay kh?￾ng PAGEREF _Toc6394314 \h 164 13.4.3 D?￾ng thu?￾c t?￾nh RecordCout ?￾ x?￾c ?￾nh s?￾ m ﾀu tin m?￾t recordset PAGEREF _Toc6394315 \h 165 13.4.4 D?￾ng ph ﾀﾀng th?￾c Edit ?￾ s?￾a ?￾i gi?￾ tr?￾ m?￾t m ﾀu tin PAGEREF _Toc6394316 \h 165 13.4.5 S?￾ d?￾ng ph ﾀﾀng th?￾c AddNew v?￾ Update ?￾ t ﾀo m ﾀu tin m?￾i PAGEREF _Toc6394317 \h 166 13.4.6 S?￾ d?￾ng AppendChunk ?￾ n?￾i d?￾ li?￾u v?￾o m?￾t tr ﾀ?￾ng nh?￾ ph?￾n PAGEREF _Toc6394318 \h 167 13.4.7 S?￾ d?￾ng ph ﾀﾀng th?￾c Close ?￾ ?￾ng Recordset PAGEREF _Toc6394319 \h 168 13.5 T?￾m kiﾀm d?￾ li?￾u Recordset v?￾ b ﾀng PAGEREF _Toc6394320
\h 168 13.5.1 S?￾ d?￾ng ph ﾀﾀng th?￾c Find ?￾ ?￾nh v?￾ m ﾀu tin m?￾t recordset PAGEREF _Toc6394321 \h 168 13.5.2 S?￾ d?￾ ng ph ﾀﾀng th?￾c Seek ?￾ thi h?￾nh t?￾m kiﾀm theo ch?￾ m?￾c PAGEREF _Toc6394322 \h 169 13.5.3 L ﾀp qua su?￾t t ﾀp h?￾p Indexes c?￾a TableDef PAGEREF _Toc6394323 \h 170
13.5.4 S?￾ d?￾ng thu?￾c t?￾nh Bookmark ?￾ ghi nh?￾ v?￾ tr?￾ m?￾t Recordset PAGEREF _Toc6394324 \h 171 13.5.5 s?￾ d?￾ng t ﾀp h?￾p Errors v?￾ ?￾i t ﾀ?￾ng Error ?￾ x?￾ l?￾ l?￾i PAGEREF _Toc6394325 \h 171 13.6 T ﾀo ?￾i t ﾀ?￾ng ?￾ thao t?￾c tr?￾n c ﾀu tr?￾c c?￾a m?￾t CSDL PAGEREF _Toc6394326 \h 172 13.6.1 T ﾀo m?￾t CSDL PAGEREF _Toc6394327 \h 172 13.6.2 S?￾ d?￾ng ?￾i t ﾀ?￾ng TableDef ?￾ thao t?￾c v?￾i b ﾀng PAGEREF _Toc6394328 \h 173 13.7 L?￾m vi?￾c v?￾i t?￾i li?￾u v?￾ n ﾀi ch?￾a CSDL PAGEREF _Toc6394329 \h 178 13.8 T ﾀo v?￾ s?￾ d?￾ng c?￾c thu?￾c t?￾nh hi?￾u ch?￾nh c?￾a ?￾i t ﾀ?￾ng DataBase PAGEREF _Toc6394330
\h 179 13.9 T?￾ng kﾀt PAGEREF _Toc6394331 \h 180
13.10
H?￾i v?￾ ?￾p PAGEREF _Toc6394332 \h 181 14 Thiﾀt l ﾀp b?￾o c?￾o v?￾ Xu ﾀt th?￾ng tin PAGEREF _Toc6394333 \h 182 14.1 S?￾ d?￾ng thiﾀt kﾀ DataReport PAGEREF _Toc6394334 \h 182 14.1.1 Thiﾀt kﾀ v?￾i DataReport PAGEREF _Toc6394335 \h 183 14.1.2 Xem v?￾ xu ﾀt DataReport PAGEREF _Toc6394336 \h 185 14.2 S?￾ d?￾ng Microsoft Access ?￾ l?￾m b?￾o c?￾o PAGEREF _Toc6394337 \h 185 14.2.1 Thi h?￾nh b?￾o c?￾o c?￾a Access t?￾ Visual Basic PAGEREF _Toc6394338 \h 185 14.3 S?￾ d?￾ng Crystal report ?￾ l ﾀp b?￾o c?￾o PAGEREF _Toc6394339 \h 190
14.3.1 C?￾i ﾀt Crystal Reports PAGEREF _Toc6394340
\h 190
14.3.2 D?￾ng Crystal Reports t ﾀo b?￾o c?￾o PAGEREF _Toc6394341 \h 191 14.3.3 Thi h?￾nh b?￾o c?￾o ?￾ng d?￾ng v?￾i i?￾u khi?￾n ActiveX c?￾a Crystal Reports PAGEREF _Toc6394342 \h 193 14.3.4 S?￾ d?￾ng b ﾀn m?￾i h ﾀn c?￾a Crystal Reports PAGEREF _Toc6394343 \h 193 15 ODBC v?￾ c?￾c ?￾i t ﾀ?￾ng d?￾ li?￾u t?￾ xa PAGEREF _Toc6394344 \h 194 15.1 ?￾nh c ﾀu h?￾nh v?￾ s?￾ d?￾ng ODBC PAGEREF _Toc6394345 \h 194 15.1.1 Kiﾀn tr?￾c c?￾a ODBC PAGEREF _Toc6394346 \h 194 15.1.2 T ﾀo ngu?￾n d?￾ li?￾u PAGEREF _Toc6394347 \h 194 15.1.3 Truy c ﾀp ngu?￾n d?￾ li?￾u v?￾i i?￾u khi?￾n DAO DATA v?￾ ODBCDIRECT PAGEREF _Toc6394348 \h 197 15.2 Truy c ﾀp d?￾ li?￾u d?￾ng i?￾u khi?￾n d?￾ li?￾u t?￾ xa PAGEREF _Toc6394349 \h 198 15.2.1 S?￾ d?￾ng RDC PAGEREF _Toc6394350
\h 198 15.3 S?￾ d?￾ng RDO ch ﾀﾀng tr?￾nh PAGEREF _Toc6394351 \h 199 15.3.1 Quy ?￾nh thu?￾c t?￾nh b?￾ m?￾y c ﾀ s?￾ d?￾ li?￾u d?￾ng ?￾i t ﾀ?￾ng RDOENGINE PAGEREF _Toc6394352 \h 20
0
15.3.2 Truy c ﾀp m?￾i tr ﾀ?￾ng ?￾i t ﾀ?￾ng rdoEnvironment PAGEREF _Toc6394353 \h 20
0
15.3.3 Thiﾀt l ﾀp kﾀt n?￾i d?￾ng ?￾i t ﾀ?￾ng rdoConnection PAGEREF _Toc6394354 \h 20
1 15.3.4 ?￾p ?￾ng s?￾ ki?￾n RDO PAGEREF _Toc6394355 \h 20
3 15.4 T ﾀo kﾀt n?￾I v?￾i tr?￾nh thiﾀt kﾀ uerconnecttion PAGEREF _Toc6394356 \h 20
4 15.5 Truy c ﾀp truy v ﾀn v?￾i tr?￾ ng thiﾀt kﾀ UserConnection PAGEREF _Toc6394357 \h 20
6 15.5.1 G?￾i th?￾ t?￾c ch?￾a s ﾀn m?￾t tr?￾ nh thiﾀt kﾀ UserConnection PAGEREF _Toc6394358 \h 20
6 15.5.2 D?￾ng Microsotf Query ?￾ x?￾y d?￾ng chu?￾i SQL tr?￾nh thiﾀt kﾀ UserConnection PAGEREF _Toc6394359 \h 20
8 15.6 S?￾ d?￾ng d?￾ li?￾u v?￾i ?￾i t ﾀ?￾ng rdorerultset PAGEREF _Toc6394360
\h 20
9 15.7 Thi h?￾nh truy v ﾀn v?￾i ?￾i t ﾀ?￾ng rdoQuery PAGEREF _Toc6394361 \h 20
9 16 Truy c ﾀp c ﾀ s?￾ d?￾ li?￾u v?￾i l?￾p PAGEREF _Toc6394362 \h 211 16.1 L?￾m vi?￾c v?￾i l?￾p v?￾ ?￾i t ﾀ?￾ng PAGEREF _Toc6394363 \h 212 16.1.1 T ﾀo c?￾y ph?￾n nh?￾nh l?￾p v?￾i ti?￾n ?￾ch x?￾y d?￾ng l?￾p PAGEREF _Toc6394364 \h 212 16.1.2 S?￾ d?￾ng bi?￾u m ﾀu nh ﾀ l?￾p PAGEREF _Toc6394365 \h 216 16.2 T ﾀo Intance b?￾i cho bi?￾u m ﾀu PAGEREF _Toc6394366 \h 218 16.2.1 S?￾ d?￾ng l?￾p v?￾ ?￾i t ﾀ?￾ng truy c ﾀp c ﾀ s?￾ d?￾ li?￾u PAGEREF _Toc6394367 \h 218 16.3 T ﾀo c?￾c l?￾p c ﾀn s?￾ d?￾ng d?￾ li?￾u PAGEREF _Toc6394368 \h 221 16.3.1 T ﾀo l?￾p xu ﾀt d?￾ li?￾u PAGEREF _Toc6394369 \h 223 16.3.2 Tri?￾n khai l?￾p th?￾nh Active Server PAGEREF _Toc6394370
\h 224 16.4 T?￾ ng kﾀt PAGEREF _Toc6394371 \h 229 17 Truy c ﾀp d?￾ li?￾u t?￾ xa PAGEREF _Toc6394372 \h 230
17.1 Client / Server v?￾ c?￾c th?￾nh ph ﾀn PAGEREF _Toc6394373 \h 230
17.1.1 C ﾀu tr?￾c Cilent/Server Three- Tier PAGEREF _Toc6394374 \h 230
17.2 PAGEREF _Toc6394375 \h 251 18 ?￾i t ﾀ?￾ng d?￾ li?￾u ActiveX PAGEREF _Toc6394376 \h 252 18.1 X?￾y d?￾ng ?￾ng d?￾ng Visual basic v?￾i ADO PAGEREF _Toc6394377 \h 252 18.1.1 T?￾m hi?￾u c ﾀu tr?￾c OLE DB / ADO PAGEREF _Toc6394378 \h 252 18.1.2 C?￾i ﾀt v?￾ thiﾀt l ﾀp tham chiﾀu ﾀn ADO ?￾ng d?￾ng Visual basic PAGEREF _Toc6394379 \h 253 18.1.3 S?￾ d?￾ng ADO v?￾i c?￾c th ﾀ vi?￾n ?￾i t ﾀ?￾ng truy c ﾀp d?￾ li?￾u kh?￾c PAGEREF _Toc6394380
\h 254 18.1.4 D?￾ng ?￾i t ﾀ?￾ng connection c?￾a ADO ?￾ kﾀt n?￾i v?￾i ngu?￾n d?￾ li?￾u PAGEREF _Toc6394381 \h 254 18.1.5 L?￾m vi?￾c v?￾i tr?￾ PAGEREF _Toc6394382 \h 255 18.1.6 Kho?￾ b ﾀn ghi ADO PAGEREF _Toc6394383 \h 257 18.1.7 S?￾ d?￾ng ?￾i t ﾀ?￾ng Recordset c?￾a ADO ?￾ thao t?￾c v?￾i d?￾ li?￾u PAGEREF _Toc6394384 \h 257 18.1.8 T ﾀo Recordset ng ﾀt kﾀt n?￾i PAGEREF _Toc6394385 \h 258 18.2 S?￾ d?￾ng d?￾ch v?￾ d?￾ li?￾u t?￾ xa c?￾a ADO PAGEREF _Toc6394386 \h 259 L?￾m quen v?￾i visual basic 6.0
X?￾y d?￾ng ?￾ng d?￾ng ban ﾀu Viﾀt ?￾ng d?￾ng ban ﾀu C?￾ch t?￾t nh ﾀt ?￾ h?￾c l ﾀp tr?￾nh l?￾ viﾀt ch ﾀﾀng tr?￾nh V ﾀy h?￾y th?￾ viﾀt ch ﾀﾀng tr?￾nh hi?￾n th?￾ l?￾ch bi?￾u, ?￾ cho ph?￾p ng ﾀ?￾i s?￾ d?￾ng: Hi?￾n th?￾ l?￾ ch bi?￾u c?￾a th?￾ng hi?￾n h?￾nh Duy?￾t qua c?￾c th?￾ng Hi?￾n th?￾ ?￾ng h?￾ b?￾o gi?￾ hi?￾n h?￾nh Nﾀu b ﾀn cho r ﾀng ch ﾀﾀng tr?￾nh n?￾y c?￾ v ﾀ n ﾀng n?￾ cho ng ﾀ?￾i m?￾i h?￾c, ?￾ng lo l ﾀng Visual basic l?￾m hﾀt m?￾i vi?￾c cho b ﾀn Kh?￾c v?￾i ng?￾n ng?￾ C++, b ﾀn ph ﾀi viﾀt m?￾i th?￾ m?￾t ?￾t, Visual basic cung c ﾀp m?￾c ?￾ cao h ﾀn c?￾ a l ﾀp tr?￾nh t?￾ ?￾ng Nh ﾀ v ﾀy, b ﾀn c?￾ th?￾ l?￾m nhi?￾u th?￾ m?￾ kh?￾ng ph ﾀi l ﾀp tr?￾nh nhi?￾u Tuy nhi?￾n, ?￾ ng hi?￾u sai kh?￾ng l ﾀp tr?￾nh nhi?￾u ngh)a l?￾ kh?￾ng c?￾ nhi?￾u t?￾nh nng m ﾀnh Visual basic l?￾ m?￾t ng?￾n ng?￾ r ﾀt m ﾀnh Ta c?￾ th?￾ l ﾀp tr?￾nh ?￾ l?￾m m?￾i th?￾ nﾀu c ﾀn Ta cing c?￾ th?￾ khai th?￾c kh ﾀ nng t?￾ ?￾ng c?￾ a Visual basic ?￾ viﾀt ch ﾀﾀng tr?￾nh th ﾀt nhanh Ch?￾n l?￾a l?￾ ?￾ ng ﾀ?￾i l ﾀp tr?￾nh Visual basic ?￾ linh ho ﾀt ?￾ h?￾ tr?￾ cho ng ﾀ?￾i l ﾀp tr?￾nh t?￾ ng ﾀ?￾i m?￾i h?￾c ﾀn l ﾀp tr?￾nh chuy?￾n nghi?￾p X?￾y d?￾ng t?￾nh nng Calendar B?￾y gi?￾ ta b ﾀt ﾀu x?￾y d?￾ng c?￾c t?￾nh nng c?￾a ?￾ng d?￾ng ﾀu ti?￾n, ta c ﾀn m?￾t l?￾ch bi?￾u Ta c?￾ th?￾ t?￾ t ﾀo n?￾ ho ﾀc s?￾ d?￾ng l?￾ch bi?￾u c?￾ s ﾀn c?￾a Visual basic (?￾y l?￾ m?￾t i?￾u khi?￾n ActiveX) Ta ch?￾n c?￾ ch th?￾ T?￾ menu Project, ch?￾n Components B?￾i v?￾, m ﾀc ?￾nh t ﾀt c ﾀ c?￾c i?￾u khi?￾n ActiveX c?￾a Visual basic kh?￾ng ﾀ?￾c n ﾀp t?￾ ?￾ng Mu?￾n d?￾ng b ﾀn ph ﾀi ch?￾n t?￾ menu Components Trong h?￾p tho ﾀi Components ch?￾n Windows Common Controls 2.6.0
v?￾ nh ﾀn OK EMBED PBrush ActivateX l?￾ g?￾?￾ ActivateX l?￾ s ﾀn ph ﾀm c?￾a Microsoft cho ph?￾p ta t ﾀo nh?￾ng ch ﾀﾀng tr?￾nh nh?￾, g?￾i l?￾ c?￾c th?￾nh ph ﾀn(componet) v?￾ c?￾c i?￾u khi?￾n (control) ?￾ c?￾ th?￾ th?￾m v?￾o c?￾c ch ﾀﾀng tr?￾nh l?￾n ?￾ c?￾ th?￾ l?￾ c?￾c ch ﾀ ﾀng tr?￾nh ?￾c l ﾀp (Standalone program) hay c?￾c ch ﾀﾀng tr?￾nh ch ﾀy tr?￾n Internet Ta c?￾ th?￾ d?￾ng Visual basic ?￾ t?￾ t ﾀo c?￾c i?￾u khi?￾n ActivateX Ph ﾀn n?￾y s ﾀ ﾀ?￾c tr?￾nh b?￾y m?￾t ri?￾ng ﾀn ?￾y i?￾u khi?￾n l?￾ch ﾀ?￾c n ﾀp v?￾o c?￾ng c?￾ T?￾n ch?￾nh th?￾c c?￾a n?￾ l?￾ i?￾u khi?￾n ActivateX MonthView Kﾀ tiﾀp ta ﾀa i?￾u khi?￾n v?￾o bi?￾u m ﾀu Th?￾m i?￾u khi?￾n MonthView v?￾o bi?￾u m ﾀu Ch?￾n bi?￾u t ﾀ?￾ng i?￾u khi?￾n MonthView t?￾ h?￾p c?￾ng c?￾ Nh ﾀn ?￾p chu?￾t l?￾n bi?￾u t ﾀ?￾ng i?￾u khi?￾n ?￾ ﾀa n?￾ v?￾o bi?￾u m ﾀu B ﾀn v?￾a t ﾀo xong ch ﾀﾀng tr?￾nh nh ﾀn F5 ?￾ ch ﾀy Th?￾m t?￾nh nng Clock T?￾nh nng kﾀ tiﾀp l?￾ hi?￾n th?￾ gi?￾ Ta s ﾀ d?￾ng i?￾u khi?￾n ActivateX Timer l?￾ m?￾t i?￾u khi?￾n n?￾i t ﾀi c?￾a Visual basic i?￾u khi?￾n n?￾i t?￾a lu?￾n ﾀ?￾c n ﾀp s ﾀn h?￾p c?￾ng c?￾ Th?￾m Timer v?￾o ?￾ng d?￾ng Ch?￾n v?￾o bi?￾u t ﾀ?￾ng h?￾p c?￾ng c?￾ Nh ﾀn chu?￾t l?￾n i?￾u khi?￾n Timer tr?￾n h?￾p c?￾ng c?￾ ?￾ ﾀa n?￾ v?￾o bi?￾u m ﾀu ?￾ hi?￾n th?￾ th?￾i gian ta l ﾀp tr?￾nh i?￾ u khi?￾n Timer Ta d?￾ng thu?￾c t?￾nh Interval c?￾a timer ?￾ quy ?￾nh vi?￾c ﾀm th?￾i gian M?￾t ﾀn v?￾ c?￾a Interval l?￾ 1/10
0
0
gi?￾y Do ?￾, ?￾ quy inh nh?￾p ﾀm l?￾ n?￾a gi?￾y ta ﾀt Interval l?￾ 50
0
C?￾ m?￾i n?￾a gi?￾y ch ﾀﾀng tr?￾nh s ﾀ l?￾m m?￾t vi?￾c g?￾ ?￾ ?￾ ?￾y, ta mu?￾n hi?￾n th?￾ th?￾i gian hi?￾n h?￾nh Ta s ﾀ d?￾ng nh?￾n (label) ?￾ hi?￾n th?￾ th?￾i gian Hi?￾n th?￾ Timer Th?￾m Label v?￾o bi?￾u m ﾀu Ch?￾n i?￾u khi?￾n nh?￾n t?￾ h?￾p c?￾ng c?￾ v?￾ k?￾o n?￾ v?￾o bi?￾u m ﾀu Th?￾ t?￾c s?￾ ki?￾n l?￾ g?￾?￾ M?￾t th?￾ t?￾c s?￾ ki?￾n l?￾ m?￾t o ﾀn ch ﾀﾀng tr?￾nh s ﾀ thi h?￾nh s?￾ ki?￾n ?￾ x ﾀy V?￾ d?￾, ng ﾀ?￾i s?￾ d?￾ng nh ﾀn v?￾o n?￾t CommandButton, s?￾ ki?￾n click() s ﾀ ﾀ?￾c sinh Visual basic cung c ﾀp th?￾ t?￾c CommandButton_Click cho ta l ﾀp tr?￾nh ?￾ ?￾ng d?￾ng ph ﾀn ?￾ng ?￾i v?￾i vi?￾c nh ﾀn n?￾t CommandBuuton T ﾀﾀng t?￾ v?￾i Timer Khi ?￾ng nh?￾p ﾀm Timer s?￾ ki?￾n Timer() s ﾀ ph?￾t ?￾ hi?￾n th?￾ th?￾i gian tr?￾n nh?￾n label ta ﾀa d?￾ng l?￾nh sau v?￾o th?￾ t?￾c s?￾ ki?￾n c?￾a timer: Label1.Caption = time Private Sub Timer1_Timer() Label1.Caption = Time End Sub C?￾c t?￾nh nng m?￾i Visual basic 6.0
Kh?￾i qu?￾t v ﾀn t ﾀt v?￾ Visual basic 6.0
Nﾀu b ﾀn ch ﾀa quen v?￾i Visual basic, t?￾a ?￾ c?￾a ph ﾀn n?￾y c?￾ th?￾ l?￾m nh ﾀm l ﾀn ?￾i ch?￾t R?￾ r?￾ng r ﾀng nﾀu b ﾀn l?￾ ng ﾀ?￾i m?￾i h?￾c ng?￾n ng?￾, m?￾i th?￾ v?￾ Visual basic ?￾u m?￾i c ﾀ D?￾ v ﾀy, b ﾀn kh?￾ng n?￾n b?￾ qua ph ﾀn n?￾y, nh ﾀt l?￾ c?￾c i?￾u khi?￾n ActivateX m?￾i ?￾i v?￾i c?￾c b ﾀn ?￾ quen thu?￾c c?￾c phi?￾n b ﾀn Visual basic tr ﾀ?￾c th?￾ ph ﾀn n?￾y th ﾀt h?￾u ?￾ch Visual basic 6.0
c?￾ r ﾀt nhi?￾u t?￾nh nng m?￾i C?￾c i?￾u khi?￾n m?￾i cho ph?￾p ta viﾀt ch ﾀﾀng tr?￾nh ?￾ng d?￾ng kﾀt h?￾p giao di?￾n, c?￾ch x?￾ l?￾ v?￾ t?￾nh nng c?￾a Office 97 v?￾ tr?￾nh duy?￾t WEB internet explorer Kh?￾ng nh ﾀt thiﾀt ph ﾀi c?￾ m?￾t instance c?￾a i?￾u khi?￾n tr?￾n bi?￾u m ﾀu, Visual basic cho ph?￾p ta l ﾀp tr?￾nh ?￾ th?￾m i?￾u khi?￾n v?￾o ?￾ ?￾ n t?￾ ?￾ng v?￾ ta c?￾ th?￾ t ﾀo c?￾c i?￾u khi?￾n ActivateX hi?￾u ch?￾nh M?￾t v?￾i c ﾀi tiﾀn cho ph?￾p l?￾m vi?￾c v?￾i c?￾c ?￾ng d?￾ng truy c ﾀp d?￾ li?￾u ?￾ t ﾀm c?￾ v) m?￾ li?￾n quan ﾀn h?￾ng trm h?￾ng ngh?￾n ng ﾀ?￾i s?￾ d?￾ng qua m ﾀng Internet Khai th?￾c thﾀ m ﾀnh c?￾a c?￾c i?￾u khi?￾n m?￾ r?￾ng s?￾ ki?￾n Validate v?￾ thu?￾c t?￾nh CausesValidation Ph ﾀn m?￾ r?￾ng ﾀu ti?￾n li?￾n quan ﾀn t ﾀt c ﾀ c?￾c i?￾u khi?￾n ActivateX c ﾀ b ﾀn l?￾ vi?￾c th?￾m v?￾o s?￾ ki?￾n Validate v?￾ thu?￾c t?￾nh CausesValidation Tr ﾀ?￾c c?￾c phi?￾n b ﾀn Visual basic 6, nﾀu b ﾀn ki?￾m tra t?￾nh h?￾p l?￾ c?￾a m?￾t t?￾ nh ﾀp v?￾o h?￾p b ﾀn, b ﾀn ph ﾀi viﾀt th?￾ t?￾c s?￾ ki?￾n LostForcus c?￾ a TextBox Nﾀu nh ﾀp sai b ﾀn ph ﾀi g?￾i ph ﾀﾀng th?￾c SetForcus ?￾ bu?￾c ng ﾀ?￾i d?￾ng nh ﾀp l ﾀi d?￾ li?￾u ?￾ng Th?￾nh tho ﾀng logic c?￾a l ﾀp tr?￾nh n?￾y l?￾m ng ﾀ?￾i d?￾ng kh?￾ ch?￾u h?￾ kh?￾ng bao gi?￾ nh ﾀp ?￾ng d?￾ li?￾u, h?￾ c?￾ th?￾ b?￾ kho?￾ ch ﾀt ?￾ i?￾u khi?￾n ?￾ h?￾ cing cing kh?￾ng nh ﾀn c ﾀ n?￾t help ?￾ xem h ﾀ?￾ng d ﾀn chi tiﾀt S?￾ ki?￾n Validate v?￾ thu?￾c t?￾nh CausesValidation gi ﾀi quyﾀt v ﾀn ?￾ ?￾ C?￾c c ﾀi tiﾀn ?￾ ho ﾀ m?￾i l?￾m ?￾ng d?￾ng th?￾m sinh ?￾ng Visual basic lu?￾n cho ph?￾p b ﾀn s?￾ d?￾ng ?￾ ho ﾀ ?￾ l?￾m ch ﾀﾀng tr?￾nh s?￾ng ?￾ ng v?￾ Microsoft c?￾ kh ﾀ nng ?￾ ho ﾀ m?￾ r?￾ng cho nhi?￾u i?￾u khi?￾n ﾀu ti?￾n, i?￾u khi?￾n ImageList gi?￾ ?￾y h?￾ tr?￾ c?￾c t ﾀp tin.gif Ph ﾀn m?￾ r?￾ng n?￾y r ﾀt quan tr?￾ng b?￾i v?￾ n?￾ li?￾n quan ﾀn c?￾c i?￾u khi?￾n c?￾ s?￾ d?￾ng i?￾u khi?￾n ImageList C?￾c i?￾u khi?￾n ListView v?￾ TabStrip c?￾ ph ﾀn m?￾ r?￾ng cho ph?￾p s?￾ d?￾ng h?￾nh ﾀnh v?￾ bi?￾u t ﾀ?￾ng ?￾ trang tr?￾ v?￾ minh ho ﾀ i?￾u khi?￾n listView cho ph?￾p t ﾀo m?￾t ﾀnh n?￾n cho v?￾ng l?￾m vi?￾c ﾀnh n?￾n c?￾ th?￾ ﾀ?￾c ﾀt gi?￾a tr ﾀi ?￾u ho ﾀc ﾀt ?￾ m?￾t g?￾c b ﾀt k?￾ Ng?￾y th?￾ng v?￾i i?￾u khi?￾n MonthView v?￾ DataTimepicker VB6 c?￾ i?￾u khi?￾n ﾀa gi ﾀi ph?￾p m?￾i ?￾ xem x?￾t v?￾ ch?￾n l?￾a ng?￾y th?￾ng, MonthView v?￾ DataTimePicker i?￾u l?￾ th?￾ c?￾a c?￾c i?￾u khi?￾n l?￾ ch?￾ng cho ph?￾p ta xem v?￾ ch?￾n ng?￾y ng?￾ c ﾀnh l?￾ch bi?￾u i?￾u khi?￾n MonthView tr?￾nh b?￾y m?￾t l?￾ch bi?￾u ﾀy ?￾ ?￾ ta c?￾ th?￾ duy?￾t theo t?￾ng ng?￾y ho ﾀc t?￾ng th?￾ng i?￾u khi?￾n DateTimePicker t ﾀﾀng t?￾ nh ﾀ MonthView, nh ﾀng c?￾ i?￾m kh?￾c l?￾ l?￾ch bi?￾u s ﾀ th ﾀ xu?￾ng ng ﾀ?￾i d?￾ng nh ﾀn v?￾o mii t?￾n xu?￾ng c?￾a i?￾u khi?￾n L?￾m vi?￾c v?￾i m?￾i tr ﾀ?￾ng l ﾀp tr?￾nh Visual basic T?￾m hi?￾u c?￾c ph ﾀn c?￾a IDE IDE l?￾ t?￾n viﾀt t ﾀt c?￾a m?￾i tr ﾀ?￾ng ph?￾t tri?￾n t?￾ch h?￾p (Inegreated Development Enviroment) IDE l?￾ n ﾀi t ﾀo c?￾c ch ﾀﾀng tr?￾nh VB IDE c?￾a VB l?￾ n ﾀi t ﾀp trung c?￾c menu, c?￾ng c?￾ v?￾ c?￾a s?￾ ?￾ t ﾀo ch ﾀﾀng tr?￾nh M?￾i ph ﾀn c?￾a IDE c?￾ c?￾c t?￾nh nng anhe h ﾀ?￾ng ﾀn c?￾c ho ﾀt ?￾ng l ﾀp tr?￾nh kh?￾c Thanh menu cho ph?￾p b ﾀn t?￾c ?￾ng cing nh ﾀ qu ﾀn l?￾ tr?￾c tiﾀp tr?￾n to?￾n b?￾ ?￾ng d?￾ng Thanh c?￾ng c?￾ cho ph?￾p truy c ﾀp c?￾c ch?￾c nng c?￾a menu qua c?￾c n?￾t tr?￾n c?￾ng c?￾ C?￾c bi?￾u m ﾀu (Form) - kh?￾i x?￾y d?￾ng c?￾c ch ﾀﾀng tr?￾nh Visual basic xu ﾀt hi?￾n c?￾a s?￾ form H?￾p c?￾ng c?￾ ?￾ th?￾m c?￾c i?￾u khi?￾n v?￾o c?￾c bi?￾u m ﾀu c?￾a ?￾ ?￾n Project explorer hi?￾n th?￾ c?￾c ?￾ ?￾n m?￾ b ﾀn ang l?￾m cing nh ﾀ c?￾c th?￾nh ph ﾀn c?￾a c?￾c ?￾ ?￾n B ﾀn duy?￾t v?￾ c?￾i ﾀt c?￾c thu?￾c t?￾nh c?￾a i?￾u khi?￾n, bi?￾u m ﾀu v?￾ module c?￾a s?￾ property Cu?￾i c?￾ng, b ﾀn b?￾ tr?￾ v?￾ xem x?￾t m?￾t ho ﾀc nhi?￾u bi?￾u m ﾀu tr?￾n m?￾n h?￾nh th?￾ng qua c?￾a s?￾ form layout Th?￾m v?￾ xo?￾ c?￾c c?￾ng c?￾ IDE c?￾a Visual basic Thanh c?￾ng c?￾ l?￾ t ﾀp h?￾p c?￾c n?￾t b ﾀm mang bi?￾u t ﾀ?￾ng ch?￾a m?￾t th ﾀ?￾ng ﾀt d ﾀ?￾i menu C?￾c n?￾t n?￾y ﾀm nh ﾀn c?￾c ch?￾c nng th?￾ng d?￾ng c ﾀu tr?￾c menu c?￾a Visual basic Thanh c?￾ng c?￾ r ﾀt h?￾u ?￾ch, thay v?￾ ph ﾀi l ﾀn l ﾀ?￾t ch?￾n qua menu v?￾ menu con, ta nh ﾀn m?￾t n?￾t b ﾀm n?￾o ?￾ c?￾ng c?￾ ?￾ g?￾i m?￾t ch?￾c nng t ﾀﾀng t?￾ tr?￾n menu S?￾ d?￾ng c?￾ng c?￾ debug: Thanh c?￾ng c?￾ debug d?￾ng ?￾ ki?￾m tra ch ﾀﾀng tr?￾nh v?￾ gi ﾀi quyﾀt c?￾c l?￾i c?￾ th?￾ x ﾀy Khi g?￾ r?￾i ch ﾀﾀng tr?￾nh, ta l?￾m m?￾t s?￾ vi?￾c nh ﾀ ch ﾀy t?￾ng d?￾ng l?￾nh ch ﾀﾀng tr?￾nh, ki?￾m tra gi?￾ tr?￾ c?￾c biﾀn, v?￾ d?￾ng ch ﾀﾀng tr?￾nh t ﾀi m?￾t i?￾m nghi ng?￾ ho ﾀc d ﾀ?￾i nh?￾ng i?￾u ki?￾n n?￾o ?￾ S?￾ d?￾ng c?￾ng c?￾ Edit: Thanh c?￾ng c?￾ Edit ﾀ?￾c d?￾ng ?￾ viﾀt ch ﾀﾀng tr?￾nh c?￾a s?￾ code C?￾c t?￾nh nng c?￾a c?￾ng c?￾ Edit t ﾀﾀng t?￾ nh ﾀ c?￾c t?￾nh nng kh?￾c ?￾ menu edit B ﾀn c?￾ th?￾ Cut, Paste b ﾀn M?￾t t?￾nh nng l?￾ th?￾ c?￾a IDE l?￾ c?￾ng c?￾ Edit d?￾ng t?￾nh nng Coplete Word, t?￾ ?￾ng ho?￾n t ﾀt t?￾ kho?￾ T?￾nh nng Complete Word r ﾀt h?￾u ?￾ch ?￾ tr?￾nh c?￾c l?￾i c?￾ ph?￾p S?￾ d?￾ng c?￾ng c?￾ Form Editor: Thanh c?￾ng c?￾ form editor d?￾ng ?￾ k?￾o gi?￾n, di chuy?￾n v?￾ s ﾀp xﾀp c?￾c i?￾u khi?￾n tr?￾n bi?￾u m ﾀu Thanh c?￾ng c?￾ Form editor c?￾ c?￾c t?￾nh nng nh ﾀ menu Format S?￾ d?￾ng c?￾ng c?￾ chu ﾀn(Standard): L?￾ c?￾ng c?￾ tr?￾ng yﾀu IDE Thanh c?￾ng c?￾ chu ﾀn cung c ﾀp nhi?￾u t?￾nh nng menu file, Project, Debug, v?￾ Run Th?￾m c?￾c i?￾u khi?￾n v?￾o h?￾p c?￾ng c?￾ H?￾p c?￾ng c?￾ l?￾ b ﾀng ch?￾a c?￾c i?￾u khi?￾n v?￾ ta thiﾀt kﾀ giao di?￾n ng ﾀ?￾i s?￾ d?￾ng b ﾀng c?￾ch ch?￾n c?￾c i?￾u khi?￾n t?￾ h?￾p c?￾ng c?￾ v?￾ ﾀa ch?￾ng v?￾o c?￾c bi?￾u m ﾀu M?￾t s?￾ i?￾u khi?￾n c?￾ s ﾀn Visual basic v?￾ kh?￾ng th?￾ g?￾ b?￾ kh?￾i h?￾p c?￾ng c?￾ M?￾t s?￾ kh?￾c n ﾀm b?￾n ngo?￾i Visual basicv?￾ ch?￾a c?￾c t ﾀp tin m?￾ c?￾ ph ﾀn m?￾ r?￾ng l?￾ ocx C?￾c i?￾u khi?￾n n?￾y c?￾ th?￾ ﾀ?￾ c th?￾m v?￾o ho ﾀc g?￾ b?￾ kh?￾i c?￾ng c?￾ Ch?￾ng ta s ﾀ tr?￾ l ﾀi chi tiﾀt v?￾ c?￾c lo ﾀi i?￾u khi?￾n Visual basic m?￾t ch ﾀﾀng ri?￾ng ?￾nh h ﾀ?￾ng th?￾ng qua c?￾a s?￾ form v?￾ code Nﾀu i?￾u khi?￾n l?￾ nh?￾ng kh?￾i b?￾ t?￾ng m?￾ ta t ﾀp h?￾p ?￾ng d?￾ng th?￾ bi?￾u m ﾀu l?￾ n?￾n m?￾ng ?￾ ta x?￾y d?￾ng c?￾c kh?￾i n?￾y C?￾c bi?￾u m ﾀu ch?￾a c?￾a s?￾ Thiﾀt kﾀ bi?￾u m ﾀu Ta s ﾀ l?￾m vi?￾c c?￾a s?￾ n?￾y ?￾ th?￾m c?￾c i?￾u khi?￾n v?￾o bi?￾u m ﾀu ?￾i v?￾i t?￾ng c?￾a s?￾ thiﾀt kﾀ m ﾀu, ta cing c?￾ th?￾ m?￾ c?￾a s?￾ code C?￾a s?￾ code l?￾ n ﾀi ta viﾀt c?￾c o ﾀn ch ﾀﾀng tr?￾nh ch ﾀy b?￾n d ﾀ?￾i bi?￾u m ﾀu Ta c?￾ th?￾ m?￾ c?￾a s?￾ code b ﾀng c?￾ch nh ﾀn ?￾p l?￾n bi?￾u m ﾀu ho ﾀc i?￾u khi?￾n, ho ﾀc ch?￾n code t?￾ menu Qu ﾀn l?￾ ?￾ng d?￾ng v?￾i project explorer Project explorer Visual basic gi?￾p qu ﾀn l?￾ v?￾ ?￾nh h ﾀ?￾ng nhi?￾u ?￾ ?￾n Visual basic cho ph?￾p t?￾ ch?￾c nhi?￾u ?￾ ?￾n m?￾t nh?￾m g?￾i l?￾ project group Ta c?￾ th?￾ l ﾀu t ﾀp h?￾p c?￾c ?￾ ?￾n Visual basic th?￾nh m?￾t t ﾀp tin nh?￾m ?￾ ?￾n C?￾c t ﾀp tin n?￾y c?￾ ph ﾀn m?￾ r?￾ng l?￾.vbg C?￾a s?￾ properties M?￾i thu?￾c t?￾nh c?￾ m?￾t ho ﾀc nhi?￾u gi?￾ tr?￾ C?￾a s?￾ properties gi?￾p b ﾀn xem s?￾a ?￾i v?￾ i?￾u khi?￾n c?￾c thu?￾c t?￾nh c?￾a c?￾c i?￾u khi?￾n ActivateX ch ﾀﾀng tr?￾nh Hi?￾n th?￾ IDE Ta c?￾ th?￾ xem IDE c?￾a Visual basic b ﾀng c?￾ch: MDI ho ﾀc SDI Hi?￾n th?￾ ki?￾u MDI(Multiple document interface) cho ph?￾p tr?￾nh b?￾y t ﾀt c ﾀ c?￾c c?￾a s?￾ th?￾nh ph ﾀn IDE nh ﾀ l?￾ c?￾c c?￾a s?￾ ch?￾a m?￾t c?￾a s?￾ l?￾n Tr?￾i l ﾀi ?￾i v?￾i hi?￾n th?￾ SDI(single document interface), c?￾c c?￾a s?￾ th?￾nh ph ﾀn hi?￾n th?￾ m?￾t c?￾ch ?￾c l ﾀp v?￾i Kh?￾ng c?￾ m?￾t c?￾a s?￾ ch?￾ nh ?￾ ch?￾a v?￾ th?￾ng nh ﾀt c?￾c th?￾nh ph ﾀn Chuy?￾n ?￾i t?￾ hi?￾n th?￾ MDI sang SDI Ch?￾n Tools\option\ Tr?￾n tang Advance, ch?￾n h?￾p ?￾nh d ﾀu SDI development Enviroment; nh ﾀn OK IDE c?￾a Visual basic s ﾀ ?￾ nh l ﾀi c ﾀu h?￾nh cho hi?￾n th?￾ SDI l ﾀn kh?￾i ?￾ng tiﾀp sau c?￾a Visual basic Nh ﾀn OK, tho?￾t v?￾ kh?￾i ?￾ng l ﾀi Visual basic Tr?￾ gi?￾p Kh?￾ng nh?￾ng l?￾m ch?￾ ng?￾n ng?￾ l ﾀp tr?￾nh Visual basic, b ﾀn cing c ﾀn ph ﾀi s?￾ d?￾ng thu ﾀn th?￾c m?￾i tr ﾀ?￾ng Visual basic cing nh ﾀ hi?￾u c?￾c th?￾ng i?￾p m?￾ Visual basic g?￾i Microsoft cung c ﾀp m?￾t nh?￾ng h?￾ th?￾ng tr?￾ gi?￾p t?￾t nh ﾀt cho c?￾c c?￾ng c?￾ ph?￾t tri?￾n ?￾ng d?￾ng Tr?￾ gi?￾p nh ﾀy v?￾i ng?￾ c ﾀnh T ﾀi m?￾t v?￾ tr?￾ b ﾀt k?￾ Visual basic, b ﾀn nh ﾀn ph?￾m F1, n?￾t tr?￾ gi?￾ p N?￾ s ﾀ k?￾ch ho ﾀt h?￾ th?￾ng tr?￾ gi?￾p c?￾a Visual basic, n ﾀi c?￾ th?￾ gi ﾀi th?￾ch ho ﾀc ﾀa nh?￾ng l?￾i khuy?￾n, cing nh ﾀ c?￾c o ﾀn ch ﾀﾀng tr?￾nh m ﾀu Visual basic c?￾ h?￾ th?￾ng tr?￾ gi?￾p l?￾ h?￾ th?￾ng th ﾀ vi?￾n MSDN ﾀ?￾c s?￾ d?￾ng r?￾ng r?￾i cho c?￾c c?￾ng c?￾ ph?￾t tri?￾n c?￾a Microsoft ?￾ cung c ﾀp truy c ﾀp ﾀn s?￾ tay h ﾀ?￾ng d ﾀn s?￾ d?￾ng s ﾀn ph ﾀm tr?￾c tuyﾀn T?￾m hi?￾u Visual basic Thu?￾c t?￾nh ph ﾀﾀng th?￾c v?￾ s?￾ ki?￾n H?￾nh 9.3 Thiﾀt kﾀ bi?￾u m ﾀu Nﾀu kh?￾ng th ﾀy i?￾u khi?￾n h?￾p tho ﾀi th?￾ng d?￾ng tr?￾n h?￾p c?￾ng c?￾, t?￾ menu Project, ch?￾n Components, v?￾ ch?￾n v?￾o h?￾p ?￾nh d ﾀu Microsoft Common Dialog Control 6.0
?￾ h?￾p tho ﾀi (th?￾ng d?￾ng) b ﾀt nh ﾀn v?￾o n?￾t l?￾nh, ta x?￾ l?￾ s?￾ ki?￾n Click tr?￾n n?￾t l?￾nh b ﾀng c?￾ch g?￾ v?￾o: Private Sub Command1_Click() With CommonDialog1 Filter = "WaveAudio (*.wav)|*.wav|Midi (*.mid)|*.mid| Video files (*.avi)|*.avi" FilterIndex = 0
ShowOpen End With End Sub Ch ﾀy ch ﾀﾀng tr?￾nh v?￾ nh ﾀn n?￾t l?￾nh, ta s ﾀ th ﾀy h?￾p tho ﾀi m?￾ t ﾀp tin quen thu?￾c xu ﾀt hi?￾n cho ta ch?￾n t ﾀp tin multimedia: H?￾ nh 9.4 Ch?￾n m?￾ t ﾀp tin multimedia Kﾀ tiﾀp ta chuy?￾n l?￾p multimedia th?￾nh m?￾t ?￾i t ﾀ?￾ng Private Sub Command1_Click() Dim Multimedia As New MMedia With CommonDialog1 Filter = "WaveAudio (*.wav)|*.wav|Midi (*.mid)|*.mid|Video files (*.avi)|*.avi" FilterIndex = 0
ShowOpen End With If CommonDialog1.Filename "" Then Multimedia.mmOpen CommonDialog1.Filename Multimedia.mmPlay End If End Sub Thi h?￾nh ch ﾀﾀng tr?￾nh T?￾m m?￾t t ﾀp tin multimedia tr?￾n )a c?￾ng (th ﾀ?￾ng ch?￾a th ﾀ m?￾c \Windows\Media) v?￾ play L ﾀu ?￾ r ﾀng ?￾ play c?￾c t ﾀp tin ?￾m nh ﾀ WAV v?￾ MID, ta c ﾀn c?￾ card ?￾m tr?￾n m?￾y Trong d?￾ng ﾀu c?￾a s?￾ ki?￾n click, ta t ﾀo m?￾t ?￾i t ﾀ?￾ ng multimedia d ﾀn xu ﾀt t?￾ l?￾p MMedia ?￾y l?￾ b ﾀ?￾c chuy?￾n t?￾ m?￾t l?￾p sang m?￾t ?￾i t ﾀ?￾ng Private Sub Command1_Click() Dim Multimedia As New MMedia B?￾n d?￾ng kﾀ s?￾ d?￾ng ?￾i t ﾀ?￾ng multimedia ?￾ m?￾ t ﾀp tin d?￾ng ph ﾀﾀng th?￾c mmOpen v?￾ Play b ﾀng ph ﾀﾀng th?￾c mmPlay If CommonDialog1.Filename "" Then Multimedia.mmOpen CommonDialog1.Filename Multimedia.mmPlay End If T ﾀo l?￾p bao b?￾ c c?￾c API l?￾m v ﾀn ?￾ ﾀn gi ﾀn h ﾀn Nﾀu l?￾p n?￾y ﾀ?￾c em th ﾀﾀng m ﾀi ho?￾, ng ﾀ?￾i s?￾ d?￾ng n?￾ s ﾀ kh?￾ ng c ﾀn ph ﾀi hi?￾u v?￾ API, h?￾ ch?￾ c ﾀn biﾀt c?￾ch th?￾c ho ﾀt ?￾ng c?￾a l?￾p m?￾ th?￾i T?￾m hi?￾u l?￾p Multimedia Windows c?￾ nhi?￾u ph?￾n h?￾, m?￾i ph?￾n h?￾ ﾀm nhi?￾m m?￾t ch?￾c nng nh ﾀt ?￾nh M?￾t nh?￾ ng ph ﾀn n?￾y l?￾ MCI MCI l?￾ t?￾n g?￾i t ﾀt c?￾a Multimedia Control Interface, cung c ﾀp m?￾t gi ﾀi ph?￾p ?￾c l ﾀp v?￾i thiﾀt b?￾ ?￾ s?￾ d?￾ng c?￾c t?￾nh nng c?￾a Windows th?￾ng qua ch ﾀﾀng tr?￾nh Khi viﾀt ch ﾀﾀng tr?￾nh tr?￾ ch ﾀi tr?￾n DOS, ta ph ﾀi x?￾ l?￾ v?￾i nhi?￾u chu ﾀn card ?￾m v?￾ h?￾nh ﾀnh kh?￾c T?￾nh nng ?￾c l ﾀp v?￾i thiﾀt b?￾, v?￾ c?￾c ch ﾀﾀng tr?￾nh i?￾u khi?￾n thiﾀt b?￾ cung c ﾀp b?￾i Windows cho ph?￾p ta l?￾m vi?￾c v?￾i b ﾀt k?￾ card ?￾m thanh, h?￾nh ﾀnh n?￾o v?￾i c?￾ng ch ﾀﾀng tr?￾nh, mi?￾n l?￾ ch?￾ng ﾀ?￾c h?￾ tr?￾ b?￾i Windows MCI cung c ﾀp l?￾p ?￾m gi?￾a l ﾀp tr?￾nh vi?￾n v?￾ c?￾c thiﾀt b?￾ d?￾ng x?￾ l?￾ d?￾ li?￾u multimedia nh ﾀ c?￾c card ?￾m thanh, h?￾nh ﾀnh MCI s ﾀ l?￾m vi?￾c v?￾i c?￾c ch ﾀﾀng tr?￾nh i?￾u khi?￾n thiﾀt b?￾ c?￾a Windows, v?￾ cu?￾i c?￾ng l?￾ ph ﾀn c?￾ng multimedia L ﾀp tr?￾nh vi?￾n, y?￾u c ﾀu MCI d?￾ng h?￾m API mciSendString L?￾ nh n?￾y sau ?￾ ﾀ?￾c g?￾i xu?￾ng ch ﾀﾀng tr?￾nh i?￾u khi?￾n thiﾀt b?￾, ta kh?￾ng c ﾀn quan t?￾m MCI l?￾ m?￾t ?￾i t ﾀ?￾ ng ?￾c l ﾀp N?￾ c?￾ th?￾ ﾀ?￾c l ﾀp tr?￾nh v?￾ c?￾ ng?￾n ng?￾ l ﾀp tr?￾nh ri?￾ng Khi ta d?￾ng mciSendString, ta ang l ﾀp tr?￾nh MCI S?￾ d?￾ng mciSendString C?￾ ph?￾p c?￾a mciSendString: = mciSendString( , _ , , ) l?￾ m?￾t s?￾ long integer, v?￾ thay ?￾i tu?￾ theo d?￾ng l?￾nh ﾀt ﾀu tr?￾ch d ﾀn, ph ﾀi l?￾ m?￾t t?￾ d ﾀ?￾i d ﾀng chu?￾i k?￾ t?￾ v?￾ l?￾ l?￾nh g?￾i ﾀn MCI; nh ﾀ l?￾ Play ?￾ play m?￾t t ﾀp tin, Open ?￾ m ﾀe t ﾀp tin, v.v M?￾t s?￾ l?￾nh MCI tr ﾀ v?￾ m?￾t chu?￾i k?￾ t?￾ L?￾nh Status tr ﾀ v?￾ m?￾t chu?￾i cho biﾀt t ﾀp tin d?￾ng h ﾀn (Stopped), hay ang ch ﾀi (Playing), hay d?￾ng t ﾀm (Pause), v.v API c ﾀn biﾀt bao nhi?￾u d?￾ li?￾u ﾀ?￾c ch?￾a biﾀn chu?￾i, tham s?￾ kﾀ tiﾀp l?￾ chi?￾u d?￾i chu?￾i Do ?￾, nﾀu ta ph?￾t l?￾nh ﾀn MCI tr ﾀ v?￾ m?￾t chu?￾i, ta ph ﾀi truy?￾n m?￾t biﾀn chu?￾i c?￾ chi?￾u d?￾i nh ﾀt ?￾nh v?￾ cho biﾀt chi?￾u d?￾i c?￾a n?￾: Dim sReturnString As String * 255 Dim nReturn As Long nReturn = mciSendString("status waveaudio mode", _ sReturnString, 255, 0
) Th?￾m * 255 v?￾o khai b?￾o sReturnString cho biﾀt chi?￾u d?￾i c?￾a n?￾ l?￾ 255 S?￾ d?￾ng h?￾m Callback Visual Basic H?￾m Callback th?￾c ch?￾ ?￾p d?￾ng cho C/C++, Delphi, hay m?￾t s?￾ ng?￾n ng?￾ bi?￾n d?￾ch c ﾀp th ﾀp, kh?￾ng d?￾ng v?￾i Visual Basic Tuy nhi?￾n, VB6 cho ph?￾p ta s?￾ d?￾ng h?￾m Callback m?￾ kh?￾ng c ﾀn th?￾m c?￾c ch ﾀﾀng tr?￾nh ph?￾ ﾀc bi?￾t nh ﾀ c?￾c phi?￾n b ﾀn tr ﾀ?￾c Khi ta d?￾ng API, ch ﾀﾀng tr?￾nh c?￾a ta kh?￾ng th?￾ n?￾o biﾀt ﾀ?￾c i?￾u g?￾ ang x ﾀy h?￾m ang ch ﾀy Ta ph ﾀi ch?￾ ﾀn n?￾ kﾀt th?￾c, v?￾ ki?￾m tra gi?￾ tr?￾ tr ﾀ v?￾ ?￾ t ﾀ?￾ng c?￾a h?￾m Callback l?￾ m?￾t API m?￾ ch ﾀy, n?￾ c?￾ th?￾ g?￾i ﾀn m?￾t h?￾m ho ﾀc th?￾ t?￾c c?￾a ch ﾀﾀng tr?￾nh ta ang viﾀt Ta ph ﾀi t ﾀo m?￾t h?￾m Public ?￾ m?￾t module ch ﾀﾀng tr?￾nh c?￾a Visual Basic, v?￾i c?￾c tham s?￾ truy?￾n c ﾀn thiﾀt c?￾a API Sau ?￾, g?￾i API, ta g?￾i m?￾t tr?￾ (pointer) - ?￾a ch?￾ v?￾ng nh?￾ c?￾a h?￾m Callback Ta ph ﾀi d?￾ng to?￾n t?￾ m?￾i AddressOf: nResult = someAPIFunction(ParamOne, ParamTwo, _ AddressOf MyCallback) Khi API ch ﾀy, n?￾ g?￾i mm?￾t h?￾m ch ﾀﾀng tr?￾nh c?￾a ch?￾ng ta v?￾ g?￾i c?￾c tham s?￾ c ﾀn thiﾀt Th ﾀ?￾ng n?￾ ﾀ?￾c ﾀ?￾c d?￾ng ?￾ c ﾀp nh ﾀt tr ﾀng th?￾i, l ﾀy danh s?￾ch font h?￾ th?￾ng, v?￾ c?￾c c?￾ng vi?￾c kh?￾c Nh ﾀ ?￾ n?￾ i, ch?￾ng ta s ﾀ kh?￾ng n?￾i th?￾m v?￾ c?￾c h?￾m Callback C?￾c h?￾m n?￾y l?￾m ph?￾c t ﾀp h ﾀn cho ch ﾀﾀng tr?￾nh v?￾ nhi?￾u l?￾m treo h?￾ th?￾ng Tuy nhi?￾n, tr?￾ gi?￾p c?￾a Visual Basic s ﾀ cung c ﾀp m?￾t s?￾ v?￾ d?￾ nﾀu b ﾀn u?￾n t?￾m hi?￾u k?￾ h ﾀn M?￾ t ﾀp tin Media Ta g?￾i t?￾n t ﾀp tin cho l?￾nh Open ?￾ m?￾ t ﾀp tin ?￾y l?￾ t?￾n chu ﾀn nh ﾀ: C:\Video.avi Open Type Alias Issue command to something to the file Close Sau t?￾ kho?￾ Type l?￾ ki?￾u t ﾀp tin Ki?￾u chu ﾀn c?￾a Windows l?￾ WaveAudio ?￾i v?￾i t?￾p tin WAV, AVIVideo ?￾i v?￾i AVI, v?￾ Sequencer ?￾i v?￾i MID Alias d?￾ng ?￾ thay thﾀ t?￾n t ﾀp tin m?￾: Open c:\video.avi Type AVIVideo Alias Peter Nﾀu ta g?￾i d?￾ng l?￾nh n?￾y ﾀn MCI b ﾀng MCISenString, n?￾ y?￾u c ﾀu MCI m?￾ t ﾀp tin C:\video.avi nh ﾀ m?￾t t ﾀp tin video c?￾a Microsoft, v?￾ n?￾ s ﾀ d?￾ng t?￾n Peter ?￾ ch?￾ t ﾀp tin n?￾y M?￾i l ﾀn m?￾ t ﾀp tin, l?￾nh MCI c?￾ th?￾ d?￾ng b?￾ danh ?￾ ch ﾀi t ﾀp tin, d?￾ng h ﾀn hay t ﾀm d?￾ng, ho ﾀc hi?￾n th?￾ tr ﾀng th?￾i, v.v V?￾ d?￾: Play Peter Pause Peter Stop Peter Sau ?￾, ta c ﾀn ?￾ng t ﾀp tin b ﾀng c?￾ch g?￾i l?￾nh Close, theo sau l?￾ b?￾ danh c?￾a t ﾀp tin nReturn = mciSendString( Close Peter , ,0
,0
) V?￾ d?￾ m ﾀu - Hi?￾n th?￾ tr ﾀng th?￾i v?￾ v?￾ tr?￾ c?￾a t ﾀp tin Multimedia M?￾ ?￾ ?￾n TestMM.vbp Ch?￾ng ta s ﾀ th?￾m m?￾t s?￾ i?￾u khi?￾n ?￾ xem thu?￾c t?￾nh Status v?￾ Position c?￾a l?￾p MMedia Th?￾m m?￾t i?￾u khi?￾n di?￾n tiﾀn (ProgressBar), m?￾t nh?￾n, m?￾t i?￾u khi?￾n ?￾ nh gi?￾ (timer): H?￾nh 9.5 Thiﾀt kﾀ bi?￾u m ﾀu Nﾀu kh?￾ng th ﾀy i?￾u khi?￾n ProgressBar tr?￾n h?￾p c?￾ng c?￾, t?￾ menu Project, ch?￾n Components, ch?￾n v?￾o h?￾p ?￾nh d ﾀu Microsoft Windows Common Controls 6.0
M?￾ c?￾a s?￾ Properties c?￾a i?￾u khi?￾n Timer, ?￾i thu?￾c t?￾nh Enabled th?￾nh False, v?￾ Interval l?￾ 50
0
Xo?￾ Caption c?￾a i?￾u khi?￾n nh?￾n Nh ﾀn ?￾p chu?￾t l?￾n n?￾t l?￾nh ?￾ m?￾ s?￾ ki?￾n Click: Private Sub Command1_Click() If CommonDialog1.Filename "" Then Multimedia.Wait = False Multimedia.mmOpen CommonDialog1.Filename ProgressBar1.Value = 0
ProgressBar1.Max = Multimedia.Length Timer1.Enabled = True Multimedia.mmPlay End If End Sub Tr?￾ v?￾ bi?￾u m ﾀu, nh ﾀn ?￾p chu?￾t l?￾n i?￾u khi?￾n Timer1 ?￾ m?￾ s?￾ ki?￾n Timer Private Sub Timer1_Timer() ProgressBar1.Value = Multimedia.Position Label1 = "Status: " & Multimedia.Status If ProgressBar1.Value = ProgressBar1.Max Then Multimedia.mmClose Timer1.Enabled = False End If End Sub C?￾ m?￾t v ﾀn ?￾ nh?￾ Ta ?￾ ?￾nh ngh)a biﾀn ch?￾ ﾀn instance c?￾a l?￾p MMedia h?￾m s?￾ ki?￾n command1_Click() B?￾y gi?￾ ch?￾ng ta l ﾀi mu?￾n ch?￾ ﾀn n?￾ t?￾ Timer1_Timer() GHI CH?￾ B ﾀn s ﾀ ﾀ?￾c gi ﾀi th?￾ch kh?￾i ni?￾m instance ch ﾀ ﾀng 13 - L ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng Trong s?￾ ki?￾n Click c?￾a n?￾t l?￾nh, ch?￾n d?￾ng khao b?￾o biﾀn Mutilmedia, nh ﾀn ph?￾m Ctrl-X ?￾ c ﾀt n?￾ v?￾o Clipboard v?￾ xo?￾ n?￾ kh?￾i s?￾ ki?￾n Command1_Click Sau ?￾, ch?￾n v?￾o danh s?￾ch (General) c?￾a s?￾ Code, nh ﾀn ph?￾m Ctrl V ?￾ d?￾n n?￾ v?￾o v?￾ng General Declarations Biﾀn khai b?￾o ﾀt v?￾ng n?￾y s ﾀ l?￾ biﾀn to?￾n c?￾c ?￾i v?￾i bi?￾u m ﾀu n?￾y Thi h?￾nh ch ﾀ ﾀng tr?￾nh Nh ﾀn n?￾t Load and Play a file , v?￾ ch?￾n m?￾t t ﾀptin AVI, v?￾ d?￾ t ﾀp tin video Welcome to windows 95 Ta s ﾀ th ﾀy di?￾n tiﾀn cho th ﾀy bao nhi?￾u ph ﾀn trm c?￾a t ﾀp tin ang ch ﾀi Khi video kﾀt th?￾c ta th ﾀy kﾀt qu ﾀ hi?￾n th?￾: Stopped Khi ta m?￾i nh ﾀn n?￾t l?￾nh, ch ﾀﾀng tr?￾nh thiﾀt l ﾀp c?￾c kh?￾i t ﾀo cho thu?￾c t?￾nh tr ﾀ?￾c ch ﾀi t ﾀp tin: If CommonDialog1.Filename "" Then Multimedia.Wait = False Multimedia.mmOpen CommonDialog1.Filename ProgressBar1.Value = 0
ProgressBar1.Max = Multimedia.Length Timer1.Enabled = True Multimedia.mmPlay End If ?￾i t ﾀ?￾ng multimedia c?￾ thu?￾c t?￾nh t?￾n l?￾ Wait Thu?￾c t?￾nh n?￾y quyﾀt ?￾nh ch ﾀﾀng tr?￾nh c?￾ tiﾀp t?￾c thi h?￾nh (a nhi?￾m) ch ﾀi t ﾀp tin, hay ph ﾀi d?￾ng v?￾ ch?￾ ﾀn ﾀn n?￾ ho?￾n t ﾀt Ph ﾀﾀng th?￾c mmPlay theo d?￾i gi?￾ tr?￾ c?￾a biﾀn bWait Nﾀu biﾀn n?￾y c?￾ gi?￾ tr?￾ True, n?￾ th?￾m Wait v?￾o l?￾nh g?￾i mciSendString: Public Sub mmPlay() Dim nReturn As Long If sAlias = "" Then Exit Sub If bWait Then nReturn = mciSendString("Play " & _ sAlias & " wait", "", 0
, 0
) Else nReturn = mciSendString("Play " & sAlias, "", 0
, 0
) End If End Sub L?￾m biﾀt gi?￾ tr?￾ bWait ?￾ Nh ﾀc l ﾀi r ﾀng ta c?￾ th?￾ cung c ﾀp c?￾c h?￾m thu?￾c t?￾ nh cho ph?￾p ?￾c ho ﾀc quy ?￾nh gi?￾ tr?￾ c?￾a biﾀn n?￾i b?￾: Property Get Wait() As Boolean ' Routine to return the value of the object's wait property Wait = bWait End Property Property Let Wait(bWaitValue As Boolean) ' Routine to set the value of the object's wait property bWait = bWaitValue End Property B ﾀ?￾c kﾀ l?￾ m?￾ t ﾀp tin ta mu?￾n ch ﾀi Ta d?￾ng ph ﾀﾀng th?￾c mmOpen ?￾ m?￾ t ﾀp tin M?￾ t ﾀp tin Tr ﾀ?￾c hﾀt, ta khai b?￾o m?￾t c ﾀp biﾀn c?￾c b?￾ ?￾ gi?￾ gi?￾ tr?￾ t ﾀm th?￾i Public Sub mmOpen(ByVal sTheFile As String) Dim nReturn As Long Dim sType As String If sAlias "" Then mmClose End If Select Case UCase$ (Right$(sTheFile, 3)) Case "WAV" sType = "Waveaudio" Case "AVI" sType = "AviVideo" Case "MID" sType = "Sequencer" Case Else Exit Sub End Select sAlias = Right$(sTheFile, 3) & Minute(Now) If InStr(sTheFile, " ") Then sTheFile = Chr(34) & sTheFile & Chr(34) End if nReturn =mciSendString("Open " & sTheFile _ & " ALIAS " & sAlias & " TYPE " & sType _ & " wait", "", 0
, 0
) End Sub Tr ﾀ?￾c hﾀt, h?￾m mmOpen ki?￾m tra biﾀn ?￾ m?￾c module g?￾i l?￾ sAlias If sAlias then mmClose End if L?￾m vi?￾c v?￾i MCI, ta n?￾n d?￾ng b?￾ danh cho t?￾ng t ﾀp tin m?￾ ?￾ ?￾y l?￾p MMedia thiﾀt l ﾀp m?￾t t?￾n cho b?￾ danh v?￾ ch?￾a b?￾ danh v?￾o biﾀn sAlias Khi ta tiﾀp t?￾c m?￾ m?￾t t ﾀp tin kﾀ tiﾀp b ﾀng mmOpen, ho ﾀc ch?￾ thu?￾c t?￾nh t?￾n t ﾀp tin, ch ﾀﾀng tr?￾nh ki?￾m tra i?￾u n?￾y v?￾ g?￾i m?￾t th?￾ t?￾c kh?￾c ?￾ ?￾ ng t ﾀp tin th?￾ nh ﾀt ?￾ng t ﾀp tin ta c ﾀn gi ﾀi ph?￾ng v?￾ng nh?￾ v?￾ tng t?￾c ?￾ ch ﾀi t ﾀp tin C ﾀu tr?￾c Select Case ki?￾m tra t?￾ng lo ﾀi t ﾀp tin L?￾nh wait cho ph?￾p ch ﾀﾀng tr?￾nh tiﾀp tuch ch ﾀy cho ﾀn n ﾀp th?￾nh c?￾ng Nﾀu kh?￾ng c?￾ wait, tr?￾n m?￾t m?￾y nhanh v?￾i )a c?￾ng ch ﾀm, c?￾ th?￾ c?￾ v ﾀn ?￾ Ta c?￾ th?￾ c?￾ ch ﾀi t ﾀp tin tr ﾀ?￾c n?￾ ﾀ?￾c n ﾀp xong, ﾀn gi ﾀn b?￾i v?￾ ch ﾀﾀng tr?￾nh ch ﾀy nhanh h ﾀn )a c?￾ng L ﾀu ?￾ r ﾀng n?￾ kh?￾ng gi?￾ng thu?￾c t?￾nh Wait tr ﾀ?￾c ?￾y ?￾ i?￾u khi?￾n ch ﾀﾀng tr?￾nh tiﾀp t?￾c ch ﾀy t ﾀp tin ang ch ﾀi ch?￾ kh?￾ng ph ﾀi ang n ﾀp L ﾀy chi?￾u d?￾i t ﾀp tin D?￾ng mciSendString ?￾ l ﾀy ho ﾀc quy ?￾ nh chi?￾u d?￾i Thu?￾c t?￾nh Length c?￾a l?￾p MMedia ch?￾ c?￾ t?￾nh ch ﾀt ﾀ?￾c ph?￾p ?￾c m?￾ th?￾i, v?￾ ta kh?￾ng cung c ﾀp h?￾m Property Let Property Get Length() As Single Dim nReturn As Long, nLength As Integer Dim sLength As String * 255 If sAlias = "" Then Length = 0
Exit Property End If nReturn = mciSendString("Status " & sAlias _ & length", Length, 255, 0
) nLength = InStr(sLength, Chr$(0
)) Length = Val(Left$(sLength, nLength - 1)) End Property Tr ﾀ?￾c hﾀt sAlias ﾀ?￾c ki?￾m tra xem t ﾀp tin c?￾ ang m?￾ hay kh?￾ng ?￾ Nﾀu ch ﾀa m?￾, gi?￾ tr?￾ tr ﾀ v?￾ t?￾ th?￾ t?￾c thu?￾c t?￾nh l?￾ 0
Nﾀu t ﾀp tin m?￾ r?￾i, l?￾nh Status Length c?￾a MCI ﾀ?￾c d?￾ng Ta kh?￾ng lo v?￾ c?￾ch t?￾nh chi?￾u d?￾i t ﾀp tin, v?￾ ﾀn v?￾ o ph?￾ h?￾p v?￾i di?￾ n tiﾀn L?￾nh Status l?￾ l?￾nh MCI ﾀc bi?￾t, c?￾ th?￾ kﾀt n?￾i v?￾i c?￾c t?￾ kho?￾ nh ﾀ Length, Position, Mode ?￾ x?￾ c ?￾nh c?￾c th?￾ng tin v?￾ t ﾀp tin hi?￾n h?￾nh N?￾ tr ﾀ v?￾ c?￾c th?￾ng tin n?￾y m?￾t chu?￾i k?￾ t?￾ c?￾ chi?￾u d?￾i nh ﾀt ?￾nh ﾀ?￾c truy?￾n v?￾o mciSendString Trong v?￾ d?￾ n?￾y chu?￾i tr ﾀ v?￾ l?￾ sLength v?￾ d?￾i 255 k?￾ t?￾ D) nhi?￾n, n?￾ kh?￾ng lu?￾n ch?￾a 255 k?￾ t?￾ tr ﾀ v?￾ t?￾ l?￾nh Status D?￾ng h?￾m InStr ?￾ c ﾀt b?￾ c?￾c k?￾ t?￾ 0
l ﾀp ﾀy kho ﾀng tr?￾ng Chi?￾u d?￾i ch?￾a chu?￾i ﾀ?￾c tr?￾ch chu?￾i v?￾ chuy?￾n ?￾i sang ki?￾u s?￾ tr ﾀ?￾c g?￾n cho Length L ﾀy v?￾ tr?￾ hi?￾n h?￾nh L?￾nh Status Position c?￾ th?￾ ﾀ?￾c g?￾i nhi?￾u l ﾀn ?￾ x?￾c ?￾nh v?￾ tr?￾ hi?￾n h?￾nh c?￾a t ﾀp tin ang ch ﾀi: Property Get Position() As Single Dim nReturn As Integer, nLength As Integer Dim sPosition As String * 255 If sAlias = "" Then Exit Property nReturn = mciSendString("Status " & sAlias _ & " position", sPosition, 255, 0
) nLength = InStr(sPosition, Chr$(0
)) Position = Val(Left$ (sPosition, nLength - 1)) End Property Thay v?￾ g?￾i Status Length, ta g?￾i Status Position L ﾀy tr ﾀng th?￾i hi?￾n h?￾nh ?￾ l ﾀy chu?￾i k?￾ t?￾ tr ﾀng th?￾i c?￾n g?￾i l?￾ mode, ta truy v ﾀn thu?￾c t?￾nh Status c?￾a l?￾p Ta cing s?￾ d?￾ng h?￾m thu?￾c t?￾nh Property Get h ﾀu ?￾ng nh ﾀt v?￾i thu?￾c t?￾nh Position tr?￾n ?￾y Ch?￾ kh?￾c l?￾ ta g?￾i Status Mode thay v?￾ Status Length hay Status Position cho mciSendString D) nhi?￾n, kh?￾ng c ﾀn chuy?￾n ?￾i sang ki?￾u s?￾: nReturn = mciSendString("Status " & sAlias & _ " mode", sStatus, 255, 0
) nLength = InStr(sStatus, Chr$(0
)) Status = Left$(sStatus, nLength - 1) Tr?￾ l ﾀi s?￾ ki?￾n Command1_Click Cho t?￾i gi?￾, ta ?￾ ?￾nh ngh)a thu?￾c t?￾nh Wait., m?￾ t ﾀp tin, thiﾀt l ﾀp di?￾n tiﾀn Tr ﾀ?￾c ch ﾀi t ﾀp tin, ta quy ?￾nh Timer Sau ?￾, ta ch ﾀi t ﾀp tin b ﾀng c?￾ch g?￾i ph ﾀﾀng th?￾c mmPlay c?￾a ?￾i t ﾀ?￾ng Multimedia If CommonDialog1.Filename "" Then Multimedia.Wait = False Multimedia.mmOpen CommonDialog1.Filename ProgressBar1.Value = 0
ProgressBar1.Max = Multimedia.Length Timer1.Enabled = True Multimedia.mmPlay End If Ch ﾀi tr?￾n t ﾀp tin Tr ﾀ?￾c hﾀt, ki?￾m tra t ﾀp tin m?￾ th?￾ng qua biﾀn sAlias; sau ?￾ nﾀu tho ﾀ i?￾u ki?￾n, n?￾ thi h?￾nh l?￾nh Play c?￾a MCI Public Sub mmPlay() Dim nReturn As Long If sAlias = "" Then Exit Sub If bWait Then nReturn = mciSendString("Play " & _ sAlias & " wait", "", 0
, 0
) Else nReturn = mciSendString("Play " & _ sAlias, "", 0
, 0
) End If End Sub C ﾀp nh ﾀt di?￾n tiﾀn v?￾ i?￾u khi?￾n nh?￾n C?￾ng vi?￾c sau c?￾ng l?￾ c ﾀp nh ﾀt tr ﾀng th?￾i v?￾ nh?￾n tr?￾n bi?￾u m ﾀu, t ﾀp tin ang ch ﾀi Tr ﾀ?￾c khich ﾀi t ﾀp tin, ﾀt i?￾u khi?￾n Timer v?￾i Interval l?￾ 50
0
V ﾀy n?￾ s ﾀ k?￾ch ho ﾀt ﾀm m?￾i n?￾a gi?￾y Khi ?￾, o ﾀn ch ﾀﾀng tr?￾nh sau ﾀ?￾c thi h?￾nh: Private Sub Timer1_Timer() ProgressBar1.Value = Multimedia.Position Label1 = "Status: " & Multimedia.Status If ProgressBar1.Value = ProgressBar1.Max Then Multimedia.mmClose Timer1.Enabled = False End If End Sub Cu?￾i c?￾ng c ﾀn ph ﾀi ng ﾀng l ﾀi ﾀt ﾀn cu?￾i t ﾀp tin C?￾ th?￾ th?￾c hi?￾n i?￾u n?￾y b ﾀng c?￾ch so s?￾ nh gi?￾ tr?￾ hi?￾n h?￾nh v?￾ gi?￾ tr?￾ Max c?￾a di?￾n tiﾀn Khi ch?￾ng b ﾀng nhau, t ﾀp tin ﾀ?￾c ?￾ng b ﾀng ph ﾀﾀng th?￾c mmClose Sau ?￾, c ﾀm Timer ?￾ ngn h?￾m n?￾y ch ﾀy cho ﾀn m?￾ t ﾀp tin kh?￾c T?￾m t ﾀt c?￾c l?￾nh c?￾a MCI L?￾nhM?￾ t ﾀPlayCh ﾀi m?￾t t ﾀp tinPauseT ﾀm d?￾ng ch ﾀi, s ﾀn s?￾ng b ﾀt ﾀu m?￾i l?￾ cStopD?￾ng h ﾀn - c ﾀn chuy?￾n ﾀn m?￾t v?￾ tr?￾ n?￾o ?￾ ?￾ tiﾀp t?￾c ch ﾀiSeekTheo sau l?￾ m?￾t s?￾, chuy?￾n ﾀn v?￾ tr?￾ t ﾀp tinStatus ModeTr ﾀ v?￾ m?￾t chu?￾i k?￾ t?￾ th?￾ hi?￾n tr ﾀng th?￾i t ﾀp tin(ang choi, ang m?￾, t ﾀm d?￾ng, d?￾ng h ﾀn ) Status PositionTr ﾀ v?￾ v?￾ tr?￾ t ﾀp tin m?￾ playback ?￾ ﾀt ﾀnStatus LengthTr ﾀ v?￾ chi?￾u d?￾i t ﾀp tin v?￾ h?￾ tr?￾ ?￾ d ﾀa s?￾ tr ﾀ v?￾ t?￾ Status Position v?￾o m?￾t ng?￾ c ﾀnh c?￾ ?￾ ngh)a n?￾o ?￾.Close?￾ng t ﾀp tin v?￾ gi ﾀi ph?￾ng v?￾ng nh?￾ n?￾ chiﾀm tr ﾀ?￾c ?￾ Ngo?￾i MCI c?￾n h?￾ tr?￾ m?￾t s?￾ l?￾nh kh?￾c v?￾ m?￾t s?￾ l?￾nh ﾀc bi?￾t cho m?￾i ?￾nh d ﾀng t ﾀp tin Th?￾m tr?￾ gi?￾p v?￾o ?￾ng d?￾ng Th?￾m h?￾ tr?￾ cho Help Th?￾m h?￾ tr?￾ cho Help v?￾o ?￾ng d?￾ng VB g ﾀn nh ﾀ kh?￾ ﾀn gi ﾀn T ﾀt c ﾀ nh?￾ng g?￾ ta c ﾀn l?￾m l?￾ ch?￾ m?￾t thu?￾c t?￾nh, HelpFile (v?￾ d) nhi?￾n, viﾀt v?￾ bi?￾n d?￾ch t ﾀp tin Help) ?￾ hi?￾n th?￾ Help ng ﾀ?￾i s?￾ d?￾ng nh ﾀn ph?￾m F1 hay y?￾u c ﾀu Help t?￾ Menu M?￾t thu?￾c t?￾nh kh?￾c l?￾ HelpContextID, d?￾ng ?￾ cung c ﾀp ch?￾ ?￾ Help theo ng?￾ c ﾀnh cho b ﾀt k?￾ giao di?￾n ng ﾀ?￾i s?￾ d?￾ng n?￾o ch ﾀﾀng tr?￾nh Qu?￾ tr?￾nh g ﾀn th?￾m Help l?￾ nh ﾀ c ﾀ WinHelp v?￾ HTML Help Thu?￾c t?￾nh HelpFile Thu?￾c t?￾nh HelpFile c?￾a ?￾i t ﾀ?￾ng App ﾀ?￾c d?￾ng ?￾ ch?￾ t?￾n c?￾a t ﾀp tin Help cho ?￾ng d?￾ng N?￾ ?￾i h?￾i m?￾t t ﾀp tin h?￾p l?￾ c?￾a WinHelp (.hlp) ho ﾀc l?￾ HTML Help (.chm) Nﾀu t ﾀp tin kh?￾ng t?￾n t ﾀi, l?￾i s ﾀ x ﾀy Ch?￾ thu?￾c t?￾nh HelpFile Ch?￾n Project Properties t?￾ menu Project ?￾ m?￾ h?￾p tho ﾀi Project Properties Trong tr ﾀ?￾ng Help File Name c?￾a tab General, g?￾ v?￾o ﾀ?￾ng d ﾀn v?￾ t?￾n c?￾a t ﾀp tin Help c?￾a ?￾ng d?￾ng (.hlp hay.chm) Ta c?￾n c?￾ th?￾ ch?￾ HelpFile b ﾀng c?￾ch l ﾀp tr?￾nh o ﾀn ch ﾀﾀng tr?￾nh sau ?￾y ch?￾ m?￾t t ﾀp tin HTML Help ch?￾a c?￾ng th ﾀ m?￾c v?￾i t ﾀp tin thi h?￾nh c?￾a ?￾ng d?￾ng: Private Sub Form_Load() App.HelpFile = App.Path & \foo.chm End Sub ?￾i t ﾀ?￾ng ErrObject cing c?￾ thu?￾c t?￾nh HelpFile, cho ph?￾p ta ch?￾ m?￾t t ﾀp tin Help kh?￾c cho c?￾c th?￾ng b?￾o l?￾i V?￾ d?￾, nﾀu ta c?￾ m?￾t v?￾i ?￾ng d?￾ng s?￾ d?￾ng chung c?￾c th?￾ng b?￾o l?￾i, ta c?￾ th?￾ ﾀt Help cho c?￾c th?￾ng b?￾o l?￾i m?￾t t ﾀp tin Help nh ﾀt v?￾ g?￾i n?￾ b ﾀng thu?￾c t?￾nh Err.HelpFile m?￾i ?￾ng d?￾ng Thu?￾c t?￾nh HelpContextID Thu?￾c t?￾ nh HelpContextID ﾀ?￾c d?￾ng ?￾ li?￾n kﾀt m?￾t ph ﾀn giao di?￾n ng ﾀ?￾i s?￾ d?￾ng (nh ﾀ l?￾ i?￾u khi?￾n, bi?￾u m ﾀu hay menu) v?￾i m?￾t ch?￾ ?￾ li?￾n quan t ﾀp tin Help Thu?￾c t?￾nh HelpContextID ph ﾀi c?￾ ki?￾u l?￾ m?￾ t s?￾ Long t ﾀﾀng ?￾ng v?￾i Context ID c?￾a m?￾t ch?￾ ?￾ t ﾀp tin WinHelp (.hlp) hay HTML Help (.chm) V?￾ d?￾, ta c?￾ th?￾ nh ﾀp 10
0
0
0
v?￾o thu?￾c t?￾nh HelpContextID c?￾a h?￾p b ﾀn Khi ng ﾀ?￾i s?￾ d?￾ng ch?￾n h?￾p b ﾀn v?￾ nh ﾀn F1, VB t?￾m kiﾀm ch?￾ ?￾ c?￾ Context ID l?￾ 10
0
0
0
t ﾀp tin Help ﾀ?￾c ch?￾ thu?￾c t?￾nh HelpFile c?￾a ?￾ng d?￾ng Nﾀu n?￾ t?￾m th ﾀy, m?￾t c?￾a s?￾ Help s ﾀ ﾀ?￾c m?￾ v?￾ hi?￾n th?￾ ch?￾ ?￾; nﾀu kh?￾ng, l?￾i s ﾀ xu ﾀt hi?￾n v?￾ ch?￾ ?￾ m ﾀc ?￾nh c?￾a t ﾀp tin Help s ﾀ ﾀ?￾c hi?￾n th?￾ Ta n?￾n s?￾ d?￾ng HelpContextID nh ﾀt cho m?￾i ch?￾ ?￾ Help t ﾀp tin Help Trong m?￾t s?￾ tr ﾀ?￾ng h?￾p, nﾀu mu?￾n, ta c?￾ th?￾ g?￾n c?￾ng HelpContextID cho m?￾t ?￾i t ﾀ?￾ng nﾀu nh ﾀ ch?￾ng s?￾ d?￾ng chung m?￾t ch?￾ ?￾ Help Ta kh?￾ng nh ﾀt thiﾀt ph ﾀi nh ﾀp m?￾t HelpContextID cho m?￾i i?￾u khi?￾n tr?￾n bi?￾u m ﾀu Nﾀu ng ﾀ?￾i s?￾ d?￾ ng nh ﾀn F1 tr?￾n i?￾u khi?￾n v?￾i HelpContextID 0
(gi?￾ tr?￾ m ﾀc ?￾nh), VB s ﾀ t?￾m kiﾀm m?￾t HelpContextID h?￾p l?￾ cho n ﾀi ch?￾a c?￾a i?￾u khi?￾n G?￾n HelpContextID cho m?￾t i?￾u khi?￾n hay bi?￾u m ﾀu Ch?￾n m?￾t i?￾u khi?￾n hay bi?￾u m ﾀu m?￾ ta mu?￾n nh ﾀp v?￾o HelpContextID Nh ﾀn ?￾p HelpContextID c?￾a s?￾ Properties v?￾ g?￾ v?￾o gi?￾ tr?￾ Long h?￾p l?￾ Theo d?￾i gi?￾ tr?￾ m?￾ ta nh ﾀp v?￾o cho ta c?￾ th?￾ d?￾ng c?￾ng gi?￾ tr?￾ ?￾ cho Context ID c?￾a ch?￾ ?￾ Help t ﾀﾀng ?￾ng Ch?￾ ?￾: ?￾i v?￾i i?￾u khi?￾n CommonDialog v?￾ c?￾ l ﾀ ?￾i v?￾i m?￾t s?￾ i?￾u khi?￾n kh?￾c, t?￾n c?￾a thu?￾c t?￾nh n?￾y l?￾ HelpContext thay v?￾ HelpContextID G?￾n HelpContextID cho menu Ch?￾n Menu Editor t?￾ menu Tools Ch?￾n m?￾c menu m?￾ ta mu?￾n nh ﾀp v?￾o m?￾t HelpContextID Nh ﾀp v?￾o m?￾t gi?￾ tr?￾ Long h?￾p l?￾ h?￾p Select the HelpContextID Theo d?￾i gi?￾ tr?￾ m?￾ ta nh ﾀp v?￾o cho ta c?￾ th?￾ d?￾ng c?￾ng gi?￾ tr?￾ ?￾ cho Context ID c?￾a ch?￾ ?￾ Help t ﾀﾀng h?￾p HelpContextID c?￾n c?￾ th?￾ ﾀ?￾c nh ﾀp v?￾o b ﾀng c?￾ch l ﾀp tr?￾nh: Private Sub Form_Load() Command1.HelpContextID = 12345 MenuHelp.HelpContextID = 23456 Err.HelpContext = 34567 End Sub Th?￾m h?￾ tr?￾ cho WHAT S THIS HELP VB cho ph?￾p ta th?￾m What s This Help v?￾o c?￾c ?￾ng d?￾ng m?￾ t c?￾ch d?￾ d?￾ng What s This Help cung c ﾀp ph ﾀn truy c ﾀp nhanh ﾀn b ﾀn Help m?￾t c?￾a s?￾ b ﾀt m?￾ kh?￾ng c ﾀn ph ﾀi m?￾ Help Viewer What s This Help ch?￾ yﾀu ﾀ?￾c s?￾ d?￾ng ?￾ cung c ﾀp tr?￾ gi?￾p ﾀn gi ﾀn cho c?￾c ph ﾀn giao di?￾n ng ﾀ?￾i s?￾ d?￾ng nh ﾀ l?￾ c?￾c tr ﾀ?￾ng d?￾ li?￾u nh ﾀp VB h?￾ tr?￾ c?￾c ch?￾ ?￾ What s This Help c?￾c t ﾀp tin WinHelp (.hlp) v?￾ HTML Help Vi?￾c g?￾n gi?￾ tr?￾ True cho thu?￾c t?￾nh WhatsThisHelp c?￾a bi?￾u m ﾀu l?￾m cho What s This Help ho ﾀt ?￾ng ﾀ?￾c Khi ?￾, ph ﾀn Help theo ng?￾ c ﾀnh cho bi?￾u m ﾀu s ﾀ b?￾ v?￾ hi?￾u ho?￾ K?￾ch ho ﾀt What s This Help cho bi?￾u m ﾀu V?￾i bi?￾u m ﾀu ?￾ ﾀ?￾ c ch?￾n, nh ﾀn ?￾p l?￾n thu?￾c t?￾nh WhatsThisHelp c?￾a s?￾ Properties ?￾ ?￾nh gi?￾ tr?￾ cho n?￾ l?￾ True C?￾i ﾀt c?￾c thu?￾c t?￾nh sau ?￾y ?￾ th?￾m m?￾t n?￾t What s This v?￾o ti?￾u ?￾ c?￾a bi?￾u m ﾀu: Thu?￾c t?￾nhC?￾i ﾀtBorderStyle1-Fixed Single hay 2-SizableMaxButtonFalseMinButtonFalseWhatsThisButtonTrueCh?￾n m?￾t i?￾u khi?￾n m?￾ ta mu?￾n cung c ﾀp What s This Helpv?￾ g?￾n m?￾t gi?￾ tr?￾ nh ﾀt cho thu?￾c t?￾nh WhatsThisHelpID c?￾a i?￾u khi?￾n Theo d?￾i gi?￾ t?￾ m?￾ ta nh ﾀp v?￾o cho ta c?￾ th?￾ d?￾ng c?￾ng gi?￾ tr?￾ ?￾ cho Context ID c?￾a ch?￾ ?￾ Help t ﾀﾀng ?￾ng Ta cing c?￾ th?￾ cho ph?￾p What s This Help m?￾ kh?￾ng d?￾ng n?￾t What s This b ﾀng c?￾ch ch?￾ thu?￾c t?￾nh WhatsThisHelp c?￾a bi?￾u m ﾀu l?￾ True v?￾ g?￾i ph ﾀﾀng th?￾c WhatThisMode c?￾a bi?￾u m ﾀu hay ph ﾀﾀng th?￾c ShowWhatThis c?￾a i?￾u khi?￾n Cung c ﾀp help c?￾ng v?￾ i ?￾ng d?￾ng B ﾀ?￾c cu?￾i c?￾ng vi?￾c th?￾m Help v?￾o ?￾ng d?￾ng l?￾ ch ﾀc ch ﾀn r ﾀng n?￾ s ﾀ ﾀn tay ng ﾀ?￾ i s?￾ d?￾ng C?￾c y?￾u c ﾀu cho vi?￾c cung c ﾀp Help c?￾ng v?￾i ?￾ng d?￾ng c?￾ h ﾀi kh?￾c gi?￾a WinHelp v?￾ HTML Help Cung c ﾀp WinHelp B?￾i v?￾ m?￾i h?￾ th?￾ng Windows ?￾u c?￾ c?￾i ﾀt s ﾀn Tr?￾nh xem Tr?￾ gi?￾p c?￾a Windows (Windows Help Viewer), ta ch?￾ c?￾n ph ﾀi cung c ﾀp t ﾀp tin Help (.hlp) Tr?￾nh ?￾ng g?￾i v?￾ Tri?￾ n khai (Package and Deployment Wizard) t?￾ ?￾ng th?￾m c?￾c ph ﾀn ph?￾ thu?￾c cho t ﾀp tin Help ﾀ?￾c tham chiﾀu b?￾i ?￾ng d?￾ng Nﾀu ta t ﾀo ph ﾀn c?￾i ﾀt b ﾀng c?￾c c?￾ng c?￾ kh?￾c, ta ph ﾀi b ﾀo ﾀm r ﾀng t ﾀp tin.hlp ﾀ?￾c ﾀa v?￾o v?￾ ﾀ?￾c c?￾i ﾀt v?￾o ?￾ng v?￾ tr?￾ (th ﾀ?￾ng l?￾ c?￾ng thu m?￾c v?￾i ?￾ng d?￾ng ho ﾀc l?￾ th ﾀ m?￾c Windows\Help) Cung c ﾀp HTML Help HTML Help l?￾ m?￾t k?￾ thu ﾀt t ﾀﾀng ?￾i m?￾i, ?￾, ta kh?￾ ng th?￾ gi ﾀ ?￾nh r ﾀng m?￾i ng ﾀ?￾i s?￾ d?￾ng ?￾ c?￾ nh?￾ng t ﾀp tin c ﾀn thiﾀt ?￾ xem HTML Help Tr?￾nh ?￾ng g?￾i v?￾ Tri?￾n khai (Package and Deployment Wizard) s ﾀ th?￾m c?￾c ph ﾀn li?￾n quan ?￾i v?￾i t ﾀp tin HTML Help (.chm) ﾀ?￾c tham chiﾀu b?￾i ?￾ng d?￾ng; nh ﾀng n?￾ kh?￾ng th?￾m t ﾀt c ﾀ c?￾c ph ﾀn li?￾n quan ﾀn t ﾀp tin HTML Help Viewer Ta c ﾀn ph ﾀi s?￾a l ﾀi ph ﾀn c?￾i ﾀt ?￾ ﾀa c?￾c t ﾀp tin n?￾y v?￾o Tra c?￾u c?￾c t?￾i li?￾ u cho c?￾ng c?￾ HTML Help ?￾ hi?￾u th?￾m v?￾ c?￾c t ﾀp tin n?￾o ﾀ?￾c y?￾u c ﾀu m?￾t t?￾nh hu?￾ng cho tr ﾀ?￾ c L ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng Gi?￾i thi?￾u v?￾ ?￾i t ﾀ?￾ng T?￾ ﾀu quy?￾n ﾀn gi?￾, ch?￾ng ta ch?￾ s?￾ d?￾ng biﾀn ?￾ ch?￾a nh?￾ng d?￾ li?￾u t ﾀm th?￾i ?￾ng d?￾ng, ch ﾀng h ﾀn nh ﾀ nh?￾ng gi?￾ tr?￾ ng ﾀ?￾i s?￾ d?￾ng nh ﾀp v?￾ o qua giao di?￾n Tuy nhi?￾n, ?￾y ch?￾ l?￾ m?￾t ph ﾀn nh?￾ c?￾a VB VB th?￾c ch ﾀt l?￾ m?￾t c?￾ng c?￾ l ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng r ﾀt m ﾀnh B ﾀn c?￾ th?￾ cho r ﾀng k?￾ thu ﾀt n?￾y v ﾀ?￾t qu?￾ kh ﾀ nng m?￾t ng ﾀ?￾i m?￾i h?￾c l ﾀp tr?￾nh VB Tuy nhi?￾n, kh?￾ng h ﾀn nh ﾀ v ﾀy L ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng (Object Oriented Programming OOP) gi?￾p l ﾀp tr?￾nh d?￾ d?￾ng h ﾀn C?￾c v?￾ d?￾ d?￾ng tr ﾀ?￾c ?￾y ﾀ?￾c l ﾀp tr?￾nh theo ki?￾u l ﾀp tr?￾nh c?￾ i?￾n i?￾u n?￾y kh?￾ng c?￾ g?￾ sai b?￾i v?￾ ?￾y l?￾ nh?￾ng ch ﾀﾀng tr?￾nh nh?￾ v?￾ vi?￾c s?￾ d?￾ng OOP cho ch?￾ng cing kh?￾ng ph?￾ h?￾p V?￾i ki?￾u l ﾀp t?￾nh c?￾ i?￾n, c?￾n g?￾i l?￾ Ph?￾t tri?￾n ph ﾀn m?￾m theo c ﾀu tr?￾c (Structured Software Development), ta ph ﾀi x?￾c ?￾nh d?￾ li?￾u cing nh ﾀ c?￾ch th?￾c ?￾ x?￾ l?￾ d?￾ li?￾u ?￾ng d?￾ng M?￾t giao di?￾n ng ﾀ?￾i s?￾ d?￾ng ﾀ?￾c cung c ﾀp ?￾ hi?￾n th?￾ v?￾ nh ﾀn d?￾ li?￾u t?￾ ng ﾀ?￾i s?￾ d?￾ng, sau ?￾, c?￾ c h?￾m v?￾ th?￾ t?￾c ﾀ?￾c x?￾y d?￾ng ?￾ th?￾c s?￾ x?￾ l?￾ d?￾ li?￾u i?￾u n?￾y c?￾ v ﾀ ﾀn gi ﾀn ?￾ gi ﾀi quyﾀt m?￾t v ﾀn ?￾ l?￾n, ?￾ng d?￾ng chia th?￾nh nhi?￾u v ﾀn ?￾ nh?￾ ?￾ gi ﾀi quyﾀt m?￾t v ﾀn ?￾ l?￾n, ?￾ng d?￾ng chia th?￾nh nhi?￾u v ﾀn ?￾ nh?￾ ?￾ gi ﾀi quyﾀt c?￾c h?￾m / th?￾ t?￾c OOP h ﾀi kh?￾c m?￾t ch?￾t V?￾i l ﾀp tr?￾nh c?￾ c ﾀu tr?￾c, c?￾ ch th?￾c x?￾y d?￾ng ?￾ng d?￾ng, c?￾ch ch?￾ng kﾀt h?￾p ?￾ m?￾c ch ﾀﾀng tr?￾nh r ﾀt kh?￾c bi?￾t v?￾i th?￾c tﾀ cu?￾c s?￾ ng L ﾀy m?￾t ?￾ng d?￾ng t?￾nh l ﾀﾀng l?￾m v?￾ d?￾ Khi nh?￾n vi?￾n ﾀ?￾c nh ﾀn v?￾o l?￾m vi?￾c, c?￾c th?￾ng tin v?￾ nh?￾n vi?￾n ?￾ s ﾀ ﾀ?￾c nh ﾀp v?￾o h?￾ th?￾ng t?￾nh l ﾀﾀng S?￾ d?￾ng k?￾ thu ﾀt l ﾀp tr?￾nh c?￾ c ﾀu tr?￾c, ta s ﾀ d?￾ ng m?￾t bi?￾u m ﾀu ?￾ ch?￾a c?￾c th?￾ng tin c?￾a nh?￾n vi?￾n v?￾ viﾀt ch ﾀﾀng tr?￾nh ?￾ copy t ﾀt c ﾀ th?￾ng tin ?￾ nh ﾀp v?￾o bi?￾u m ﾀu ?￾ v?￾o CSDL ch?￾a ?￾ ?￾u ?￾ tr?￾n m ﾀng c?￾ng ty ?￾ t ﾀo phiﾀu tr ﾀ l ﾀﾀng, ta c ﾀn c?￾ m?￾t bi?￾u m ﾀu in phiﾀu tr ﾀ l ﾀﾀng cho ph?￾p NSD ch ﾀﾀng tr?￾nh ch?￾n m?￾t nh?￾n vi?￾n s ﾀ tr ﾀ l ﾀ ﾀng, r?￾i viﾀt ch ﾀﾀng tr?￾nh ?￾ thu th ﾀp t ﾀt c ﾀ th?￾ng tin t?￾ CSDL v?￾ ?￾nh d ﾀng n?￾ r?￾i ﾀa m?￾y in Ta c?￾ th?￾ th ﾀy r ﾀng, gi ﾀi ph?￾p n?￾y n ﾀng v?￾ k?￾ thu ﾀt v?￾ nghi?￾ng v?￾ x?￾ l?￾ m?￾y t?￾nh h ﾀn l?￾ c?￾ch th?￾c hi?￾ n th?￾c tﾀ cu?￾c s?￾ng L ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng s ﾀ l?￾m cho m?￾i chuy?￾n tr?￾ n?￾n ﾀn gi ﾀn h ﾀn nhi?￾u V?￾i OOP, ta viﾀt m?￾t ch ﾀﾀng tr?￾nh d?￾a tr?￾n c?￾c ?￾i t ﾀ?￾ng c?￾a th?￾c tﾀ cu?￾c s?￾ng V?￾ d?￾, nﾀu ta ang viﾀt m?￾t ?￾ng d?￾ng t?￾nh l ﾀﾀng, ?￾i t ﾀ?￾ng m?￾ ta c ﾀn l?￾m vi?￾c s ﾀ l?￾ ph?￾ng ban v?￾ nh?￾n vi?￾n M?￾i ?￾i t ﾀ?￾ng n?￾y c?￾ c?￾c thu?￾c t?￾nh: v?￾ d?￾, m?￾t nh?￾n vi?￾n c?￾ t?￾n v?￾ s?￾; m?￾t ph?￾ng ban c?￾ v?￾ tr?￾ v?￾ tr ﾀ?￾ng ph?￾ ng Th?￾m v?￾o ?￾, c?￾ m?￾t s?￾ ph ﾀﾀng th?￾c ?￾ ph?￾ng ph?￾t l ﾀﾀng ?￾p d?￾ng cho c?￾c ?￾i t ﾀ?￾ng tr?￾n - m?￾i th?￾ng m?￾t l ﾀn, n?￾ quyﾀt ?￾nh ?￾p d?￾ng ph ﾀﾀng th?￾c ph?￾t l ﾀﾀng cho c?￾c ?￾i t ﾀ?￾ng nh?￾n vi?￾n L ﾀp tr?￾nh OOP cing t ﾀﾀng t?￾ nh ﾀ thﾀ: Ta quyﾀt ?￾nh ?￾i t ﾀ?￾ng n?￾o l?￾ c ﾀn thiﾀt, ?￾i t ﾀ?￾ng c?￾ nh?￾ng thu?￾c t?￾nh n?￾o, v?￾ ta s ﾀ ?￾p d?￾ng nh?￾ng ph ﾀﾀng th?￾c n?￾o cho ?￾i t ﾀ?￾ng Ta c?￾ th?￾ th ﾀy r ﾀng, ?￾y l?￾ gi ﾀi ph?￾p hﾀt s?￾c g ﾀn gii v?￾i nh?￾ng v ﾀn ?￾ c?￾a th?￾c tﾀ cu?￾c s?￾ng m?￾ ta th ﾀ?￾ng xuy?￾n g ﾀp ph ﾀi Nh?￾n vi?￾n ﾀ?￾c xem l?￾ ?￾i t ﾀ?￾ng m?￾t ?￾ng d?￾ng, v?￾ ph?￾ng ban l?￾ ?￾i t ﾀ?￾ng c?￾ li?￾n quan v?￾i nh?￾n vi?￾n V?￾i l ﾀp tr?￾nh c?￾ c ﾀu tr?￾c, ta c?￾ xu h ﾀ?￾ng xem d?￾ li?￾u v?￾ c?￾ch th?￾c x?￾ l?￾ d?￾ li?￾u l?￾ hai ph ﾀn t?￾ch bi?￾t nhau, ho?￾n to?￾n kh?￾ c v?￾i c?￾c ?￾i t ﾀ?￾ng v?￾ c?￾ch x?￾ l?￾ th?￾c tﾀ cu?￾c s?￾ng m?￾ ta v ﾀn th ﾀ?￾ng l?￾m V?￾i OOP, ta ?￾ng g?￾i d?￾ li?￾u v?￾ c?￾c ch?￾c nng x?￾ l?￾ d?￾ li?￾u m?￾t ?￾i t ﾀﾀng (Object) gi?￾ng h?￾t v?￾i ?￾i t ﾀ?￾ng th?￾c tﾀ cu?￾c s?￾ng Nh?￾n vi?￾n c?￾ t?￾n v?￾ ?￾a ch?￾, v?￾ v ﾀy, ?￾y s ﾀ l?￾ c?￾c thu?￾c t?￾nh c?￾a ?￾i t ﾀ?￾ng Nh?￾n vi?￾n - d?￾ li?￾u Nh?￾ n vi?￾n c?￾ th?￾ ﾀ?￾c nh ﾀn vi?￾c v?￾ b?￾ u?￾i vi?￾c, v?￾ v ﾀy, ?￾y s ﾀ l?￾ c?￾c ph ﾀﾀng th?￾c c?￾a ?￾i t ﾀ?￾ng Nh?￾n vi?￾n ch?￾c nng B ﾀng c?￾ch chia ?￾ng d?￾ng th?￾nh nhi?￾u ?￾i t ﾀ?￾ng v?￾ ph?￾t tri?￾n tr?￾n c?￾c ?￾i t ﾀ?￾ng, k?￾ thu ﾀt n?￾y g ﾀn gii h ﾀn v?￾i ?￾i s?￾ng N?￾ gi?￾p t ﾀo nh?￾ng ch ﾀﾀng tr?￾nh d?￾ ?￾c d?￾ b ﾀo tr?￾ K?￾ thu ﾀt n?￾y cing l?￾ ch?￾n l?￾a c?￾a nhi?￾u c?￾ng ty l?￾n ph?￾t tri?￾n ph ﾀn m?￾m ?￾i t ﾀ?￾ng VB Nh ﾀ v ﾀy c?￾c l?￾ thuyﾀt tr?￾nh b?￾y tr?￾n ?￾y th?￾ hi?￾n nh ﾀ thﾀ n?￾o VB?￾ Khi ta quyﾀt ?￾nh ﾀt m?￾t h?￾p b ﾀn v?￾o bi?￾u m ﾀu, ta c?￾ ph ﾀi g?￾i th?￾ t?￾c ?￾ t ﾀo h?￾p b ﾀn, m?￾t th?￾ t?￾c kh?￾c ?￾ ﾀt h?￾p b ﾀn v?￾o v?￾ tr?￾, r?￾i g?￾i m?￾t th?￾ t?￾c kh?￾c n?￾a ?￾ ?￾nh gi?￾ tr?￾ kh?￾i ?￾ng?￾ Ta c?￾ ph ﾀi lu?￾n g?￾i m?￾t h?￾m m?￾i ng ﾀ?￾i s?￾ d?￾ng nh ﾀp m?￾t gi?￾ tr?￾ b ﾀt k?￾ v?￾o h?￾p b ﾀn?￾ D) nhi?￾n kh?￾ng ph ﾀi nh ﾀ v ﾀy Nh?￾ng g?￾ ta c ﾀn l?￾m l?￾ k?￾o v?￾ th ﾀ m?￾t ?￾i t ﾀ?￾ng (hay m?￾t i?￾u khi?￾n), ch ﾀng h ﾀn nh ﾀ h?￾p b ﾀn v?￾o bi?￾u m ﾀu, r?￾i d?￾ng c?￾c thu?￾c t?￾nh ?￾ s?￾a ?￾i c?￾ch th?￾ hi?￾n ch?￾ng Khi ng ﾀ?￾i s?￾ d?￾ng nh ﾀp d?￾ li?￾u v?￾o h?￾p b ﾀn, h?￾p b ﾀn s ﾀ th?￾ng b?￾o cho ta biﾀt th?￾ng qua c?￾c s?￾ ki?￾n Change v?￾ s?￾ ki?￾n KeyPress M ﾀc d?￾ tr ﾀ?￾c ?￾y, b ﾀn kh?￾ ng nh ﾀn i?￾u n?￾y, nh ﾀng ?￾ m?￾t m?￾c ?￾ n?￾o ?￾, b ﾀn ?￾ th?￾c hi?￾n l ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng r?￾i ?￾ Ngo?￾i c?￾c ?￾i tu?￾ng hay i?￾u khi?￾n ﾀ?￾c cung c ﾀp s ﾀn, VB c?￾n cho ph?￾p l ﾀp tr?￾nh vi?￾n t ﾀo c?￾c ?￾i t ﾀ?￾ng th?￾ ng qua c ﾀ chﾀ modul l?￾p (Class module) Trong l?￾p Modul, ta ?￾nh ngh)a c?￾c thu?￾c t?￾nh v?￾ ph ﾀﾀng th?￾ c c?￾a m?￾t ?￾i t ﾀ?￾ng Sau ho?￾n t ﾀt, ?￾ s?￾ d?￾ng ?￾i t ﾀ?￾ng, tr ﾀ?￾c hﾀt, ta t ﾀo ?￾i t ﾀ?￾ng v?￾ g?￾i c?￾c h?￾m / th?￾ t?￾c modul l?￾p C?￾c ?￾i t ﾀ?￾ng n?￾y c?￾ m?￾t s?￾ ﾀc t?￾nh chung: T?￾ng ?￾i t ﾀ?￾ng ph ﾀi c?￾ ch?￾c nng t?￾ ng qu?￾t, ﾀ?￾c ?￾nh ngh)a v?￾a ?￾ ?￾ hi?￾u nh ﾀng kh?￾ m?￾m d ﾀo ?￾ c?￾ th?￾ s?￾ d?￾ng ﾀ?￾c; nh ﾀng cho ph?￾p ph?￾t tri?￾n th?￾m tu?￾ theo y?￾u c ﾀu V?￾ d?￾, m?￾t n?￾t l?￾nh ph ﾀi c?￾ ch?￾c nng chung l?￾ nh ﾀn v?￾o ?￾ thi h?￾nh m?￾t c?￾ ng vi?￾c g?￾ ?￾ Tuy nhi?￾n, c?￾ch th?￾ hi?￾n v?￾ ho ﾀt ?￾ng c?￾a n?￾ t?￾ng tr ﾀ?￾ng h?￾p c?￾ th?￾ thay ?￾i ch?￾t ?￾t tu?￾ theo c?￾ch ta c?￾i thu?￾c t?￾nh v?￾ viﾀt code cho ph ﾀﾀng th?￾c ?￾ ph ﾀn ?￾nh v?￾i s?￾ ki?￾n ?￾i t ﾀ?￾ng giao tiﾀp b?￾ n ngo?￾i th?￾ng qua thu?￾c t?￾nh, ph ﾀﾀng th?￾c, v?￾ s?￾ ki?￾n ﾀ?￾c ?￾nh ngh)a tr ﾀ?￾c cho n?￾ T?￾ h?￾p c?￾a kh?￾i ni?￾m n?￾y g?￾i l?￾ giao di?￾n (Interface) ?￾ l?￾ nh?￾ng yﾀu t?￾ c ﾀn biﾀt v?￾ m?￾t ?￾i t ﾀ?￾ng ?￾ s?￾ d?￾ng ch?￾ng C?￾ th?￾ s?￾ d?￾ng nhi?￾u ?￾i t ﾀ?￾ng m?￾t ?￾ ?￾n, ta cing c?￾ nhi?￾u th?￾ hi?￾n kh?￾c c?￾a m?￾t ki?￾u ?￾i t ﾀ?￾ng Ng ﾀ?￾i s?￾ d?￾ng ?￾i t ﾀ?￾ng kh?￾ng c ﾀn quan t?￾m ﾀn c?￾ch l ﾀp tr?￾nh b?￾n ?￾i t ﾀ?￾ng B?￾i v?￾ ng ﾀ?￾i s?￾ d?￾ ng ch?￾ th ﾀy ?￾i t ﾀ?￾ng i?￾u khi?￾n, ta c?￾ th?￾ thay ?￾i ho ﾀt ?￾ng b?￾n c?￾a ?￾i t ﾀ?￾ng cho nh?￾ng thay ?￾i n?￾y kh?￾ng ﾀnh h ﾀ?￾ng ﾀn ?￾ng d?￾ng ang d?￾ng, ngh)a l?￾ kh?￾ng thay ?￾i Interface Modul L?￾p Khu?￾n m ﾀu ?￾ t ﾀo ?￾i t ﾀ?￾ng l?￾ modul l?￾p Sau n?￾y, modul l?￾p c?￾n ﾀ?￾c d?￾ng ?￾ t ﾀo i?￾u khi?￾n ActiveX, m?￾t k?￾ thu ﾀt cao h ﾀn c?￾a l ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng Trong b ﾀ?￾c l ﾀp tr?￾nh cn b ﾀn v?￾i VB, ta dung modul ?￾ ch?￾a c?￾c h?￾m hay th?￾ t?￾c Tu?￾ theo t ﾀm ho ﾀt ?￾ng c?￾a h?￾m / th?￾ t?￾c n?￾y, ta c?￾ th?￾ g?￾i ch?￾ng tr?￾c tiﾀp t?￾ modul Nh ﾀng modul l?￾p th?￾ kh?￾ng bao gi?￾ ﾀ?￾c g?￾i tr?￾c tiﾀp ?￾ s?￾ d?￾ng m?￾t l?￾p, ta ph ﾀi t ﾀo ?￾i t ﾀ?￾ng t?￾ l?￾p th?￾ng qua l?￾nh New ?￾ ?￾y ?￾i t ﾀ?￾ng ﾀ?￾c t ﾀo t?￾ l?￾p MyClass, c?￾n biﾀn ?￾i t ﾀ?￾ng MyObject cung c ﾀp m?￾t tham chiﾀu ﾀn ?￾i t ﾀ?￾ng Dim MyObject As New myClass D?￾ng l?￾nh tr?￾n t ﾀo m?￾t ?￾i t ﾀ?￾ng g?￾i l?￾ MyObject theo m?￾ t ﾀ c?￾a l?￾p MyClass H?￾nh ?￾ng n?￾y g?￾i l?￾ t ﾀo m?￾t Instance t?￾ l?￾p.Trong c?￾a s?￾ Properties, ta c?￾ th?￾ ph?￾n bi?￾t t?￾n l?￾p v?￾ t?￾n ?￾i t ﾀ?￾ng Combo1 l?￾ t?￾n ?￾i t ﾀ?￾ng, ComboBox l?￾ t?￾n l?￾p Ta c?￾ th?￾ t ﾀo v?￾ s?￾ Instance t?￾ m?￾t l?￾p M?￾i Instance c?￾ th?￾ kh?￾c m?￾t ch?￾t tu?￾ theo c?￾ch ta quy ?￾nh thu?￾c t?￾nh v?￾ s?￾ d?￾ng ph ﾀﾀng th?￾c Thu?￾c t?￾nh v?￾ ph ﾀﾀng th?￾c c?￾a l?￾p B?￾n m?￾t l?￾p, ta c?￾ th?￾ t?￾c ph ﾀﾀng th?￾c (Method Procedures) v?￾ th?￾ t?￾c thu?￾c t?￾nh (Property Procedures) Quy ?￾nh m?￾t thu?￾c t?￾nh, ngh)a l?￾ ta ang g?￾i h?￾m x?￾ l?￾ s?￾ ki?￾n Property Let Trong VB4, modul l?￾p c?￾n r ﾀt th?￾ s ﾀ ﾀn VB5, n?￾ b ﾀt ﾀu h?￾ tr?￾ g ﾀn gii h ﾀn cho l ﾀp tr?￾nh h ﾀ?￾ng ?￾i t ﾀ?￾ng V?￾ d?￾: ta c?￾ th?￾ t ﾀo nh?￾ng i?￾u khi?￾n c?￾ th?￾ kﾀt h?￾p m?￾i tr ﾀ?￾ng ph?￾t tri?￾n VB (v?￾ nh?￾ng ng?￾n ng?￾ kh?￾c) Thu?￾c t?￾nh c?￾a ch?￾ng hi?￾n th?￾ c?￾a s?￾ Properties, nh?￾ng s?￾ ki?￾n c?￾a ch?￾ng xu ﾀt hi?￾n danh s?￾ch th ﾀ xu?￾ng ch?￾a c?￾ s?￾ Code Trong VB6, phi?￾n b ﾀn Professional v?￾ Enterprise h?￾ tr?￾ Tr?￾nh x?￾y d?￾ng L?￾p (Class Builder) gi?￾p l ﾀp tr?￾nh vi?￾n l?￾m vi?￾c r ﾀt d?￾ d?￾ng v?￾i l?￾p N?￾ cung c ﾀp m?￾t lo ﾀt c?￾c h?￾p tho ﾀi, h ﾀ?￾ ng d ﾀn ta t?￾ng b ﾀ?￾c ?￾ t ﾀo l?￾p Tuy nhi?￾n, v?￾ d?￾ n?￾y, ?￾ hi?￾u t?￾ ch?￾c m?￾t l?￾p, ta s ﾀ t ﾀo b ﾀng tay V?￾ d?￾ m ﾀu - Thiﾀt kﾀ l?￾p c?￾ ch?￾c ng di chuy?￾n h?￾p tr?￾n m?￾n h?￾nh: T ﾀo ?￾ ?￾n m?￾i, ki?￾u Standard EXE T?￾ menu Project, ch?￾n Add Class Module Ch?￾n Class Module v?￾ nh ﾀn Open C?￾a s?￾ Code s ﾀ hi?￾ n th?￾ Nﾀu nh?￾n v?￾o c?￾a s?￾ Project Explorer, ta s ﾀ th ﾀy m?￾t l?￾p m?￾i xu ﾀt hi?￾n V?￾ ta mu?￾n t ﾀo m?￾t l?￾ p Box, n?￾n ta ?￾i t?￾n l?￾p Class1 cho g?￾i nh?￾: clsBox C?￾m t?￾ cls th?￾ hi?￾n ?￾y l?￾ l?￾p, nh?￾ ?￾, ch ﾀﾀng tr?￾ nh tr?￾ n?￾n d?￾ ?￾c h ﾀn ?￾ th?￾c hi?￾n i?￾u n?￾y, t?￾m l?￾p Class1 c?￾a s?￾ Properties, ?￾i thu?￾c t?￾nh Name c?￾a n?￾ th?￾nh clsBox Thu?￾c t?￾nh c?￾a L?￾p Public v?￾ Private L?￾p Box c?￾ thu?￾c t?￾nh l?￾ to ﾀ ?￾ g?￾c tr?￾i tr?￾n (X,Y), chi?￾u cao (Height) v?￾ chi?￾u r?￾ng (Width) B?￾y gi?￾ ta c ﾀn khai b?￾o c?￾c thu?￾c t?￾nh tr?￾n l?￾ Public hay Private Khi m?￾t thu?￾c t?￾nh ﾀ?￾c khai b?￾o l?￾ Public m?￾t l?￾p, n?￾ s ﾀ ﾀ?￾c s?￾ d?￾ng b?￾i b ﾀt k?￾ o ﾀn ch ﾀﾀng tr?￾nh n?￾o c?￾ s?￾ d?￾ng l?￾p n?￾y Tr?￾i l ﾀi, nﾀu thu?￾c t?￾nh l?￾ Private m?￾t l?￾p th?￾ n?￾ s ﾀ kh?￾ng ﾀ?￾c truy c ﾀp b?￾i b ﾀt c?￾ o ﾀn ch ﾀﾀng tr?￾nh n?￾o kh?￾c Ta th?￾ t?￾m hi?￾u v?￾ thu?￾c t?￾nh Public So s?￾nh c?￾ch khai b?￾o c?￾a m?￾t thu?￾c t?￾nh Public v?￾i m?￾t biﾀn Public ?￾ ?￾y, biﾀn Public m?￾t l?￾p gi?￾ng nh ﾀ m?￾t biﾀn Public b ﾀt k?￾ n?￾o kh?￾c, ch?￾ c?￾ i?￾u l?￾ ta x?￾ l?￾ n?￾ ch ﾀﾀng tr?￾nh th?￾ gi?￾ng nh ﾀ ta ang x?￾ l?￾ v?￾i m?￾t thu?￾c t?￾nh V?￾ d?￾, nﾀu ta khai b?￾o thu?￾c t?￾nh X l?￾ m?￾t biﾀn Public, sau ?￾, khai b?￾o m?￾t ?￾i t ﾀ?￾ng g?￾i l?￾ MyBox d?￾a tr?￾n l?￾p n?￾y, ta c?￾ d?￾ng l?￾nh sau: MyBox.X = 10
0
0
Tham chiﾀu ﾀn X t ﾀﾀng t?￾ nh ﾀ ta x?￾ l?￾ v?￾i m?￾t thu?￾c t?￾nh th?￾ng th ﾀ?￾ng tr?￾n c?￾c ?￾i t ﾀ?￾ng ho ﾀc i?￾u khi?￾n b ﾀt k?￾ kh?￾c Nh ﾀng nh?￾ng g?￾ ch?￾ng ta l?￾m l?￾ cho ph?￾p ng ﾀ?￾i s?￾ d?￾ng ?￾i t ﾀ?￾ng c?￾a ch?￾ng ta ?￾i X th?￾nh gi?￾ tr?￾ m?￾ h?￾ mong mu?￾n B?￾y gi?￾ ta s ﾀ khai b?￾o X l?￾ thu?￾c t?￾nh Public, n?￾ cing t ﾀﾀng t?￾ Nh ﾀng n?￾ cing kh?￾ ng gi?￾ng h ﾀn ?￾i v?￾i thu?￾c t?￾nh Public, m?￾i n?￾ b?￾ ?￾i gi?￾ tr?￾, m?￾t o ﾀn ch ﾀﾀng tr?￾nh b?￾n l?￾p s ﾀ thi h?￾nh Trong o ﾀn ch ﾀﾀng tr?￾nh n?￾y, ta c?￾ th?￾ quyﾀt ?￾nh ta mu?￾n gi?￾ tr?￾ n?￾o ?￾ m?￾ ng ﾀ?￾i s?￾ d?￾ng ch?￾ ra, v?￾ nﾀu kh?￾ng th?￾ l?￾m m?￾t t?￾c v?￾ g?￾ ?￾ Do ?￾, s?￾ kh?￾c gi?￾a biﾀn v?￾ thu?￾c t?￾nh l?￾: thu?￾c t?￾nh lu?￾n c?￾ m?￾t o ﾀn ch ﾀﾀng t?￾nh ch ﾀy b?￾n m?￾i n?￾ ﾀ?￾c truy c ﾀp D?￾ng thu?￾c t?￾nh thay cho biﾀn cing h ﾀn chﾀ kh ﾀ nng sai s?￾t v?￾ gi?￾ tr?￾ truy?￾n v?￾o l?￾p ﾀ?￾c ki?￾m nghi?￾m nh?￾ o ﾀn ch ﾀﾀng tr?￾nh ki?￾m tra b?￾n l?￾p Trong th?￾c tﾀ, thu?￾c t?￾nh h?￾u d?￾ng h ﾀn biﾀn v?￾ ?￾i ta c ﾀn m?￾t x?￾ l?￾ h ﾀn l?￾ ch?￾ g?￾n gi?￾ tr?￾ V?￾ d?￾, ?￾i thu?￾c t?￾nh Color c?￾a m?￾t h?￾p b ﾀn hi?￾u ch?￾nh l?￾m n?￾ ?￾i m?￾u tr?￾n m?￾n h?￾nh ?￾y l?￾ m?￾t t?￾c v?￾ kh?￾ng th?￾ th?￾c hi?￾n ﾀ?￾c v?￾i biﾀn o ﾀn ch ﾀﾀng tr?￾nh b?￾n s ﾀ g?￾i m?￾t ph ﾀﾀng th?￾c ?￾ thi h?￾nh t?￾c v?￾ n?￾y V?￾ d?￾ m ﾀu Th?￾m thu?￾c t?￾nh v?￾o l?￾p Ta khai b?￾o biﾀn ?￾ ch?￾a gi?￾ tr?￾ thu?￾c t?￾ nh Option Explicit Private mvarX As Integer Biﾀn n?￾y c?￾ t ﾀm ho ﾀt ?￾ng b?￾n modul l?￾p Th?￾m ch ﾀﾀng tr?￾nh v?￾o thu?￾c t?￾nh X: Public Property Let X(ByVal vData As Integer) mvarX = vData End Property Public Property Get X() As Integer X = mvarX End Property o ﾀn ch ﾀﾀng tr?￾nh n?￾y kh?￾ng thi h?￾nh tr?￾c tiﾀp tr?￾ phi n?￾ ﾀ?￾c g?￾i th?￾ng qua thu?￾c t?￾nh ?￾i t ﾀ?￾ng Dim MyBox As New clsBox MyBox.X = 10
0
Khi ta g?￾n gi?￾ tr?￾ 10
0
cho thu?￾c t?￾nh X, th?￾c ch ﾀt, ta ang g?￾i th?￾ t?￾c Property Let X: Public Property Let X(ByVal vData As Integer) mvarX = vData End Property Gi?￾ tr?￾ 10
0
truy?￾n cho tham s?￾ vData Sau ?￾, n?￾ ﾀ?￾c g?￾n cho biﾀn c?￾c b?￾ mvarX, ngh)a l?￾ thu?￾c t?￾nh ?￾ ﾀ?￾c thay ?￾i v?￾ ch?￾a v?￾o ?￾i t ﾀ?￾ ng ?￾ xem gi?￾ tr?￾ thu?￾c t?￾nh, ta g?￾i: New_Position = MyBox.X Ngh)a l?￾ th?￾ t?￾c Property Get X thi h?￾nh: Public Property Get X() As Integer X = mvarX End Property Th?￾ t?￾c Property Let ﾀ?￾c g?￾i ?￾i gi?￾ tr?￾ thu?￾c t?￾nh Gi?￾ tr?￾ ?￾i s ﾀ ﾀ?￾c ch?￾a v?￾o m?￾t biﾀn c?￾c b?￾ b?￾n l?￾p Th?￾ t?￾c Property Get ﾀ?￾c g?￾i c ﾀn ?￾c gi?￾ tr?￾ thu?￾c t?￾nh Gi?￾ tr?￾ ch?￾a biﾀn c?￾c b?￾ ﾀ?￾c tr ﾀ v?￾ Property Get Tuy nhi?￾n, hai th?￾ t?￾c thu?￾c t?￾nh n?￾y ch?￾ l?￾m vi?￾c v?￾i c?￾c ki?￾u d?￾ li?￾u c ﾀ b ﾀn nh ﾀ Variant, String, Integer ?￾i v?￾i thu?￾c t?￾nh ch?￾a ?￾i t ﾀ?￾ng, thay v?￾ d?￾ng Property Let, ta d?￾ng Property Set V?￾ d?￾: Public Property Set Font (Byval New_Font As stdFont) Set mvarFont = New_Font End Property ?￾ ?￾nh thu?￾c t?￾nh Font c?￾a ?￾i t ﾀ?￾ng MyObject t?￾ ?￾ng d?￾ng, ta g?￾i cho n?￾ ?￾i t ﾀ?￾ng Font myFont Tuy nhi?￾n, ?￾ ﾀm b ﾀo VB d?￾ng th?￾ t?￾c Property Set, ta ﾀt t?￾ kho?￾ Set tr ﾀ?￾c thu?￾c t?￾nh: Dim myFont As New StdFont myFont.Name= Courier myFont.Bold=True Set MyObject.Font = myFont T ﾀﾀng t?￾, ta ho?￾n t ﾀt c?￾c thu?￾c t?￾nh c?￾n l ﾀi c?￾a l?￾p clsBox Trong ph ﾀn General Declarations, th?￾m c?￾c biﾀn c?￾c b?￾ Option Explicit Private mvarY As Integer Private mvarWidth As Integer Private mvarHeight As Integer Th?￾m c?￾c th?￾ t?￾c tiﾀp theo: Public Property Let Y(ByVal vData As Integer) mvarY = vData End Property Public Property Get Y() As Integer Y = mvarY End Property Public Property Let Width(ByVal vData As Integer) mvarWidth = vData End Property Public Property Get Width() As Integer Width = mvarWidth End Property Public Property Let Height(ByVal vData As Integer) mvarHeight = vData End Property Public Property Get Height() As Integer Height = mvarHeight End Property L ﾀu modul th?￾nh t ﾀp tin clsBox.cls ﾀn ?￾y, ta c ﾀn ph ﾀﾀng th?￾c n?￾a l?￾ v ﾀ h?￾p (DrawBox) v?￾ xo?￾ h?￾p (ClearBox) C ﾀ ph ﾀﾀng th?￾c c?￾ m?￾t tham s?￾ truy?￾n l?￾ ?￾i t ﾀ?￾ng ?￾ v ﾀ h?￾p l?￾n N?￾ c?￾ th?￾ l?￾ bi?￾u m ﾀu, h?￾p h?￾nh Ph ﾀﾀng th?￾c c?￾a L?￾p V?￾ d?￾ m ﾀu Th?￾m ph ﾀﾀng th?￾c cho l?￾p Th?￾m o ﾀn ch ﾀﾀng tr?￾nh sau v?￾o modul l?￾p: Public Sub DrawBox(Canvas As Object) Canvas.Line (mvarX, mvarY)-(mvarX + mvarWidth, mvarY + mvarHeight),, B End Sub o ﾀn ch ﾀﾀng tr?￾nh n?￾y s?￾ d?￾ ... Label1.Caption = Time End Sub C?￾c t?￾nh nng m?￾i Visual basic 6.0
Kh?￾i qu?￾t v ﾀn t ﾀt v?￾ Visual basic 6.0
Nﾀu b ﾀn ch ﾀa quen v?￾i Visual basic, t?￾a ?￾ c?￾a ph ﾀn n?￾y c?￾ th?￾ l?￾m nh ﾀm... explorer Visual basic gi?￾p qu ﾀn l?￾ v?￾ ?￾nh h ﾀ?￾ng nhi?￾u ?￾ ?￾n Visual basic cho ph?￾p t?￾ ch?￾c nhi?￾u ?￾ ?￾n m?￾t nh?￾m g?￾i l?￾ project group Ta c?￾ th?￾ l ﾀu t ﾀp h?￾p c?￾c ?￾ ?￾n Visual basic. .. Enviroment; nh ﾀn OK IDE c?￾a Visual basic s ﾀ ?￾ nh l ﾀi c ﾀu h?￾nh cho hi?￾n th?￾ SDI l ﾀn kh?￾i ?￾ng tiﾀp sau c?￾a Visual basic Nh ﾀn OK, tho?￾t v?￾ kh?￾i ?￾ng l ﾀi Visual basic Tr?￾ gi?￾p Kh?￾ng