Mensajes

Hola Mr.Frog gracias por responder, pero como dije, la imagen es de un form externo a mi proyecto!! Gracias!

Si es posible que me diga en que posicion, left, right, top, bottom de la imagen se hizo click, pero la cagada es que el control image con el que estoy tratando no esta en mi proyecto, sino en uno externo al mio.

Hola que tallll, tengo una nueva dudaa aver si alguien tiene alguna idea

Estoy intentando detectar la posicion del click sobre un control image externo...

Ya tengo las dimenciones del image width, height, top, left, right y bottom...

La pregunta es, se puede detectar en que posicion del image se hizo click?

Graciasss!!!

Eso no parece visual basic :S

Modulo:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Timer intervalo 1:

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) = -32767 Then
'aca pones lo que se tiene que activar por ejemplo un timer
TimerXXX.enabled = true
End If

If GetAsyncKeyState(vbKeyF2) = -32767 Then
'aca pones lo que se tiene que desactivar por ejemplo un timer
TimerXXX.enabled = false
End If
End Sub

Nose lo que queres hacer pero supongo que te servira!

jjajajaja ya me parecia raro, porque no quedaba muy muy en el centro ya que el form no es un cuadrado perfecto, pero igual me servia ya que siempre lo posicionaba en las mismas coordenadas.

Entonces ya corregido me quedo:

ret = hwnd del form externo
strings = WidthExt y HeighExt
+1230 y -3500  Son los dos valores que le sume y reste para ubicarlo en la posicion que yo queria no en el centro

Call SetParent(Form2.hWnd, ret)
Form2.Show
Dim TR As RECT
Call GetWindowRect(ret, TR)
WidthExt = TR.Right * 15 - TR.Left * 15
HeightExt = TR.Bottom * 15 - TR.Top * 15
Form2.Move ((WidthExt - Form2.Width) \ 2) + 1230, ((HeightExt - Form2.Height) \ 2) - 3500

Gracias nuevamente!

Hola Dessa gracias por contestar!!!

Me funcionó  lo que me dijiste y lo hice de la siguiente manera:
ret = hwnd del form externo
strings = WidthExt y HeighExt
+2720 y -4950  Son los dos valores que le sume y reste para ubicarlo en la posicion que yo queria no en el centro

Call SetParent(Form2.hWnd, ret)
Form2.Show
Dim TR As RECT
Call GetWindowRect(ret, TR)
WidthExt = TR.Bottom * 15 - TR.Top * 15
HeighExt = TR.Right * 15 - TR.Left * 15
Form2.Move ((WidthExt - Form2.Width) \ 2) + 2720, ((HeightExt - Form2.Height) \ 2) - 4950

Saludos y gracias!!!

Mmmm creo que no es lo que busco, ese api creo que retorna el HWND, yo ya tengo el hwnd de el form principal donde quiero incrustarlo, e incluso se incrusta bien, pero lo que intento hacer es luego de incrustarlo, moverlo a la posicion X, Y de ese form, nose si me explico...
Por ejemplo, una ves incrustado en el form del otro proceso, centrarlo en el medio del mismo...

Gracias!!

Hola de nuevoo
Una pregunta, yo estoy usando Setparent para incrustar mi formulario adentro de otro (este otro se encuentra en otro proceso)

Mi pregunta es, hay alguna forma de, luego de que ya este inscrustado, ubicarlo siempre en la misma posicion? Tengo que sacar las medidas del form del otro proceso para lograr esto?

Gracias!!

Mejor imposible, muchisimas gracias de nuevo!!

Solucionado!

Primero que nada dejame felicitarte, llevo mucho tiempo leyendo posts (como visitante) y siempre ayudas y solucionas los problemas o dudas de nosotros (me incluyo ahora)

Segundo, el codigo me funciono genial en el picture, el unico problema es que el picture actualiza muy rapido y la linea que dibuje en la posicion que puse yo, (hasta con el timer en intervalo 1) como que titila pero no es nada grave...

Y por otro lado queria consultarte si se puede aumentar el grosor de la linea o bien algun estilo de punto mas con mas diametro, gracias BlackZeroX!

Saludos!