Activar un control al seleccionar otro control

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
wbueso
Aprendiz de Mago
Mensajes: 61
Registrado: 31 Dic 2013, 01:02

Activar un control al seleccionar otro control

Mensaje por wbueso »

Estoy creando un pequeño programa que me ayuda a cambiar el OEM Info en Windows 7, he puesto varios controles InputBox para agregar los datos que quiero editar en el OEM, ya lo termine pero deseo que al ingresar datos en cualquiera de los InputBox de inmediato se active el Control "Ingresar Informacion" que es control que realiza los cambios en el registro para el OEMINFO, por defecto ese control lo tengo DISABLE.
Lo que me gustaria es que al escribir cualquier dato en cualquiera de los inputbox, de inmediato el control cambie a ENABLE.
que hago para que el programa siempre este chequiando si se a escrito algo en cualquiera de los inputbox.
Dany nuevamente espero su ayuda, gracias.
Dios los bendiga.
Esto es lo que tengo hasta el momento.

Código: Seleccionar todo


#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Local $Izq = 5, $Arb = 5, $lar = 200, $Gru = 25	 ;Posicion de los controles en general
Global $Logo = ""

GuiCreate("OEM Changer Info Tools C.C.G.",$Lar+300,$Gru+525,$Izq+100,$Arb+100)	;Crea la ventana

GUICtrlCreateLabel("Fabricante: ",$Izq,$Arb,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InFbrcnt = GUICtrlCreateInput("Nombre del Fabricante",$Izq+80,$Arb,$Lar+50,$Gru)
GUICtrlSetFont($InFbrcnt, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Modelo: ",$Izq,$Arb+30,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InMdl = GuiCtrlCreateInput("Modelo o Version",$Izq+80,$Arb+30,$Lar+50,$Gru)
GUICtrlSetFont($InMdl, 10, 400, 0, "Arial")

GUICtrlCreateLabel("OEM Logo: ",$izq,$Arb+80,$Lar-130,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

GUICtrlCreateLabel("E-Mail: ",$Izq,$Arb+220,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtURL = GUICtrlCreateInput("Direccion WEB o E-Mail",$Izq+80,$Arb+220,$Lar+50,$Gru)
GUICtrlSetFont($InSprtURL, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Horarios: ",$Izq,$Arb+250,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtHr = GUICtrlCreateInput("Horario de Servicio",$Izq+80,$Arb+250,$Lar+50,$Gru)
GUICtrlSetFont($InSprtHr, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Telefono: ",$Izq,$Arb+280,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtTel = GUICtrlCreateInput("Telefono o Movil",$Izq+80,$Arb+280,$Lar+50,$Gru)
GUICtrlSetFont($InSprtTel, 10, 400, 0, "Arial")

$BBrwsLg = GUICtrlCreateButton("Buscar Logo",$Izq+235,$Arb+60,$Lar-105,$Gru)
GUICtrlSetFont($BBrwsLg, 10, 400, 0, "Arial")

$BCmbr = GUICtrlCreateButton("Ingresar Información",$Izq,$Arb+315,$Lar-55,$Gru)
GUICtrlSetFont($BCmbr, 10, 400, 0, "Arial")
GUICtrlSetState($BCmbr,$GUI_DISABLE)

$BOEMSlr = GUICtrlCreateButton("Salir",$Izq+235,$Arb+315,$Lar-105,$Gru)

GUISetState(@SW_SHOW)

While 1

   $nMsg = GUIGetMsg()

   Switch $nMsg

Case $BBrwsLg
   _Buscar()

Case $BOEMSlr
   WinKill("OEM Changer Info Tools C.C.G.")

Case $BCmbr
   _Cambiar()

Case $GUI_EVENT_CLOSE
   Exit

   EndSwitch

WEnd

Func _Cambiar()

   If $InFbrcnt = "" Then
		 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Model")
	  Else
		 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Model","REG_SZ",$InMdl)	;Tus datos
   EndIf

   If $InMdl = "" Then
		 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Manufacturer")
	  Else
		 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Manufacturer","REG_SZ",$InFbrcnt)	;Tus datos
   EndIf

   If $InSprtURL = "" Then
		 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportHours")
	  Else
		 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportHours","REG_SZ",$InSprtURL)	;Horario de atencion
   EndIf

   If $InSprtHr = "" Then
		 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportPhone")
	  Else
		 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportPhone","REG_SZ",$InSprtTel)	;Numero de telefono
   EndIf

   If $InSprtTel = "" Then
		 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportURL")
	  Else
		 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportURL","REG_SZ",$InSprtURL)	;URL de tu pagian Web o tu E-Mail
   EndIf

   ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","LogoOLD","REG_SZ","IUCCG V.1")	;Ruta al logo_120x120.bmp

   If $Logo = "" Then
		 RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation")
	  Else
		 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Logo","REG_SZ",$Logo)	;Ruta al logo.bmp
   EndIf

EndFunc

Func _Buscar()

   $Logo = FileOpenDialog("Seleccione un logo",@DesktopDir,"Archivos(*.bmp)",1)
   GUICtrlCreatePic($Logo,$Izq+80,$Arb+60,$Lar-50,$Gru+125,$WS_BORDER)

EndFunc
Arriba
Avatar de Usuario
Dany
Profesional del Autoit
Mensajes: 651
Registrado: 28 Mar 2012, 22:49

Re: Activar un control al seleccionar otro control

Mensaje por Dany »

Hola bro. puedes hacer algo asi:

Código: Seleccionar todo

#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Local $Izq = 5, $Arb = 5, $lar = 200, $Gru = 25    ;Posicion de los controles en general
Global $Logo = ""


GuiCreate("OEM Changer Info Tools C.C.G.",$Lar+300,$Gru+525,$Izq+100,$Arb+100)   ;Crea la ventana

GUICtrlCreateLabel("Fabricante: ",$Izq,$Arb,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InFbrcnt = GUICtrlCreateInput("Nombre del Fabricante",$Izq+80,$Arb,$Lar+50,$Gru)
GUICtrlSetFont($InFbrcnt, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Modelo: ",$Izq,$Arb+30,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InMdl = GuiCtrlCreateInput("Modelo o Version",$Izq+80,$Arb+30,$Lar+50,$Gru)
GUICtrlSetFont($InMdl, 10, 400, 0, "Arial")

GUICtrlCreateLabel("OEM Logo: ",$izq,$Arb+80,$Lar-130,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

GUICtrlCreateLabel("E-Mail: ",$Izq,$Arb+220,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtURL = GUICtrlCreateInput("Direccion WEB o E-Mail",$Izq+80,$Arb+220,$Lar+50,$Gru)
GUICtrlSetFont($InSprtURL, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Horarios: ",$Izq,$Arb+250,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtHr = GUICtrlCreateInput("Horario de Servicio",$Izq+80,$Arb+250,$Lar+50,$Gru)
GUICtrlSetFont($InSprtHr, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Telefono: ",$Izq,$Arb+280,$Lar-125,$Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtTel = GUICtrlCreateInput("Telefono o Movil",$Izq+80,$Arb+280,$Lar+50,$Gru)
GUICtrlSetFont($InSprtTel, 10, 400, 0, "Arial")

$BBrwsLg = GUICtrlCreateButton("Buscar Logo",$Izq+235,$Arb+60,$Lar-105,$Gru)
GUICtrlSetFont($BBrwsLg, 10, 400, 0, "Arial")

$BCmbr = GUICtrlCreateButton("Ingresar Información",$Izq,$Arb+315,$Lar-55,$Gru)
GUICtrlSetFont($BCmbr, 10, 400, 0, "Arial")
GUICtrlSetState($BCmbr,$GUI_DISABLE)

$BOEMSlr = GUICtrlCreateButton("Salir",$Izq+235,$Arb+315,$Lar-105,$Gru)


GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")


While 1

   $nMsg = GUIGetMsg()

   Switch $nMsg

Case $BBrwsLg
   _Buscar()

Case $BOEMSlr
   WinKill("OEM Changer Info Tools C.C.G.")

Case $BCmbr
   _Cambiar()

Case $GUI_EVENT_CLOSE
   Exit

   EndSwitch

WEnd

Func _Cambiar()

   If $InFbrcnt = "" Then
       RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Model")
     Else
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Model","REG_SZ",$InMdl)   ;Tus datos
   EndIf

   If $InMdl = "" Then
       RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Manufacturer")
     Else
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Manufacturer","REG_SZ",$InFbrcnt)   ;Tus datos
   EndIf

   If $InSprtURL = "" Then
       RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportHours")
     Else
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportHours","REG_SZ",$InSprtURL)   ;Horario de atencion
   EndIf

   If $InSprtHr = "" Then
       RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportPhone")
     Else
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportPhone","REG_SZ",$InSprtTel)   ;Numero de telefono
   EndIf

   If $InSprtTel = "" Then
       RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportURL")
     Else
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportURL","REG_SZ",$InSprtURL)   ;URL de tu pagian Web o tu E-Mail
   EndIf

   ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","LogoOLD","REG_SZ","IUCCG V.1")   ;Ruta al logo_120x120.bmp

   If $Logo = "" Then
       RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation")
     Else
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","Logo","REG_SZ",$Logo)   ;Ruta al logo.bmp
   EndIf

EndFunc

Func _Buscar()

   $Logo = FileOpenDialog("Seleccione un logo",@DesktopDir,"Archivos(*.bmp)",1)
   GUICtrlCreatePic($Logo,$Izq+80,$Arb+60,$Lar-50,$Gru+125,$WS_BORDER)

EndFunc




Func _WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
    $nNotifyCode = BitShift($iwParam, 16)
    $nID = BitAND($iwParam, 0x0000FFFF)

    If $nNotifyCode = $EN_CHANGE Then
        If $ilParam = GUICtrlGetHandle($InFbrcnt) or $ilParam=GUICtrlGetHandle($InMdl) or  $ilParam=GUICtrlGetHandle($InSprtURL) or  $ilParam=GUICtrlGetHandle($InSprtHr) or $ilParam=GUICtrlGetHandle($InSprtTel) then
           GUICtrlSetState($BCmbr,$GUI_ENABLE)
        EndIf

    EndIf

    Return $GUI_RUNDEFMSG

EndFunc

Saludos
  • ............................................Imagen
    ......................................Imagen
Arriba
Avatar de Usuario
yasmany
Hacker del Foro
Mensajes: 249
Registrado: 06 Sep 2011, 21:30

Re: Activar un control al seleccionar otro control

Mensaje por yasmany »

Siempre apoyando... estimado Dany :smt001
Me he permitido agregar algo más... para que se active unicamente si todos los inputs estan llenos CASO CONTRARIO se muestra desactivado (Aumenté la función de _leer y un condicional)

Puedes cambiar los And por OR para que permita activarse aunque no estén todos llenados

If _leer($InFbrcnt) And _leer($InMdl) And _leer($InSprtURL) And _leer($InSprtHr) And _leer($InSprtTel) Then
GUICtrlSetState($BCmbr, $GUI_ENABLE)
Else
GUICtrlSetState($BCmbr, $GUI_DISABLE)
EndIf

Agradesco a Dany, cada día aprendo un poco mas :smt002

Código: Seleccionar todo

#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Local $Izq = 5, $Arb = 5, $lar = 200, $Gru = 25 ;Posicion de los controles en general
Global $Logo = ""

GUICreate("OEM Changer Info Tools C.C.G.", $lar + 300, $Gru + 525, $Izq + 100, $Arb + 100) ;Crea la ventana

GUICtrlCreateLabel("Fabricante: ", $Izq, $Arb, $lar - 125, $Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InFbrcnt = GUICtrlCreateInput("Nombre del Fabricante", $Izq + 80, $Arb, $lar + 50, $Gru)
GUICtrlSetFont($InFbrcnt, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Modelo: ", $Izq, $Arb + 30, $lar - 125, $Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InMdl = GUICtrlCreateInput("Modelo o Version", $Izq + 80, $Arb + 30, $lar + 50, $Gru)
GUICtrlSetFont($InMdl, 10, 400, 0, "Arial")

GUICtrlCreateLabel("OEM Logo: ", $Izq, $Arb + 80, $lar - 130, $Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

GUICtrlCreateLabel("E-Mail: ", $Izq, $Arb + 220, $lar - 125, $Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtURL = GUICtrlCreateInput("Direccion WEB o E-Mail", $Izq + 80, $Arb + 220, $lar + 50, $Gru)
GUICtrlSetFont($InSprtURL, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Horarios: ", $Izq, $Arb + 250, $lar - 125, $Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtHr = GUICtrlCreateInput("Horario de Servicio", $Izq + 80, $Arb + 250, $lar + 50, $Gru)
GUICtrlSetFont($InSprtHr, 10, 400, 0, "Arial")

GUICtrlCreateLabel("Telefono: ", $Izq, $Arb + 280, $lar - 125, $Gru)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$InSprtTel = GUICtrlCreateInput("Telefono o Movil", $Izq + 80, $Arb + 280, $lar + 50, $Gru)
GUICtrlSetFont($InSprtTel, 10, 400, 0, "Arial")

$BBrwsLg = GUICtrlCreateButton("Buscar Logo", $Izq + 235, $Arb + 60, $lar - 105, $Gru)
GUICtrlSetFont($BBrwsLg, 10, 400, 0, "Arial")

$BCmbr = GUICtrlCreateButton("Ingresar Información", $Izq, $Arb + 315, $lar - 55, $Gru)
GUICtrlSetFont($BCmbr, 10, 400, 0, "Arial")
GUICtrlSetState($BCmbr, $GUI_DISABLE)

$BOEMSlr = GUICtrlCreateButton("Salir", $Izq + 235, $Arb + 315, $lar - 105, $Gru)


GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")


While 1

	$nMsg = GUIGetMsg()

	Switch $nMsg

		Case $BBrwsLg
			_Buscar()

		Case $BOEMSlr
			WinKill("OEM Changer Info Tools C.C.G.")

		Case $BCmbr
			_Cambiar()

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch

WEnd

Func _Cambiar()

	If $InFbrcnt = "" Then
		RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model")
	Else
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model", "REG_SZ", $InMdl) ;Tus datos
	EndIf

	If $InMdl = "" Then
		RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer")
	Else
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer", "REG_SZ", $InFbrcnt) ;Tus datos
	EndIf

	If $InSprtURL = "" Then
		RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours")
	Else
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours", "REG_SZ", $InSprtURL) ;Horario de atencion
	EndIf

	If $InSprtHr = "" Then
		RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportPhone")
	Else
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportPhone", "REG_SZ", $InSprtTel) ;Numero de telefono
	EndIf

	If $InSprtTel = "" Then
		RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL")
	Else
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL", "REG_SZ", $InSprtURL) ;URL de tu pagian Web o tu E-Mail
	EndIf

	;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","LogoOLD","REG_SZ","IUCCG V.1")   ;Ruta al logo_120x120.bmp

	If $Logo = "" Then
		RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation")
	Else
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo", "REG_SZ", $Logo) ;Ruta al logo.bmp
	EndIf

EndFunc   ;==>_Cambiar

Func _Buscar()
	$Logo = FileOpenDialog("Seleccione un logo", @DesktopDir, "Archivos(*.bmp)", 1)
	GUICtrlCreatePic($Logo, $Izq + 80, $Arb + 60, $lar - 50, $Gru + 125, $WS_BORDER)
EndFunc   ;==>_Buscar

Func _leer($inputAleer)
	Return GUICtrlRead($inputAleer)
EndFunc   ;==>_leer

Func _WM_COMMAND($hWnd, $imsg, $iwParam, $ilParam)
	$nNotifyCode = BitShift($iwParam, 16)
	$nID = BitAND($iwParam, 0x0000FFFF)

	If $nNotifyCode = $EN_CHANGE Then
		If $ilParam = GUICtrlGetHandle($InFbrcnt) Or $ilParam = GUICtrlGetHandle($InMdl) Or $ilParam = GUICtrlGetHandle($InSprtURL) Or $ilParam = GUICtrlGetHandle($InSprtHr) Or $ilParam = GUICtrlGetHandle($InSprtTel) Then
			If _leer($InFbrcnt) And _leer($InMdl) And _leer($InSprtURL) And _leer($InSprtHr) And _leer($InSprtTel) Then
				GUICtrlSetState($BCmbr, $GUI_ENABLE)
			Else
				GUICtrlSetState($BCmbr, $GUI_DISABLE)
			EndIf
		EndIf
	EndIf
	Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_COMMAND
Obra de modo que merezcas a tu propio juicio y a juicio de los demás la eternidad, que te hagas insustituible que no merezcas morir.
https://www.facebook.com/yasmanycurimilma
Arriba
wbueso
Aprendiz de Mago
Mensajes: 61
Registrado: 31 Dic 2013, 01:02

Re: Activar un control al seleccionar otro control

Mensaje por wbueso »

Me gusta la de Dany, 1 porque realiza la funsion que yo queria, 2 porque trae nuevas cosas que no conosco todavia y las voy a estudiar para saber como funcionan y en que se pueden aplicar, ahora el problema que tengo es que al hacer clic en el boton "Ingresar Informacion", los controles Input que esten vacios quiero que no realicen nada, de esa manera solo se cambiaria lo que el usuario desee, gracias de nuevo Dany.
La segunda opcion que me enviaron ya lo habia pensado pero no me parecio que solo se activara al estar todos los Input llenos, eso no quiere decir que no agradesco la ayuda.rasias nuevamente y que Dios los bendiga.
Arriba
Avatar de Usuario
Dany
Profesional del Autoit
Mensajes: 651
Registrado: 28 Mar 2012, 22:49

Re: Activar un control al seleccionar otro control

Mensaje por Dany »

@yasmany buen ejemplo.

Hola wbueso.


lo unico que tienes que hacer es en la función cambiar. en vez de comparar con "" comparas que sea diferente a lo que tiene el input por default.

If $InFbrcnt <> "Nombre del Fabricante" Then


Saludos
  • ............................................Imagen
    ......................................Imagen
Arriba
wbueso
Aprendiz de Mago
Mensajes: 61
Registrado: 31 Dic 2013, 01:02

Re: Activar un control al seleccionar otro control

Mensaje por wbueso »

Gracia Dany.
Lo que me dices ya lo habia hecho, el asunto es que yo vi un programa que el control se activava solo con escribir cualquier cosa en cualquier inputbox, y los inputbox no tenian nada escrito por default, y no inportaba en cual de los inputbox escribias, y eso es lo que queria, es lo que hace el codigo que tu me diste y me gusta.
Gracias hermano.
En realidad gracias a todos.
Arriba
Responder

Volver a “Preguntas Sencillas. (Empieza aquí <Aprendiendo las bases y Comandos)”