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 ¬¬
HOLA!!!
Bien bien simple, usa un picturebox y pone el codigo en picture1_click
GRACIAS POR LEER!!!
No hay una propiedad para los botones para que no tengan ni borde? aunque lo que dice 79137913 es lo que hago siempre
haber si alguien lo sabe xD
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
xd en net creo que se puede no me acuerdo ya..
En algun lado me parecio ver raulll, no llores xD jaj
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
Hola se puede eliminar los bordes utilizando una region
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
y con CreateRoundRectRgn() se podría hacer con bordes redondeados. :P
DoEvents! :P
HOLA!!!
Cita de: LeandroA en 23 Junio 2011, 02:44 AM
Hola se puede eliminar los bordes utilizando una region
;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-)
Muy bueno!!!
Es como lo que haces con los hearders de los listview¿?
GRACIAS POR LEER!!!