Tìm hiểu khả năng đồ họa của VB

Để tìm hiểu cách sử dụng các hành vi vẽ, không gì tốt hơn là thực hiện một ví dụ nho nhỏ.Bạn hãy mở VB.NET 2005 và tạo một ứng dụng mới có template là Windows Application.Double-click vào form trống có sẵn để mở cửa sổ soạn thảo mã lệnh. VB tự động thêm đoạnmã để xử lý tình huống Load của form. Bạn hãy sửa thành đoạn mã 1.
Nội dung trích xuất từ tài liệu:
Tìm hiểu khả năng đồ họa của VB 1 TÌM HIỂU KHẢ NĂNG ĐỒ HOẠ CỦA VB.NETĐể tìm hiểu cách sử dụng các hành vi vẽ, không gì tốt hơn là thực hiện một ví dụ nho nhỏ.Bạn hãy mở VB.NET 2005 và tạo một ứng dụng mới có template là Windows Application.Double-click vào form trống có sẵn để mở cửa sổ soạn thảo mã lệnh. VB tự động thêm đoạnmã để xử lý tình huống Load của form. Bạn hãy sửa thành đoạn mã 1.Đoạn mã 1 Imports System.Drawing Imports System.Drawing.Drawing2D Public Class Form1 ‘ Khai báo bảng vẽ Dim gNoiVe As Graphics Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ‘ Bảng vẽ là Form1 gNoiVe = Me.CreateGraphics End Sub End ClassToàn bộ nội dung đoạn mã 1 dùng để chuẩn bị một bảng vẽ sử dụng bề mặt Form1 làm nơivẽ hình. Trên form, bạn vẽ 16 nút lệnh như hình 1. Đặt tên cho chúng lần lượt theo thứ tự từtrái sang, từ trên xuống như sau: cmdArc, cmdBezier, cmdBeziers, cmdCurve,cmdClosedCurve, cmdEllipse, cmdIcon, cmdImage, cmdLine, cmdLines, cmdPath, cmdPie,cmdPolygon, cmdRectangle, cmdRectangles, cmdString. 16 nút lệnh là 16 ví dụ minh họa 19hành vi vẽ đã trình bày trong bài trước. Đoạn mã 2 trình bày một phần thủ tục xử lý tìnhhuống Click cho 16 nút lệnh đó. Hình 1Lưu ý: Bạn cần chép 2 tập tin .ICO và 1 tập tin .JPG nào đó mà bạn đang có vào thư mục bindebug của ứng dụng để thử nghiệm, rồi sửa các dòng lệnh khai báo liên quan đến tên tập tintrong thủ tục xử lý tình huống cmdIcon_Click và cmdImage_Click cho phù hợp tên tập tincủa bạn. Nhấn phím F5 để thử chương trình. Các hành vi vẽ trong ví dụ vừa nêu cho ta cáchình dạng chỉ có nét vẽ, không có màu tô. Để vẽ hình có màu tô, bạn cần dùng các hành vi tômàu như trình bày ở bảng 1. Cấu trúc lệnh cụ thể luôn luôn được VB.NET hiển thị mỗi khibạn gõ tên hành vi. 2Bảng 1FillClosedCurve Tô màu phần phía trong một đường cong khép kínFillEllipse Tô màu phần phía trong một hình ê-lípFillPath Tô màu phần phía trong một GraphicsPathFillPie Tô màu phần phía trong một hình PieFillPolygon Tô màu phần phía trong một đa giácFillRectangle Tô màu phần phía trong một hình chữ nhậtFillRegion Tô màu phần phía trong một Region (là phần bên trong 1 hình bao gồm các hình chữ nhật và các path).Vẫn với ví dụ trong phần nội dung về nhóm các hành vi vẽ, trên form, bạn vẽ thêm 9 nút lệnhnhư hình 2. Đặt tên cho chúng lần lượt theo thứ tự từ trái sang, từ trên xuống như sau:cmdFillClosedCurve, cmdFillEllipse, cmdFillPath, cmdFillPie, cmdFillPolygon,cmdFillRectangle, cmdFillRectangles, cmdFillLinearGradient, cmdFillRegion. Đoạn mã 3trình bày một phần các thủ tục xử lý tình huống Click cho 9 nút lệnh mới. Hình 2Bạn nên sửa đổi các thông số, các thuộc tính trong các thủ tục xử lý tình huống Click để tìmhiểu sâu hơn. Kỳ tới, để kết thúc loạt bài tìm hiểu khả năng đồ họa của VB.NET, tôi sẽ trìnhbày thêm một ví dụ hoàn chỉnh.Đoạn mã 2Private Sub cmdArc_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdArc.Click Dim rect As New Rectangle(50, 50, 200, 100) ‘Cung tròn được vẽ trong đây gNoiVe.Clear(Me.BackColor) ‘Xóa trước khi vẽ gNoiVe.DrawArc(New Pen(Color.Blue), rect, 12, 84) End Sub Private Sub cmdBezier_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdBezier.Click gNoiVe.Clear(Me.BackColor) gNoiVe.DrawBezier(New Pen(Color.Green, 2), 20.0F, 30.0F, 100.0F, _ 200.0F, 40.0F, 400.0F, 100.0F, 200.0F) 3End SubPrivate Sub cmdBeziers_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdBeziers.Click Dim p1 As New PointF(40.0F, 50.0F) Các điểm trên đường cong Dim p2 As New PointF(60.0F, 70.0F) Dim p3 As New PointF(80.0F, 34.0F) Dim p4 As New PointF(120.0F, 180.0F) Dim p5 As New PointF(200.0F, 150.0F) Dim p6 As New PointF(350.0F, 250.0F) Dim p7 As New PointF(200.0F, 200.0F) Dim ptsArray As PointF() = {p1, p2, p3, p4, p5, p6, p7} gNoiVe.Clear(Me.BackColor) gNoiVe.DrawBeziers(New Pen(Color.Red, 2), ptsArray)End SubPrivate Sub cmdCurve_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdCurve.Click Dim bluePen As New Pen(Color.Blue, 1) Dim pt1 As New PointF(40.0F, 50.0F) Dãy các điểm Dim pt2 As New PointF(50.0F, 75.0F) Dim pt3 As New PointF(100.0F, 115.0F) Dim pt4 As New PointF(200.0F, 180.0F) Dim pt5 As New PointF(200.0F, 90.0F) Dim ptsAr ...