Bueno Hola a todos
tengo una duda en la cual quisiera que me ayuden un poko en esto xD
Bueno tengo entendido q SetWindowPos es para que el Form este siempre visible
ahora mi pregunta es Como aria para que un boton o un label o talves un texbox
este siempre visible
me explico con imagenes =)
(http://www.mundoimg.com/imagenes/otros/191152_mundoimg_a.jpg)
(http://www.mundoimg.com/imagenes/otros/191153_mundoimg_b.jpg)
Espero Que me ayan entendido
Gracias de antemano ;)
Option Explicit
Private Declare Function 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) As Long
Private Sub Form_Load()
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1)
' todas estas propiedades en diseño
If Me.BorderStyle <> 0 Then MsgBox "FORM SIN BORDES EN DISEÑO": End
Command1.Left = 0
Command1.Top = 0
Me.Height = Command1.Height
Me.Width = Command1.Width
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MsgBox "CODIGO"
End If
If Button = 2 Then
End
End If
End Sub
S2
Man probe tu Code
PEro lo que me mando en si fue un msgbox
con un mensaje diciendo
FORM SIN BORDES EN DISEÑO
Hice algo Mal!!
o Si podrias explikarme Como Funciona el code =)
En cuanto pongas la propiedad del formulario BorderStyle en "0" (cero) no te aparece mas el mensaje
En diseño (antes de ejecutar el code)
S2
Xvr
ya entiendo
gracias por el Code =)