Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: el_trocha en Marzo 02, 2011, 03:52:21 pm
-
Hola amigos, he creado un resize para los controles de un formulario basandome en el publicado por GNU.
Este codigo funciona muy bien para la mayoria de los controles, pero, no consigo hacer que los controles IMAGE y PICTUREBOX ajusten su tamaño al de la pantalla.
Os paso el codigo :
Public Sub ResizeControls(frm As Form)
Dim i As Integer
Dim Objeto_Control As Control
Dim eje_x As Single
Dim eje_y As Single
If WindowState = vbMinimized Then Exit Sub
eje_x = frm.ScaleWidth / FormWidth
eje_y = frm.ScaleHeight / FormHeight
i = 1
For Each Objeto_Control In frm.Controls
With N_ControlPosicion(i)
If TypeOf Objeto_Control Is Timer Then
ElseIf TypeOf Objeto_Control Is StatusBar Then
ElseIf TypeOf Objeto_Control Is PictureBox Then
[color=red] 'con esto no consigo lo que me propongo[/color]
Objeto_Control.Width = (eje_x * .Width)
Objeto_Control.Height = (eje_y * .Height)
ElseIf TypeOf Objeto_Control Is Image Then
[color=red] 'con esto no consigo lo que me propongo[/color]
Objeto_Control.Width = (eje_x * .Width)
Objeto_Control.Height = (eje_y * .Height)
ElseIf TypeOf Objeto_Control Is Line Then
Objeto_Control.X1 = eje_x * .Left
Objeto_Control.Y1 = eje_y * .Top
Objeto_Control.X2 = Objeto_Control.X1 + eje_x * .Width
Objeto_Control.Y2 = Objeto_Control.Y1 + eje_y * .Height
Else
Objeto_Control.Left = eje_x * .Left
Objeto_Control.Top = eje_y * .Top
Objeto_Control.Width = eje_x * .Width
If Not (TypeOf Objeto_Control Is ComboBox) Then
Objeto_Control.Height = eje_y * .Height
End If
On Error Resume Next
Objeto_Control.Font.Size = eje_y * .FontSize
On Error GoTo 0
End If
End With
i = i + 1
Next Objeto_Control
End Sub
un saludo a todos y gracias por la ayudaaaaaa
-
para el PictubeBox prodrias usar MoveWindow (http://msdn.microsoft.com/en-us/library/ms633534%28v=vs.85%29.aspx)
-
tb me das pocas directrices.....
Bueno mirare esa funcion a ver que tal......
de todos modos gracias.
-
Ya solucione el Resize del control IMAGE.
Pero no doy con la respuesta al control Picture, ya que la imagen no se hace grande o pequeña junto con el control.
Como podria resolver este problema......
Ayudadmeeeeeeeee
Un saludito......
-
Ya lo solucioneeeeeeeeeeeeeeeeee.......................
jejejjejee
Un saludito................