Cambiar el tamaño de una ventana

[colthop]

Hola amigos:

Tengo un atasco y no se como solucionarlo, tengo una ventana que la creao de la siguiente manera:

do case
case tipo = "C"
Walto = 350
case tipo = "D"
Walto = 350
case tipo = "E"
Walto = 660
case tipo = "F"
Walto = 350
endcase
store 1 to tipsal
DEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO walto,720 TITLE "Modelos Trimestrales/Mensuales del I.V.A." COLOR escri01, fondo01 MENU menuivas() STYLE nOr(WS_DLGFRAME)

pintivas()

ACTIVATE WINDOW oDlgw NORMAL

Pero despues tengo que cambiarla de tamaño segun sea el campo tipo y estoy intentandolo con lo siguiente:

oDlgw:ReSize(0,350,680)
oDlgw:Refresh()
SysRefresh()

Pero no me hace nada, me podeis ayudar, Gracias

Un saludo

Carlos

[Biel EA6DD]

Code: Select all  Expand view  RUN

WndWidth( oDlgw:hWnd, 350)
WndHeight( oDlgw:hWnd,680)


[Antonio Linares]

Carlos,

Puedes hacerlo como Biel te indica ó así:

oDlgw:nWidth = 350
oDlgw:nHeight = 680

[colthop]

Gracias por vuestras aportaciones ya me funciona perfectamente.

Un saludo

carlos