H ng d n l p trình VB.NET ướ ẫ ậ Ch ng 13: T đ ng hóa và qu n lý ti nươ ự ộ ả ế
trình
Ch ng ươ 13:
T đ ng hóa trong ng d ng Microsoft và qu n lý ti n trìnhự ộ ứ ụ ả ế
--------oOo--------
N i dung th o lu n:ộ ả ậ
- S d ng Object Browser đ tìm hi u đ i t ngử ụ ể ể ố ượ
- S d ng Microsoft Excel đ tính toán trong ch ng trình VBử ụ ể ươ
- X lý b ng tính Excel t trong ch ng trình VB.NETử ả ừ ươ
- Kh i đ ng và ch m d t ti n trình Windows b ng thành ph n qu n lý ti n trìnhở ộ ấ ứ ế ằ ầ ả ế
Trong ch ng này chúng ta s th qu n lý các ng d ng văn phòng c a Microsoft tươ ẽ ử ả ứ ụ ủ ừ
ch ng trình VB.NET, xem các đ i t ng v i thu c tính, ph ng th c b ng Objectươ ố ượ ớ ộ ươ ứ ằ
Browser.
Chú ý:
- Dù gi đây tính năng ActiveX d a trên mô hình công ngh COM không cònờ ự ệ
đ c thi t k trong VB.NET n a tuy nhiên b n v n có th s d ng chúng nhượ ế ế ữ ạ ẫ ể ử ụ ư
đã nói trong ch ng tr c.ươ ướ
- Các ng d ng văn phòng v n có th truy xu t theo đ c t COM và có th đi uứ ụ ẫ ể ấ ặ ả ể ề
khi n ngay trong ng d ng VB.NET thông qua k thu t Automation. Tuy nhiênể ứ ụ ỹ ậ
các tham chi u nên s d ng lúc biên d ch thay cho lúc ch ng trình th c thi.ế ử ụ ị ươ ự
- Gi đây trong VB.NET l p đ i t ng Process đ c đ t ngay trong TOOLBOXờ ớ ố ượ ượ ặ
đ ph c v cho công vi c kh i t o, đi u khi n m t ng d ng bên ngoài.ể ụ ụ ệ ở ạ ề ể ộ ứ ụ
1. L p trình đi u khi n các đ i t ng ng d ng b ng Atomationậ ề ể ố ượ ứ ụ ằ
Automation là k thu t d a trên công ngh và n n t ng c a mô hình thành ph n đ iỹ ậ ự ệ ề ả ủ ầ ố
t ng COM (Component Object Model). COM cho phép các đ i t ng c a ng d ngượ ố ượ ủ ứ ụ
khác nhau có th ch y chung nh trong m t môi tr ng. Ví d , b n có th t n d ng cácể ạ ư ộ ườ ụ ạ ể ậ ụ
ng d ng so n th o văn b n trong ch ng trình c a b n. V i ASP.NET thì b n có thứ ụ ạ ả ả ươ ủ ạ ớ ạ ể
dùng m t s đ i t ng so n th o nh FreeTextBox 2.0…. V i VB.NET, đ có th sộ ố ố ượ ạ ả ư ớ ể ể ử
d ng COM thì b n c n làm theo m t s b c s đ c gi i thi u sau đây.ụ ạ ầ ộ ố ướ ẽ ượ ớ ệ
Hi n t i b n có th truy xu t các ng d ng văn phòng Microsoft Office sau theo môệ ạ ạ ể ấ ứ ụ
hình COM:
- Microsoft Visual Studio.NET, Microsoft Visual 6.
- MS.World 2003, 2002, 2000, 97
- MS.Excel 2003, 2002, 2000, 97
Biên so n: Ph m Đ c L p ạ ạ ứ ậ - 1 - Add: cnt-44-dh,
VIMARU
H ng d n l p trình VB.NET ướ ẫ ậ Ch ng 13: T đ ng hóa và qu n lý ti nươ ự ộ ả ế
trình
- MS.Powerpoint 2003, 2002, 2000, 97
- MS.Outlook 2003, 2002, 2000, 97 – 98
Hi n nay Microsoft đã chính th c cho phép VB là ngôn ng l p trình chính th c cho cácệ ứ ữ ậ ứ
ng d ng nên h u h t các ng d ng windows h tr Automation đứ ụ ầ ế ứ ụ ỗ ợ ều cung c p cho b nấ ạ
cách t ng tác và vi t l nh r t gi ng v i ch ng trình VB.ươ ế ệ ấ ố ớ ươ
1.1. S d ng Automation trong VB.NETử ụ
Trong VB b n v a có th t o ra ng d ng d ng đ i t ng d ng server, client. ạ ừ ể ạ ứ ụ ạ ố ượ ạ Trong
ph n này chúng ta s s d ng các đ i t ng server có s n.ầ ẽ ử ụ ố ượ ẵ
Trong ng d ng microsoft office đ u có m t t p h p đ i t ng v i ph ng th c h trứ ụ ề ộ ậ ợ ố ượ ớ ươ ứ ỗ ợ
riêng. B n có th xem chúng qua tài li u h ng d n hay nh đ i t ng Object Browser.ạ ể ệ ướ ẫ ờ ố ượ
1.2. Công c Visual Studio Object Browserụ
Công c này cho phép b n th c hi n quan sát n i dung đ i t ng nh :ụ ạ ự ệ ộ ố ượ ư
- Xem t t c các thu c tính, ph ng th c và t p đ i t ng con c a VB.NET.ấ ả ộ ươ ứ ậ ố ượ ủ
B n có th bi t tham s , ki u d li u c a thu c tính và m c đích s d ng c aạ ể ế ố ể ữ ệ ủ ộ ụ ử ụ ủ
chúng.
- Xem t t c các thu c tính, ph ng th c và t p con c a các ng d ngấ ả ộ ươ ứ ậ ủ ứ ụ
Automation server đang cài trên h th ng c a b n.ệ ố ủ ạ
Bây gi chúng ta s t o ch ng trình MyExcelAutomation đ dùng đ i t ng Objectờ ẽ ạ ươ ể ố ượ
Browser xem các đ i t ng trong ng d ng MS.Excel 2003.ố ượ ứ ụ
Ch ng trình MyExcelAutomation:ươ
B n t o m i m t gi i pháp và thêm vào d án cùng tên ạ ạ ớ ộ ả ự MyExcelAutomation nh đãư
bi t. Sau đó làm theo các b c sau:ế ướ
- Ch n Project | Add Reference làm xu t hi n m t h p tho i nh hình:ọ ấ ệ ộ ộ ạ ư
Biên so n: Ph m Đ c L p ạ ạ ứ ậ - 2 - Add: cnt-44-dh,
VIMARU
H ng d n l p trình VB.NET ướ ẫ ậ Ch ng 13: T đ ng hóa và qu n lý ti nươ ự ộ ả ế
trình
- Co 5 tab nh hình, m i tab ch a m t t p các đ i t ng dùng theo các ch cư ỗ ứ ộ ậ ố ượ ứ
năng riêng bi t.ệ
- Nh n ch n tab COM, các đ i t ng trong tab này đ c h th ng đăng ký s nấ ọ ố ượ ượ ệ ố ẵ
trong Registry c a windows (b n có th xem Registry b ng cách m h p tho iủ ạ ể ằ ở ộ ạ
run và gõ l nh ệRegedit)
- B n cu nạ ộ xu ng và tìm Microsoft Excel 11.0 Object Library, nh n nút OK nhố ấ ư
hình
Biên so n: Ph m Đ c L p ạ ạ ứ ậ - 3 - Add: cnt-44-dh,
VIMARU
H ng d n l p trình VB.NET ướ ẫ ậ Ch ng 13: T đ ng hóa và qu n lý ti nươ ự ộ ả ế
trình
- Ch n View | Object Browser hay n phím F2 đ m c a s công c Objectọ ấ ể ở ử ổ ụ
Browser nh hình:ư
- B n nh n vào nút (+) k bên ạ ấ ế Excel và xem chi ti t v thông tin c a các đ iế ề ủ ố
t ng Automation mà Excel cung c p.ượ ấ
- N u c n b n có th n ti p nút (+) nhánh Application đ xem danh sách cácế ầ ạ ể ấ ế ể
ph ng th c, s ki n và thu c tính dành cho đ i t ng s xu t hi n trongươ ứ ự ệ ộ ố ượ ẽ ấ ệ
khung Member of: Exce l bên ph i. Chúng là nh ng ph ng th c cho phép b nả ữ ươ ứ ạ
truy c p b ng tính Excel.ậ ả
- B n có th xem b t kỳ ph ng th c nào trong ph n đ c li t kê trong khungạ ể ấ ươ ứ ầ ượ ệ
member. Ví d ta có th xem ph ng th c ụ ể ươ ứ Quit là ph ng th c đóng ng d ngươ ứ ứ ụ
Excel cũng nh các ng d ng Automation.ư ứ ụ
Bây gi sau khi đã xem xét các ph ng th c, đ i t ng v i Object Browser chúng ta sờ ươ ứ ố ượ ớ ẽ
s d ng Atomation Excel trong ch ng trình c a mình.ử ụ ươ ủ
2. T đ ng hóa b ng Atomation EXCEL trong ch ng trình Visual Basự ộ ằ ươ ic
Sau đây là các b c t ng quát đ s d ng các l nh Excel cũng nh các đ i t ngướ ổ ể ử ụ ệ ư ố ượ
Automation nói chung:
•B1. Thêm vào d án tham chi u tr đ n th vi n đ i t ng mà b n mu n truyự ế ỏ ế ư ệ ố ượ ạ ố
xu t b ng l nh Add Reference nh đã bi t trong ph n 1.ấ ằ ệ ư ế ầ
•B2. Vi t ch ng trình VB. Dùng phát bi u Dim đ khai báo s d ng đ i t ngế ươ ể ể ử ụ ố ượ
Atomation. Ti p theo dùng hàm Ctype và CreatObject đ t o m t th hi n choế ể ạ ộ ể ệ
đ i t ng:ố ượ
Biên so n: Ph m Đ c L p ạ ạ ứ ậ - 4 - Add: cnt-44-dh,
VIMARU
H ng d n l p trình VB.NET ướ ẫ ậ Ch ng 13: T đ ng hóa và qu n lý ti nươ ự ộ ả ế
trình
Dim xlApp As Excel.Application
xlApp = CType(CreateObject("Excel.Application"), _
Excel.Application)
Trong VB.NET s d ng c ch ràng bu c s m (early binding). Sau khi t o đ iử ụ ơ ế ộ ớ ạ ố
t ng nên dùng hàm Ctype chuy n đ i đ i t ng v m t ki u t ng minh đ khi biênượ ể ổ ố ượ ề ộ ể ườ ể
d ch VB.NET bi t đây là ki u gì.ị ế ể
•B3. S d ng các ph ng th c, thu c tính c a đ i t ng Atomation trong ch ngử ụ ươ ứ ộ ủ ố ượ ươ
trình c a mình. N u ch a n m rõ b n có th xem l i b ng Object Browser nhủ ế ư ắ ạ ể ạ ằ ư
đã bi t. Ví d :ế ụ
Dim loanPayment As Single
loanPayment = xlApp.WorksheetFunction.Pmt _
(txtInterest.Text / 12, txtMonths.Text, txtPrincipal.Text)
•B4. Khi đã hoàn thành vi c s d ng đ i t ng Automation thì b n g i ph ngệ ử ụ ố ượ ạ ọ ươ
th c Quit đ ch m d t s d ng chúng:ứ ể ấ ứ ử ụ
xlApp.Quit()
Trong bài t p ExcelPayment sau đây chúng ta s dùng tính toán t đ ng c a Excel đậ ẽ ự ộ ủ ể
tính s ti n ph i tr khi thuê nhàố ề ả ả .
2.1. Ch ng trình ExcelPayươ ment
Tìm hi u ch ng trình:ể ươ
Ch ng trình có m t form, form có ba textbox cho phép nh p vào m c lãi su t, s thángươ ộ ậ ứ ấ ố
và s ti n đ n giá thuê nhà. Khi ng i dùng click vào nút tính ti n thì ch ng trình số ề ơ ườ ề ươ ẽ
tính s ti n hàng tháng ph i tr .ố ề ả ả
Thi t k giao di n:ế ế ệ
Giao di n ch ng trình nh hình:ệ ươ ư
Biên so n: Ph m Đ c L p ạ ạ ứ ậ - 5 - Add: cnt-44-dh,
VIMARU