Programación General > Visual Basic 6.0 e inferiores

 Re: Necesito Ayuda con el OptionButton

(1/1)

kail:
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

Navegación

[0] Índice de Mensajes