#2 - Hello 메세지 표시하기

CREO VBA 환영 메세지 표시

 

CREO 화면에 환영 메세지를 표시하는 프로그램 입니다. 엑셀 화면에서 "적용" 버튼을 클릭 합니다. CREO 화면에

환영 메세지가 표시 됩니다.  환영 메세지를 변경 하려면 엑셀의 "화면 표시 문구" 영역을 변경 합니다

 

엑셀 화면	프로그램 실행 결과

 

프로그램 동영상

프로그램 실행

 

 

프로그램 소스 파일 첨부 (CREO 6.0)

메세지출력.xlsm

0.08MB

 

프로그램 코드 해석

CREO 화면에 환영 메세지를 표시 하려면, IpfcSession 클래스의 UIShowMessageDialog 함수를 사용 합니다.

UIShowMessageDialog 함수는 UI 메시지 대화 상자를 표시합니다.

함수가 실행 하면 사용자가 대화 상자를 닫기 위해 누른 버튼의 식별자를 리턴 합니다. 

대화상자(MessageDialog)는 3개의 영역을 제공 합니다. 라벨 영역과 메인 화면 영역, 버튼 영역 입니다. 

 

대화 상자

라벨 영역은 " *** Welcom VBA *** " 표시 하고, 메인 영역은 "VBA 오신것 ~~~~"을 표시하고, 버튼 "OK"만 표시
합니다. 메일 영역의 TEXT는 엑셀의 Cells에서 가져 옵니다.

 

프로그램 소스 코드 

Sub message()
        Dim asynconn As New pfcls.CCpfcAsyncConnection
        Dim conn As pfcls.IpfcAsyncConnection
        Dim oSession As IpfcSession
    
    On Error GoTo RunError
        Set conn = asynconn.Connect("", "", ".", 5)
        Set oSession = conn.session
        
        'message Text
        Dim Messagecell As String
        Dim oDialogBox As Long
        
      
        'message dialog 초기화
        Dim MessageDialogOptionsCreate As New CCpfcMessageDialogOptions
        Dim oMessageDialogOptions As IpfcMessageDialogOptions
        Set oMessageDialogOptions = MessageDialogOptionsCreate.Create()
        
        oMessageDialogOptions.DialogLabel = "*** Welcom VBA *** "
       
                
        Messagecell = Cells(8, "c")
        oDialogBox = oSession.UIShowMessageDialog(Messagecell, oMessageDialogOptions)
        

    conn.Disconnect (2)
    
    'Cleanup
    Set asynconn = Nothing
    Set conn = Nothing
    Set session = Nothing
    Set model = Nothing
    

RunError:
    
    If Err.Number <> 0 Then
        MsgBox "Process Failed : Unknown error occurred." + Chr(13) + _
                "Error No: " + CStr(Err.Number) + Chr(13) + _
                "Error: " + Err.Description, vbCritical, "Error"
    
        If Not conn Is Nothing Then
            If conn.IsRunning Then
                conn.Disconnect (2)
            End If
        End If
    End If

End Sub

 

화면에 메세지영역을 출력 하는 기능은 입니다

 

oDialogBox = oSession.UIShowMessageDialog(Messagecell, oMessageDialogOptions)

 

함수 "UIShowMessageDialog" 는 2개의 파라메턱를 정의 해야 합니다.  1) String 2) IpfcMessageDialogOptions 객체 입니다. String은 메인 영역에 표시하는 텍스트 입니다. IpfcMessageDialogOptions 는 라벨과 버튼 종류를 정의 하는 객체

입니다.

 

 

 

비즈니스 문의 : lionkk@idt21c.com

---