SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: seba_m en Sábado 16 de Julio de 2005, 04:21

Título: Como Posicionar Un Formulario
Publicado por: seba_m en Sábado 16 de Julio de 2005, 04:21
Buenas, una vez más soy yo, les comentio que se me ocurrio una manera alternativa al tooltiptext, pero necesito algo , el tema es asi, dibujo en un formulario un control picture box cuadrado, y le agrego una imagen bmp, el tema es qe cuando pongo el puntero del mouse sobre el control necesito que aparezca unn formulario y que al sacarlo del control desaparezca, el tema se me presenta cuando pongo el puntero del mouse sobre el control picturebox, ya que el fomulario apareze en cualquier lugar de la pantala, y lo que quiero lograr es que aparezca la esquina superior izquierda del formulario sobre el medio del pcturte box, espero haberme podido esplicar.

Desde ya muchas gracias
Título: Re: Como Posicionar Un Formulario
Publicado por: Shiquilla en Sábado 16 de Julio de 2005, 12:35
Código: Text
  1.     Form1.Top = Me.Top + Image.Top
  2.     Form1.Left = Me.Left + Image.Left
  3.     Form1.Show
  4.  

Saludos,
Título: Re: Como Posicionar Un Formulario
Publicado por: seba_m en Sábado 16 de Julio de 2005, 15:45
Hola, gracias por tu respespuesta pero por algúna razón no funciono, te adjunto una imagen de lo qu intento lograr,
El tema es así, cree un formulario sin borde ni nadas, y en otro formulario un picturebox, la idea de que al hacer click sobre el picture box, el formulario aparezca de tal forma que la esquina superior izquuierda aparezca en el medio de picture bos, sempre, ty nno en otro sitio.
Desde ya muchas gracias, te dejo mi msn por si las dudas


seba_m@arnet.com.ar

Gracias nuevamente
Título: Re: Como Posicionar Un Formulario
Publicado por: Shiquilla en Martes 19 de Julio de 2005, 08:38
En el Form1:

Código: Text
  1. Option Explicit
  2.  
  3. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  4.     Form2.msDescargarFormulario
  5. End Sub
  6.  
  7. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  8.    Form2.Top = Me.Top + Y + Picture1.Top + 300
  9.    Form2.Left = Me.Left + X + Picture1.Left
  10.    Form2.Show
  11. End Sub
  12.  

En el Form2:
Código: Text
  1. Option Explicit
  2.  
  3. Public Sub msDescargarFormulario()
  4.     On Error Resume Next
  5.     Unload Me
  6.     On Error GoTo 0
  7. End Sub
  8.  

Saludos,