SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: kail en Lunes 4 de Noviembre de 2002, 15:03

Título: Re: Necesito Ayuda con el OptionButton
Publicado por: 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
Título: Re: Necesito Ayuda con el OptionButton
Publicado por: javierbalk en Martes 5 de Noviembre de 2002, 07:56
La propiedad Value del Option button es la que tenés que modificar.

Javier
Título: Re: Necesito Ayuda con el OptionButton
Publicado por: julio jesus franco blanco en Martes 5 de Noviembre de 2002, 19:44
cuando el valor del campo de la base de datos =true
if campo=true  then
     option1.value=1
else
     option1.value=0
end if
Título: Necesito Ayuda con el OptionButton
Publicado por: kail en Miércoles 6 de Noviembre de 2002, 16:59
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