Message Box Command Button

[33216CLC]

Hi,

I would like to place a command button, other then the typical VBok, Cancel, Yes, or No buttons.


How can I go about doing this.

Thanks for any help.

 

[JohnYingling]

Do your own form with command button control array and call a function within.
'* Form = frmWZUP
'Form Level Declarations
Private mintResult as integer
Public Function WZUP() as integer
Me.Show vbModal ' Stiop excution until hidden
WZUP = mintResult ' Do before Unload
Unload Me
' Force complete unload, not just controls
Set frmWZUP = Nothing
End Function
Private Sub cmd_Click(Index as Integer)
mintResult = index
Me.Hide ' Resume execution after Show vbModal
End Sub

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[Jon4747]

Hi 33216CLC
If you use the msgbox function then you're stuck with the
pre-defined button properties e.g.
vbOKOnly
vbAbortRetryIgnore
vbRetryCancel
etc.
But there is nothing preventing you from designing your own form/msgbox with all the custom buttons you want.

Jon

 

[33216CLC]

Thanks guys.

 

[goatsaregreat]

There is a free message box control at

http://www.vb2themax.com.

I have used it and it is much easier than the typical MSGBOX. You can customize up to 4 buttons, and customize the icon. On the VB2themax page, click on File Bank, I think. There are a number of good controls there, but that is the best on I have found. Let us know if it works for you. Good luck!

 

[33216CLC]

goatsaregreat,

Thank you. I saw many useful controls at this site. As soon as I take a look at the messagebox contol, I'll let you know.