반응형 VB.NET 강좌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. 비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-메모장만들기,FontDialog,ColorDialog,.AppendText 기능확인하시고요.. 이미지와 같이 콘트롤을 배치합니다.. Public Class Form1' 폰트 FontDialog Private Sub 폰트ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 폰트ToolStripMenuItem.Click If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox5.Font = FontDialog1.Font End If End Sub ' 색상 FontDialog Private Sub 색상ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 색상ToolStripMenuItem.. 2017. 1. 18. 비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-창 드래그해서 움직이기,MousePosition,MouseButtons 폼만 하나 달랑 디자인 합니다 Public Class Form1 Dim point As New System.Drawing.Point() Dim X, Y As Integer Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown X = Control.MousePosition.X - Me.Location.X Y = Control.MousePosition.Y - Me.Location.Y End Sub Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove If e.Button = Windows.Forms.Mo.. 2017. 1. 18. 비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-이미지가 바뀌면서 애니메이션 시키기,Resources, PictureBox,Select Case vb.net 강좌-이미지가 바뀌면서 애니메이션 시키기 위처럼 좌에서 우로 이미지가 변하면서 움직이는 애니메이션입니다. pictureBox 와 Timer 를 화면에 배치합니다. Timer 속성을 위와 같이 설정합니다. pictureBox 속성창에서 Image 우측을 클릭해서 이미지 5개를 resource 등록합니다.그리고 Size와 SizeMode 를 유의하시고요.. Timer 를 클릭하면 Timer1_Tick 이벤트에 코드를 적용합니다. Public Class Form1 Dim a As Integer = 1 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick PictureBox1.Location = New Point(.. 2017. 1. 18. 이전 1 2 3 다음 반응형
