VB.NET – Page 3 – Form Follows Energy

2007/11/142021/01/06

연산자 중복정의(operator overload)

VB2005는 VB2003과 달리 연산자 중복정의를 할 수 있다. 다음은 행렬계산에서 곱셈(*)에 대한 연산자 중복정의를 한 코드이다.

Public Shared Operator *(ByVal mA As Matrix3D, ByVal mB As Matrix3D) As Matrix3D
    Dim i, j As Short
    Dim mC As Matrix3D = New Matrix3D
    For i = 0 To 3
        For j = 0 To 3
          mC.Data(i, j) = (mA.Data(i,0)*mB.Data(0,j))+(mA.Data(i,1)*mB.Data(1,j)) _
                        + (mA.Data(i,2)*mB.Data(2,j))+(mA.Data(i,3)*mB.Data(3,j))
        Next j
    Next i
    Return mC
End Operator

Public Shared Operator *(ByVal mA As Matrix3D, ByVal p1 As Point3D) As Point3D
  Dim p2 As Point3D = New Point3D()
  p2.X=(mA.Data(0,0)*p1.X)+(mA.Data(0,1)*p1.Y)+(mA.Data(0,2)*p1.Z)+(mA.Data(0,3)*1)
  p2.Y=(mA.Data(1,0)*p1.X)+(mA.Data(1,1)*p1.Y)+(mA.Data(1,2)*p1.Z)+(mA.Data(1,3)*1)
  p2.Z=(mA.Data(2,0)*p1.X)+(mA.Data(2,1)*p1.Y)+(mA.Data(2,2)*p1.Z)+(mA.Data(2,3)*1)
  Return p2
End Operator

Public Shared Operator *(ByVal mA As Matrix3D, ByVal mB As Matrix3D) As Matrix3D

Dim i, j As Short

Dim mC As Matrix3D = New Matrix3D

For i = 0 To 3

For j = 0 To 3

mC.Data(i, j) = (mA.Data(i,0)*mB.Data(0,j))+(mA.Data(i,1)*mB.Data(1,j)) _

+ (mA.Data(i,2)*mB.Data(2,j))+(mA.Data(i,3)*mB.Data(3,j))

Next j

Next i

Return mC

End Operator

Public Shared Operator *(ByVal mA As Matrix3D, ByVal p1 As Point3D) As Point3D

Dim p2 As Point3D = New Point3D()

p2.X=(mA.Data(0,0)*p1.X)+(mA.Data(0,1)*p1.Y)+(mA.Data(0,2)*p1.Z)+(mA.Data(0,3)*1)

p2.Y=(mA.Data(1,0)*p1.X)+(mA.Data(1,1)*p1.Y)+(mA.Data(1,2)*p1.Z)+(mA.Data(1,3)*1)

p2.Z=(mA.Data(2,0)*p1.X)+(mA.Data(2,1)*p1.Y)+(mA.Data(2,2)*p1.Z)+(mA.Data(2,3)*1)

Return p2

End Operator

2007/11/132015/12/12

풀다운메뉴와 툴바의 메뉴는 형식이 다른 콘트롤이나, 동일한 기능을 하는 다른 콘트롤이다. 즉, 이 콘트롤들의 대표적인 이벤트인 클릭(click)을 통해서 동일한 일을 하게 된다. 이럴 때 클릭에 대한 이벤트를 공유한다. 과거 VB6에서는 콘트롤배열(control arrays)이란 개념으로 수행했으나, 이제는 컨트롤의 이벤트 메소드의 Handles문을 통하여 구현할 수 있다.

다음의 경우는 풀다운메뉴를 클릭했을 때(mnuWaldram.Click)와 툴바메뉴를 클릭했을 때(WaldramToolStripButton.Click)에 대한 이벤트 핸들러를 공유한 것이다.

Private Sub mnuWaldram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuWaldram.Click, WaldramToolStripButton.Click
mnuWaldram.Checked = Not mnuWaldram.Checked
WaldramToolStripButton.Checked = mnuWaldram.Checked
My.Settings.WaldramChecked = mnuWaldram.Checked
End Sub

Private Sub mnuWaldram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuWaldram.Click, WaldramToolStripButton.Click

mnuWaldram.Checked = Not mnuWaldram.Checked

WaldramToolStripButton.Checked = mnuWaldram.Checked

My.Settings.WaldramChecked = mnuWaldram.Checked

End Sub

2007/11/03

설정내용을 외부에 저장하기

프로그램의 설정을 다음 번에도 사용하기 위해서는 프로그램 외부에 설정내용을 저장해야 한다. VB2005부터는 My.Settings라는 클래스를 통해서 설정내용을 저장할 수 있다.
프로젝트 디자이너에서 응용 프로그램 설정을 추가하려면
1. 솔루션 탐색기에서 프로젝트를 선택하고 프로젝트 메뉴에서 속성을 클릭합니다.
2. 설정 창을 선택합니다.
3. 설정 표의 빈 행을 클릭합니다.
4. 이름 열에 설정 이름을 입력합니다. 이름에는 공백을 사용할 수 없습니다.
5. 형식 드롭다운 목록에서 설정의 데이터 형식을 선택합니다.
6. 범위 드롭다운 목록에서 설정 범위를 선택합니다. 설정 범위는 응용 프로그램 또는 사용자가 될 수 있습니다.
7. 값 열에 설정의 기본값을 입력합니다. 값은 선택한 데이터 형식에 적합해야 합니다.

2007/10/312015/12/12

문자열 비교를 효과적으로 하기

문자열이 NULL인 경우를 판단해야 할 때가 많다. 특히 파일명을 입력받는 과정에서 아무값도 넘겨주지 않는 경우도 고려해야 한다.
일반적으로 문자열비교는 그 내용을 가지고 하지만, NULL인지 여부를 판단하는 경우에는 문자열의 길이로 판단하는 것이 훨씬 빠르다.

'고치기 전
If  dlgFile.FileName <> "" Then
txtBuildingDataFileName.Text = .FileName
End If

'고치기 전

If dlgFile.FileName <> "" Then

txtBuildingDataFileName.Text = .FileName

End If

'고친 후
If dlgFile.FileName.Length <> 0 Then
txtBuildingDataFileName.Text = .FileName
End If

'고친 후

If dlgFile.FileName.Length <> 0 Then

txtBuildingDataFileName.Text = .FileName

End If

2007/10/192015/12/12

폼에서 마우스 포인터 모양 바꾸기

오랜 시간이 걸리는 작업을 컴퓨터에게 시킬 경우, 대부분의 프로그램에서는 커서의 모양을 모래시계로 바꾸어 놓는다. 작업이 끝나면 원래의 커서 모양으로 환원시키는 것이 일반적이다.
그럼, 비베닷넷에서 어떻게 커서의 모양을 바꿀까?

폼내의 코드에 아래와 같은 코드를 넣으면 된다.

Me.Cursor = Cursors.WaitCursor

1	Me.Cursor = Cursors.WaitCursor

2006/10/192015/12/12

컬렉션 사용할 때 주의할 점

비주얼베이직 닷넷으로 프로그래밍할 때 컬렉션을 사용하면 간편하게 개체 집합을 다룰 수 있다. 컬렉션을 주로 For Each…Next 문과 함께 사용하게 되는데, 다음의 내용을 주의해야 한다.

컬렉션 수정 불가. GetEnumerator에서 반환된 열거자 개체를 사용하여 요소를 추가하거나 삭제하거나 바꾸거나 다시 정렬하여 컬렉션을 변경할 수는 없다. For Each…Next 루프를 시작한 다음 컬렉션을 변경하면 열거자 개체는 유효하지 않게 되고, 다음에 요소에 액세스하려고 하면InvalidOperationException 예외가 발생한다.
컬렉션 요소 수정 불가. 열거자 개체의 Current 속성은 ReadOnly(Visual Basic)이며 각 컬렉션 요소의 로컬 복사본을 반환한다. 이것은 For Each…Next 루프에서 요소 자체를 수정할 수 없음을 의미한다. 모든 수정 내용은 Current의 로컬 복사본에만 영향을 주며 내부 컬렉션에 반영되지는 않는다.(중요!) 그러나 요소가 참조 형식인 경우에는 요소가 가리키는 인스턴스의 멤버를 수정할 수 있다. 다음은 이에 대한 예이다.

Public Overrides Sub LinkTo(ByVal BuildingDB As BuildingLibrary)
For Each myItem As Layer In Me.Layers
If BuildingDB.FloorMaterials.ContainsKey(myItem.Material.Name) Then
myItem.Material = BuildingDB.FloorMaterials(myItem.Material.Name)
End If

Next
End Sub

Public Overrides Sub LinkTo(ByVal BuildingDB As BuildingLibrary)

For Each myItem As Layer In Me.Layers

If BuildingDB.FloorMaterials.ContainsKey(myItem.Material.Name) Then

myItem.Material = BuildingDB.FloorMaterials(myItem.Material.Name)

End If

End Sub

아래는 안되는 코드

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)
'공간에 대해
For Each myItem As Space In Me.Spaces.Values
If BuildingDB.Spaces.ContainsKey(myItem.Name) Then
myItem = BuildingDB.Spaces(myItem.Name) 'myItem은 복사본이기에 원본 컬렉션에 영향을 주지 못한다.
End If
Next
End Sub

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)

'공간에 대해

For Each myItem As Space In Me.Spaces.Values

If BuildingDB.Spaces.ContainsKey(myItem.Name) Then

myItem = BuildingDB.Spaces(myItem.Name) 'myItem은 복사본이기에 원본 컬렉션에 영향을 주지 못한다.

End If

End Sub

‘그래서 수정한 코드 = 되는 코드

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)
'공간에 대해
Dim ItemsToLink As New Spaces

For Each myItem As Space In Me.Spaces.Values
If BuildingDB.Spaces.ContainsKey(myItem.Name) Then
ItemsToLink.Add(myItem.Name, BuildingDB.Spaces(myItem.Name))
End If
Next
Me.Spaces.Clear()
For Each myItem As Space In ItemsToLink.Values
Me.Spaces.Add(myItem.Name, myItem)

Next
For Each myItem As Space In Me.Spaces.Values
CType(myItem, OndolSpace).LinkTo(BuildingDB)
Next
End Sub

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)

'공간에 대해

Dim ItemsToLink As New Spaces

For Each myItem As Space In Me.Spaces.Values

If BuildingDB.Spaces.ContainsKey(myItem.Name) Then

ItemsToLink.Add(myItem.Name, BuildingDB.Spaces(myItem.Name))

End If

Me.Spaces.Clear()

For Each myItem As Space In ItemsToLink.Values

Me.Spaces.Add(myItem.Name, myItem)

For Each myItem As Space In Me.Spaces.Values

CType(myItem, OndolSpace).LinkTo(BuildingDB)

End Sub

2006/10/182015/12/12

한글 텍스트 파일 읽기

한글 텍스트 파일을 읽기 위해서는 인코딩을 다음과 같이 지정해 주어야 한다.

'파일스트림 열기
Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)
'
'스트림리더 열기
'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!
'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다
'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)
'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.
'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.
Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))
'여기서 949는 한글에 대한 code page이다.
'
'자료를 읽기
Call Parse(Reader)
'
'스트림리더 닫기
Reader.Close()

'파일스트림 열기

Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)

'스트림리더 열기

'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!

'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다

'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)

'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.

'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.

Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))

'여기서 949는 한글에 대한 code page이다.

'자료를 읽기

Call Parse(Reader)

'스트림리더 닫기

Reader.Close()

2006/09/212015/12/12

List와 Dictionary 클래스

.NET Framework v1.1이하에서는 ArrayList와 HashTable을 이용하여 콜렉션을 관리하였다.

ArrayList는 항목이 중복될 수 있는 콜렉션을 관리하며 추가된 순서(인덱스)가 중요한 관리대상이다. 예를 들어 벽체의 구성은 벽돌, 단열재, 방습층, 벽돌 등과 같이 중복되는 재료가 있는 경우이기 때문에 ArrayList를 사용하는 것이 좋다.

HashTable은 항목이 중복될 수 없는 콜렉션을 관리하며 중복되지 않는 키(key)가 중요한 관리대상이다. 예를 들어, 건축재료 전체 목록을 관리하고자 한다면 이름을 키(key)로하여 각 재료의 물성치를 관리할 수 있다.

이 둘을 안전하게 사용하려면 자료형(data type)을 항상 검토하여야 한다.

저장할 자료형을 정하여, 이와 다를 경우 코딩시부터 오류를 발생시키도록 강력한 자료형검토를 보장하는 클래스가 v2.0에서 추가되었다.

Generic.List와 Generic.Dictionary가 바로 새로 추가된 클래스들이다.

변경전[.NET Framework v1.1]

Private m_Elements As ArrayList

변경전[.NET Framework v1.1]

Private m_Elements As ArrayList

변경후[.NET Framework v2.0]

Private m_Elements As Generic.List(Of Node)

변경후[.NET Framework v2.0]

Private m_Elements As Generic.List(Of Node)

———

변경전 [.NET Framework v1.1]

Private m_Elements As HashTable

변경전 [.NET Framework v1.1]

Private m_Elements As HashTable

변경후[.NET Framework v2.0]
Private m_Elements As Generic.Dictionary(Of String, Pipe)

1 2	변경후[.NET Framework v2.0] Private m_Elements As Generic.Dictionary(Of String, Pipe)

*주의 : .NET Framework v2.0에 Generic이 추가된 것임. 기존의 ArrayList와 HashTable은 계속사용할 수 있음

2006/09/192015/12/12

Main프로시저로 윈도우 프로그램을 실행시키기

윈도우 프로그래밍에서는 폼을 이용하여 창(윈도우)을 만들어 화면에 보여준다.

시작 폼(form) 없이 윈도우프로그램을 실행시키려면 다음과 같이 하면 된다.

1. 모듈에 Main 프로시저를 정의한다.

Public Module MainModule
Public Sub Main()
'여기에 코드를 입력한다.
End Sub
End Module

Public Module MainModule

Public Sub Main()

'여기에 코드를 입력한다.

End Sub

End Module

2. 방법1 :폼의 메소드를 활용하기

Public Module MainModule
Public Sub Main()
Dim frm As New frmMain()
' ShowDialog()는 a modal window를 보여줌.
' 윈도우가 닫힐 때까지 Main()메소드 실행안됨
frm.ShowDialog()
' Show()는 a modeless window를 보여줌
' Main()메소드가 계속 실행됨
frm.Show()
End Sub
End Module

Public Module MainModule

Public Sub Main()

Dim frm As New frmMain()

' ShowDialog()는 a modal window를 보여줌.

' 윈도우가 닫힐 때까지 Main()메소드 실행안됨

frm.ShowDialog()

' Show()는 a modeless window를 보여줌

' Main()메소드가 계속 실행됨

frm.Show()

End Sub

End Module

3.방법2 : Application.Run 이용

Public Module MainModule
Public Sub Main()
Dim frm As New Form1()
    Application.Run(frm)
End Sub
End Module

Public Module MainModule

Public Sub Main()

Dim frm As New Form1()

Application.Run(frm)

End Sub

End Module

이 방법으로 윈도우프로그램을 실행시킨 경우, 종료하려면 다음과 같은 메소드를 사용한다.
프로그램을 끝낼 때는 Application.Exit()를 호출한다.

2006/08/072021/01/03

문자열을 읽어서 단어로 나누어 주는 함수 짜기

입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.

Function GetWords(ByVal TextLine As String, ByVal ParamArray Separators() As Char) As String()
'
' 입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.
' divide character string into separate words according to period and blank space.
'
'Revision History
' &amp;amp;nbsp;Written by Yong-Yee Kim, 2005/11/25
'
Dim MySeparators() As Char = {","c, ":"c, "|"c, ";"c, """"c, "'"c} '기본 구분자 = 쉼표, 콜론, 파이프, 세미콜론, 큰따옴표, 작은따옴표
Dim Words() As String = {}
'
'1)문자열 시작과 끝의 공백을 제거한다.
TextLine = TextLine.Trim()
'
'2)문자열을 구분자(쉼표)를 통하여 분할한다.
If Separators.Length &amp;amp;gt; 0 Then
MySeparators = Separators
End If
Dim Tokens() As String = TextLine.Split(MySeparators)

'
'3)얼마나 많은 단어가 존재하는가?
Dim nums As Integer = 0
For i As Integer = 0 To Tokens.Length - 1
If Tokens(i).Trim.Length &amp;amp;gt; 0 Then '빈 문자열의 단어는 제외시킴
nums += 1
End If
Next i
'
'4)단어수만큼 배열을 할당
ReDim Words(nums - 1)
'
'5)단어를 반환한다.
Dim WordCount As Integer = 0
For j As Integer = 0 To Tokens.Length - 1
If Tokens(j).Trim.Length &amp;amp;gt; 0 Then
Words(WordCount) = Tokens(j).Trim
WordCount += 1
End If
Next j
'
Return Words
End Function

Function GetWords(ByVal TextLine As String, ByVal ParamArray Separators() As Char) As String()

' 입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.

' divide character string into separate words according to period and blank space.

'Revision History

' &amp;nbsp;Written by Yong-Yee Kim, 2005/11/25

Dim MySeparators() As Char = {","c, ":"c, "|"c, ";"c, """"c, "'"c} '기본 구분자 = 쉼표, 콜론, 파이프, 세미콜론, 큰따옴표, 작은따옴표

Dim Words() As String = {}

'1)문자열 시작과 끝의 공백을 제거한다.

TextLine = TextLine.Trim()

'2)문자열을 구분자(쉼표)를 통하여 분할한다.

If Separators.Length &amp;gt; 0 Then

MySeparators = Separators

End If

Dim Tokens() As String = TextLine.Split(MySeparators)

'3)얼마나 많은 단어가 존재하는가?

Dim nums As Integer = 0

For i As Integer = 0 To Tokens.Length - 1

If Tokens(i).Trim.Length &amp;gt; 0 Then '빈 문자열의 단어는 제외시킴

nums += 1

End If

Next i

'4)단어수만큼 배열을 할당

ReDim Words(nums - 1)

'5)단어를 반환한다.

Dim WordCount As Integer = 0

For j As Integer = 0 To Tokens.Length - 1

If Tokens(j).Trim.Length &amp;gt; 0 Then

Words(WordCount) = Tokens(j).Trim

WordCount += 1

End If

Next j

Return Words

End Function

여기서 3)과 5)가 많이 비슷하고 중복된 것으로 느낄 것이다.
그래서 어느 한 쪽을 지워버리면 어떤 일이 생길까?
시간이 되시면 한 번씩 해보면 좋을 것 같다.
결론부터 말하자면, 빈 문자열도 하나의 단어처럼 취급될 수 있다.
즉, 원하는 결과를 제대로 얻을 수 없다.

[사용법]

Dim Words() As String = Getwords("김창선, 4", ",") '문자열을 쉼표로 구분하라
'Words(0) 의 내용은 "김창선"
'Words(1)의 내용은 "4"

Dim Words() As String = Getwords("김창선, 4", ",") '문자열을 쉼표로 구분하라

'Words(0) 의 내용은 "김창선"

'Words(1)의 내용은 "4"

Tag: VB.NET

연산자 중복정의(operator overload)

이벤트 핸들러 로직을 공유하기

설정내용을 외부에 저장하기

문자열 비교를 효과적으로 하기

폼에서 마우스 포인터 모양 바꾸기

컬렉션 사용할 때 주의할 점

한글 텍스트 파일 읽기

List와 Dictionary 클래스

Main프로시저로 윈도우 프로그램을 실행시키기

문자열을 읽어서 단어로 나누어 주는 함수 짜기