Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hyperlink Textbox
Message
De
14/11/2003 19:35:07
 
 
À
14/11/2003 15:40:16
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00848655
Message ID:
00850156
Vues:
26
>
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform