Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hyperlink Textbox
Message
From
14/11/2003 19:35:07
 
 
To
14/11/2003 15:40:16
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00848655
Message ID:
00850156
Views:
25
>
>Did any of that help?

A mix of some yours stuffs with mine.. But, finaly the deal was not so hard.. :)

I just make some optical ilussion on textbox (as light blue color and underline)

And finally:
procedure mytextbox.click
if  "@"$this.value
    lcTarget = "mailto:"+allt(this.value)
    DECLARE INTEGER ShellExecute IN shell32.DLL ;
        INTEGER hndWin, STRING cAction, STRING cFileName, ;
	STRING cParams, STRING cDir, INTEGER nShowWin
    ShellExecute(0,"open",lcTarget,"","",1)
else
   *... try to jump to some web site
endif
Thanks again;

Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform