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강좌 -그림그리기,ComboBox,FillEllipse,MouseMove
Public Class Form1 Dim down = False Dim mybrush = Brushes.Red Dim wi As Integer = 10 Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown down = True End Sub Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove wi = ComboBox1.SelectedItem If down = True Then Me.CreateGraphics.FillEllipse(mybrush, e.X, e.Y, wi, wi) ' e.X /e. y ..
2017. 1. 20.
