Reusing Browser technology ! 1

[gvphubli]

I want to build a application using the web browser control..to give the application the look and feel of "MS Money"..can anybody post some help in the form of tips or links..etc.

I have seen many articles in MSDN saying "Reusing Browser Technology"..but none of them mention any code samples..so I also need some good code samples..as well.


thanks


Cracky -= Developer/DBA =-
visit :

http://www.geocities.com/gvphubli

 

[vb5prgrmr]

Advanced search for webbrowser in your forums with any date will give you lots of information. It will take some digging to get what you want.

Good Luck

 

[devilman0]

what do you want to do, i don't use money, but i have created an app that has links in a "web browser" control and when i click on a link, it brings up different forms or dialogs.

Thanks,
James

 

[browneye]

Hi devilman0,
I am looking for some samples doing same thing like ...if you click on link you should be able to open vb form.

Thank you

 

[devilman0]

Ah yes, no problem, first you'll need to generate some cusom links, some that you can trap, i found that you must have http:// in front of all, so this will be a part of the processing. What i did was

http://4653,3,26,88

<-- this range allowed me to put this info into an array after removing the http://

you want to use the beforenavigate2 sub of the internet explorer, then you must make sure that there is an http:// in the url (beforeNavigate2 will be called every time the window is either refreshed, or new page is loaded, so you want to ignore this) Eg:

If InStr(1, LCase(URL), "[URL unfurl="true"]http://")[/URL] > 0 Then
'your processing here
end if

next you need to get your info out of the string inside the url, you need to rember that everything will be formatted for html (%20 <-- space)
so a call to the replace statement is needed, if you are sure you will not have spaces, then skip this, i did this because the user can add spaces. also remove the &quot;

http://&quot;

and split the url into your array, if you don't need to use an array,then omit the last statement. EG:

    TempStr = Mid(Trim(URL), 8, Len(URL) - 7)
    TempStr = Replace(TempStr, "%20", " ", 1, -1, vbBinaryCompare)
    TempArr = Split(TempStr, ",", -1, vbBinaryCompare)

I used a select case statement using the first element of the array to determing which form to use, so a select case statement is needed. I also had embeded arrays withing this array with a dfferent delimiter, but that is getting fancy. If you want i can email you a sample app that uses that, i will just send you the form with the explorer window etc. if you have any questions.

Thanks,
James

&quot;Make it idiot-proof and someone will make a better idiot.&quot; ~bumper sticker

 

[browneye]

James,
Thank you for your reply.I really appriciate it.If you can e-mail me sample code that would be great!! My e-mail address is nedubg@yahoo.com

Once again..Thank you!!.
Have A Great Weekend!!

Nick