Microsoft KB Archive/102456: Difference between revisions
(importing KB archive) |
m (Text replacement - """ to """) |
||
| Line 44: | Line 44: | ||
The code example below demonstrates one method of having buttons active while a Browse window is open. When the following program example is executed, a Browse window with two buttons below it will appear. An alert box will be displayed when either button is chosen.<br /> | The code example below demonstrates one method of having buttons active while a Browse window is open. When the following program example is executed, a Browse window with two buttons below it will appear. An alert box will be displayed when either button is chosen.<br /> | ||
<br /> | <br /> | ||
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code | WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of any kind, either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. | ||
<pre class="codesample"> DO WHILE .t. | <pre class="codesample"> DO WHILE .t. | ||
SCREEN 1 TYPE 2 HEADING | SCREEN 1 TYPE 2 HEADING " " AT 250,114 SIZE 47,100 PIXELS ; | ||
FONT | FONT "Geneva",12 TOP | ||
@ PIXELS 27,32 SAY | @ PIXELS 27,32 SAY "Mark" FONT "Geneva",270 | ||
SCREEN 2 TYPE 2 HEADING | SCREEN 2 TYPE 2 HEADING " " AT 250,282 SIZE 47,100 PIXELS ; | ||
FONT | FONT "Geneva",12 TOP | ||
@ PIXELS 27,22 SAY | @ PIXELS 27,22 SAY "Unmark" FONT "Geneva",270 | ||
SCREEN 4 TYPE 2 AT -20,1 SIZE 1,1 PIXELS TOP | SCREEN 4 TYPE 2 AT -20,1 SIZE 1,1 PIXELS TOP | ||
| Line 59: | Line 59: | ||
IF SYS(1035)='1' THEN | IF SYS(1035)='1' THEN | ||
ALERT NOTE 1 | ALERT NOTE 1 "You marked it!" | ||
ELSE | ELSE | ||
IF SYS(1035)='2' THEN | IF SYS(1035)='2' THEN | ||
ALERT NOTE 1 | ALERT NOTE 1 "You unmarked it!" | ||
ELSE | ELSE | ||
SCREEN 4 OFF | SCREEN 4 OFF | ||
Latest revision as of 09:26, 20 July 2020
PSS ID Number: 102456
Article Last Modified on 7/15/2004
The information in this article applies to:
- Microsoft FoxBASE+ for Macintosh 2.01
This article was previously published under Q102456
The code example below demonstrates one method of having buttons active while a Browse window is open. When the following program example is executed, a Browse window with two buttons below it will appear. An alert box will be displayed when either button is chosen.
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of any kind, either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.
DO WHILE .t.
SCREEN 1 TYPE 2 HEADING " " AT 250,114 SIZE 47,100 PIXELS ;
FONT "Geneva",12 TOP
@ PIXELS 27,32 SAY "Mark" FONT "Geneva",270
SCREEN 2 TYPE 2 HEADING " " AT 250,282 SIZE 47,100 PIXELS ;
FONT "Geneva",12 TOP
@ PIXELS 27,22 SAY "Unmark" FONT "Geneva",270
SCREEN 4 TYPE 2 AT -20,1 SIZE 1,1 PIXELS TOP
BROWSE AT 50,40 SIZE 150,400 SAVE
IF SYS(1035)='1' THEN
ALERT NOTE 1 "You marked it!"
ELSE
IF SYS(1035)='2' THEN
ALERT NOTE 1 "You unmarked it!"
ELSE
SCREEN 4 OFF
SCREEN 4 DELETE
EXIT
ENDIF
ENDIF
ENDDO
SCREEN 1 DELETE
SCREEN 2 DELETE
Additional query words: 2.01 example screen button browse
Keywords: KB102456
Technology: kbAudDeveloper kbFoxBASE201Mac kbFoxBASESearch kbFoxproSearch kbHWMAC kbOSMAC
