Important alert: (current site time 7/16/2013 2:59:30 AM EDT)
 

winzip icon

Active-X Popup MsgBox's (Update 7/2/03)

Email
Submitted on: 6/6/2003 3:49:34 AM
By: Dream 
Level: Intermediate
User Rating: By 46 Users
Compatibility: VB 6.0
Views: 37013
author picture
 
     Displays Three Types Of Customizable Message Boxes. A Balloon Style MsgBox, A Balloon Style Input Box And A MSN Style Message Box. Open The Group Project And Run It From There.

 
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

 
Terms of Agreement:   
By using this code, you agree to the following terms...   
  1. You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
  2. You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 5 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

6/6/2003 4:11:41 AMDream

Dont you love the fishing here in Nth Queensland, Australia? 48kg Blue Marlin, unfortunately I had to play photographer on this particular fish :o)
(If this comment was disrespectful, please report it.)

 
6/6/2003 4:57:44 AMThushan Fernando

I'm in melbourne but |)amm i love queensland... i went scuba diving in cairns a few years back and that was a day to remember! ever since i've been trying to get back to scuba diving as a hobby!
(If this comment was disrespectful, please report it.)

 
6/6/2003 5:00:55 AMThushan Fernando

i got distracted by your message... anyhow heres a cool thing to try:
click on the 'Show popup message' about 20 times... look at the things going up and down... 5 globes!
(If this comment was disrespectful, please report it.)

 
6/6/2003 6:00:01 AMluke99au

EXCELLENT! I have been waiting for ages for someone to submit excellent code like this! 5 globes from me
(If this comment was disrespectful, please report it.)

 
6/7/2003 12:20:57 AMCoite Moss

Excellent work and Excellent Vote. Thanks for sharing this..
(If this comment was disrespectful, please report it.)

 
6/7/2003 7:04:59 PM

Very awesome! Very well written. 5 Globes from me.
(If this comment was disrespectful, please report it.)

 
6/8/2003 9:12:13 AM

Fantastic code, thanks very much!
(If this comment was disrespectful, please report it.)

 
6/9/2003 9:16:46 AMJim K

Thanks for the excellent update. Great code again. The fish don't look bad either :)
(If this comment was disrespectful, please report it.)

 
6/12/2003 10:33:20 AMSub-Zero

Great code.
Just a little trick (if you don't know it). Instead of doing this:
Dim objPlugin as object and then Createobject, you can add a reference to your popup project (if it's loaded in any instance of VB on the same machine), you will be able to dim objPlugin as popup.displaymsg and this will enable the listing of the parameters of the methods while coding.

5 globes for you!
(If this comment was disrespectful, please report it.)

 
6/13/2003 2:52:22 AMShukri Zahari

You should use DuplicateIcon API to make the icon to copy windows icon. Look, your icon don't have Windows XP shadow!!!!
(If this comment was disrespectful, please report it.)

 
6/13/2003 4:39:55 AMDream

What if your not using XP? lol
(If this comment was disrespectful, please report it.)

 
6/13/2003 6:41:11 AMGabriele -Axis-

S**t! Very very beautiful code! You taught to me how to use Dlls!!! Thank you very much! 5 globes! :)
(If this comment was disrespectful, please report it.)

 
6/14/2003 7:14:01 PMAcidTrace

Nice code 5/5
(If this comment was disrespectful, please report it.)

 
6/22/2003 11:57:23 PMDream

InputBox now displays optional Dual Text InputBox
(If this comment was disrespectful, please report it.)

 
6/24/2003 8:48:51 PMJason Stracner

That Rocks! Great job. 5 globes.
(If this comment was disrespectful, please report it.)

 
6/25/2003 9:44:39 AMSub-Zero

23/10/03 ? you went back in time to post the update? hehe
(If this comment was disrespectful, please report it.)

 
6/25/2003 10:05:19 AMDream

LMFAO No it was back to the future!
(If this comment was disrespectful, please report it.)

 
7/13/2003 8:27:52 PM

Excellent code. I have been looking for something like this for quite a long time.

Well done.
(If this comment was disrespectful, please report it.)

 
7/23/2003 7:51:40 PM

Thank you for sharing
*****
5 out of 5

(If this comment was disrespectful, please report it.)

 
8/6/2003 8:49:15 AM

thank you for exchellent code
(If this comment was disrespectful, please report it.)

 
8/8/2003 2:36:39 PM

hai i downloaded u r programme.
it is fantastic!!!.i have voted also.

while using the balloon messages i got a
problem.say if i click a command button(using mouse

or Keyboard ) i should get Balloon Message pointing
to a Textbox whict is at text1.left="some value"
text1.top="some value".how this value(top,left) can be
converted to pixel?
if i use a big Monitor the position of the Balloon will Change?
please help me!!! i am waiting u r reply!.

regards Bejoy Joseph N
India
greatbejoy@yahoo.com

(If this comment was disrespectful, please report it.)

 
8/25/2003 2:17:54 PMIŋtǿxΐĉåŧє

Very nice. One error that everybody makes with those 'MSN Popup' windows though; being that the window should NOT take focus from any application (including the host). Taking that into account, the alert window must also appear on top of all other windows. There is API available in the Windows kernel for that, and there are many examples outlining how to use them :) Oh, and you are also meant to manage the free space on the screen better (ie, every new popup should display as close to the starting position\taskbar as possible). Kind Regards, Matt Hall.
(If this comment was disrespectful, please report it.)

 
8/29/2003 8:28:16 AM

Very VERY nice job. Saves loads of time, my hat and hair are off to you.

5 Globes
(If this comment was disrespectful, please report it.)

 
9/6/2003 11:45:26 AMTimothy OConnor

Nice little program
(If this comment was disrespectful, please report it.)

 
9/25/2003 5:21:01 AM

can't seem to get it working, when it tries to display the msgbox i get an error. 'Expected Function or variable'
(If this comment was disrespectful, please report it.)

 
10/15/2003 5:12:46 PM

Very great code, but how would I package this for use with another program on another computer? I don't want to inlcude the VB Project file, and I'm having trouble trying to call it from a DLL (even after it is registered and in the system32 directory). Ideas?
(If this comment was disrespectful, please report it.)

 
10/31/2003 7:39:31 PMBest Developer

Thanks a Lot for sharing.....
It will provide a nice visual to the projet i am currently workin on.
Thnks Again - with 5 gloBez..
(If this comment was disrespectful, please report it.)

 
11/11/2003 5:56:56 PM

Verry verry good job. But i have a little problem with the code. It work fine in vb but i'm unabled to compile the dll. My vb crash eatch time. What i'm i doing wrong. Can you help me ou add the dll in your zip file.

Thank's
(If this comment was disrespectful, please report it.)

 
1/2/2004 2:33:37 PM

Exactly what I was looking for. One question is how do I get a question icon to show up. I am running win 2000.
(If this comment was disrespectful, please report it.)

 
2/21/2004 5:58:12 AM

Mate, that is a very tidy piece of work. I can already think of a couple of projects which will be enhanced by these popups! Great work fellow Qld'er, although you are a few miles north of me.
(If this comment was disrespectful, please report it.)

 
5/26/2004 4:22:26 PM

This is a great code!!!! i'm just dream about it, but it is real!!!
(If this comment was disrespectful, please report it.)

 
5/26/2004 4:22:45 PM

This is a great code!!!! i'm just dream about it, but it is real!!!

Codigo Excelente y muy creativo, defiitivamente bueno
(If this comment was disrespectful, please report it.)

 
6/21/2004 1:44:33 PM

I know it's probably a bit late but there is a GDI leak in the balloon popup code which after you open and close a considerable amount of balloons (about 100+) and not restart the application it completely uses up all gdi resources and crashes the app.
My workaround has been this :
In formballoon



Private Sub createRegion()
(...)
lRgnTmp = CreateRectRgn(16, 0, 17, 1)
lReturn = CombineRgn(lSkinRgn, lSkinRgn, lRgnTmp, RGN_OR)
Call DeleteObject(lRgnTmp)
Call DeleteObject(lReturn)
lRgnTmp = CreateRectRgn(16, 1, 18, 2) lReturn = CombineRgn(lSkinRgn, lSkinRgn, lRgnTmp, RGN_OR)
Call DeleteObject(lRgnTmp)
Call DeleteObject(lReturn)
(...)


Just use the deleteobject after all of the calls in this sub this will release all GDI ojects.
Thx for the DLL source, great work.

(If this comment was disrespectful, please report it.)

 
8/3/2005 9:46:28 AMJESSIE

good work.... keep it up
(If this comment was disrespectful, please report it.)

 
11/14/2006 10:50:25 AMJason Newland

excellent code, just what i was looking for for a notification to the user in a "friendly way"

5 globes, although i would suggest that if you are compiling the forms and classes into the main exe a simpler method of calling the popup is

Dim cPopup As New DisplayMsg
Dim sMsg As String

sMsg = cPopup.DisplayAlert(Me, "hi there", 5000, 101)

alot simpler :)
(If this comment was disrespectful, please report it.)

 
12/2/2007 8:49:08 AMKabyr

Good job brother, keep it up. Dat waz wondaful.
(If this comment was disrespectful, please report it.)

 
1/7/2008 4:24:43 PMTon

I Agree With Jason Newland.
'excellent code, just what i was looking for for a notification to the user in a "friendly way"'

As I no longer can use Office Assistant in office 2007 I would like to replace that code with a variant of this code. I therefore tried to Expand its possibilities to :
1 use it like Office assistant using 5
checkboxes and 5 Labels
2 Add Default input values

But now I receive an error 373(This interaction between compiled and design environment components is not supported.) when I run it as plugin.

Any idee What's the reason?
(If this comment was disrespectful, please report it.)

 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.