Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
hi everyone, it's me again buggin off with me little project that's driving
me insane. this time is somthing i just like to call a nice feature in my VBA based app. i hace created a custom msgbox that show a different image depending on the typeofmsg parameter i pass into a function i kindda declare my function like follows: public function showmsg (msg as string,title as string, typeofmsg as integer) into the function you can see [ actually not yet, til i finish my project] '/// important, i set the frmMsg properties because i use the same userform everytime i need to display a msg. frmMsg.LblMsg.caption=Msg '// this is the message displayed frmMsg.Caption= title ' // this is the title of my custom Msgbox '// here i select if the typeofmsg is equal to an errormsg or a wrningmsg or an allOKmsg select case typeofmsg case is =1 frmMsg.Pct.Picture=IMG1 ' //IMG1 is an object containing the errormsg image case is =2 frmMsg.Pct.Picture=IMG2 ' //IMG2 is an object containing the wrningmsg image case is =3 frmMsg.Pct.Picture=IMG3 ' //IMG3 is an object containing the allOKmsg image end select till this point everything works just fine every time i call showmsg("Crap!","Told you!!",1) the nice popup windows does it's job. but now i need an extra from this lil ' fellow, i need it to return a value, like the regular msgbox EG, when i say X=msgbox("dude!, what are you smokin' ?, are you for real?? ",VByesnocancel,"be aware, your files will be deleted!!!") i can know if X=VByes or X=VBno so now, i need ideas about implementing this in my function any help will be welcome!!!! thanks in advantage!! -- --- zz [MX] cuasi-musico,semi-poeta y loco |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
thanks for the reply but i have already figured it out !!!...
if anybody wants to know how send me an email to Jarious[dot]com[at]gmail[dot]com -- --- zz [MX] cuasi-musico,semi-poeta y loco "Simon Lloyd" wrote in message ... Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
You mean if I was reading this thread and I wanted to find out the solution,
I would need to send an email to Doesn't seem like that is in the spirit of the newsgroup? -- Regards, Tom Ogilvy "zz" wrote in message ... thanks for the reply but i have already figured it out !!!... if anybody wants to know how send me an email to Jarious[dot]com[at]gmail[dot]com -- --- zz [MX] cuasi-musico,semi-poeta y loco "Simon Lloyd" wrote in message ... Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
well, thanks for all the spam i will get.[ no hard feelings]
i am completely sorry if that was the impression i caused, of course i do not mean breaking the spirit of the group, no, sorry again. Bad zz !! bad zz !!, no cookies for you tonight!!! so for my redemption. '// i know it has some 'scratches' and it could have been a little bit more effective, but i'm under a little pressure to finish this '//before xmas and as long as it works... in a regular module called msgs i declared this function Public returnanswer As Integer ' ///this is a global variable that can be set from Frmmsg's events Public Function Messagebox(Msg As String, Title As String, typeofmsg As Integer) As String On Error GoTo errhandler Load Frmmsg '// this loads the userform that 'acts' as the msgbox but doesn't show it yet Frmmsg.lblmsg.Caption = Msg '// places the message Frmmsg.Caption = Title ' // sets the title ,obviously Select Case typeofmsg Case Is = 1 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgwarn.jpg") '// show the 'yellow message sphere Case Is = 2 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgerr.jpg") '// show the ' red sphere pic Case Is = 3 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgsuccess.jpg") '// show 'the green sphere pic End Select Frmmsg.Show '// this part is for the Messagebox to return a value that can be handled like the VByes response in a regular msgbox Select Case msgs.returnanswer Case Is = 1 Messagebox= "TByes" Case Is = 2 Messagebox = "TBNot" Case Is = 3 Messagebox = "TBcancel" End Select errhandler: Err.Clear End Function Now in the Frmmsg i have three buttons one for yes, another for no and a third for cancel private sub Btntbyes_onclick msgs.returnanswer=1 '// this is for the Messagebox function to return "TByes" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbnot_onclick msgs.returnanswer=2 '// this is for the Messagebox function to return "TBno" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbcancel_onclick msgs.returnanswer=3 '// this is for the Messagebox function to return "TBcancel" unload frmmsg '// cause we don't need the msg anymore end sub so now i can write X= Messagebox("Wow " & application.username & " you're handsome!! " & VbCrlf & " am i right?" ,"Self esteem enhancer",3) if x="TByes" then Messagebox "Liar!!!!","Go back to work",2 else Messagebox "c'mon!, you know youre not but i still like you the best "," Please return to your activities",3 endif actually this is not the purpose for what i use it, but i tought this would be funnier. Best regards, hope it may be usefull. -- :=) --- zz [MX] cuasi-musico,semi-poeta y loco "Tom Ogilvy" wrote in message ... You mean if I was reading this thread and I wanted to find out the solution, I would need to send an email to Doesn't seem like that is in the spirit of the newsgroup? -- Regards, Tom Ogilvy "zz" wrote in message ... thanks for the reply but i have already figured it out !!!... if anybody wants to know how send me an email to Jarious[dot]com[at]gmail[dot]com -- --- zz [MX] cuasi-musico,semi-poeta y loco "Simon Lloyd" wrote in message ... Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
I wouldn't be too concerned about "all the spam". I have been posting here
for 9 years using an unprotected email address and wouldn't consider the amount of SPAM I get to be any big deal. Using a public variable is pretty standard fare. Unfortunately, you made it sound like you had a major discovery. but thanks for posting your solution! - I am sure it will be useful for many. -- Regards, Tom Ogilvy "zz" wrote in message ... well, thanks for all the spam i will get.[ no hard feelings] i am completely sorry if that was the impression i caused, of course i do not mean breaking the spirit of the group, no, sorry again. Bad zz !! bad zz !!, no cookies for you tonight!!! so for my redemption. '// i know it has some 'scratches' and it could have been a little bit more effective, but i'm under a little pressure to finish this '//before xmas and as long as it works... in a regular module called msgs i declared this function Public returnanswer As Integer ' ///this is a global variable that can be set from Frmmsg's events Public Function Messagebox(Msg As String, Title As String, typeofmsg As Integer) As String On Error GoTo errhandler Load Frmmsg '// this loads the userform that 'acts' as the msgbox but doesn't show it yet Frmmsg.lblmsg.Caption = Msg '// places the message Frmmsg.Caption = Title ' // sets the title ,obviously Select Case typeofmsg Case Is = 1 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgwarn.jpg") '// show the 'yellow message sphere Case Is = 2 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgerr.jpg") '// show the ' red sphere pic Case Is = 3 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgsuccess.jpg") '// show 'the green sphere pic End Select Frmmsg.Show '// this part is for the Messagebox to return a value that can be handled like the VByes response in a regular msgbox Select Case msgs.returnanswer Case Is = 1 Messagebox= "TByes" Case Is = 2 Messagebox = "TBNot" Case Is = 3 Messagebox = "TBcancel" End Select errhandler: Err.Clear End Function Now in the Frmmsg i have three buttons one for yes, another for no and a third for cancel private sub Btntbyes_onclick msgs.returnanswer=1 '// this is for the Messagebox function to return "TByes" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbnot_onclick msgs.returnanswer=2 '// this is for the Messagebox function to return "TBno" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbcancel_onclick msgs.returnanswer=3 '// this is for the Messagebox function to return "TBcancel" unload frmmsg '// cause we don't need the msg anymore end sub so now i can write X= Messagebox("Wow " & application.username & " you're handsome!! " & VbCrlf & " am i right?" ,"Self esteem enhancer",3) if x="TByes" then Messagebox "Liar!!!!","Go back to work",2 else Messagebox "c'mon!, you know youre not but i still like you the best "," Please return to your activities",3 endif actually this is not the purpose for what i use it, but i tought this would be funnier. Best regards, hope it may be usefull. -- :=) --- zz [MX] cuasi-musico,semi-poeta y loco "Tom Ogilvy" wrote in message ... You mean if I was reading this thread and I wanted to find out the solution, I would need to send an email to Doesn't seem like that is in the spirit of the newsgroup? -- Regards, Tom Ogilvy "zz" wrote in message ... thanks for the reply but i have already figured it out !!!... if anybody wants to know how send me an email to Jarious[dot]com[at]gmail[dot]com -- --- zz [MX] cuasi-musico,semi-poeta y loco "Simon Lloyd" wrote in message ... Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
yah, i dont mind too much for the spam, gmail's filter works pretty fine.
well and , it is a major discovery to me in my very personal way, i do not know too much about VBA or VB or XL, and everything i know is thanks to everybody here, and i am sure that here are some enthusiasts that are 'discovering' this tool just like me, and i thougth it would be nice to share this with them. guess it shouldn't be a great discovery to you, since you are a great expert on this subject... but wath the hell, it is like glory to me when something i had never done before works well. regards. -- --- zz [MX] cuasi-musico,semi-poeta y loco "Tom Ogilvy" wrote in message ... I wouldn't be too concerned about "all the spam". I have been posting here for 9 years using an unprotected email address and wouldn't consider the amount of SPAM I get to be any big deal. Using a public variable is pretty standard fare. Unfortunately, you made it sound like you had a major discovery. but thanks for posting your solution! - I am sure it will be useful for many. -- Regards, Tom Ogilvy "zz" wrote in message ... well, thanks for all the spam i will get.[ no hard feelings] i am completely sorry if that was the impression i caused, of course i do not mean breaking the spirit of the group, no, sorry again. Bad zz !! bad zz !!, no cookies for you tonight!!! so for my redemption. '// i know it has some 'scratches' and it could have been a little bit more effective, but i'm under a little pressure to finish this '//before xmas and as long as it works... in a regular module called msgs i declared this function Public returnanswer As Integer ' ///this is a global variable that can be set from Frmmsg's events Public Function Messagebox(Msg As String, Title As String, typeofmsg As Integer) As String On Error GoTo errhandler Load Frmmsg '// this loads the userform that 'acts' as the msgbox but doesn't show it yet Frmmsg.lblmsg.Caption = Msg '// places the message Frmmsg.Caption = Title ' // sets the title ,obviously Select Case typeofmsg Case Is = 1 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgwarn.jpg") '// show the 'yellow message sphere Case Is = 2 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgerr.jpg") '// show the ' red sphere pic Case Is = 3 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgsuccess.jpg") '// show 'the green sphere pic End Select Frmmsg.Show '// this part is for the Messagebox to return a value that can be handled like the VByes response in a regular msgbox Select Case msgs.returnanswer Case Is = 1 Messagebox= "TByes" Case Is = 2 Messagebox = "TBNot" Case Is = 3 Messagebox = "TBcancel" End Select errhandler: Err.Clear End Function Now in the Frmmsg i have three buttons one for yes, another for no and a third for cancel private sub Btntbyes_onclick msgs.returnanswer=1 '// this is for the Messagebox function to return "TByes" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbnot_onclick msgs.returnanswer=2 '// this is for the Messagebox function to return "TBno" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbcancel_onclick msgs.returnanswer=3 '// this is for the Messagebox function to return "TBcancel" unload frmmsg '// cause we don't need the msg anymore end sub so now i can write X= Messagebox("Wow " & application.username & " you're handsome!! " & VbCrlf & " am i right?" ,"Self esteem enhancer",3) if x="TByes" then Messagebox "Liar!!!!","Go back to work",2 else Messagebox "c'mon!, you know youre not but i still like you the best "," Please return to your activities",3 endif actually this is not the purpose for what i use it, but i tought this would be funnier. Best regards, hope it may be usefull. -- :=) --- zz [MX] cuasi-musico,semi-poeta y loco "Tom Ogilvy" wrote in message ... You mean if I was reading this thread and I wanted to find out the solution, I would need to send an email to Doesn't seem like that is in the spirit of the newsgroup? -- Regards, Tom Ogilvy "zz" wrote in message ... thanks for the reply but i have already figured it out !!!... if anybody wants to know how send me an email to Jarious[dot]com[at]gmail[dot]com -- --- zz [MX] cuasi-musico,semi-poeta y loco "Simon Lloyd" wrote in message ... Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom msgbox help needed!!!
I said thanks for posting your solution and that it would be useful.
-- Regards, Tom Ogilvy "zz" wrote in message ... yah, i dont mind too much for the spam, gmail's filter works pretty fine. well and , it is a major discovery to me in my very personal way, i do not know too much about VBA or VB or XL, and everything i know is thanks to everybody here, and i am sure that here are some enthusiasts that are 'discovering' this tool just like me, and i thougth it would be nice to share this with them. guess it shouldn't be a great discovery to you, since you are a great expert on this subject... but wath the hell, it is like glory to me when something i had never done before works well. regards. -- --- zz [MX] cuasi-musico,semi-poeta y loco "Tom Ogilvy" wrote in message ... I wouldn't be too concerned about "all the spam". I have been posting here for 9 years using an unprotected email address and wouldn't consider the amount of SPAM I get to be any big deal. Using a public variable is pretty standard fare. Unfortunately, you made it sound like you had a major discovery. but thanks for posting your solution! - I am sure it will be useful for many. -- Regards, Tom Ogilvy "zz" wrote in message ... well, thanks for all the spam i will get.[ no hard feelings] i am completely sorry if that was the impression i caused, of course i do not mean breaking the spirit of the group, no, sorry again. Bad zz !! bad zz !!, no cookies for you tonight!!! so for my redemption. '// i know it has some 'scratches' and it could have been a little bit more effective, but i'm under a little pressure to finish this '//before xmas and as long as it works... in a regular module called msgs i declared this function Public returnanswer As Integer ' ///this is a global variable that can be set from Frmmsg's events Public Function Messagebox(Msg As String, Title As String, typeofmsg As Integer) As String On Error GoTo errhandler Load Frmmsg '// this loads the userform that 'acts' as the msgbox but doesn't show it yet Frmmsg.lblmsg.Caption = Msg '// places the message Frmmsg.Caption = Title ' // sets the title ,obviously Select Case typeofmsg Case Is = 1 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgwarn.jpg") '// show the 'yellow message sphere Case Is = 2 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgerr.jpg") '// show the ' red sphere pic Case Is = 3 Frmmsg.typeofmsj.Picture = LoadPicture("R:\Trainbox\Tbxclient\resources\Image s\Msgsuccess.jpg") '// show 'the green sphere pic End Select Frmmsg.Show '// this part is for the Messagebox to return a value that can be handled like the VByes response in a regular msgbox Select Case msgs.returnanswer Case Is = 1 Messagebox= "TByes" Case Is = 2 Messagebox = "TBNot" Case Is = 3 Messagebox = "TBcancel" End Select errhandler: Err.Clear End Function Now in the Frmmsg i have three buttons one for yes, another for no and a third for cancel private sub Btntbyes_onclick msgs.returnanswer=1 '// this is for the Messagebox function to return "TByes" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbnot_onclick msgs.returnanswer=2 '// this is for the Messagebox function to return "TBno" unload frmmsg '// cause we don't need the msg anymore end sub private sub Btntbcancel_onclick msgs.returnanswer=3 '// this is for the Messagebox function to return "TBcancel" unload frmmsg '// cause we don't need the msg anymore end sub so now i can write X= Messagebox("Wow " & application.username & " you're handsome!! " & VbCrlf & " am i right?" ,"Self esteem enhancer",3) if x="TByes" then Messagebox "Liar!!!!","Go back to work",2 else Messagebox "c'mon!, you know youre not but i still like you the best "," Please return to your activities",3 endif actually this is not the purpose for what i use it, but i tought this would be funnier. Best regards, hope it may be usefull. -- :=) --- zz [MX] cuasi-musico,semi-poeta y loco "Tom Ogilvy" wrote in message ... You mean if I was reading this thread and I wanted to find out the solution, I would need to send an email to Doesn't seem like that is in the spirit of the newsgroup? -- Regards, Tom Ogilvy "zz" wrote in message ... thanks for the reply but i have already figured it out !!!... if anybody wants to know how send me an email to Jarious[dot]com[at]gmail[dot]com -- --- zz [MX] cuasi-musico,semi-poeta y loco "Simon Lloyd" wrote in message ... Hi not sure entirely what you want to do but this is how to make use of Yes, No and Cancel from a message box: Code: -------------------- Sub Mbox() Select Case MsgBox("What Now", vbYesNoCancel, "Decision Maker") Case vbYes MsgBox "Good" Case vbNo MsgBox "Bad" Case vbCancel MsgBox "Ugly" End Select End Sub -------------------- Hope this helps, Regards, Simon -- Simon Lloyd |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom MsgBox | Excel Worksheet Functions | |||
Custom Msgbox? | Excel Programming | |||
Simple Msgbox needed | Excel Programming | |||
How Do I Get Custom Captions For MsgBox Buttons | Excel Programming | |||
help needed with msgbox | Excel Programming |