API & Desarrollo 30 de Noviembre del 2006 02:00 am
Crear Formularios Redondos con VFP
Para cuando quieran crear formularios un poco diferentes a los típicos cuadrados 
Public oFrm
oFrm = Createobject('Form_Redondo')
oFrm.Show()
Return
Define Class Form_Redondo As Form
Procedure Load
Local hRgn
Declare Integer SetWindowRgn In user32 ;
integer HWnd, Integer hRgn , Integer bRedraw
Declare Long CreateEllipticRgn In "gdi32" Long X1, Long Y1, Long X2, Long Y2
hRgn = CreateEllipticRgn(22,20,This.Width,This.Height)
SetWindowRgn(This.HWnd, hRgn, 1)
EndProc
EndDefine
on 18 Oct 2007 at 6:28 1.Rafael
dijo …
da error, dice “property is hwnd not found”
Estoy intentando hacer un formulario que muestre una tabla desplasandome con loças flechas del teclado y con las de avance de pagina o retroceso y que me permita modificar el registro que me este mostrando en ese momento sin darle a ningun botom creado.
Digo esto poque los botones que me genera el wizard de add, edit, subir bajar, me parece un metodo preistorico, sera que me puedes alludar con esto ???
Gracias mil
18/10/2007
08:30am
Caracas
Venezuela
on 18 Oct 2007 at 15:13 2.Jorge Mota
dijo …
Necesitas tener vfp 7 o superior, si tienes vfp 6 puedes hacer esto al init de tu form (antes que el código del artículo)
Declare long FindWindow in user32″ string lpClassName, StringlpWindowName
lnHwnd = FindWindow(null, thisform.caption)
thisform.addproperty(’hwnd’,m.lnHwnd)
on 20 Ago 2008 at 14:48 3.maria de los angeles
dijo …
Hola estoy super confundida y no logro crear un formulario tengo visual foxpro 9.0 ¿ me pueden ayudar please…!!!?
on 20 Nov 2008 at 10:09 4.Cesar
dijo …
Como puedo ejecutar vfp en windows vista, y alguien tiene el RexFox para proteger mi ejecutable .
Gracias
on 20 Nov 2008 at 10:41 5.Jorge Mota dijo …
qué problema te da vfp en windows vista @Cesar? tienes una pc de 64 bits, o algo para que no te funcione ?