반응형 그림그리기1 비쥬얼베이직(비주얼베이직)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. 이전 1 다음 반응형
