Programación General > Visual Basic 6.0 e inferiores

 Como Adaptar Nuestras Aplicaciones

<< < (2/3) > >>

toten:

--- Citar ---hernanvid Escrito el 7/07/2005, 12:41 AM
--- Fin de la cita ---


--- Citar ---yo uso una una libreria que hace esto por mi se llama activeresize
--- Fin de la cita ---

pana decime donde la consigo  :huh: me gustaria hacer una dll que se encarge por si sola de este asunto men B)

hdr:
demen sus correos yo se las paso, pero la liberia biene sin fuentes

solcito:
te paso mi mail asi me la mandas, si es posible  :D

soledema@hotmail.com


Desde ya muchisimas gracias!!! :hola:

toten:
pana mi correo es yosoyfalo@hotmail.com espero por ese codigo tan interesante

Torpon:
:hola:
a continuacion os muestro un sencillo ejemplo de como mantener los controles de nuestro programa según la resolución de windows:

1. Abrir un nuevo proyecto.
2. Colocar en el formulario un TextBox, con la propiedad Multiline = Verdadero, un PictureBox y dentro del el 3 CommandButtons.
3. Añadir el siguiente codigo al fomurlario:

--[Form1.frm]-----------------------------------------------
Option Explicit

Private Sub Form_Resize()
On Error Resume Next
Dim btn_Width As Long

'Tamaño y posicion del cuadro de texto:
With Text1
.Left = 0
.Top = 0
.Height = Me.Height - 750
.Width = Me.Width - 125
End With

'Tamaño del contenedor de los botones:
With Picture1
.Left = 0
.Top = Me.Height - Picture1.Height - 400
.Height = 400
.Width = Me.Width - 115
End With

'Anchura de los botones:
btn_Width = Picture1.Width / 3

'Posicion y tamaño de los botones:
Command1.Height = 400
Command1.Width = btn_Width - 1

Command2.Height = 400
Command2.Left = btn_Width - 1
Command2.Width = btn_Width

Command3.Height = 400
Command3.Left = (btn_Width * 2) - 10
Command3.Width = btn_Width - 50

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub
------------------------------------------------------------

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior