객

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..

Imports System Imports System.Windows Imports System.Windows.Forms.Integration Class Window1 ' 참고 사이트 : taedi.kr/182 '1차 수정일 : 2010.01.05 수정자 : 객 Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded InitializeComponent() Dim exppander = New Expander() exppander.Header = "WPF WindowsFormsHost" Dim host = New WindowsFormsHost() ..