Autor Tema: Agregar un boton dentro del MDI  (Leído 3130 veces)

0 Usuarios y 1 Visitante están viendo este tema.

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Agregar un boton dentro del MDI
« en: Julio 24, 2013, 06:24:50 pm »
Tengo un MDI con un fondo de imagen, hay una menera de poner un boton sobre esa imagen



ejemplo colocar un boton en donde esta el 64



aca mi code
http://www.mediafire.com/?iy41e5t34zu4n04
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

Bazooka

  • Terabyte
  • *****
  • Mensajes: 951
  • Reputación: +31/-20
  • El pibe Bazooka
    • Ver Perfil
    • Desof sistemas
Re:Agregar un boton dentro del MDI
« Respuesta #1 en: Julio 24, 2013, 06:47:16 pm »
SI! que la imagen este cargada en la propiedad picture de un form si barra de titulo y alli colocas el boton!
Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:Agregar un boton dentro del MDI
« Respuesta #2 en: Julio 24, 2013, 07:01:54 pm »
Si pero no me sirve ahi amigo por el picture ocupa un lugar y no quiero que ocupe espacio
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

coco

  • Administrador
  • Terabyte
  • *****
  • Mensajes: 548
  • Reputación: +63/-3
    • Ver Perfil
Re:Agregar un boton dentro del MDI
« Respuesta #3 en: Julio 29, 2013, 01:47:14 am »
    Hace lo siguiente:
    • Agrega un Picture, y agregale un CommandButton (nombre: Command1) adentro
    • Ponele AL PICTURE la propiedad Visible = False
    • Adaptá el siguiente codigo para tus necesidades:

Código: (VB) [Seleccionar]
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Sub MDIForm_Load()
    SetParent Command1.hwnd, Me.hwnd
End Sub

Private Sub MDIForm_Resize()
    Dim tWndPos     As RECT

    GetWindowRect Me.hwnd, tWndPos

    SetWindowPos Command1.hwnd, 0, _
                 (tWndPos.Right - tWndPos.Left - Command1.Width / 15) / 2, _
                 (tWndPos.Bottom - tWndPos.Top - Command1.Height / 15) / 2, _
                 0, 0, 1
End Sub

Saludos
'-     coco
(No me cabe: Java, Python ni Pascal)
SQLite - PIC 16F y 18F - ARM STM32 - ESP32 - Linux Embebido - VB6 - Electronica - Sonido y Ambientacion

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:Agregar un boton dentro del MDI
« Respuesta #4 en: Julio 29, 2013, 11:33:30 am »
Bien ahi coco, un espectaculo

Gracias amigo.
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo