Ejemplos usando el Api de windows para Visual basic

203 - Hacer un picturebox redimensionable

Ejemplo que usa el api de windows para poder hacer que un picturebox sea redimensionable, por ejemplo para usarlo como barra de herramientas flotante

El ejemplo utiliza las funciones GetWindowLong y SetWindowLong para cambiar el estilo del control Picture. Al cambiar el estilo, este se puede redimensionar desde los laterales como una ventana común en windows o formulario. Este ejemplo puede servir para implementar barra de herramientas flotantes, solo haría falta agregarle un titlebar a los controles Picture

También se usa la función del api SetWindowPos, que entre otroas cosas lo que hace, es una ves aplicado el nuevo estilo al control, poder redibujar el mismo, ya que si no ejecutamos dicha api, el control no se visualizará. ( No sirve anular dicha función y usar solo el método refresh )

A la función cambiar_estilo declarada en el código, pasarle como parámetro el control Picturebox al cual aplicarle el nuevo estilo que le permite redimensionarse

Nota: Este código también se puede utilizar con otros controles a parte de un picturebox, por ejemplo un ListBox, un ListView un FlexGrid etc.. ( debe poseer hwnd ) . Si se utiliza con otro control, cambiar en la declaración del parámetro por el tipo de control, ya que si no dará error por que no coinciden los tipos, o declarar la variable como de tipo Object, por ejemplo ( Cambiar_Estilo ( ElObjeto As Object) )

Código fuente en el formulario

Option Explicit '************************************************************************* ' Agregar un control Picturebox '************************************************************************* ' Declaraciones Api ' Api que recupera el estilo de la ventana, en este caso el control picturebox Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long ' Api que establece el nuevo estilo al control picturebox Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long ' Constante para el api GetWindowLong Const GWL_STYLE = (-16) 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 Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const WS_THICKFRAME = &H40000 Const SWP_DRAWFRAME = &H20 Const SWP_NOZORDER = &H4 ' REcibe como parámetro el control picture que se va _ a cambiar el estilo para que pueda ser redimensionable '******************************************************** Private Sub Cambiar_Estilo(Picturebox As Picturebox) Dim ret As Long Dim Estilo As Long Dim Flags As Long Flags = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME ' Opcional Picturebox.BorderStyle = 0 Estilo = GetWindowLong(Picturebox.hwnd, GWL_STYLE) Estilo = Estilo Or WS_THICKFRAME ' Cambia el estilo Estilo = SetWindowLong(Picturebox.hwnd, GWL_STYLE, Estilo) ret = SetWindowPos(Picturebox.hwnd, Picturebox.Parent.hwnd, _ 0, 0, 0, 0, Flags) End Sub Private Sub Form_Load() Call Cambiar_Estilo(Picture1) End Sub

Relacionados

Buscar en Recursos vb