GetOEMCP

[올란도]

Private Declare Function GetOEMCP Lib "kernel32" () As Long

Private Sub Command1_Click()
       
Dim uCP As Long
Dim CodePage As String
      
    uCP = GetOEMCP()
    CodePage = "No Code Page"
   
    Select Case uCP
        Case 437
            CodePage = "MS-DOS 미국(US)"
        Case 850
            CodePage = "MS-DOS 다개국(라틴 1)"
        Case 852
            CodePage = "MS-DOS 다개국(라틴 2)"
        Case 855
            CodePage = "IBM 키릴(Cyrillic,주로 러시아)"
        Case 860
            CodePage = "MS-DOS 포루투갈"
        Case 861
            CodePage = "MS-DOS 아이스랜드"
        Case 863
            CodePage = "MS-DOS 캐나다,프랑스"
        Case 865
            CodePage = "MS-DOS 노르딕"
        Case 866
            CodePage = "MS-DOS 러시아(USSR 형성국)"
        Case 869
            CodePage = "IBM 현대 그리스"
        Case 949
            CodePage = "MS-DOS 한글(완성형)"
        Case 1361
            CodePage = "MS-DOS 한글(조합형)"
    End Select
   
    Text1 = CodePage
   
  
   
End Sub

Private Sub Command2_Click()
    End
End Sub