Francisco, mil gracias por tu aporte
Saludos. Juan España Agüera (Málaga-España) www.foxgoing.com 952 282 280 687 819 699 [email protected] _____ De: [email protected] [mailto:[email protected]] En nombre de francisco prieto Enviado el: sábado, 11 de septiembre de 2010 0:15 Para: GUFA List Member Asunto: [GUFA] Y otro ejemplo muy bueno es este: http://fox.wikis.com/wc.dll?Wiki~ApiStructureClass <http://fox.wikis.com/wc.dll?Wiki~ApiStructureClass> Saludos, Pancho Cordoba El 10 de septiembre de 2010 18:58, francisco prieto <[email protected]> escribió: Juan: Tenes un documento muy completo sobre estructuras que lo podes extraer del siguiente enlace: <http://foxpert.com/download/struct.zip> http://foxpert.com/download/struct.zip Saludos, <http://foxpert.com/download/struct.zip> Pancho Cordoba El 10 de septiembre de 2010 17:33, Juan España <[email protected]> escribió: Quién prodría traducirme este código de VB a fox ? 1. ' función api SystemParametersInfo 2. Private Declare Function SystemParametersInfo Lib "user32.dll" Alias _ 3. "SystemParametersInfoA" ( _ 4. ByVal uiAction As Long, _ 5. ByVal uiParam As Long, _ 6. pvParam As Any, _ 7. ByVal fWinIni As Long) As Long 8. 9. ' Mensaje para obtener el área de la pantalla sin contar el taskBar 10. Private Const SPI_GETWORKAREA = 48 11. 12. ' Estrucura Rect que retorna la posición y dimensiones del área de trabajo 13. Private Type RECT 14. Left As Long 15. Top As Long 16. Right As Long 17. Bottom As Long 18. End Type 19. 20. Private Sub Command1_Click() 21. 22. Dim ret As Long 23. Dim T_rect As RECT 24. 25. ret = SystemParametersInfo(SPI_GETWORKAREA, 0, T_rect, 0) 26. 27. ' Muestra los datos 28. MsgBox "Posición x: " & T_rect.Left & vbCrLf & _ 29. "Posición y: " & T_rect.Top & vbCrLf & _ 30. "Ancho :" & T_rect.Right - T_rect.Left & vbCrLf & _ 31. "Altura :" & T_rect.Bottom - T_rect.Top, _ 32. vbInformation, "Taskbar de windows en pixeles " 33. 34. End Sub 35. 36. Private Sub Form_Load() 37. Command1.Caption = " Obtener dimensiones" 38. End Sub Saludos. Juan España Agüera (Málaga-España) www.foxgoing.com 952 282 280 687 819 699 [email protected]
<<image001.gif>>
<<image002.gif>>
<<image003.gif>>
