Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
How can I disable a listbox if a radiobutton is selected
#1
I want to disable the listbox 1001 when the button 1004 "Demote" is selected
 
Code:
Copy      Help
 
 inicio
str dd=
 BEGIN DIALOG
 0 "" 0x90C80AC8 0x0 0 0 458 254 "Dialog" "4"
 1 Button 0x54030001 0x4 344 234 48 14 "Aceptar"
 1001 ComboBox 0x54230243 0x0 96 184 124 213 ""
 1002 Static 0x54000000 0x0 12 168 76 12 "Tipo de solicitud:"
 1003 Button 0x54002009 0x0 96 168 48 10 "Promote"
 1004 Button 0x54002009 0x0 161 168 58 10 "Demote"
 3 Static 0x54000000 0x0 12 8 438 68 "Asegúrse de cumplir con los siguientes criterios antes de correr la macro:[][]*Tener una sesión abierta de Harves.[]*Tener una sesión abierta de Citrix.[]*Tener una sesión abierta de la carpeta de red DD.[]*Que el paquete a promover se encuentre listo para promoverse en Harves.[][]Si cumple con los criterios, capture la siguiente información:"
 4 Edit 0x54030080 0x200 40 83 44 13 ""
 5 Static 0x54000000 0x0 12 83 20 13 "Folio:"
 6 Static 0x54000000 0x0 12 100 122 13 "Nombre del requerimiento (Sin folio):"
 7 Edit 0x54030080 0x200 12 116 436 30 ""
 8 Static 0x54000000 0x0 12 152 76 12 "Nombre del paquete:"
 9 Edit 0x54030080 0x200 96 152 124 12 "nombre_de_paquete"
 10 Static 0x54000000 0x0 12 200 436 29 "En cuanto dé clic en el botón Aceptar, correrá una macro que automatizará el proceso de promoción de un paquete, favor de no manipular el teclado o mouse para evitar comportamientos inesperados.[]En el proceso se crearán carpetas y archivos necesarios para la solicitud de gestión de versión."
 11 Static 0x54000000 0x0 12 184 76 12 "Tipo de promoción:"
 2 Button 0x54030000 0x4 400 234 48 14 "Cancelar"
 END DIALOG
 DIALOG EDITOR: "" 0x2040C00 "*" "0" "" ""

str controls = "1001 1003 1004 4 7 9"
str cb1001 o1003Pro o1004Dem e4 e7 e9nom
str ruta_local paquete aplicacion aplicacion_aux
cb1001="Promover[]Instalar[]Ejecutar[]Promover e Instalar[]Promover, Instalar y Ejecutar"
aplicacion=""
if(!ShowDialog(dd 0 &controls)) ret

Solved:
 
Code:
Copy      Help
 
 inicio
str dd=
 BEGIN DIALOG
 0 "" 0x90C80AC8 0x0 0 0 458 254 "Dialog" "4"
 1 Button 0x54030001 0x4 344 234 48 14 "Aceptar"
 1001 ComboBox 0x54230243 0x0 96 184 124 213 ""
 1002 Static 0x54000000 0x0 12 168 76 12 "Tipo de solicitud:"
 1003 Button 0x54002009 0x0 96 168 48 10 "Promote"
 1004 Button 0x54002009 0x0 160 168 58 10 "Demote"
 3 Static 0x54000000 0x0 12 8 438 68 "Asegúrse de cumplir con los siguientes criterios antes de correr la macro:[][]*Tener una sesión abierta de Harves.[]*Tener una sesión abierta de Citrix.[]*Tener una sesión abierta de la carpeta de red DD.[]*Que el paquete a promover se encuentre listo para promoverse en Harves.[][]Si cumple con los criterios, capture la siguiente información:"
 4 Edit 0x54030080 0x200 40 83 44 13 ""
 5 Static 0x54000000 0x0 12 83 20 13 "Folio:"
 6 Static 0x54000000 0x0 12 100 122 13 "Nombre del requerimiento (Sin folio):"
 7 Edit 0x54030080 0x200 12 116 436 30 ""
 8 Static 0x54000000 0x0 12 152 76 12 "Nombre del paquete:"
 9 Edit 0x54030080 0x200 96 152 124 12 "nombre_de_paquete"
 10 Static 0x54000000 0x0 12 200 436 29 "En cuanto dé clic en el botón Aceptar, correrá una macro que automatizará el proceso de promoción de un paquete, favor de no manipular el teclado o mouse para evitar comportamientos inesperados.[]En el proceso se crearán carpetas y archivos necesarios para la solicitud de gestión de versión."
 11 Static 0x54000000 0x0 12 184 76 12 "Tipo de promoción:"
 2 Button 0x54030000 0x4 400 234 48 14 "Cancelar"
 END DIALOG
 DIALOG EDITOR: "" 0x2040C00 "*" "0" "" ""

str controls = "1001 1003 1004 4 7 9"
str cb1001 o1003Pro o1004Dem e4 e7 e9nom
str ruta_local paquete aplicacion aplicacion_aux
cb1001="Promover[]Instalar[]Ejecutar[]Promover e Instalar[]Promover, Instalar y Ejecutar"
aplicacion=""
if(!ShowDialog(dd &sub.DlgProc &controls)) ret

#sub DlgProc
function# hDlg message wParam lParam

sel message
    case WM_INITDIALOG
    case WM_DESTROY
    case WM_COMMAND goto messages2
ret
 messages2
sel wParam
    case IDOK
    case IDCANCEL
    case 1004 ;;Demote
    if(IsDlgButtonChecked(hDlg 1004))
        TO_Enable hDlg "1001" 0
    case 1003 ;;Promote
    if(IsDlgButtonChecked(hDlg 1003))
        TO_Enable hDlg "1001" 1
ret 1


Forum Jump:


Users browsing this thread: 1 Guest(s)