Vb 6.0 - Habilitar Frame con: Visible a False.

[aci]

Hola a todos,

tengo una aplicación en Visual Basic 6.0,

y quería poner en un form un frame para que al hacer click en él (en el frame), recibir las coordenadas de la posición donde he hecho 'click' en este frame.

Pero en el frame necesito poner en False el parámetro Visible porque detrás del frame tengo una imagen que ocupa lo mismo que el frame y voy a utilizar las coordenadas que me devuelve el frame, para gestionar la imagen.

Cuando el parámetro Visible del frame lo he puesto a False, ya no funciona el evento MouseDown (es el evento que utilizo para recoger las coordenadas), ese es mi problema.

Crei que sería suficiente con mantener en el Frame el parámetro Enable con valor True.

¿Conoceis alguna forma parecida para solucionar esto?,

muchas gracias a todos y saludos,
Alberto.

[xaquin]

porque no haces visible el frame y lo haces transparente?No lo he probado pero a bote pronto es lo que se me ocurre que puedes hacer

[Bravenap]

¿Y por qué no recurres directamente a la imagen? Creo que un PictureBox tiene también la propiedad de devolverte la posición del ratón CurrentX y CurrentY.

[Bravenap]

A ver, me corrijo:

He probado a crear un formulario con un PictureBox (Picture1) y dos TextBox (Text1 y Text2). Text1 dará la posición X y Text2 la posición Y. El código es así de simple:

Código:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub

Espero que te sirva.

[aci]

ok, sobre un PictureBox lo podría probar, para recoger las coordenadas,
pero el control que estoy utilizando es uno llamado CamImage.

Lo estoy utilizando desde un ejemplo que me proporciona una cámara de video con IP integrada.

Desde el control que utilizo, le proporciono la ip de la camara donde debe apuntar y me devuelve la imagen.

Así:
dim CamUno as CamImage
Form1.CamUno.URL = "http://80.nn.nn.nn:8000/cgi/mjpg/video.cgi"

Esto funciona, y me aparecen las imagenes.

Pero al hacer click en algún punto de esta ventana de visualizacion que me proporciona CamImage, pues no se ejecuta bien el evento que es el siguiente:
(Y se supone que debería funcionar ya que han creado ese evento)
-----------------------
Private Sub CamUno_OnClick(ByVal X As Long, ByVal Y As Long)
MsgBox "Funciona, valores son: " & X & " y " & Y
End Sub
-----------------------
Como no se ejecuta este MsgBox, pues lo que quería era poner el frame superpuesto encima (en invisible para ver las imágenes que recibo), y controlar cuando hagan click en el frame. Las coordenadas recibidas podrían ser las mismas me imagino.

Perdonad el rollo, espero haberme explicado y gracias a todos.
Saludos, Alberto.

[aci]

para dejarlo Visible bastaría con True a ese parámetro,
pero dónde se indica transparente,

provablemente lo tenga delante de mis narices pero no lo veo.

[aci]

probable, con 2 'b'.

(estoy dormido)

[xaquin]

Tienes razón, pensaba que tenías la opción de ponerlo transparente pero no la hay. ¿Probaste a depurar el programa línea a línea para comprobar si se ejecuta el evento de mouse_click sobre la imágen de la cámara?Si no se ejecuta el evento no se me ocurre nada, pero si se ejecuta el evento a lo mejor el problema es que no se puede mostrar el msgbox porque está la cámar conectada

Es lo único que se me ocurre, siento no ser de más ayuda

[aci]

también sospeché que pudiera estar mal codificado el control que utilizo, y el evento mousedown no funcione bien,

muchas gracias y seguiré buscando una alternativa,

saludos,
Alberto.

[pacous]

Tienes que poner la propiedad ClickEnabled del objeto CamImage a True para poder hacer esto.

de nada.