M sgBox(Asc{"A” ) Xor 50)
13 C hự dng 15: Thêm đố họa và các hiệu ứng hoạt hình
điểm này, b ạ n cần đ ặ t m ã đồ họa tro n g th ủ tục sự k iệ n P a in t của form sao cho mỗi lầ n form được làm mới (refresh), các h ìn h đồ h ọ a cũng được vẽ lạị
T ro n g bài tậ p sau đây, b ạ n sẽ chọn b a h ìn h d ạn g tr ê n m ộ t form bằng việc sữ dụng th ủ tục sự k iệ n P a in t của form. Các h ìn h d ạng m à b ạn vẽ sẽ tiế p tục Ổn đ ịn h ngay cả nếu form được che k h u ấ t hoặc được th u nhỏ tối th iể u .
T ạ o c á c h ì n h d ạ n g đ ư ờ n g , c á c h ì n h c h ữ n h ậ t vá e l l i p
1. K hởi động V is u a l S tu d io và tạo m ột project W indows Form s Ap p licatio n mới có tê n là M y D ra w S h a p e s .
2. Đ ịn h lạ i kích cỡ íorm sao cho nó dài h ơ n v à rộ n g hơn kích cỡ mặc đ ịn h .
B ạn sẽ cần th ê m m ột chút khoảng trố n g đ ể tạo các h ìn h d ạng đồ họạ Tuy n h iê n b ạn sẽ không sử dụng b ấ t kỳ C ontrol Toolbox. Bạn sẽ tạo các h ìn h d ạn g b ằn g việc đ ặ t m ã chưcmg tr ìn h tro n g th ủ tục sự k iệ n F o rm l_ P a in t của form.
3. Xác lậ p thuộc tín h T ex t của F o rm l sa n g ”D raw Shapes".
4. N h ấ p n ú t V ie w C o d e tro n g Solutiion E xplorer để h iể n th ị Code E d ito r.
5. ở p h ầ n trê n cùng của C o d e E d ito r , ngay b ên dưới ta b K orm l.vb, n h ấ p m ũi tê n C la s s N a m e và sau đó n h â p F o r m l E v e n ts .
F o rm l E v en ts là d a n h sách các sự kiện tro n g project được k ế t hợp với đô'i tượng F o rm l.
6. N h ấp mũi tê n M e th o d N a m e và sau đó n h ấ p event P a i n t . 7. T hủ tục sự k iệ n F o rm l_ P a in t x u ất h iệ n tro n g Code Editor.
Thủ tục sự kiện n ày là nơi b ạn đ ặ t m ả m à c h ế độ thực th i k h i Visual B asic là m mới fonn.
8. B ên tro n g th ủ tục sự kiện F o rm l_ P a in t, gõ n h ậ p m ã chương trìn h sau đây:
‘Prepare GraphicsPur variable for graphics calls Dim GraphicsPun As Graphics
GraphicsPun = MẹCreateGraphics
'Use a red pen color to draw a line and an ellipse Dim PenColor As New Pen(Color.Red)