[지디넷코리아]이번 연재에서는 지난 연재에서 다루었던 다소 추상적으로 보이던 주제들을 실제적으로 풀어보는 시간을 가지도록 하겠습니다. 간단한 비주얼 베이직 프로그램을 작성하여 다국어 프로그래밍에서 고려해야 할 사항들이 무엇인지 하나씩 풀어보기로 합시다.

기초를 튼튼히
LCID - 로케일 식별자
다국어 프로그램과 관련된 소스의 이곳저곳에서 볼 수 있는 로케일 식별자 LCID는 다음의 네 가지 부분으로 이루어져 있습니다.


<그림 1>은 32-bib LCID 값의 메모리 구조입니다. 그림에서 볼 수 있듯이 LANGID(Language Identifier)는 주언어 식별자(PRIMARYLANGID)와 부언어 식별자(SUBLANGID)의 두 부분으로 구성되어 있으며, 특정한 정렬 방식이 정의되어 있지 않을 경우(SORT_DEFALUT) LCID 값과 동일한 값을 가지게 됩니다.

<그림 1> 32-bib LCID 값의 메모리 구조

이러한 LCID들을 다루는 API에는 다음과 같은 함수들이 있습니다. 이 함수들은 앞으로 예제를 진행하며 사용하게 되므로 눈여겨 봐 주세요.


폰트 고르기
단순히 해당 로케일의 문자를 나타낼 수 있다는 차원을 넘어 윈도우 폰트 중 각 언어마다 가장 깔끔한 보기를 제공해 주는 기본 폰트들이 있는데, 이 폰트들은 <표 1>과 같습니다.

앞 폰트들 중 폰트 이름 끝에 *가 붙은 폰트들은 재배포가 불가능한 폰트들입니다. 따라서 1차 선택으로 표시된 폰트가 사용자의 시스템에 존재하지 않을 경우 2차 선택의 폰트를 사용해야만 할 것입니다.

<표 1> 윈도우 폰트의 기본폰트

언어 1차 선택 2차 선택 한국어 GulimChe Gulim 일본어 MS UI Gothic MS Gothic 중국어 간체 MS Hei/ MS Song SimSun 중국어 번체 MingLiU PMingLiU 태국어 Tahoma CordiaUPC 그밖의 언어들 Tahoma Arial

실전! 다국어 프로그램
폼 만들기
우선 <화면 1>과 같이 폼을 만들어 봅시다(frmFont.frm).

<화면 1> 구성하기

프로그램의 목적
이 간단한 프로그램의 목적은 옵션 버튼을 이용해 언어를 선택하면, 선택된 언어에 해당하는 문자열로 cmdFont 커맨드 버튼의 캡션이 변경되면서 커맨드 버튼의 크기가 그에 맞게 조정되는 것을 보여주기 위함입니다. 또한, cmdFont 버튼을 누르면 cmdFont의 폰트 정보가 간략하게 표시됩니다.

코드 뜯어보기
modLocalFont.bas
modLocalFont.bas의 역할은 주어진 LCID에 맞춰 Obj의 폰트를 변경해 주는 역할입니다. 각 LCID에 맞는 폰트 이름을 적기 위해 ‘ChrW(&HAD74) + ChrW(&H B9BC)’와 같은 형식을 취하고 있는데 이는 비주얼 베이직의 직접 실행창에서 그 값을 살펴보면 ‘굴림’임을 알 수 있습니다. 이 함수에서는 편의상 사용자 시스템에 반드시 존재하는 폰트인 2차 선택 폰트들을 기본 폰트로 설정하고 있지만, 함수를 약간 변형시켜 사용자 시스템 내에 1차 선택 폰트들이 존재할 경우 1차 선택 폰트들을 우선적으로 사용하고, 1차 선택 폰트가 존재하지 않을 경우에는 2차 선택 폰트를 사용하도록 살짝 변경해 볼 수도 있겠습니다.

이 함수에서 또 하나 눈여겨 볼 점은 폰트 크기를 설정하는 부분입니다. 영어나 기타 언어의 폰트 크기는 8이 기본 크기로 설정되지만 한국어, 일본어, 중국어 등은 그 기본 크기가 9로 설정됩니다. 그 이유는 다들 아시겠지요? 글자의 특성상 폰트가 너무 작으면 가독성이 떨어지므로 기본 폰트의 크기가 영어나 기타 문자들보다 크게 설정되어 있습니다.

<리스트 1> modLocalFont.bas

option Explicit Public Sub SetProperFont(obj As Object, LCID As Integer)     On Error GoTo ErrorSetProperFont     Select Case LCID         Case &H404 ‘ Traditional Chinese             obj.Charset = CHINESEBIG5_CHARSET             obj.Name = ChrW(&H65B0) + ChrW(&H7D30) + ChrW(&H660E) _              + ChrW(&H9AD4) ‘New Ming-Li             obj.size = 9         Case &H804 ‘ Simplified Chinese             obj.Charset = CHINESESIMPLIFIED_CHARSET             obj.Name = ChrW(&H5B8B) + ChrW(&H4F53)             obj.size = 9         Case &H411 ‘ Japan             obj.Charset = SHIFTJIS_CHARSET             obj.Name = ChrW(&HFF2D) + ChrW(&HFF33) + ChrW(&H20) + _              ChrW(&HFF30) + ChrW(&H30B4) + ChrW(&H30B7) + ChrW(&H30C3) + _              ChrW(&H30AF)             obj.size = 9         Case &H412 ‘Korea UserLCID             obj.Charset = HANGEUL_CHARSET             obj.Name = ChrW(&HAD74) + ChrW(&HB9BC)             obj.size = 9         Case Else ‘ The other countries             obj.Charset = DEFAULT_CHARSET             obj.Name = “Arial” ‘ Get the default UI font.             obj.size = 8     End Select     Exit Sub ErrorSetProperFont:     Err.Number = Err End Sub

modIni.bas
일반적으로 다국어 버전의 비주얼 베이직 프로그램에서 사용되는 각 언어별 문자열 리소스는 .RES 파일에 저장하게 되지만 .RES 파일에 대해서는 다음 연재에 다루기로 하고 일단 이 프로그램에서는 INI 파일을 사용해 보기로 하였습니다. INI 파일은 초기화 파일, 환경 설정 파일로 사용되며 흔히 프로그램에서 사용하는 각종 선택 사항들을 저장해 놓은 파일입니다.

이 modIni.bas는 필자가 직접 작성한 것이 아니라 http://vbnet.mvps.org 웹사이트의 코드를 가져온 것입니다. 배우는 입장이라면 INI 파일을 처리하는 코드를 직접 작성해 본다면 INI 파일을 이해하는데 도움은 되겠지만, 인터넷 검색을 통해 유틸리티에 해당하는 코드들을 얻는 것도 빠른 코드 작성을 위해 좋은 방법입니다.

이 프로그램에서는 INI 파일을 문자열 리소스를 담아두는 파일로 이용하고 있습니다. Font_Eng.INI에는 영어 문자열을 Font_Kor.INI에는 한글 문자열을 담아두고 프로그램에서 상황에 맞는 INI 파일을 가져다 쓰는 방법을 취하고 있습니다.

<리스트 2> modIni.bas

Option Explicit ‘-------------------------------------------------------------- ‘ Copyright ⓒ1996-2002 VBnet, Randy Birch, All Rights Reserved. ‘ Terms of use http://www.mvps.org/vbnet/terms/pages/terms.htm ‘-------------------------------------------------------------- Private Declare Function GetPrivateProfileString Lib “Kernel32” _    Alias “GetPrivateProfileStringA” _   (ByVal lpSectionName As String, _    ByVal lpKeyName As Any, _    ByVal lpDefault As String, _    ByVal lpReturnedString As String, _    ByVal nSize As Long, _    ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib “Kernel32” _    Alias “WritePrivateProfileStringA” _   (ByVal lpSectionName As String, _    ByVal lpKeyName As Any, _    ByVal lpString As Any, _    ByVal lpFileName As String) As Long Public Sub ProfileSaveItem(lpSectionName As String, _                 lpKeyName As String, _                 lpValue As String, _                 inifile As String) ‘This function saves the passed value to the file, ‘under the section and key names specified. ‘If the ini file does not exist, it is created. ‘If the section does not exist, it is created. ‘If the key name does not exist, it is created. ‘If the key name exists, it’s value is replaced.    Call WritePrivateProfileString(lpSectionName, _                   lpKeyName, _                   lpValue, _                   inifile) End Sub Public Function ProfileGetItem(lpSectionName As String, _                 lpKeyName As String, _                 defaultValue As String, _                 inifile As String) As String ‘Retrieves a value from an ini file corresponding ‘to the section and key name passed.    Dim success As Long    Dim nSize As Long    Dim ret As String   ‘call the API with the parameters passed.   ‘The return value is the length of the string   ‘in ret, including the terminating null. If a   ‘default value was passed, and the section or   ‘key name are not in the file, that value is   ‘returned. If no default value was passed (“”),   ‘then success will = 0 if not found.   ‘Pad a string large enough to hold the data.    ret = Space$(2048)    nSize = Len(ret)    success = GetPrivateProfileString(lpSectionName, _                     lpKeyName, _                     defaultValue, _                     ret, _                     nSize, _                     inifile)    If success Then       ProfileGetItem = Left$(ret, success)    End If End Function Public Sub ProfileDeleteItem(lpSectionName As String, _             lpKeyName As String, _             inifile As String) ‘this call will remove the keyname and its ‘corresponding value from the section specified ‘in lpSectionName. This is accomplished by passing ‘vbNullString as the lpValue parameter. For example, ‘assuming that an ini file had: ‘  [Colours] ‘  Colour1=Red ‘  Colour2=Blue ‘  Colour3=Green ‘ ‘and this sub was called passing “Colour2” ‘as lpKeyName, the resulting ini file ‘would contain: ‘  [Colours] ‘  Colour1=Red ‘  Colour3=Green    Call WritePrivateProfileString(lpSectionName, _                  lpKeyName, _                  vbNullString, _                  inifile) End Sub Public Sub ProfileDeleteSection(lpSectionName As String, _                inifile As String) ‘this call will remove the entire section ‘corresponding to lpSectionName. This is ‘accomplished by passing vbNullString ‘as both the lpKeyName and lpValue parameters. ‘For example, assuming that an ini file had: ‘  [Colours] ‘  Colour1=Red ‘  Colour2=Blue ‘  Colour3=Green ‘ ‘and this sub was called passing “Colours” ‘as lpSectionName, the resulting Colours ‘section in the ini file would be deleted.       Call WritePrivateProfileString(lpSectionName, _                  vbNullString, _                  vbNullString, _                  inifile) End Sub

modFontCharSet.bas
modFontCharSet.bas에는 <리스트 3> 이외에도 폰트가 사용자 시스템에 존재하는지 확인하는 함수 등이 포함되어 있으니 시간날 때 한 번 살펴보면 도움이 될 겁니다. 이 중 우리가 관심을 가지는 대상은 문자열의 내용에 따라 cmdFont 커맨드 버튼의 크기를 조정하는 ResizeControl 함수입니다. GetTextExtentPoint32라는 API 함수를 이용하여 컨트롤이 가지고 있는 dc에서 문자열의 크기를 받아와서 컨트롤의 크기를 그에 맞게 조정하고 있습니다.

<리스트 3> ResizeControl

: : ‘------------------------------------------------------------ ‘   GetDxDyOfHdcAndText ‘ ‘   Returns text height/width in twips given an hDC and some text ‘------------------------------------------------------------ Public Sub GetDxDyOfHdcAndText(ctl As Control, stText As String,     ByRef dx As Long, ByRef dy As Long)     Dim nLogPixelsX As Long     Dim nLogPixelsY As Long     Dim typSize As size     Dim typTM As TEXTMETRIC     Dim wTextWidth As Integer     Dim wTextHeight As Integer     Dim strLen As Long     Dim hdc As Long     hdc = GetDC(ByVal ctl.hwnd)     ‘ Get the info on pixels per logical unit     nLogPixelsX = GetDeviceCaps(hdc, LOGPIXELSX)     nLogPixelsY = GetDeviceCaps(hdc, LOGPIXELSY) ‘    ‘ We need some font info here     Call GetTextMetrics(hdc, typTM)     ‘ Do the actual deed, get the info     strLen = Len(stText)     Call GetTextExtentPoint32(hdc, stText, strLen, typSize)     wTextWidth = typSize.cx     wTextHeight = typSize.cy     ‘ Convert logical units to twips     dx = MulDiv(wTextWidth, 1440, nLogPixelsX)     dy = MulDiv((wTextHeight + typTM.tmExternalLeading), 1440, nLogPixelsY) End Sub Public Sub ReSizeControl(ctl As Control, ByRef dx As Long, ByRef dy As Long)     GetDxDyOfHdcAndText ctl, ctl.Caption, dx, dy     ctl.Width = dx     ctl.Height = dy End Sub : :

다음의 코드(frmFont.frm)에서 optDefault_Click()를 유심히 살펴보죠. optKorean_Clikc()과 optEnglish_Click()이 항상 일정한 값을 보여주는 반면에 GetUserDefaultLCID를 이용하는 optDefault_Click()는 사용자가 기본 로케일을 어떻게 설정하느냐에 따라 optKorean_Click()과 같이 작동할 수도, optEnglish_Click()과 같이 작동할 수도 있습니다. 윈도우 2000을 기준으로 설정을 바꿔서 실행해 보기로 합시다. 「설정 | 제어판」에서 국가별 설정을 열어 봅시다.

보통의 경우 사용자 로케일은 한국어로 되어 있을 것입니다. 이 상태에서 프로그램을 실행해 기본어 옵션 버튼을 클릭하면 옵션 버튼은 optKorean_Click()과 같이 동작합니다. 즉, cmdFont의 캡션이 ‘폰트 이름 보여주기’로 변경될 것입니다. 이제 사용자 로케일을 영어로 변경하고 다시 한 번 기본어 옵션 버튼을 클릭해 봅시다. 이전과는 달리 cmdFont의 캡션이 ‘Show Font Name’으로 변경될 것입니다. 이처럼 GetUser DefaultLCID API 함수를 이용하면 사용자가 현재 사용중인 기본 로케일에 맞춰 프로그램의 문자열 등을 제시할 수 있게 됩니다.

<리스트 4> optDefault_Click()

Option Explicit Private Const csModuleName As String = “FFont” Private strLngIniFile As String Private Sub cmdFont_Click()     MsgBox “Name: “ & cmdFont.Font.Name & “, Size: “ & cmdFont.Font.size End Sub Private Sub optKorean_Click()     strLngIniFile = App.Path & “\Font_Kor.ini”     cmdFont.Caption = GetStrings(“cmdFont”)     SetProperFont cmdFont.Font, 1042     ReSizeControl cmdFont, cmdFont.Width, cmdFont.Height End Sub Private Sub optEnglish_Click()     strLngIniFile = App.Path & “\Font_Eng.ini”     cmdFont.Caption = GetStrings(“cmdFont”)     SetProperFont cmdFont.Font, 1033     ReSizeControl cmdFont, cmdFont.Width, cmdFont.Height End Sub Private Sub optDefault_Click()     Dim LCID    As Integer     Dim PLangId As Integer     Dim sLangId As Integer     LCID = GetUserDefaultLCID     PLangId = (LCID And &H3FF)   ‘ LCID’s Primary language id     sLangId = (LCID / (2 ^ 10))  ‘ LCID’s Sub language id     If PLangId = LANG_KOREAN Then         strLngIniFile = App.Path & “\Font_Kor.ini”     Else         strLngIniFile = App.Path & “\Font_Eng.ini”     End If     cmdFont.Caption = GetStrings(“cmdFont”)     SetProperFont cmdFont.Font, LCID     ReSizeControl cmdFont, cmdFont.Width, cmdFont.Height End Sub Private Function GetStrings(sKey As String) As String     GetStrings = Trim(Replace(ProfileGetItem(csModuleName, sKey, “”,        strLngIniFile), vbNullChar, “”)) End Function

VB와 다국어 프로그램
이번 연재에서는 비주얼 베이직을 이용하여 간단한 다국어 프로그램을 흉내내어 보았습니다. 다음 연재에서는 이를 바탕으로 .RES의 사용법과 DLL, MDB 등을 이용하여 리소스를 저장하는 방법을 살펴보고, 데이터베이스 처리에 대해서도 전반적으로 알아보도록 하겠습니다. @

유용한 사이트 : http://vbnet.mvps.org/

이곳은 비주얼 베이직 사용자들을 위한 보물상자 같은 곳입니다. 이름에 vbnet이란 단어가 들어가 닷넷과 관련된 사이트라고 생각할지도 모르겠지만, ‘Classic Basic’을 위한 공간이라고 대문에다 적어 놓았네요. 비주얼 베이직에서 해결할 수 없는 문제의 경우 윈도우 API를 불러다 쓰는 경우가 많은데 이곳에는 그러한 API의 비주얼 베이직 선언문들과 각종 유용한 코드, FAQ들이 가득 차 있으니 한번 놀러가 보세요.

책 소개

Internationalization with Visual Basic (Michael S. Kaplan, 2000, SAMS)비주얼 베이직으로 다국어 프로그램을 개발하려고 생각했다면 반드시 한 번 봐 두어야 할 책입니다. 다국어 프로그래밍의 기본적인 용어 정의에서부터 프로그램의 국제화, 다국어화, 현지화에 이르기까지의 단계를 차례차례 잘 풀어내고 있습니다. 또한 비주얼 베이직의 강점 분야인 데이터베이스를 다룰 때 특별히 고려해야 할 사항은 없는지, 웹 애플리케이션이나 컴포넌트를 개발할 때는 무엇을 염두에 두어야 하는가 등 포괄적인 주제에 대해서도 다루고 있습니다. 무엇보다 마음에 드는 점은 바로 코드에 활용할 수 있는 여러 유용한 코드들입니다. 각 언어별로 어떤 폰트를 설정해야 좋은지, 언어별로 다른 메시지를 컨트롤에서 잘리지 않고 다 보여주려면 어떻게 해야 하는지 등의 실무적인 코드들이 여기저기 숨겨져 있답니다.

* 이 기사는 ZDNet Korea의 자매지인 마이크로소프트웨어에 게재된 내용입니다.