How to alter a Yes/No Messagebox to say Hold/Rehold isntead?

[kirubagari]

Can anyone help me to slightly alter a Yes/No Messagebox, in a way that buttons' captions are Hold/Rehold, instead of Yes/No?

Thanks

[Guido Geurs]

In the VB msgbox you can't change the caption of the Msgbox.
I have a msgbox of my own in which I can put what I want (see attachment)

[kirubagari]

Thanks guido..i was searching for the sample code but couldn't find.thanks alot again

[kirubagari]

This is my code..I wana put 2 option..

The hold is on hold..Are you want to rehold or apply multiplehold for the particular lot.


If user choose rehold ,it go to the right function.If multiplehold it goes to another function..How to allow user to choose either 1 option rather than using command button..Should i enhance the code?


here is my code:

If sActionType = "Hold" And LCase(rc.Lot.status) = "hold" Then
        'If any dispatch list is selected, have to select Hold rule from Activities>WIP>Hold Lot, if from lot query, just right click and Hold Lot.
        bRehold = False
        'sReturnText = "This lot is already on hold."
        iSelect = LSIMsgBox("This lot is already on HOLD. Are you sure to re-hold with different hold code and comment?", vbYesNo + vbExclamation, rc.ruleName)
        If iSelect = vbNo Then
            GoTo Cancel
        Else
            bRehold = True
        End If
    End If
 
 
Public Function LSIMsgBox(ByVal sPrompt As String, _
        Optional ByVal vButtons As Variant, _
        Optional ByVal vTitle As Variant, _
        Optional ByVal vHelpfile As Variant, _
        Optional ByVal vContext As Variant) _
        As Integer
    '*** START FAILSAFE ***
    On Error GoTo FailSafe_Error    'setup error handler
    Push "Main.bas", "Function LSIMsgBox", "(" & "sPrompt=" & sPrompt & ", vButtons=" & "" & IIf(InStr("23456781117", VarType(vButtons)), vButtons, "<variant>") & ", vTitle=" & "" & IIf(InStr("23456781117", VarType(vTitle)), vTitle, "<variant>") & ", vHelpfile=" & "" & IIf(InStr("23456781117", VarType(vHelpfile)), vHelpfile, "<variant>") & ", vContext=" & "" & IIf(InStr("23456781117", VarType(vContext)), vContext, "<variant>") & ")"
    Trace "Enter", 9
    '*** STOP FAILSAFE ********************************************************************************************************************************
 
 
    Dim iHoldMousePointer As Integer
 
    iHoldMousePointer = Screen.MousePointer
    Screen.MousePointer = vbDefault
 
    Dim frm As frmLSIMsgBox
    Set frm = New frmLSIMsgBox
 
    Dim sReply As String
    '  Check to see if being called by the GUI.
    If Not rc Is Nothing Then
        If rc.bGui Or g_bGui = True Then 
            '  Write out to the trace log.
            Trace "MessageBox Displayed: " + sPrompt, 4
            Select Case LSIMsgBox
                Case vbOK
                    sReply = "vbOK"
                Case vbCancel
                    sReply = "vbCancel"
                Case vbAbort
                    sReply = "vbAbort"
                Case vbRetry
                    sReply = "vbRetry"
                Case vbIgnore
                    sReply = "vbIgnore"
                Case vbYes
                    sReply = "vbYes"
                Case vbNo
                    sReply = "vbNo"
            End Select
            Trace "Operator Selected: " + sReply, 4
        End If
    End If
 
    Unload frm
    Set frm = Nothing
 
    Screen.MousePointer = iHoldMousePointer
 
    '*** START FAILSAFE ********************************************************************************************************************************
FailSafe_Exit:
    Trace "Exit", 9
    Pop
    Exit Function
FailSafe_Error:
    ' *** Insert Special Error Handling Here ***
    'LogError
    Err.Raise Err.Number, , Err.Description
    Resume FailSafe_Exit             'default is to exit this procedure
    '*** STOP FAILSAFE ***
End Function

[Guido Geurs]

It's also possible to add options in the msgbox (see attachment)