Search the Community

I have this form with tabs. I run an array called $MyNewUnit with values represented in the form. The forms shows up opened to the correct tab, but the button is not highlighted. I don't know what happend, but it was working fine and now the radio button does not get the focus. I need some orientation to resolve the issue. I need the radio button to get the focus so a simple spabar touch will trigger actions associated with that radio button. Here is the code: #include <GUIConstantsEx.au3> #include <GuiTab.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiButton.au3> $MyNewUnit = "AA" $IDX = GUICreate("IDX Location Tool - ", 440, 480, 400, 100) GUICtrlSetFont(-1, 28, 400, 0, "Niagara Solid") $PageControl1 = GUICtrlCreateTab(8, 8, 426, 344) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("First Floor") $Group1 = GUICtrlCreateGroup("MT01", 50, 120, 240, 150) $Radio73 = GUICtrlCreateRadio("Out of County (Karnes City, Elmendorf, La Salle or Zavala Counties)", 80, 140, 200, 30, BitOR($BS_AUTORADIOBUTTON, $BS_MULTILINE)) GUICtrlSetTip(-1, "GP J200") $Radio74 = GUICtrlCreateRadio("MHU", 80, 180, 60, 20) GUICtrlSetTip(-1, " J297 ") $Radio75 = GUICtrlCreateRadio("Infirmary", 80, 210, 60, 20) GUICtrlSetTip(-1, "J205") $Radio76 = GUICtrlCreateRadio("SPU", 80, 240, 60, 20) GUICtrlSetTip(-1, "J206") ;My Advertising $LabelAd1 = GUICtrlCreateLabel("", 300, 60, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") $Group2 = GUICtrlCreateGroup("Default", 50, 40, 110, 60) $Radio = GUICtrlCreateRadio("Booking", 80, 60, 60, 20) GUICtrlSetTip(-1, "J296") ;Highlight the New Location Select Case $MyNewUnit = "Elmendorf County" _GUICtrlButton_SetFocus($Radio73, True) Case $MyNewUnit = "La Salle County" _GUICtrlButton_SetFocus($Radio73, True) Case $MyNewUnit = "Zavala County" _GUICtrlButton_SetFocus($Radio73, True) Case $MyNewUnit = "Frio County" _GUICtrlButton_SetFocus($Radio73, True) Case $MyNewUnit = "Hospital" _GUICtrlButton_SetFocus($Radio73, True) Case $MyNewUnit = "MHU" _GUICtrlButton_SetFocus($Radio74, True) Case $MyNewUnit = "Infirmary" _GUICtrlButton_SetFocus($Radio75, True) Case $MyNewUnit = "SPU" _GUICtrlButton_SetFocus($Radio76, True) EndSelect $TabSheet2 = GUICtrlCreateTabItem("Second Floor") ;Show this tab if the value is for the second floor Select Case $MyNewUnit = "AA" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AB" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AC" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AD" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BA" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BB" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BC" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BD" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CA" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CB" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CC" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CD" GUICtrlSetState(-1, $GUI_SHOW) EndSelect $Group3 = GUICtrlCreateGroup("A Tower", 30, 40, 100, 80) $Radio62 = GUICtrlCreateRadio("AA", 40, 60, 40, 20) GUICtrlSetTip(-1, "J233") $Radio63 = GUICtrlCreateRadio("AC", 80, 60, 40, 20) GUICtrlSetTip(-1, "J237") $Radio64 = GUICtrlCreateRadio("AB", 40, 90, 40, 20) GUICtrlSetTip(-1, "J403") $Radio65 = GUICtrlCreateRadio("AD", 80, 90, 40, 20) GUICtrlSetTip(-1, "J405") ;My Advertising $LabelAd2 = GUICtrlCreateLabel("", 300, 60, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") $Group5 = GUICtrlCreateGroup("B Tower", 130, 120, 100, 80) $Radio66 = GUICtrlCreateRadio("BA", 140, 140, 40, 20) GUICtrlSetTip(-1, "J240") $Radio67 = GUICtrlCreateRadio("BC", 180, 140, 40, 20) GUICtrlSetTip(-1, "J244") $Radio68 = GUICtrlCreateRadio("BB", 140, 170, 40, 20) GUICtrlSetTip(-1, "J407") $Radio69 = GUICtrlCreateRadio("BD", 180, 170, 40, 20) GUICtrlSetTip(-1, "J409") $Group6 = GUICtrlCreateGroup("C Tower", 230, 200, 100, 80) $Radio70 = GUICtrlCreateRadio("CA", 240, 220, 40, 20) GUICtrlSetTip(-1, "J248") $Radio71 = GUICtrlCreateRadio("CC", 280, 220, 40, 20) GUICtrlSetTip(-1, "J252") $Radio72 = GUICtrlCreateRadio("CB", 240, 250, 40, 20) GUICtrlSetTip(-1, "J411") $Radio79 = GUICtrlCreateRadio("CD", 280, 250, 40, 20) GUICtrlSetTip(-1, "J413") ;Highlight the New Location Select ;2nd floor Case $MyNewUnit = "AA" _GUICtrlButton_SetFocus($Radio62, True) Case $MyNewUnit = "AB" _GUICtrlButton_SetFocus($Radio64, True) Case $MyNewUnit = "AC" _GUICtrlButton_SetFocus($Radio63, True) Case $MyNewUnit = "AD" _GUICtrlButton_SetFocus($Radio65, True) Case $MyNewUnit = "BA" _GUICtrlButton_SetFocus($Radio66, True) Case $MyNewUnit = "BB" _GUICtrlButton_SetFocus($Radio68, True) Case $MyNewUnit = "BC" _GUICtrlButton_SetFocus($Radio67, True) Case $MyNewUnit = "BD" Case $MyNewUnit = "CA" _GUICtrlButton_SetFocus($Radio70, True) Case $MyNewUnit = "CB" _GUICtrlButton_SetFocus($Radio72, True) Case $MyNewUnit = "CC" _GUICtrlButton_SetFocus($Radio71, True) Case $MyNewUnit = "CD" _GUICtrlButton_SetFocus($Radio79, True) EndSelect $TabSheet3 = GUICtrlCreateTabItem("Fourth Floor") ;Show this tab if the value is for the fourth floor Select Case $MyNewUnit = "AE" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AF" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AG" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AH" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BE" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BF" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BG" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BH" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CE" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CF" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CG" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CH" GUICtrlSetState(-1, $GUI_SHOW) EndSelect $Group7 = GUICtrlCreateGroup("A Tower", 230, 40, 100, 80) $Radio49 = GUICtrlCreateRadio("AE", 240, 60, 40, 20) GUICtrlSetTip(-1, "J256") $Radio50 = GUICtrlCreateRadio("AG", 280, 60, 40, 20) GUICtrlSetTip(-1, "J260") $Radio51 = GUICtrlCreateRadio("AF", 240, 90, 40, 20) GUICtrlSetTip(-1, "J415") $Radio52 = GUICtrlCreateRadio("AH", 280, 90, 40, 20) GUICtrlSetTip(-1, "J417") $Group8 = GUICtrlCreateGroup("B Tower", 130, 120, 100, 80) $Radio54 = GUICtrlCreateRadio("BE", 140, 140, 40, 20) GUICtrlSetTip(-1, "J264") $Radio55 = GUICtrlCreateRadio("BG", 180, 140, 40, 20) GUICtrlSetTip(-1, "J268") $Radio56 = GUICtrlCreateRadio("BH", 140, 170, 40, 20) GUICtrlSetTip(-1, "J421") $Group9 = GUICtrlCreateGroup("C Tower", 30, 200, 100, 80) $Radio57 = GUICtrlCreateRadio("CE", 40, 220, 40, 20) GUICtrlSetTip(-1, "J272") $Radio59 = GUICtrlCreateRadio("CG", 80, 220, 40, 20) GUICtrlSetTip(-1, "J276") $Radio60 = GUICtrlCreateRadio("CF", 40, 250, 40, 20) GUICtrlSetTip(-1, "J423") $Radio61 = GUICtrlCreateRadio("CH", 80, 250, 40, 20) GUICtrlSetTip(-1, "J425") ;My Advertising $LabelAd3 = GUICtrlCreateLabel("", 300, 200, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") ;Highlight the New Location Sixth floor. Select Case $MyNewUnit = "AE" _GUICtrlButton_SetFocus($Radio49, True) Case $MyNewUnit = "AF" _GUICtrlButton_SetFocus($Radio51, True) Case $MyNewUnit = "AG" _GUICtrlButton_SetFocus($Radio50, True) Case $MyNewUnit = "AH" _GUICtrlButton_SetFocus($Radio52, True) Case $MyNewUnit = "BE" _GUICtrlButton_SetFocus($Radio54, True) Case $MyNewUnit = "BG" _GUICtrlButton_SetFocus($Radio55, True) Case $MyNewUnit = "BH" _GUICtrlButton_SetFocus($Radio56, True) Case $MyNewUnit = "CE" _GUICtrlButton_SetFocus($Radio57, True) Case $MyNewUnit = "CF" _GUICtrlButton_SetFocus($Radio60, True) Case $MyNewUnit = "CG" _GUICtrlButton_SetFocus($Radio59, True) Case $MyNewUnit = "CH" EndSelect $TabSheet4 = GUICtrlCreateTabItem("Sixth floor") ;Show this tab if the value is for the sixth floor Select Case $MyNewUnit = "AI" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AJ" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AK" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "AL" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BI" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BJ" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BK" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "BL" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CI" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CJ" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CK" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "CL" GUICtrlSetState(-1, $GUI_SHOW) EndSelect $Group10 = GUICtrlCreateGroup("A Tower", 30, 40, 100, 80) $Radio35 = GUICtrlCreateRadio("AI", 40, 60, 40, 20) GUICtrlSetTip(-1, "J280") $Radio36 = GUICtrlCreateRadio("AK", 80, 60, 40, 20) GUICtrlSetTip(-1, "J429") $Radio37 = GUICtrlCreateRadio("AJ", 40, 90, 40, 20) GUICtrlSetTip(-1, "J427") $Radio38 = GUICtrlCreateRadio("AL", 80, 90, 40, 20) GUICtrlSetTip(-1, "J284") $Group11 = GUICtrlCreateGroup("B Tower", 130, 120, 100, 80) $Radio40 = GUICtrlCreateRadio("BI", 140, 140, 40, 20) GUICtrlSetTip(-1, "J520") $Radio41 = GUICtrlCreateRadio("BK", 180, 140, 40, 20) GUICtrlSetTip(-1, "J288") $Radio42 = GUICtrlCreateRadio("BJ", 140, 170, 40, 20) GUICtrlSetTip(-1, "J286") $Radio43 = GUICtrlCreateRadio("BL", 180, 170, 40, 20) GUICtrlSetTip(-1, "J430") $Group12 = GUICtrlCreateGroup("C Tower", 230, 200, 100, 80) $Radio45 = GUICtrlCreateRadio("CI", 240, 220, 40, 20) GUICtrlSetTip(-1, "J289") $Radio46 = GUICtrlCreateRadio("CK", 280, 220, 40, 20) GUICtrlSetTip(-1, "J431") $Radio47 = GUICtrlCreateRadio("CL", 240, 250, 40, 20) GUICtrlSetTip(-1, "J291") ;My Advertising $LabelAd4 = GUICtrlCreateLabel("", 300, 60, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") ;Select the New Location for Sixth floor. Select Case $MyNewUnit = "AI" _GUICtrlButton_SetFocus($Radio35, True) Case $MyNewUnit = "AJ" _GUICtrlButton_SetFocus($Radio37, True) Case $MyNewUnit = "AK" _GUICtrlButton_SetFocus($Radio36, True) Case $MyNewUnit = "AL" Case $MyNewUnit = "BI" _GUICtrlButton_SetFocus($Radio40, True) Case $MyNewUnit = "BJ" _GUICtrlButton_SetFocus($Radio42, True) Case $MyNewUnit = "BK" _GUICtrlButton_SetFocus($Radio41, True) Case $MyNewUnit = "BL" _GUICtrlButton_SetFocus($Radio43, True) Case $MyNewUnit = "CI" _GUICtrlButton_SetFocus($Radio45, True) Case $MyNewUnit = "CK" _GUICtrlButton_SetFocus($Radio46, True) Case $MyNewUnit = "CL" _GUICtrlButton_SetFocus($Radio47, True) EndSelect $TabSheet5 = GUICtrlCreateTabItem("Basement") ;Show this tab if the value is for the basement Select Case $MyNewUnit = "LA" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "LB" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "LC" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "LD" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "WA" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "WB" GUICtrlSetState(-1, $GUI_SHOW) EndSelect $Group13 = GUICtrlCreateGroup("Basement", 130, 120, 100, 120) $Radio90 = GUICtrlCreateRadio("LA", 140, 140, 40, 20) GUICtrlSetTip(-1, "J433") $Radio91 = GUICtrlCreateRadio("LB", 180, 140, 40, 20) GUICtrlSetTip(-1, "J435") $Radio92 = GUICtrlCreateRadio("LC", 140, 170, 40, 20) GUICtrlSetTip(-1, "J437") $Radio93 = GUICtrlCreateRadio("LD", 180, 170, 40, 20) GUICtrlSetTip(-1, "J439") $Radio193 = GUICtrlCreateRadio("WA", 140, 200, 40, 20) GUICtrlSetTip(-1, "J294") $Radio293 = GUICtrlCreateRadio("WB", 180, 200, 40, 20) GUICtrlSetTip(-1, "J441") ;My Advertising $LabelAd6 = GUICtrlCreateLabel("", 300, 200, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") ;Select the New Basement location. Select Case $MyNewUnit = "LA" _GUICtrlButton_SetFocus($Radio90, True) Case $MyNewUnit = "LB" _GUICtrlButton_SetFocus($Radio91, True) Case $MyNewUnit = "LC" _GUICtrlButton_SetFocus($Radio92, True) Case $MyNewUnit = "LD" _GUICtrlButton_SetFocus($Radio93, True) Case $MyNewUnit = "WA" _GUICtrlButton_SetFocus($Radio193, True) Case $MyNewUnit = "WB" _GUICtrlButton_SetFocus($Radio293, True) EndSelect $TabSheet6 = GUICtrlCreateTabItem("Annex") ;Show this tab if the value is for the Annex floor Select Case $MyNewUnit = "1A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "2A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "3A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "4A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "5A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "6A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "7A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "8A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "9A" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "1B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "2B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "3B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "4B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "5B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "6B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "7B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "8B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "9B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "0B" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "1C" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "2C" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "3C" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "4C" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "5C" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "1D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "2D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "3D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "4D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "5D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "6D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "7D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "8D" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "1E" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "2E" GUICtrlSetState(-1, $GUI_SHOW) EndSelect $Group14 = GUICtrlCreateGroup("A Tower", 50, 45, 210, 65) $Radio1 = GUICtrlCreateRadio("1A", 60, 60, 35, 17) GUICtrlSetTip(-1, "J445") $Radio2 = GUICtrlCreateRadio("2A", 60, 80, 35, 17) GUICtrlSetTip(-1, "J446") $Radio3 = GUICtrlCreateRadio("3A", 100, 60, 35, 17) GUICtrlSetTip(-1, "J448") $Radio4 = GUICtrlCreateRadio("4A", 100, 80, 35, 17) GUICtrlSetTip(-1, "J452") $Radio5 = GUICtrlCreateRadio("5A", 140, 60, 35, 17) GUICtrlSetTip(-1, "J449") $Radio6 = GUICtrlCreateRadio("6A", 140, 80, 35, 17) GUICtrlSetTip(-1, "J464") $Radio7 = GUICtrlCreateRadio("7A", 180, 60, 35, 17) GUICtrlSetTip(-1, "J466") $Radio8 = GUICtrlCreateRadio("8A", 180, 80, 35, 17) GUICtrlSetTip(-1, "J468") $Radio9 = GUICtrlCreateRadio("9A", 220, 60, 35, 17) GUICtrlSetTip(-1, "J469") $Group15 = GUICtrlCreateGroup("B Tower", 50, 110, 210, 70) $Radio10 = GUICtrlCreateRadio("1B", 60, 130, 35, 17) GUICtrlSetTip(-1, "J473") $Radio11 = GUICtrlCreateRadio("2B", 60, 150, 35, 17) GUICtrlSetTip(-1, "J475") $Radio12 = GUICtrlCreateRadio("3B", 100, 130, 35, 17) GUICtrlSetTip(-1, "J477") $Radio13 = GUICtrlCreateRadio("4B", 100, 150, 35, 17) GUICtrlSetTip(-1, "J478") $Radio14 = GUICtrlCreateRadio("5B", 140, 130, 35, 17) GUICtrlSetTip(-1, "J480") $Radio15 = GUICtrlCreateRadio("6B", 140, 150, 35, 17) GUICtrlSetTip(-1, "J481") $Radio16 = GUICtrlCreateRadio("7B", 180, 130, 35, 17) GUICtrlSetTip(-1, "J482") $Radio17 = GUICtrlCreateRadio("8B", 180, 150, 35, 17) GUICtrlSetTip(-1, "J484") $Radio18 = GUICtrlCreateRadio("9B", 220, 130, 35, 17) GUICtrlSetTip(-1, "J485") $Radio19 = GUICtrlCreateRadio("0B", 220, 150, 35, 17) GUICtrlSetTip(-1, "J324") $Group16 = GUICtrlCreateGroup("C Tower", 50, 180, 130, 65) $Radio20 = GUICtrlCreateRadio("1C", 60, 200, 35, 17) GUICtrlSetTip(-1, "J507") $Radio21 = GUICtrlCreateRadio("2C", 60, 220, 35, 17) GUICtrlSetTip(-1, "J509") $Radio22 = GUICtrlCreateRadio("3C", 100, 200, 35, 17) GUICtrlSetTip(-1, "J511") $Radio23 = GUICtrlCreateRadio("4C", 100, 220, 35, 17) GUICtrlSetTip(-1, "J513") $Radio24 = GUICtrlCreateRadio("5C", 140, 200, 35, 17) GUICtrlSetTip(-1, "J515") $Group17 = GUICtrlCreateGroup("D Tower", 50, 250, 180, 65) $Radio25 = GUICtrlCreateRadio("1D", 60, 270, 35, 17) GUICtrlSetTip(-1, "J489") $Radio26 = GUICtrlCreateRadio("2D", 60, 290, 35, 17) GUICtrlSetTip(-1, "J491") $Radio27 = GUICtrlCreateRadio("3D", 100, 270, 35, 17) GUICtrlSetTip(-1, "J493") $Radio28 = GUICtrlCreateRadio("4D", 100, 290, 35, 17) GUICtrlSetTip(-1, "J495") $Radio29 = GUICtrlCreateRadio("5D", 140, 270, 35, 17) GUICtrlSetTip(-1, "J497") $Radio30 = GUICtrlCreateRadio("6D", 140, 290, 35, 17) GUICtrlSetTip(-1, "J499") $Radio31 = GUICtrlCreateRadio("7D", 180, 270, 35, 17) GUICtrlSetTip(-1, "J501") $Radio34 = GUICtrlCreateRadio("8D", 180, 290, 35, 17) GUICtrlSetTip(-1, "J503") $Group18 = GUICtrlCreateGroup("E Tower", 190, 180, 70, 65) $Radio32 = GUICtrlCreateRadio("1E", 200, 200, 35, 17) GUICtrlSetTip(-1, "J301") $Radio33 = GUICtrlCreateRadio("2E", 200, 220, 35, 17) GUICtrlSetTip(-1, "J302") ;My Advertising $LabelAd7 = GUICtrlCreateLabel("", 300, 60, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") ;Select the new Annex location Select Case $MyNewUnit = "0B" _GUICtrlButton_SetFocus($Radio19, True) Case $MyNewUnit = "1A" _GUICtrlButton_SetFocus($Radio1, True) Case $MyNewUnit = "1B" _GUICtrlButton_SetFocus($Radio10, True) Case $MyNewUnit = "1C" _GUICtrlButton_SetFocus($Radio20, True) Case $MyNewUnit = "1D" _GUICtrlButton_SetFocus($Radio25, True) Case $MyNewUnit = "1E" _GUICtrlButton_SetFocus($Radio32, True) Case $MyNewUnit = "2A" _GUICtrlButton_SetFocus($Radio2, True) Case $MyNewUnit = "2B" _GUICtrlButton_SetFocus($Radio11, True) Case $MyNewUnit = "2C" _GUICtrlButton_SetFocus($Radio21, True) Case $MyNewUnit = "2D" _GUICtrlButton_SetFocus($Radio26, True) Case $MyNewUnit = "2E" _GUICtrlButton_SetFocus($Radio33, True) Case $MyNewUnit = "3A" _GUICtrlButton_SetFocus($Radio3, True) Case $MyNewUnit = "3B" _GUICtrlButton_SetFocus($Radio12, True) Case $MyNewUnit = "3C" _GUICtrlButton_SetFocus($Radio22, True) Case $MyNewUnit = "3D" _GUICtrlButton_SetFocus($Radio27, True) Case $MyNewUnit = "4A" _GUICtrlButton_SetFocus($Radio4, True) Case $MyNewUnit = "4B" _GUICtrlButton_SetFocus($Radio13, True) Case $MyNewUnit = "4C" _GUICtrlButton_SetFocus($Radio23, True) Case $MyNewUnit = "4D" _GUICtrlButton_SetFocus($Radio28, True) Case $MyNewUnit = "5A" _GUICtrlButton_SetFocus($Radio5, True) Case $MyNewUnit = "5B" _GUICtrlButton_SetFocus($Radio14, True) Case $MyNewUnit = "5C" _GUICtrlButton_SetFocus($Radio24, True) Case $MyNewUnit = "5D" _GUICtrlButton_SetFocus($Radio29, True) Case $MyNewUnit = "6A" _GUICtrlButton_SetFocus($Radio6, True) Case $MyNewUnit = "6B" _GUICtrlButton_SetFocus($Radio15, True) Case $MyNewUnit = "6D" _GUICtrlButton_SetFocus($Radio30, True) Case $MyNewUnit = "7A" _GUICtrlButton_SetFocus($Radio7, True) Case $MyNewUnit = "7B" _GUICtrlButton_SetFocus($Radio16, True) Case $MyNewUnit = "7D" _GUICtrlButton_SetFocus($Radio31, True) Case $MyNewUnit = "8A" _GUICtrlButton_SetFocus($Radio8, True) Case $MyNewUnit = "8B" _GUICtrlButton_SetFocus($Radio17, True) Case $MyNewUnit = "8D" _GUICtrlButton_SetFocus($Radio34, True) Case $MyNewUnit = "9A" _GUICtrlButton_SetFocus($Radio9, True) Case $MyNewUnit = "9B" _GUICtrlButton_SetFocus($Radio18, True) EndSelect $TabSheet7 = GUICtrlCreateTabItem("Juvenile") Select Case $MyNewUnit = "Juvenile Mission" GUICtrlSetState(-1, $GUI_SHOW) Case $MyNewUnit = "Juvenile South" GUICtrlSetState(-1, $GUI_SHOW) EndSelect $Group19 = GUICtrlCreateGroup("Juvenile", 100, 100, 130, 65) $Radio77 = GUICtrlCreateRadio("Juvenile Mission", 110, 120, 100, 20) GUICtrlSetTip(-1, "J202") $Radio78 = GUICtrlCreateRadio("Juvenile South", 110, 140, 100, 20) GUICtrlSetTip(-1, "J201") ;My Advertising $LabelAd9 = GUICtrlCreateLabel("", 300, 200, 80, 81) GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor") Select Case $MyNewUnit = "Juvenile Mission" _GUICtrlButton_SetFocus($Radio77, True) Case $MyNewUnit = "Juvenile South" _GUICtrlButton_SetFocus($Radio78, True) EndSelect GUICtrlCreateTabItem("") $Label1 = GUICtrlCreateLabel("IDX-Location-Tool", 70, 350, 315, 49) GUICtrlSetFont(-1, 24, 400, 0, "Arial Black") GUICtrlSetColor(-1, 0x00FF00) $Label3 = GUICtrlCreateLabel($MyNewUnit, 250, 435, 110, 49) GUICtrlSetFont(-1, 12, 400, 0, "Arial Black") GUICtrlSetColor(-1, 0xFF0000) $Button1 = GUICtrlCreateButton("Discharge", 360, 440, 60, 20) GUICtrlSetBkColor(-1, 0x00FFFF) GUICtrlSetTip(-1, "RC01/RC02") $Button2 = GUICtrlCreateButton("Skip", 20, 440, 60, 20) GUICtrlSetBkColor(-1, 0x00FFFF) GUICtrlSetTip(-1, "Don't move this patient.") Select Case $MyNewUnit = "RC01/RC02" _GUICtrlButton_SetFocus($Button1, True) Case $MyNewUnit = "Skip" _GUICtrlButton_SetFocus($Button2, True) EndSelect GUICtrlCreateTabItem("") ;Show the window GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Button2 ;~ skipping this patient $Skiper = 1 GUIDelete() ExitLoop EndSelect WEnd If $Skiper = 1 Then ;~ ContinueLoop EndIf