프로젝트를 작성하다보면 가끔 한글과 영문을 구분해야 하는 경우가 생길때가 있다. 영문만 입력을 받아야 한다던가, 한영이 섞이면 안된다던가 하는 따위의 상황이 발생했을때 사용할만한 함수를 간략하게 만들어보자. 1. 하나의 문자가 한글인지 확인하는 함수 Public Function IsKorean(ByVal str As String) As Boolean Return (str >= ChrW(&HAC00) AndAlso str = "a" AndAlso str = "A" AndAlso str

프로그래밍 언어의 데이터 구조에서 스택(Stack)과 큐(Queue)는 자주 사용되는 중요한 개념입니다. 스택은 Last In First Out (혹은 First In Last Out) 구조로 나중에 넣은 데이터가 먼저 추출되는 형식이며, 큐는 First In First Out (혹은 Last In Last Out) 구조로 먼저 넣은 데이터가 먼저 추출되는 구조입니다. 흔히 이해를 돕기 위해 스택은 보드게임의 원반쌓기로 비유되고, 큐는 버스를 타기 위해 줄 서있는 구조로 비유되곤 합니다. VB.NET에서 스택과 큐를 구현하기 위해서는 각각 System.Collections.Generic 네임스페이스에 있는 Stack 클래스와 Queue 클래스를 사용합니다. 스택과 큐는 동일한 데이터형의 항목들을 순차적으..

VB.NET에서 정렬 알고리즘을 구현하는 방법은 매우 중요한 주제입니다. 이 글에서는 VB.NET에서 사용 가능한 몇 가지 대표적인 정렬 알고리즘에 대해 살펴보고, 각 알고리즘의 구현 방법과 성능에 대해서도 자세히 다룰 것입니다. 1. 버블 정렬(Bubble Sort) 버블 정렬은 가장 간단한 정렬 알고리즘 중 하나입니다. 이 알고리즘은 인접한 두 개의 요소를 비교하고, 만약 두 개의 요소가 잘못된 순서로 되어 있으면 위치를 교환하는 과정을 반복합니다. 이 과정을 모든 요소에 대해 반복하면 정렬이 완료됩니다. 하지만 버블 정렬은 시간 복잡도가 O(n^2)이라는 단점이 있어서 속도가 느리다는 단점이 있습니다. Sub BubbleSort(ByVal arr() As Integer) Dim i, j, temp ..

Label은 사용자가 편집할 수 없는 텍스트 보여주기용 컨트롤로 주로 사용된다. 그래서, 작업 결과를 보여주거나 기타 다른 컨트롤들의 제목으로 사용되곤 한다. 그런데 이 Label 컨트롤을 사용하다 보면 뭔가 살짝 아쉬운 경우가 생기는데 레이블 크기에 비해 글자가 많거나 적을때가 바로 그렇다. 이 경우 대처방안도 두가지 경우로 나눌 수 있는데 글자의 넓이에 레이블의 크기를 맞추거나, 혹은 레이블의 크기에 글자의 크기를 맞추는 방법이다. Label 컨트롤은 이 둘을 모두 제공하니 하나씩 알아보기로 하자. Label의 크기에 맞춰서 글자 크기를 변경하기 1. 글자의 넓이에 레이블의 크기를 맞추기 많은 분들이 알고 있듯이 이건 정말 간단하게 해결할 수 있다. Label 컨트롤의 속성중 AutoSize 속성을 ..

어디서 많이 본 대화상자다. 이름도 공통대화상자다보니 윈도우를 사용하다보면 여기저기서 보게 되는 대화상자중 하나다. 컬러대화상자는 이전 다른 대화상자들에 비해서 딱히 설정할게 없다. 하다못해 윈도우 타이틀도 못바꾼다. 그냥 ShowDialog로 호출하고 결과로 선택된 색상 받아서 원하는 작업을 해주면 된다. 폼에 ColorDialog와 버튼을 하나씩 추가하자. Type Name Text ColorDialog DialogColor 해당사항없음 Button ButtonColor &Color ButtonColor의 Click 이벤트에 아래 소스를 입력후 실행해서 위 화면이 나오면 성공 Private Sub ButtonColor_Click(sender As Object, e As EventArgs) Handle..

파일 관련한 대화상자로 지난 강좌에서 다뤘던 열기, 저장 대화상자 외에서 아래 화면처럼 폴더를 선택하는 대화상자가 하나 더 있다. 이 대화상자를 만들기 위해서 폼 디자인모드에서 아래 속성으로 컨트롤을 추가하자. Type Name Text FolderBrowserDialog DialogFolderBrowser 해당사항 없음 Button ButtonFolder &Folder ButtonFolder의 Click 이벤트에 아래 소스 입력후 실행했을때 위 화면이 나오면 성공 Private Sub ButtonFolder_Click(sender As Object, e As EventArgs) Handles ButtonFolder.Click DialogFolderBrowser.RootFolder = Environmen..