객

Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Graphics Public Class DrawArc ' 프로그램명 : 원 그리기 ' 제작일 : 2010. 01. 08 ' 제작자 : 객과 함께. Dim RcDraw As Rectangle Dim Rc As New Rectangle Dim startAngle As Integer = 45 Dim sweepAngle As Integer = 360 Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEv..

Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Graphics Public Class DrawRectangle ' 프로그램명 : 사각형 그리기 ' 제작일 : 2010. 01. 08 ' 제작자 : 객과 함께. Dim RcDraw As Rectangle Dim Rc As New Rectangle Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown RcDraw.X = e.X RcDraw..

Imports System.Windows.Forms Imports System.Drawing.Graphics Public Class Form3 ' 프로그램명 : 사각형 그리기 ' 제작일 : 2010. 01. 08 ' 제작자 : 객과 함께. Dim RcDraw As Rectangle Dim Rc As New Rectangle Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown RcDraw.X = e.X RcDraw.Y = e.Y End Sub Private Sub Fo..

비주얼 베이직 에서 외부 프로그램을 실행 하기 위해서는 해당 위치에 noteProcess.Start() 입력을 하고 종료 할때에는 noteProcess.CloseMainWindow()를 입력한다. 물론 위 함수를 호출 하기 위해서는 System.Threading , System.Diagnostics 를 임포트한다. 예 ) Button 경우 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst..

Imports System Imports System.Windows.Interop Imports System.Runtime.InteropServices Public Class Window1 _ Public Structure MARGINS Public cxLeftWidth As Integer Public cxRightWidth As Integer Public cyTopHeight As Integer Public cyButtomheight As Integer End Structure _ Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer End Function..