51 lines
1.5 KiB
QBasic
51 lines
1.5 KiB
QBasic
|
Attribute VB_Name = "z_UIMessages"
|
|||
|
|
' Messaging module
|
|||
|
|
Option Private Module
|
|||
|
|
Option Explicit
|
|||
|
|
|
|||
|
|
Public Enum MsgCode
|
|||
|
|
EM_MISSING_CONFIG
|
|||
|
|
|
|||
|
|
IM_WRAPPER_OK
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Private g_UI As API_UserInteraction
|
|||
|
|
|
|||
|
|
Public Function UserInteraction() As API_UserInteraction
|
|||
|
|
If g_UI Is Nothing Then _
|
|||
|
|
Set g_UI = New API_UserInteraction
|
|||
|
|
Set UserInteraction = g_UI
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Function SetUserInteraction(newUI As API_UserInteraction)
|
|||
|
|
Set g_UI = newUI
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Function UIShowMessage(theCode As MsgCode, ParamArray params() As Variant)
|
|||
|
|
Dim unwrapped As Variant: unwrapped = params
|
|||
|
|
unwrapped = FixForwardedParams(unwrapped)
|
|||
|
|
|
|||
|
|
Select Case theCode
|
|||
|
|
Case IM_WRAPPER_OK: Call MsgBox(Fmt("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> VBA API: {1}", unwrapped), vbInformation)
|
|||
|
|
|
|||
|
|
Case EM_MISSING_CONFIG: Call MsgBox(Fmt("<22><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: {1}", unwrapped), vbExclamation)
|
|||
|
|
|
|||
|
|
Case Else: Call MsgBox("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>", vbCritical)
|
|||
|
|
End Select
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Function UIAskQuestion(theCode As MsgCode, ParamArray params() As Variant) As Boolean
|
|||
|
|
Dim unwrapped As Variant: unwrapped = params
|
|||
|
|
unwrapped = FixForwardedParams(unwrapped)
|
|||
|
|
|
|||
|
|
Dim answer&: answer = vbNo
|
|||
|
|
Select Case theCode
|
|||
|
|
'Case QM_CODE_DELETE_CONFIRM
|
|||
|
|
' answer = MsgBox("Are you sure you want to delete ALL macros from target file?", vbYesNo + vbQuestion)
|
|||
|
|
|
|||
|
|
Case Else
|
|||
|
|
Call MsgBox("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>", vbCritical)
|
|||
|
|
End Select
|
|||
|
|
UIAskQuestion = answer = vbYes
|
|||
|
|
End Function
|