반응형 CreateGraphics2 visaul basic,비주얼베이직,vb .net 강좌-사각형,원 기본도형그리기,FillReDrawRectanglectangle,FillEllipse,Pens,Brushes Public Class Form1 Dim g As Graphics Dim x As Integer = 100 Dim y As Integer = 100 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load g = Me.CreateGraphics End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click g.DrawRectangle(Pens.Blue, x, y, 100, 100) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Cli.. 2017. 2. 10. 비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-사각형그리기.graphics,SolidBrush,FillRectangle vb.net 강좌-사각형그리기.graphics Public Class Form1 Dim gr As Graphics Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load gr = Me.CreateGraphics End Sub Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint Dim c As Color = Color.DarkOrange Dim p As New SolidBrush(c) gr.FillRectangle(p, 50, 50, 150, 250) End SubEnd Class 2017. 1. 18. 이전 1 다음 반응형
