Creating a Menu using tab
- Posted by "Don Austin" <dgaustin at mchsi.com> Oct 23, 2003
- 423 views
--------------Boundary-00=3D_KRO7G6G0000000000000 Content-Type: Multipart/Alternative; boundary=3D"------------Boundary-00=3D_LRO7BHK0000000000000" --------------Boundary-00=3D_LRO7BHK0000000000000 Content-Type: Text/Plain; charset=3D"iso-8859-1" Content-Transfer-Encoding: 8bit I down loaded the Euphoria package 4 days ago, so I'am very green.=0D I'am trying to create a "main menu" program using tab that will execute other programs.=0D I modifiied some code Ifound in "EX05,EXW" to the procedure below=0D =0D =0D global procedure onClick_MakeTable(integer self, integer event, sequence parms)=0D shellExecute("open","work.exw",SW_NORMAL)=0D end procedure =0D =0D This works.=0D QUESTION:=0D =0D Is there a way to execute a procedure by clicking on a tab??=0D =0D Thanks for any help. --------------Boundary-00=3D_LRO7BHK0000000000000 Content-Type: Text/HTML; charset=3D"iso-8859-1" Content-Transfer-Encoding: 8bit <meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Diso-8859-= 1"><html> <head> <meta name=3D"GENERATOR" content=3D"IncrediMail 1.0">=0D <!--IncrdiXMLRemarkStart> <IncrdiX-Info> <X-FID>BA285063-5BCE-11D4-AF8D-0050DAC67E11</X-FID> <X-FVER>2.0</X-FVER> <X-FIT>Letter</X-FIT> <X-FCOL>Elegant Paper</X-FCOL> <X-FCAT>Stationery</X-FCAT> <X-FDIS>Rice Fields</X-FDIS> <X-Extensions>SU1CTDEsNDEsgUmBSTAkkcGNgZmVTY0wNCxNhYUoiU0kOMEoTYGBjYEoJDSZn= SyFhUksSU1CTDIsMCwsSU1CTDMsMCws</X-Extensions> <X-BG>D32287DF-A8ED-4241-A449-36604A896FEB</X-BG> <X-BGT>repeat</X-BGT> <X-BGC>#dce0e3</X-BGC> <X-BGPX>0px</X-BGPX> <X-BGPY>0px</X-BGPY> <X-ASN>ANIM3D00-NONE-0000-0000-000000000000</X-ASN> <X-ASNF>0</X-ASNF> <X-ASH>ANIM3D00-NONE-0000-0000-000000000000</X-ASH> <X-ASHF>1</X-ASHF> <X-AN>6486DDE0-3EFD-11D4-BA3D-0050DAC68030</X-AN> <X-ANF>0</X-ANF> <X-AP>6486DDE0-3EFD-11D4-BA3D-0050DAC68030</X-AP> <X-APF>1</X-APF> <X-AD>C3C52140-4147-11D4-BA3D-0050DAC68030</X-AD> <X-ADF>0</X-ADF> <X-AUTO>X-ASN,X-ASH,X-AN,X-AP,X-AD</X-AUTO> <X-CNT>;</X-CNT> </IncrdiX-Info> <IncrdiXMLRemarkEnd--> </head> <BODY style=3D"BACKGROUND-POSITION: 0px 0px; FONT-SIZE: 12pt; MARGIN: 0px 1= 0px 10px; BACKGROUND-REPEAT: repeat; FONT-FAMILY: Comic Sans MS" text=3D#00= 0040 bgColor=3D#dce0e3 background=3Dcid:D32287DF-A8ED-4241-A449-36604A896FE= B scroll=3D"yes" X-FIT=3D"Letter" X-FCAT=3D"Elegant Paper" X-FCOL=3D"Elegan= t Paper" X-FDIS=3D"Rice Fields" X-FID=3D"BA285063-5BCE-11D4-AF8D-0050DAC67E= 11" X-FVER=3D"2.0" X-ASN=3D"ANIM3D00-NONE-0000-0000-000000000000" X-ASNF= =3D"0" X-ASH =3D"ANIM3D00-NONE-0000-0000-000000000000" X-ASHF =3D"1" X-AN = =3D"6486DDE0-3EFD-11D4-BA3D-0050DAC68030" X-ANF=3D"0" X-AP=3D"6486DDE0-3EFD= -11D4-BA3D-0050DAC68030" X-APF=3D"1" X-AD=3D"C3C52140-4147-11D4-BA3D-0050DA= C68030" X-ADF=3D"0" SIGCOLOR=3D"0" ORGYPOS=3D"0"><TABLE id=3DINCREDIMAINTAB= LE cellSpacing=3D0 cellPadding=3D2 width=3D"95%" border=3D0> <TBODY> <TR> <TD id=3DINCREDITEXTREGION style=3D"PADDING-RIGHT: 7px; PADDING-LEFT: 7px; = FONT-SIZE: 10pt; FONT-FAMILY: Comic Sans MS"=20 width=3D"100%"> <DIV>I down loaded the Euphoria package 4 days ago, so I'am very=20 green.</DIV> <DIV> <DIV>I'am trying to create a "main menu" program using tab that will= =20 execute other programs.</DIV> <DIV>I modifiied some code Ifound in "EX05,EXW" to the procedure=20 below</DIV></DIV> <DIV> </DIV> <DIV> </DIV> <DIV>global procedure onClick_MakeTable(integer self, integer event,= =20 sequence parms)<BR> =20 shellExecute("open","work.exw",SW_NORMAL)</DIV> <DIV> end=20 procedure = &nb= sp; = =20 <BR></DIV> <DIV>This works.</DIV> <DIV>QUESTION:</DIV> <DIV> </DIV> <DIV>Is there a way to execute a procedure by clicking on a tab??</DI= V> <DIV> </DIV> <DIV>Thanks for any help.</DIV></TD></TR> <TR> <TD id=3DINCREDIFOOTER width=3D"100%"> <TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%"> <TBODY> <TR> <TD width=3D"100%"></TD> <TD id=3DINCREDISOUND vAlign=3Dbottom align=3Dmiddle></TD> <TD id=3DINCREDIANIM vAlign=3Dbottom align=3Dmiddle></TD></TR></TBODY></TAB= LE></TD></TR></TBODY></TABLE><SPAN=20 id=3DIncrediStamp><SPAN dir=3Dltr><FONT face=3D"Arial, Helvetica, sans-seri= f"=20 size=3D2>____________________________________________________<BR><FONT=20 face=3D"Comic Sans MS" size=3D2><A=20 href=3D"http://www.incredimail.com/redir.asp?ad_id=3D309&lang=3D9"><IMG= alt=3D""=20 hspace=3D0 src=3D"cid:CC19C25A-37A4-461F-8D0E-262DC2DFABA5" align=3Dbaselin= e=20 border=3D0></A> <I>IncrediMail</I> - <B>Email has finally evolved</B>= -=20 </FONT><A href=3D"http://www.incredimail.com/redir.asp?ad_id=3D309&lang= =3D9"><FONT=20 face=3D"Times New Roman" size=3D3><B><U>Click=20 --------------Boundary-00=3D_LRO7BHK0000000000000-- --------------Boundary-00=3D_KRO7G6G0000000000000 Content-Type: image/gif