2.메시지

화면설명

 어플리케이션 메시지를 관리합니다.

 

TFaccess 에서는 시스템 메시지와 어플리케이션 메시지가 있습니다. 여기서는 사용자가 정의하는 어플리케이션 메시지를 나타냅니다. PowerPoint 에서 작업 중 프로그램 종료 버튼을 클릭하면 다음과 같은 메시지가 나타납니다.

 

 

현재 작업중인 파일 저장여부를 묻고, 사용자가 선택한 값에 따라 다음과 같이 처리합니다.

일반적으로 이러한 메시지는 프로그램 단위로 사용합니다. 예전에는 프로그램 내에 이러한 메시지 내용을 가지고 있었습니다. 만약 이런 방식이라면 메시지가 수정되면 프로그램 소스를 수정한 다음 다시 배포를 해야 할 겁니다.

 

TFaccess 에서는 메시지 정보를 저장하고, 프로그램 내에서는 메시지아이디를 호출하는 형태입니다. 따라서 프로그램 수정없이 메시지 변경이 가능하고, 해당 메시지별 다국어 적용도 가능합니다.

버튼에 VB 스크립트를 추가한 다음, 실행을 해보면 아래와 같이 메시지창이 뜨는 것을 확인할 수 있습니다.

 

  

주요값, 속성

 

 

Q & A

질문1. 버튼 VB 스크립트 소스 부탁합니다.

 

답변2. 폼 화면에 버튼 하나 만드신 다음, 오른쪽 마우스 클릭하시고, 이벤트작성 메뉴를 선택하세요. 그러면 목록상자에 매크로 작성기, 코드 작성기 둘 중에서 코드 작성기를 선택하신 후 아래 스크립트를 복사해서 붙이시면 됩니다. 이 때 예제는 메시지ID 가 2 인 값이 이미 등록되어 있어서 메시지창이 뜨게 됩니다. 테스트 할 때는 메시지ID를 지정해 주셔야 합니다.

Private Sub Command91_Click()

On Error GoTo Herror

    Dim strMsg As String    

    '메시지ID 에 대한 메시지 문자열을 받아서 메시지박스 호출

    strMsg = xfnGetAppMsg(2)

    xsbInfoMsg strMsg

    Exit Sub

Herror:

    Select Case Err.Number

        Case Else

            xsbErrMsg xfnErrFormat(Err.Number, Err.Description)

    End Select

End Sub