Randall, I tested this on PPC2003 device and it works. I assume your reference of it working on a WM2003 refers to the same OS as PC2003.
So the latest devices using OS of WM5 or WM6 is now broken. Try placing the Option buttons inside a "Frame" object. See if this makes a difference - with the options inside a Frame maybe the OS will detect they are grouped. Joe --- In [email protected], "Randall Jones" <randalljo...@...> wrote: > > joespan123, > > I can't get the grouping to work using any method ... even AddObject > instead of the IDE. > > However ... the same code executed on a WM2003 device works just > fine. > > I find that quite interesting. > > At your service ... > > Randall Jones > AE7RJ > > > > > > Hi, > > > > I just tried the Option button's by adding 2 buttons to a form and setting > > the 2nd one Group=False. Below is the generated code. > > > > It works for me - that is selecting a option button forces the other button > > to unselect. > > > > Cut and paste this code into a TEXT file and load it up in the editor and > > run it. See if it works. > > > > > > > > '*** Begin Generated Code *** > > > > > > Form1_Show 'Default Form > > > > Dim Form1_Temp > > Sub Form1_Show > > On Error Resume Next > > > > UpdateScreen > > > > If IsEmpty(Form1_Temp) Then > > AddObject "Frame", "Form1_Form", 0, 0, Output.Width, Output.Height > > Form1_Form.Visible = False > > Form1_Form.BackColor = 12632256 > > AddObject "PictureBox", "Form1", 0, 0, 0, 0, Form1_Form > > Form1.BorderStyle = 0 > > Form1.Move 0, 0, Form1_Form.Width * 15, Form1_Form.Height * 15 > > Set Form1_Temp = Form1 > > Form1_Form.Caption = "Form1" > > > > AddObject "OptionButton", "OptionButton1", 27, 33, 92, 21, Form1_Form > > OptionButton1.BackColor = 12632256 > > OptionButton1.Caption = "OptionButton1" > > OptionButton1.FontSize = 8.25 > > '-------- > > AddObject "OptionButton", "OptionButton2", 32, 89, 92, 21, Form1_Form > > OptionButton2.BackColor = 12632256 > > OptionButton2.Caption = "OptionButton2" > > OptionButton2.FontSize = 8.25 > > OptionButton2.Group = False > > '-------- > > End If > > On Error Goto 0 > > Form1_Form.Visible = True > > callIfExists("Form1_Load") > > End Sub 'Form1_Show > > > > Sub Form1_Hide > > If IsEmpty(Form1_Temp) Then > > Err.Raise 44000, , "Form not loaded" > > Exit Sub > > End If > > > > Form1_Form.Visible = False > > callIfExists("Form1_Unload") > > End Sub 'Form1_Hide > > > > Sub CallIfExists(theSub) > > Dim s > > If ScriptEngineMajorVersion < 5 Then > > Execute("On Error Resume Next:"&theSub) 'attempt to execute it > > Else > > On Error Resume Next > > Set s = GetRef(theSub) > > If err.Number <> 0 Then Exit Sub 'it does not exist > > On Error GoTo 0 > > Execute (theSub) 'execute it > > End If > > End Sub > > > > '*** End Generated Code *** > > > > > > > > > > --- In [email protected], "bwolodko" <ben.wolodko@> wrote: > > > > > > --- In [email protected], "Randall Jones" <randalljones@> wrote: > > > > > > > > I'm beginning to take this personal. > > > > > > > > I am trying to create grouped optionbuttons. The language reference > > > > says it goes like this. > > > > > > > > - Create the first button. Set the group property to true. > > > > - Create the subsequent buttons group property to false. > > > > > > > > They will all be in the same group. Idea being that within that group > > > > only 1 button can be set at a time. Clicking on a button will clear > > > > any button already set. > > > > > > > > This is not happening for me. I can set all buttons no matter what. > > > > > > > > I'm doing something wrong. Somebody please tell me what it is. > > > > > > > > At your service ... > > > > > > > > Randall Jones > > > > randalljones@ > > > > AE7RJ > > > > > > > > "We can't solve problems by using the same kind of thinking we used > > > > when we created them." > > > > --Albert Einstein (1879-1955) > > > > > > > Don't you just love programming with less than stellar examples ... > > > especially when you are just learning as I am as well.. > > > > > > I am developing for a CuWin3500 HMI device, having CE 5.0 in it. > > > > > > I posed a similar question a few weeks ago, and did not get any replys. > > > > > > I have the same issue, with Radio or Option Buttons. > > > > > > What I found was that I had to do the following > > > > > > Option Explicit > > > Dim HoleType > > > > > > Sub OB1_Click > > > HoleType="Mechanical" > > > OB1.ForeColor = &H000000C0& > > > OB1.Value = True > > > OB2.Value = False > > > OB2.ForeColor =&H00000000& > > > OB3.Value = False > > > OB3.ForeColor =&H00000000& > > > OB4.Value = False > > > OB4.ForeColor =&H00000000& > > > End Sub > > > > > > Sub OB2_Click > > > HoleType="Hand Hole" > > > OB2.ForeColor =&H000000C0& > > > OB2.Value = True > > > OB1.Value = False > > > OB1.ForeColor =&H00000000& > > > OB3.Value = False > > > OB3.ForeColor =&H00000000& > > > OB4.Value = False > > > OB4.ForeColor =&H00000000& > > > End Sub > > > > > > etc for each radio button > > > > > > In essence, make one button's Value TRUE, and all the rest False > > > > > > > > > > > > --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en -~----------~----~----~----~------~----~------~--~---
