Guidance
指路人
g.yi.org
Upload / Forum Attachment / Reginald Rexx Programming Language Compiler User Forum Attachments and Pictures / 10030-SpinTest.rex

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
/*

GUIBEGIN


WINDOW , 245, 168, 182, 78, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , My Window
	FONT 8, 400, MS Shell Dlg
	ENTRY 61, 31, 32, 12, , , ENC1
	SPIN 96, 28, 24, 16, , , SPIN1, , 25 1000
DEND
GUIEND

*/


LIBRARY rexxgui

guierr = "SYNTAX"

guiheading = 1

guicreatewindow('NORMAL')
enc1 = 500
ERROR = guisetctlvalue( "ENC1" )



again:

DO FOREVER

	guigetmsg()


	IF EXISTS('GuiObject') == 0 THEN DO

	
		IF EXISTS('GuiSignal') THEN DO

		END

	END

	
	ELSE DO

		IF EXISTS('GuiSignal') == 0 THEN DROP (guiobject)

		ELSE SELECT guiobject

			
			WHEN 0 THEN NOP


			OTHERWISE
		END 

	END 

	CATCH SYNTAX
			CONDITION('M')
			SIGNAL again

	CATCH HALT

	
	FINALLY
		guidestroywindow()
END
RETURN


wm_select_spin1:

	ERROR = guigetctlvalue( "ENC1" )

	IF spin1 == -1 THEN
	DO
		enc1 = enc1 - 25
		IF enc1 == 0 THEN enc1 = 1000
	END
	ELSE DO
		enc1 = enc1 + 25
		IF enc1 == 1025 THEN enc1 = 25
	END

	SAY 'SPIN1 is 'spin1
	ERROR = guisetctlvalue( "ENC1" )
	
RETURN
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2024-2-25  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2007-01-28 13:01:36