Đang tải... (xem toàn văn)
Giáo trình Visual Basic
Đồ họa trong .NET• Hệ tọa độ trên màn hình• GDI+ (Graphics Device Interface)Là hệ thống nâng cấp từ GDI - là hệ thống các thư viện hỗ trợ đồ họa để người lập trình có thể xây dựng chương trình ứng dụng đồ họa. Gồm các khối :• System.Drawing• System.Drawing.Drawing2D• System.Drawing.Imaging• System.Drawing.Text• System.Drawing.PrintingGDI+ giúp ta có thể tạo ra các hình vẽ hiện trên màn hình và in ra trên các thiết bị in.• Tạo đối tượng graphics (Creating a Graphics Object)Đối tượng graphics được coi như trang giấy phủ lên bề mặt đối tượng và ta vẽ hình trên đó theo chế độ vẽ vecto. Cách này vẽ hình nhanh, đơn giảnDùng phương thức CreateGraphicsVí dụ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics Dim point1, point2 As Point point1.X = 100 point1.Y = 100 point2.X = 800 point2.Y = 600 g = Me.CreateGraphics g.DrawLine(Pens.Blue, point1, point2) End Sub. + Mô tả các đối tượng đồ họa Dim point1, point2 As Point Dim x As Rectangle Dim pent1 As New Pen(Color.Red, 3) Dim choi As New SolidBrush(Color.Red)+ Cách phương thức vẽ cơ bản vẽ g.DrawLine(pen, point0, point1) g.DrawEllipse(brush, pen, center,radiusX, radiusY) g.DrawRectangle(pent1, rect)Ví dụ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics Dim point1, point2 As Point Dim rect As Rectangle Dim pent1 As New Pen(Color.Red, 3) Dim redBrush As New SolidBrush(Color.Red) rect.X = 10 rect.Y = 10 rect.Width = 200 rect.Height = 100 point1.X = 100 point1.Y = 100 point2.X = 800 point2.Y = 600 g = Me.CreateGraphics g.DrawRectangle(pent1, rect) Dim x As Integer = 0 Dim y As Integer = 0 Dim width As Integer = 200 Dim height As Integer = 100 Dim rect1 As New Rectangle(x, y, width, height) ' Fill ellipse on screen. g.FillEllipse(redBrush, rect1) End SubVí du 2Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics Dim rect As Rectangle rect.X = 10 rect.Y = 10 rect.Width = 200 rect.Height = 100 point1.X = 100 point1.Y = 100 point2.X = 800 point2.Y = 600 g = Me.CreateGraphics g.DrawRectangle(Pens.Blue, rect)End Sub. 5- Phương thức DrawImage Có thể dùng phương thức này để vẽ lại các ảnh gốc lên đối tượng graphics g ở dạng bitmap. Ảnh gốc có thể là các file ảnh dạng : BMP, GIF, JPEG, EXIF, PNG, TIFF và ICON.Ví dụ1 :Bitmap a1 = new Bitmap("C:\anh1.bmp");Bitmap a2 = new Bitmap("C:\anh2.gif");Bitmap a3 = new Bitmap("c:\anh3.jpg");Bitmap a4 = new Bitmap("c:\anh4.png");Bitmap a5 = new Bitmap("c:\anh5.tif");g.DrawImage(a1, 10, 10);g.DrawImage(a2, 220, 10);g.DrawImage(a3, 280, 10);g.DrawImage(a4, 150, 200);g.DrawImage(a5, 300, 200);Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics Dim rect1 As Rectangle Bitmap a1 = new Bitmap("C:\h1.bmp"); rect1.Height = 100 rect1.Width = 100 rect1.X = 50 rect1.Y = 50 g = Me.CreateGraphics g.DrawImage(a1, rect1)---------------------------------------------------------------Ví dụ vẽ Đồ thị hàm sinx Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles utton1.Click Dim a, b, tlx, tly, x0, x1, y0, y1 As Double Dim rong, cao As Double Dim g As Graphics Dim pen1 As New Pen(Color.Red, 3) rong = Me.Width cao = Me.Height a = 0 b = 12.66 '(4pi) tlx = rong / (b - a) tly = 100 g = Me.CreateGraphics() Dim point1 As New Point(0, 0) Dim Point2 As New Point(0, 0) 've truc tung point1.X = 0 point1.Y = 0 Point2.X = 0 Point2.Y = Convert.ToInt16(cao) 've truc hoanh, điểm tịnh tiến gốc (0,cao/2) g.DrawLine(pen1, point1, Point2) point1.X = 0 point1.Y = Convert.ToInt16(cao / 2) Point2.X = Convert.ToInt16(rong) Point2.Y = Convert.ToInt16(cao / 2) g.DrawLine(pen1, point1, Point2) 'tính điểm đầu x0 = a y0 = Math.Sin(a) x1 = a point1.X = Convert.ToInt16((x0 - a) * tlx) point1.Y = Convert.ToIn16(cao / 2 - (y0 * tly)) pen1.Color = Color.Blue pen1.Width = 2 Do While (x1 <= b) x1 = x1 + 0.05 y1 = Math.Sin(x1) Point2.X = Convert.ToInt16((x1 - a) * tlx) Point2.Y = Convert.ToInt16(cao / 2 - (y1 * tly)) g.DrawLine(pen1, point1, Point2) point1.X = Point2.X point1.Y = Point2.Y Loop End Sub ----------------------------- . 0 point1.Y = Convert.ToInt 16( cao / 2) Point2.X = Convert.ToInt 16( rong) Point2.Y = Convert.ToInt 16( cao / 2) g.DrawLine(pen1,. 3) rong = Me.Width cao = Me.Height a = 0 b = 12 .66 '(4pi) tlx = rong / (b - a) tly = 100