message box,need to put code in fn library

[diya]

i was trying to close the message box but there are so many...i want to use function library ,how to proceed..
i used below code for one msg box and tried

Code:

Dim message
message= "information:"
Set oShell = CreateObject("WScript.Shell")
oShell.Popup message,15, "Title"

how to put this in fn libraray and call the function please let me know

[Ankesh]

Hi Diya,

please go through the below link.

https://www.learnqtp.com/forums/Thread-h...gbox-popup

Regards,
Ankesh

[diya]

hello ankesh,

i went thru the link but its using for loop

I have in many places the msgbox so wanted to put the code in function library and call it where necessary..

how do i do that....please help

---

hello ankesh,

i went thru the link but its using for loop

I have in many places the msgbox so wanted to put the code in function library and call it where necessary..

how do i do that....please help

[Ankesh]

Hey Diya,

Just remove the for loop and use the code. It will work.

Regards,
Ankesh

[diya]

Code:

Function messagebox()
Set a=createobject("wscript.shell") 'Creat one object
msgbox_message="Your Text"
msgbox_time=5
msgbox_title=""
a.popup msgbox_message,msgbox_time,msgbox_title

Set a=Nothing
end function

call messagebox

Not able to get.....associated the fn library using File->setting->resources->associate

---

Code:

Function messagebox()
Set a=createobject("wscript.shell") 'Creat one object
msgbox_message="Your Text"
msgbox_time=5
msgbox_title=""
a.popup msgbox_message,msgbox_time,msgbox_title

Set a=Nothing
end function

call messagebox

Not able to get.....associated the fn library using File->setting->resources->associate

[Ankesh]

Diya,

the above function will create a msgbox and display till the time limit.

I guess you are trying to do something else. Please give a brief info.

[diya]

yuppy it worked.....sorry my mistake