bwolodko, That's what I'm doing now ... at OB1_Click I'm clearing all the other OptionButtons. It gets the job done.
In another program I'm using a different property as the "This is the input field" flag. There are work arounds. Thanks for your input. Good luck on your program. At your service ... Randall Jones AE7RJ > --- In [email protected], "Randall Jones" <randalljo...@...> 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 > > randalljo...@... > > 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 > > In my case I also wanted to change the color of the Text of the button to > show that it was picked. > > The problems I found were that the radio button, the Solid Dot and the circle > around it, did not increase in size as my text font, or size of the total > button increased in size, and you have to pick the Dot/Circle to activate the > button, not the body of the text. > > For 39 radio buttons, I ended up with 1289 lines of Code, for 4 forms of > buttons. > > My second approach was to use the following: > Option Explicit > ShowOKButton True 'Set minimize button URHC to close app > > > ' make full screen hide taskbar and top menu > Dim hWnd > Dim nWidth > Dim nHeight > Dim bRepaint > Declare "Function GetForegroundWindow Lib ""Coredll"" () As Long" > Declare "Function MoveWindow Lib ""Coredll"" (ByVal hWnd As Long, ByVal x As > Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal > bRepaint As Long) As Long" > hWnd = GetForegroundWindow > ' MoveWindow hWnd, 0, -26, Output.Width, Output.Height + 78, True ' was 52, > 26 try real height at 480 add 26 for 506 > MoveWindow hWnd, 0, -26, Output.Width, 506, True > '' need To hide the taskbar On Cuwin using a mouse in the USB port > > Form1_Show > > Dim DrlB(40) > Dim DrlR(40) > Dim BarC(10) > Dim HoleT(10) > Dim NHole(15) > Dim ChrgS(30) > Dim Pic(40) > Dim X, Y, I, J, K, L, M > Dim picName > Dim Frm > Dim DrillDepth > Dim strDepth > Dim DrlRH > Dim PathSD > > PathSD = "\Storage Card\Drill Depth Buttons\" > > DrlB(1) = "0_50B.bmp" > DrlR(1) = "0_50R.bmp" > DrlB(2) = "1_00B.bmp" > > ' the rest of the DrlB(3) = "1_50B.bmp" list > > Frm = 0 > > For I = 1 To 10 > If I <= 4 Then > X = 20 > Y = 75 + (( I-1)*100) > End If > If (I > 4) And (I <=8) Then > X = 250 > Y = 75 + (( I-5)*100) > End If > If (I > 8) And (I <=10) Then > X = 480 > Y = 75 + (( I-9)*100) > End If > picName = "pic" & CStr(I) > > > AddObject "NSCEPictureBox.NSCEPictureBoxCtrl.1",picName,X,Y,220,90 > Execute picName & ".ScaleMode = 3" ' pixels > Execute picName & ".BorderStyle = 0" ' none > Execute picName & ".Picture = PathSD & DrlB(I)" > > Next > > Sub pic1_Click > DrillDepth = Frm + 1 > pic1.Picture = PathSD & DrlR(Frm + 1) > pic2.Picture = PathSD & DrlB(Frm + 2) > pic3.Picture = PathSD & DrlB(Frm + 3) > pic4.Picture = PathSD & DrlB(Frm + 4) > pic5.Picture = PathSD & DrlB(Frm + 5) > pic6.Picture = PathSD & DrlB(Frm + 6) > pic7.Picture = PathSD & DrlB(Frm + 7) > pic8.Picture = PathSD & DrlB(Frm + 8) > pic9.Picture = PathSD & DrlB(Frm + 9) > pic10.Picture = PathSD & DrlB(Frm + 10) > strDepth = FormatNumber(DrillDepth/2, 2, True) > TextBox_1.Text = "You have Picked a Drill Depth of " > TextBox_2.Text = strDepth & " Meters" > End Sub > > Sub pic2_Click > DrillDepth = Frm + 2 > pic1.Picture = PathSD & DrlB(Frm + 1) > pic2.Picture = PathSD & DrlR(Frm + 2) > pic3.Picture = PathSD & DrlB(Frm + 3) > pic4.Picture = PathSD & DrlB(Frm + 4) > pic5.Picture = PathSD & DrlB(Frm + 5) > pic6.Picture = PathSD & DrlB(Frm + 6) > pic7.Picture = PathSD & DrlB(Frm + 7) > pic8.Picture = PathSD & DrlB(Frm + 8) > pic9.Picture = PathSD & DrlB(Frm + 9) > pic10.Picture = PathSD & DrlB(Frm + 10) > strDepth = FormatNumber(DrillDepth/2, 1, True) > TextBox_1.Text = "You have Picked a Drill Depth of " > TextBox_2.Text = strDepth & " Meters" > End Sub > > In this case I have one form, and 10 picture buttons, that I populate based > on what page I want to display. > > Four pages of of 10 buttons each, in 420 lines of code > > The picture buttons were created using "Easy Button Creator 2.0" and stored > on the SD card > > http://www.easyimagetools.com/products/button/index.htm > > The picture buttons, are activated by touching any part of the button. > > The CuWin3500 has a touch screen, hense the large buttons. The final > application has to be capable with the use of gloves or big fingers. > > Hope this helps. > > NSBasic has its quirks, and I am just a beginner as well, but so far it's a > pretty good programming environment. I would be great if there were more > tutorials for beginners. > > --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
