MessageBox! [Sandpaper]

[mendhak]

Hi,

how can I show a messagebox in VB6?

Thanks,
The Frog

[mike2]

The easy way:

'© by Mike2
MsgBox "Hello Frog!"

The hard way:

'© by Mike2
Const MB_DEFBUTTON1 = &H0&
Const MB_DEFBUTTON2 = &H100&
Const MB_DEFBUTTON3 = &H200&
Const MB_ICONASTERISK = &H40&
Const MB_ICONEXCLAMATION = &H30&
Const MB_ICONHAND = &H10&
Const MB_ICONINFORMATION = MB_ICONASTERISK
Const MB_ICONQUESTION = &H20&
Const MB_ICONSTOP = MB_ICONHAND
Const MB_OK = &H0&
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&
Const MB_YESNOCANCEL = &H3&
Const MB_ABORTRETRYIGNORE = &H2&
Const MB_RETRYCANCEL = &H5&
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Form_Load()
    MessageBox Me.hwnd, "Hello Frog!", "Frogs", MB_OK
    End
End Sub

Good luck!

[mike2]

Please edit your first post and add "[Solved]" (without the quotes) to the title.

[ice_531]

what do ya wanna show it? sandpaper? food? bodwad?

[mendhak]

I am happy. I can show a messagebox. Now I will show it to all my cool friends and make them jealous of me.

[manavo11]

But show them the easy way... Don't make them feel too bad

[mendhak]

Yes, you're right. I'm the Angel of Merciful Sandpaper. Hallelujah.

[manavo11]

Amen

[Danial]

Originally posted by mike2
The easy way:

'© by Mike2
MsgBox "Hello Frog!"

Good luck!

Can I use your code in my project?Do i have to pay you or JupiterMedia or Who ?