Try this
Sub California Dim choice as smallint Dialog Width 60x Height 30y Control GroupBox Width 55x Height 25y Control StaticText Position 3x, 3y Title "What is the capital of California?" Control RadioGroup Position 3x, 4y ID 32 Title "San Diego;Sacramento;Los Angeles;San Francisco" Value 1 Into choice Control OKButton Position 20x, 27y Control CancelButton Position 30x, 27y If CommandInfo(CMD_INFO_DLG_OK)Then Do Case choice Case 1 Note "Incorrect" Call California Case 2 Note "Correct" Case 3 Note "Incorrect" Call California Case 4 Note "Incorrect" Call California End Case End If End sub Atentamente TSUI Jorge Eduardo Cordero Rodriguez Desarrollador GIS Sistemas de Imagenes y Datos S.A. de C.V. (55) 56 61 10 88, 56 61 40 36 Insurgentes Sur 1799 M�xico DF www.mapdata.com.mx www.geovoto.com.mx www.gobtec.com.mx [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Friday, May 21, 2004 4:27 PM To: Jorge Cordero Subject: RE: MI-L Radio Group help Jorge, Thanks for the help. It isn't quite the way I wanted to do it but I did realize what I needed to do after running your code. I use ReadControlValue and do a <> operator on it. The code you had did not utilize my OK button and that is what I need to have it preserve the dialog. Thanks for getting me in the right direction. John Crouse Integras Consulting Decision Support Analyst 858-677-9629 "Jorge Cordero" <[EMAIL PROTECTED] To: <[EMAIL PROTECTED]> .com.mx> cc: Subject: RE: MI-L Radio Group help 05/21/2004 01:35 PM Test this source i create a new Sub WhatRadioSelect Sub california Dialog Width 60x Height 30y Control GroupBox Width 55x Height 25y Control StaticText Position 3x, 3y Title "What is the capital of California?" Control RadioGroup Position 3x, 4y ID 32 Title "San Diego;Sacramento;Los Angeles;San Francisco" Value 1 Calling WhatRadioSelect 'Calling Sub WhatRadioSelect and dialog is preserve Control OKButton Position 20x, 27y Control CancelButton Position 30x, 27y Sub WhatRadioSelect Dim choice as smallint Choice = ReadControlValue(32) Do Case choice Case 1 Note "Incorrect" Case 2 Note "Correct" Case 3 Note "Incorrect" Case 4 Note "Incorrect" End Case End Sub Atentamente TSUI Jorge Eduardo Cordero Rodriguez Desarrollador GIS Sistemas de Imagenes y Datos S.A. de C.V. (55) 56 61 10 88, 56 61 40 36 Insurgentes Sur 1799 M�xico DF www.mapdata.com.mx www.geovoto.com.mx www.gobtec.com.mx [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Friday, May 21, 2004 3:05 PM To: [EMAIL PROTECTED] Subject: MI-L Radio Group help I am trying to use the radiogroup control. I have 4 choices to choose from. If the answer is wrong, I have it note that it is incorrect. I then want it to preserve the dialog with the question and choices so you can make another selection.. Below is the code I have now, minus my attempt at preserving the dialog. Any help would be apprciated. Sub california Dim choice as smallint Dialog Width 60x Height 30y Control GroupBox Width 55x Height 25y Control StaticText Position 3x, 3y Title "What is the capital of California?" Control RadioGroup Position 3x, 4y ID 32 Title "San Diego;Sacramento;Los Angeles;San Francisco" Value 1 Into choice Control OKButton Position 20x, 27y Control CancelButton Position 30x, 27y Do Case choice Case 1 Note "Incorrect" Case 2 Note "Correct" Case 3 Note "Incorrect" Case 4 Note "Incorrect" End Case End sub John --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 11878 --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 11880
