M sgBox(Asc{"A” ) Xor 50)
1 4 Chương 4: Q uản lý các form Windows và các control vào thời gian chạy
6. Đóng form th ứ h a i v à sau đó đóng form th ứ n h ấ t. Chương tr ìn h ngừng chạy và IDE quay trở lạị
7. N h ấp n ú t S a v e A ll v à sau đó xác đ ịn h folder C : \ W b l 0 s b s \ C h a p l 4 làm vị trí.
Thu nhỏ tô1 th iểu , phóng to tố i da và phục hổi các cửa sổ
N goài việc th iế t lập kích cỡ vào vị tr í của m ột form V isual B asic, b ạ n có th ể th u nhỏ tố i th iể u (m inim ize) m ột form sa n g ta s k b a r W indow s, phóng to tô l đ a (m axim ize) m ột form sao cho nó chiếm to à n bộ m à n h ìn h hoặc phục hồi (restore) m ộ t form trở về h ìn h dạn g b ìn h thường của nó. N h ữ n g xác lập n ày có th ể được th a y đổi vào thờ i gian th iế t k ế hoặc v ào th ờ i g ia n ch ạy dựa vào các điều k iệ n chương trìn h h iệ n h àn h .
Để cho ph ép m ột form vừa được th u nhỏ tố i th iểu , vừa được p h ó n g to tô'i đa, trước tiê n b ạ n p h ả i xác n h ậ n rằ n g các hộp m inim ize v à m axim ize của form có sẵn. Sử dụng cửa sổ P ro p erties hoặc m ã chương tr ìn h , b ạ n xác định các xác lập sau đây: .
form2.MaximizeBox = True form 2.M inim izeBox = True
Sau đó tro n g m ã chương tr ìn h hoặc b ằn g việc sử d ụ n g cửa sổ P ro p e rties, b ạ n xác lập thuộc tín h W indow State cho form sa n g M inim ized, M axim ized hoặc N orm al. (Trong m ã, b ạn cần th êm h ằ n g F o rm W in d o w S tate n h ư được m inh h ọ a b ên dướị) Ví dụ, câu lệ n h chương tr ìn h sau đ ây th u nh ỏ tô i thiểu
furm 2 s a n g ta s k b a r W indow s:
form2.W indowState = FormWindowStatẹMinimized
Nếu b ạn muốn điều k h iể n kích cỡ m axim um hoặc m inim um của một
form, xác lập các thuộc tín h M axim um Size hoặc M inim um S ize vào th ờ i
gian th iế t k ế b ằn g việc sử dụng P roperties. Để xác lậ p M axim um Size hoặc M inim um Size tro n g m ã, b ạ n chỉ cần sử dụng m ột cấu trú c Size (tưcmg tự n h ư cấu trú c R ectangle tro n g b à i tậ p trước) như được m in h h ọ a d đây;
Dim FormSize As New Size {400, 300) Form2.MaximumSize = FormSlze
Thêm các C ontrol vào Form tro n g th ờ i gian chạy
Qua suô”t chương này, b ạn dã th ê m các đỄÍi tượng v ào các form b ằ n g việc sử dụng Toolbox v à D esigner. Tuy n h iên , như bài tậ p trước đ ã m in h họạ
b ạ n cũng có th ể tạ o các đối tượng Visual Basic tr ê n các form vào thờ i gian chạy, để tiế t k iệ m th ờ i gian p h á t triể n (nếu b ạ n sao chép cac thường trìn h m à b ạn đ ã sử d ụ n g trước đó) hoặc dể đáp ứng m ột n h u cầu h iệ n tạ i tro n g chương trìn h . Ví dụ, có th ể b ạn muốn tạo cac hộp th o ạ i đơn giản chứa các đối tượng xử lý dữ liệu đầu vào chỉ tro n g các điều k iệ n n h ấ t định.
Tạo các dôi tượng r ấ t đơn giản bởi vì các class cơ b ả n đ ịn h n g h ĩa các control tro n g Toolbox có sẵn tro n g t ấ t cả chương trìn h . Các đối tượng được k h a i báo v à được in s ta n tia te (tạo p h iên bản) b ằn g việc sử dụng các từ khóa riê n g Dim v à New. Câu lệ n h chưcmg trìn h sau đây m in h h ọ a tiế n tr ìn h này là m việc n h ư t h ế nào k h i m ột n ú t mới có tê n b u tto n l được tạ o trê n một form.
Dim buttonl As New Button
Sau k h i b ạ n tạ o m ột đôl tượng vào thờ i gian chạy, b ạ n cũng có th ể sử dụ n g m ã để tù y b iế n nó b ằn g cách xác lập. Cụ th ể việc xác đ ịn h m ộ t tê n vào vị t r í cho đối tượng th ì hữu dụng vì b ạn đ ã không xác đ ịn h chúng b ằn g tay b ằn g việc sử dụng D esigner. Ví dụ, các câu lệ n h chương tr ìn h sau đây cấu h ìn h các thuộc tín h T ex t v à Location cho đối tượng b u tto n l mớị
B u tto n U e x t = "Click Me"
Buttonl lo c a tio n = New Point (20, 25)
Sau cùng, m ã p h ả i th ê m đôl tượng mới sau đây vào tậ p hợp C ontrol của form nơi nó sẽ được tạọ Điều này sẽ làm cho đõ’i tượng x u ấ t h iệ n v à được kích h o ạ t tro n g chương trìn h ;
Form 2.Controls.Ađd(birtton1)
N ếu b ạ n th ê m n ú t mới vào Ibrm h iệ n h à n h (n g h ĩa là nếu b ạn th êm một n ú t vào fo rm l v à m ã được đ ặ t bên tro n g m ột th ủ tục sự kiện F o rm l). B ạn có th ể sử dụng đối tượng Me th a y vào đó. Ví dụ:
M e,Controls.Ađd(button1)
T h ê m đối tượng b u tto n l vào tậ p hợp Controls của form h iệ n h à n h , Khi b ạ n là m điều n ày , h ã y chắc ch ắn rằ n g m ột đối tượng b u tto n l đã không h iệ n hữu tr ê n form m à b ạ n đã th ê m nó vàọ (Mỗi đô'i tượng p h ả i có tên riê n g của nó).
B ạ n có th ể sử d ụ n g tiế n trìn h này để th ê m b ấ t kỳ control tro n g Toolbox vào m ộ t form V isual Basic. T ên class m à b ạn sử dụng đ ể k h a i báo và in s ta n tia te (tạo p h iê n bản) control là m ột biến th ể của tê n x u ất h iệ n trê n thuôc tín h N am e cho mỗi control.
B ài tậ p sau đây m inh họa cách th êm m ột eontrol Label và m ột control B utton vào m ộ t form mới tro n g thời gian chạỵ Form m ới sẽ được sử dụng làm m ột hộp th o ại h iể n th ị ngày th á n g h iệ n h àn h .
T ạ o c á c c o n t r o l L a b e l v à B u t t o n m ớ i
1. N h ấp lệ n h C lo s e P r o j e c t trê n m enu File, và sau đó tạo m ột đối tượng W indows F orm s A pplication có tê n là M y A d d C o n tr o ls . 2. H iển th ị form (Porm l.vb)
3. Sử dụng control Button để th ê m m ột đôi tượng n ú t vào form và sau dó th a y đổi n ú t thuộc tín h T ext th à n h "Display Date".
4. N hấp đôi n ú t D is p la y D a te để h iể n th ị th ủ tục sự k iệ n B u tto n l_ C lick
tro n g Code Editor.
5. Gõ n h ậ p m ã chương tr ìn h sau đây:
'Declare new form and control obịects Dim form 2 As New Form
Dim IblOate As New Label Dim btnCancel As New Bưtton 'Set label properties
ibíDatẹText = "Current date is; “ & DateString lblDatẹSize = New Size(150, 50)
IblDatẹLocation = New Point(80, 50) ‘Set buíton properties
btnCanceịText = “ Cancel"
blnCancel.Location = New Point(1lO, 100) ‘Set form properties
form 2.Text = “ Current Date" form2.CancelButton = btnCancel
form 2.StartPosition = PormStartPosition.CenterScreen 'Ađđ new objects to Controls collection
form 2.Controỉs.Ađ(lblDate) fữfm2.Controls.Ađ(btnCancel) 'Display form as a dìalog box form 2.SfiowDỉalog()