Autor Tema: Re: Necesito Ayuda con el OptionButton (Leído 1492 veces)

kail · « **en:** Lunes 4 de Noviembre de 2002, 15:03 »

Hola

Espero no ofender a nadie con mi petición, ya que para ustedes debe ser muy tonta. Modifique la propiedad style de un optionbutton a graphical, y lo que necesito hacer es que al leer la informacion de una base de datos dependiendo si el valor de un campo "X" sea true o False el optionbutton aparezca presionado o no, o sea, quiero dar el efecto que produce el click sobre el optionbutton, pero a traves de código.

Espero que puedan ayudarme.
Gracias de Antemano

Macarena

javierbalk

La propiedad Value del Option button es la que tenés que modificar.

Javier

julio jesus franco blanco

cuando el valor del campo de la base de datos =true
if campo=true then
option1.value=1
else
option1.value=0
end if

kail

Hola

Quiero dar las gracias a las personas que me trataron de ayudar. El problema que tenía, era que apareciese el optionbutton presionado si el valor del campo era falso, situacion que no ocurria al leer la propiedad Value. La solución iba por el lado de simular el click del mouse sobre el optionbutton cuando el campo fuese falso. La respuesta la encontré en un API:

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

luego al leer el campo y comprobar que es falso:

Call SendMessage(Option1.hwnd, LBUTTONDOWN, 0, ByVal 0&)

Y con esto solucione el problema que tenía, gracias a todos