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강좌-충돌테스트,충돌감지,Collide Detection,Crash sensor,Collision,game,Bounds,IntersectsWith
위와 같이 콘트롤을 배치합니다. Public Class Form1 Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove b2.Location = New Point(e.X, e.Y) Collision(b1, b2) End Sub Public Sub Collision(ByVal a As Object, ByVal b As Object) If a.Bounds.IntersectsWith(b.Bounds) Then Label1.Text = "Collision" Else Label1.Text = "No Collision" End If End Sub End Class
2017. 2. 8.