Visual Basic으로 프로그램을 개발하다 보면 Visual Studio의 막강한 다자이너 능력(?)
떄문에 (자동으로 만들어진) 소스 코드의 어떤 부분이 꼭 필요한 것인지 알아내기가
어려울 수가 있다.
Visual Studio의 디자이너에 의한 개발이 아닌, 스크립팅 언어의 소스를 작성하듯이
메모장이나 소스 편집기(EditPlus, EmEditor, TextPad 등)으로 소스를 작성하고,
컴파일하고, 실행해야 하는 경우도 있다.
다음은 이럴 때 쓰기 위해 작성된 단일 쓰레드 Visual Basic 윈도우 Hello 예제이다.
Namespace는 생략하였다.
소스 중에
Sub New()
..........
End Sub
는 생성자이고, Me는 생성된 객체의 자신을 가리키는 예약어(자바/C#의 this)이다.
또
Shared Sub New()
..........
End Sub
부분은 자바/C/C++의 main()이나 C#의 Main()에 해당한다.
컴파일> vbc HelloWin.bas
실행> HelloWin
Imports System.Drawing
Imports System.Windows.Forms
' A "Hello, world!" window program in Visual Basic.
Class HelloForm
Inherits Form
Dim label1 As Label
Public WithEvents button1 As Button
Public Sub New()
Me.button1 = new Button()
Me.label1 = new Label()
Me.SuspendLayout()
Me.Text = "Hello WIndow"
Me.button1.Location = new Point(40, 60)
Me.button1.Size = new Size(120, 30)
Me.button1.TabIndex = 3
Me.button1.Text = "클릭하세요!"
Me.button1.UseVisualStyleBackColor = true
Me.Controls.Add(button1)
AddHandler button1.Click, AddressOf button1_Click
' Me.AutoScaleDimensions = New SizeF(7F, 12F)
' Me.AutoScaleMode = AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(200, 100)
label1.Location = new Point(30, 20)
Me.Controls.Add(label1)
End Sub
Sub button1_Click(ByVal sender As Object, _
ByVal e As EventArgs) _
Handles button1.Click
MessageBox.Show("안녕하세요?", "메시지")
Me.label1.Text = "Hello, world!"
End Sub
<STAThread()> _
Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(new HelloForm())
End Sub
End Class
이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.
'프로그래밍 > BASIC' 카테고리의 다른 글
| 명령행 인자 처리 예제 for Visual Basic (0) | 2009.02.13 |
|---|---|
| 조립제법(Horner의 방법) 예제 for Visual Basic (0) | 2009.02.13 |
| 한글 RTF 파일의 헤더에 표시된 문자인코딩 타입 (0) | 2009.02.13 |
| Hello 컨솔 예제 for Visual Basic 2005 (0) | 2009.01.29 |
| Visial Basic vs FreeBasic (0) | 2009.01.28 |
