본문 바로가기
반응형

Visual Basic26

visual basic,비주얼베이직,vb .net 강좌-벽에 닿으면 튕겨나오는 볼,bounding ball,ClientRectangle,bounds object, timer Enable 은 반드시 truePublic Class Form1 Dim hs As Integer = -5 Dim vs As Integer = -5 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If ball.Right > Me.ClientRectangle.Width Then hs = -hs End If If ball.Bottom > Me.ClientRectangle.Height Then vs = -vs End If If ball.Left < 0 Then hs = -hs End If If ball.Top < 0 Then vs = -vs End If ball.Left += hs ball.Top += vs .. 2017. 2. 10.
visual basic,비주얼베이직,vb .net강좌-코드로 오브젝트생성및 이벤트적용,AddressOf,AddHandler,sender ,Controls.Add 코드로 오브젝트 생성및 이벤트 적용 예제입니다. 결과물입니다. Public Class Form1 Dim Buttons(99) As Button Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load For i As Integer = 0 To 99 Buttons(i) = New Button() Buttons(i).Size = New Size(20, 20) Buttons(i).Top = ((i * 20) \ 200) * 20 Buttons(i).Left = (i * 20) Mod 200 Buttons(i).Text = "버튼 " & i.ToString AddHandler Buttons(i).Click, AddressOf Me... 2017. 2. 9.
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.
visual basic,비주얼베이직,vb .net 강좌-식당관리,주문관기,restaurant order,coffee bar program,form between sharing data,NumericUpDown 위와 같이 작동합니다. fom 1 의 디자인입니다 ComboBox , NumericUpDown 버튼 2개 textbox 1개 label 2 개를 추가합니다.label 2 는 form 1 에서 어느테이블의 주문인지 구분하기 위해서 넣은거고 visuble 은 false 로 합니다. 변수는 안넘어와서 콘트롤에 값을 전달하고 어느 테이블 주문인지 코드로 구분합니다. 콤보박스에 위와 같이 추가합니다. Public Class Form1 Dim number As Integer Private Sub Table1_Click(sender As Object, e As EventArgs) Handles Table1.Click Form2.Show() Form2.Label2.Text = 1 ' 테이블 1의 주문을 form 2로 .. 2017. 2. 8.
반응형

티스토리툴바