VB.Net 기초1[닷넷C#교육/ADO.NET강좌/ASP.NET교육잘하는곳/C#,ASP.NET교육추천/닷넷실무교육/.NET,C#/ADO.NET교육/닷넷학원/ASP.NET실무교육]

* VS.NET을 처음 해보시는 분들 위주로 작성하였습니다. 
한번정도 사용해 보신 분이라면 이번 강의는 넘어가세요~ ^^ 

InputBox에 텍스트를 입력하면 윈도우에 표시되도록 하는 간단한 예제를 해보겠습니다. 

VS.NET을 실행합니다. 
메뉴에서 '파일(F)' -> '새로만들기(N)' -> '프로젝트(P)'를 누르면 
'새 프로젝트' 윈도우가 나타납니다. 
메뉴바에 있는 '새 프로젝트 (ctrl+shift+N)'로 열어도 됩니다. 

프로젝트이름과 저장할 위치를 지정 후 확인합니다. 

생성된 폼위에 Label과 Button 2개를 올려놓습니다. 

컨트롤들의 이름과 속성은 임의로 변경하시면 됩니다. 

버튼1을 더블클릭하여 버튼1 클릭 이벤트에 inputBox 창을 띄워 입력받은 
값이 Label에 나타나도록 코딩합니다. 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Dim strInput As String 
'입력박스에서 문자를 입력받는다. 
strInput = InputBox("글자를 입력해주세요", "VB.NET!!") 
'입력받은 값을 Label 값으로 대입한다. 
Label1.Text = strINput 
End Sub 


버튼2를 더블클릭하여 버튼2 클릭 이벤트 발생 시 폼이 닫히도록 코딩합니다. 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

'form을 닫는다 
Me.Close() 

End Sub 

코딩이 다 되었으면 실행합니다. 
"Ctrl+Shift+B"를 눌러 빌드하고 F5를 눌러 실행합니다. 


'************************************************************ 
전체소스 
'************************************************************ 

Public Class Form1 
Inherits System.Windows.Forms.Form 

#Region " Windows Form 디자이너에서 생성한 코드 " 

Public Sub New() 
MyBase.New() 

'이 호출은 Windows Form 디자이너에 필요합니다. 
InitializeComponent() 

'InitializeComponent()를 호출한 다음에 초기화 작업을 추가하십시오. 

End Sub 

'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. 
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 
If disposing Then 
If Not (components Is Nothing) Then 
components.Dispose() 
End If 
End If 
MyBase.Dispose(disposing) 
End Sub 

'Windows Form 디자이너에 필요합니다. 
Private components As System.ComponentModel.IContainer 

'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. 
'Windows Form 디자이너를 사용하여 수정할 수 있습니다. 
'코드 편집기를 사용하여 수정하지 마십시오. 
Friend WithEvents Button1 As System.Windows.Forms.Button 
Friend WithEvents Button2 As System.Windows.Forms.Button 
Friend WithEvents Label1 As System.Windows.Forms.Label 
Private Sub InitializeComponent() 
Me.Button1 = New System.Windows.Forms.Button 
Me.Button2 = New System.Windows.Forms.Button 
Me.Label1 = New System.Windows.Forms.Label 
Me.SuspendLayout() 
' 
'Button1 
' 
Me.Button1.Location = New System.Drawing.Point(24, 88) 
Me.Button1.Name = "Button1" 
Me.Button1.Size = New System.Drawing.Size(96, 40) 
Me.Button1.TabIndex = 0 
Me.Button1.Text = "Button1" 
' 
'Button2 
' 
Me.Button2.Location = New System.Drawing.Point(240, 88) 
Me.Button2.Name = "Button2" 
Me.Button2.Size = New System.Drawing.Size(96, 40) 
Me.Button2.TabIndex = 1 
Me.Button2.Text = "Button2" 
' 
'Label1 
' 
Me.Label1.Location = New System.Drawing.Point(24, 24) 
Me.Label1.Name = "Label1" 
Me.Label1.Size = New System.Drawing.Size(312, 32) 
Me.Label1.TabIndex = 2 
Me.Label1.Text = "Label1" 
' 
'Form1 
' 
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) 
Me.ClientSize = New System.Drawing.Size(368, 158) 
Me.Controls.Add(Me.Label1) 
Me.Controls.Add(Me.Button2) 
Me.Controls.Add(Me.Button1) 
Me.Name = "Form1" 
Me.Text = "Form1" 
Me.ResumeLayout(False) 

End Sub 

#End Region 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Dim strInput As String 
'입력박스에서 문자를 입력받는다. 
strInput = InputBox("글자를 입력해주세요", "VB.NET!!") 
'입력받은 값을 Label 값으로 대입한다. 
Label1.Text = strINput 


End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
'form을 닫는다 
Me.Close() 

End Sub 
End Class 


'************************************************************ 

	[100%환급,개발자전문]빅데이터/SQL/자바/스프링/안드로이드/닷…	오라클자바…	12-27	2520
	[채용확정무료교육]오라클자바개발잘하는신입뽑기2개월과정,교육…	오라클자바…	12-11	1849
53	[평일100%환급7건]Spring,자바&JSP,안드로이드,웹퍼블리싱,C#닷…	오라클자바…	03-15	1657
52	[주말]C#,ASP.NET마스터	오라클자바…	01-31	1746
51	[기업100%환급,평일주간]SQL기초에서스키마오브젝트,PLSQL,힌트…	오라클자바…	01-31	2516
50	[평일주간야간,주말]C기본&자료구조,알고리즘	오라클자바…	01-31	1391
49	[평일주간,평일야간,주말]Spring,MyBatis,Hibernate개발자과정-…	오라클자바…	01-19	1691
48	[평일야간,주말]안드로이드개발자과정(Android기초실무)	오라클자바…	01-11	1579
47	[평일야간,주말주간야간]JAVA,Network&JSP&Spring,MyBatis,Hiber…	오라클자바…	01-03	2094
46	[100%환급,개발자전문]빅데이터/SQL/자바/스프링/안드로이드/닷…	오라클자바…	12-27	2520
45	[평일주간]NoSQL,MongoDB,빅데이터기초과정	오라클자바…	12-19	1808
44	[평일주간야간, 주말]웹퍼블리싱 마스터(HTML5,CSS3,jQUERY,AJAX…	오라클자바…	12-14	1791
43	[채용확정무료교육]오라클자바개발잘하는신입뽑기2개월과정,교육…	오라클자바…	12-11	1849
42	[평일주간]빅데이터하둡기초과정(BigData Hadoop)	오라클자바…	12-09	1451
41	[평일야간]닷넷(C#,Network,ADO.NET,ASP.NET)마스터	오라클자바…	12-01	1674
40	[기업100%환급]오라클&자바웹스프링신입과정3주(SQL,JAVA,JSP,Se…	오라클자바…	12-01	1849
39	[평일야간,주말]SQL기초에서실무까지(SQL기초,PLSQL,힌트,튜닝)	오라클자바…	12-01	1320