Pregunta n00b visual basic 6, quitar borde al button

Iniciado por usuario oculto, 22 Junio 2011, 23:30 PM

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

usuario oculto

 He puesto una imagen a un button pero no logro quitar el ... borde.
¿Como se hace?  (sin necesidad de ocx mejor..)




modificación: soy noob en vb, pero lo del picture ya lo sabía ¬¬
Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)

79137913

HOLA!!!

Bien bien simple, usa un picturebox y pone el codigo en picture1_click

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

Edu

No hay una propiedad para los botones para que no tengan ni borde? aunque lo que dice 79137913 es lo que hago siempre

usuario oculto

Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)

raul338

Yo pregunto cuando vieron un boton (el comun, de windows) sin borde? :huh:

Si no es ownerdraw o hecho a mano (ocx/ctl) creo que no se puede :P

usuario oculto

xd en net creo que se puede no me acuerdo ya..
Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)

Edu

En algun lado me parecio ver raulll, no llores xD jaj

extreme69

#7
No uses un botón, usá una imagen con la propiedad BorderStyle 0, le hacés 2 clicks a la imagen y escribis el código q iba dentro del botón.

Private Sub Picture1_Click()

msgbox "funciona"

End Sub

LeandroA

Hola se puede eliminar los bordes utilizando una region

Código (vb) [Seleccionar]

Option Explicit
Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function GetClientRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Sub Form_Load()
    DeleteCmdBorder Command1.hwnd
End Sub


Private Sub DeleteCmdBorder(ByVal hwnd As Long)
    Dim Rec As RECT
    Dim hRgn As Long
    GetClientRect hwnd, Rec
    hRgn = CreateRectRgn(3, 3, Rec.Right - 3, Rec.Bottom - 3)
    SetWindowRgn hwnd, hRgn, True
End Sub

Psyke1

y con CreateRoundRectRgn() se podría hacer con bordes redondeados. :P

DoEvents! :P