Autoit.ES

En español. Descarga programas libres y Open-Source. Añade tu programa a la librería de Scripts en Autoit.es
http://autoit.es/

Activar un control al seleccionar otro control

http://autoit.es/viewtopic.php?t=4295

Página 1 de 1

Activar un control al seleccionar otro control

Publicado: 19 Dic 2014, 06:40
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

Re: Activar un control al seleccionar otro control

Publicado: 19 Dic 2014, 15:26
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

Re: Activar un control al seleccionar otro control

Publicado: 19 Dic 2014, 16:36
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

Re: Activar un control al seleccionar otro control

Publicado: 20 Dic 2014, 05:33
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.

Re: Activar un control al seleccionar otro control

Publicado: 20 Dic 2014, 13:41
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

Re: Activar un control al seleccionar otro control

Publicado: 21 Dic 2014, 00:13
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.
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España