M sgBox(Asc{"A” ) Xor 50)
102 Chưđng 14: Q uản lý các íorm Windows và các control vào thòi gian chạy C»M
C»M UiSivftw (Ó*' >etl Cw'n'>Mri ề IxTip.hte ■ Ẻ CoiMnMnỉt*!" - é □ c«rrw>t«nhlfii à đ , I»in* l< 'e >' Trpe AMIM F«'TT> * ỈI<Ạ« ' - V.
B ạn sử dụng hộp th o ạ i A đ d N e w Itc m để th ê m các form, class, m odule và nhữ ng th à n h p h ần khác vào project Visual Basic. Mặc dù b ạ n đ ă chọn lệ n h Ađ W indow Form , nhưng các form không p h ải là th à n h p h ầ n duy n h ấ t được liệ t kẻ ở đâỵ (Tuy n h iên , theo m ặc định te m p la te W indow F orm được chọn). Để xem các tem p la te có sẵ n th eo h ạ n g mục, n h ấ p các mục tro n g khung tr á i của hộp th o ại A d d N e w I te m .
Thủ thuật
Dặc b iệ t bạn nên thử nghiệm với tem plate Ẽxplorer Form trong hạng mục W ỉndow s Forms, tem plate này cho phép bạn thêm một trìn h duyệt kiểu VVin- dow Explorer vào ứng dụng cùng với các rrenu, thanh công cụ và m ột khung phân cách folder.
4. Gõ n h ậ p H e lp I n f o .v b tro n g hộp tex t N am e và sau đó n h ấ p A d d . M ột form th ứ h a i có tê n là H elplnĩọvb được th ê m vào project Lucky Seven H elp và form m ờ tro n g Solution E xplorer như được m inh họa ở đây: S o lu tio n E>í»lorer ^ ạ x L u c k ^ S e v e n H e lp á á M y P r o je c t a p p ,( o n fig H c íp in ío .v b Luck/S ev«n,vfa M o d . jle l. v ij
C h ư ớ n g 14: Q uản lý các form W in d o w s và các co n tro i v à o th ờ i gia n chạ y 1 0 3
Thủ thuật
Bạn có th ể đổi tên hoặc xóa các file form bằng việc sử dụng Solution Explorer. Đê đổi tên m ột file , nhấp phải file và sau dó nhấp lệnh Renamẹ Đ ể loại bỏ một file ra khỏi project, nhấp phải file và sau đó nhấp lệnh Exclude From Project. (Tuy nhiên, lệnh này không có sẵn trong Visual Basic 2010 VVxpress). Để loại bỏ một file ra khỏi proịect và xóa nó vĩnh viễn ra khỏi máy tính, chọn File và sau dó nhân Deletẹ
Bây giờ b ạn sẽ th ê m m ột sô' control vào form H elplníọvb.
5. Sử dụng control Label để tạo m ột n h ã n ở p h ầ n tr ê n cùng của form H elpInfọvb. Đ ặt n h ã n g ần m ép tr á i của form n h ư n g để loại m ột khoảng th ụ t vào nhỏ sao cho có chỗ trố n g d àn h cho m ột n h ă n mô tả. 6. Sử dụng control TextBox để tạo m ột đôì tượng hộp text.
7. Xác lập thuộc tín h M ultiline cho đối tượng hộp te x t sa n g True sao cho b ạn có th ể dề d àng định lạ i kích cỡ đô'i tượng.
8. Đ ịnh lại kích cỡ hộp te x t sao cho nó che phủ p h ầ n lớn form. 9. Sử dụng control Button đ ể tạo m ột n ú t ở cuó'i form.
10. Xác lậ p các thuộc tín h sau đây cho các đôi tư ợ ng t r ê n form H elpInfọvb: Đ ô i tưỢng L abell TextBoxl B u tto n l HelpInfo T h u ộ c tín h Text ScrolIBars Text Text X ác lậ p
“O perating Instructions for Lucky Seven Slot Machine” Vertical
“OK” “H elp” Form H elplníọvb trô n g tương tự n hư sau:
B ây giờ b ạn sẽ n h ập m ột dòng m ă chương trìn h cho th ủ tục sự kiện cho B u tto n l_ C lick của form Helplníọvb.
11. N h ấp đôi O K để hiển th ị th ủ tục sự k iệ n B u tto n l_ C iic k tro n g C o d e E d ỉto r .
12. Gõ n h ậ p câu lệ n h chương trìn h sau đây;
MẹDialogResult = DialogResuit.OK
Form H elpInfọvb có chức năn g n hư m ột hộp th o ạ i tro n g p ro ject này bởi vì form Lucky Seven mở nó sử đụng phưcmg thứ c ShowDialog. Sau k h i người dùng đã đọc thông tin Help đưiợc h iể n th ị bởi hộp th o ạ i, n gư ờ i d ù n g sẽ n h â p O K , đ iề u n à y x á c lậ p th u ộ c tín h D ialogR esult của form hiện h à n h sang D ia ỉo g R e s u lt.O K . (Từ khóa M e được sử dụng ở đây để th am chiếu đến fo n n H elpInfọvb v à th ỉn h th o ả n g b ạ n sẽ th ấ y cú pháp tốc ký này khi m ột th a m chiếu d ẫ n đến in sta n c e h iệ n h à n h của m ột class hoặc cấu trú c m à m ã đ an g thực th i tro n g đó).
D ỉa lo g R e s u lt.O K là m ột h ằng Visual Basic biểu th ị m ột h ộ p thoại đ ă được đóng và t r ả m ột giá trị O K trở về th ủ tục gọị M ột hộ p thoại phức tạ p hơn cho phép tr ả về các giá tr ị khác b ằn g n h ữ n g th ủ tục sự k i ệ n n ú t so n g so n g c h ẩ n g h ạ n n h ư D i a l o g R e s u ỉ t . C a n c e ỉ D ia lo g R e s u lt.N o v à D ia lo g R e s u ỉt.Y e s . Tuy n h iê n , k h i thuộc tín h D ỉa l o g R e s u lt được xác lập, form được tự động đóng lạị
13. ở p h ầ n tr ê n cùng Code Editor, gõ n h ập câu lệ n h Im p o rts ở trê n p h ầ n k h a i báo Public Class:
Im ports System .10
Câu lệ n h n ày làm cho dễ th am chiếu class S tre am R e a d e r tro n g mã hơn. S tream R ea d er dặc b iệt không liên quan đ ến việc đ ịn h nghĩa hoặc sử dụng các form bổ sung - nó được sử đụng n h ư m ộ t cách n h a n h để th ê m th ô n g tin te x t vào form mới m à b ạ n d an g tạọ
14. H iển th ị lạ i form HelpInfọvb, và sau đó n h ấp dôi n ề n (background). T hủ tục sự k iệ n HelpInfo_Load xu ất hiện tro n g Code E ditor. Đây là th ủ tục sự k iệ n chạy k h i form được tả i trước tiê n vào bộ n h ớ v à được h iể n th ị tr ê n m à n hình.
15. Gõ n h ậ p các câu lệ n h chương trìn h sau đây:
Dim StreamToDisplay As StreamReader SíreamToDisplay = _