Using MsgBox icons via API on standard form?

[softwareguy74]

Hi,

I'm creating my own message box for various reasons.. I need to be able to use the standard MsgBox icons on my form. I was hoping I could do this via the API. Someone suggested that I use PrintScreen to capture the Icon and then put it on the form in a picture box but I don't like this because the background comes out a little different shade of grey and it looks cheap.. I want to do it the right way..

The idea is that when I call my home-made message box, I can specify the Icon to use just like the real MsgBox!!!

Example code would be appreciated.. I'm not an expert in API so please be very descriptive..

Dan

[oetje]

Use the printscreen trick and then use a program like Paint Shop Pro, Photoshop, Corel Photopaint,etc. to make it a transparent gif file.

[gwdash]

The icons are provided if you chose Graphics when you installed VB, They are in the

Microsoft Visual Studio\Common\Graphics\Icons\Computer

folder

They are Called:

• Msgbox01
• Msgbox02
• Msgbox03
• Msgbox04
• W95mbx01
• W95mbx02
• W95mbx03
• W95mbx04

If you didn't install the Graphics, i can send them to you

[gwdash]

Here would be some possible code:

'in your form
'put pictureboxes and add all the icons, make them invisble
'make them into a control array

Function MyMsgBox(Prompt As String, Optional Buttons As vbMsgBoxStyle = vbOkOnly, &_
Optional Title As String = "Message Box") As vbMsgBoxResult

Me.Caption = Title
Me.lblCaption = Prompt

If Buttons And vbInformation Then
Set Me.Icon = Pics(0)
Set Me.ShowPicture = Pics(0)
'etc.
End if

If Buttons And vbOkOnly Then
Me.OK.Visible = True
Me.Cancle.Visble = False
'etc.
End IF
'etc.
End Function

Oops, sory about that, i must have screwed up and messed it all up, fixed now

[Edited by gwdash on 10-07-2000 at 11:31 AM]

[oetje]

Gwdash, you posted twice.