Guidance
指路人
g.yi.org
Software / Reginald / Examples / hyperlink.rex

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
/*
GUIBEGIN
WINDOW , 0, 0, 400, 200, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Link button demo
	FONT 8, 400, MS Shell Dlg
	PUSH 5, 11, 75, 12, TABSTOP, LINK, MyURL, , REXX User's Page
DEND
GUIEND
*/

LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1
guicreatewindow('NORMAL')

/* Set the variable associated with our "Hyperlink" button
 * to the URL we wish to display when the user clicks on
 * the PUSH button.
 */
myurl = "http://home.roadrunner.com/~jgglatt/rexx/rexxuser.htm"

again:
DO FOREVER
	guigetmsg()
	CATCH SYNTAX
			CONDITION('M')
			SIGNAL again
	CATCH HALT
	FINALLY
		guidestroywindow()
END
RETURN
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2017-11-19  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2010-07-16 20:45:46