soldat
08 de Septiembre del 2005

oigan les pido su ayuda, no conosco nada de vb y necesito cambiar este codigo a vfp 6.0, hay alguien que me pueda ayudar........


DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = 1024 'Aqu铆 pones la resoluci贸n que deseas (Ten cuidado de no poner resoluciones incompatibles)
DevM.dmPelsHeight = 768
b = ChangeDisplaySettings(DevM, 0)
End Sub
3.- En el Form_Load del formulario, inserta el siguiente c贸digo:
Private Sub Form_Load()
Dim NumColors As Long
Dim PL As Integer
Dim BP As Integer
PL = GetDeviceCaps(hdc, Planes)
BP = GetDeviceCaps(hdc, BitsPixel)
NumColors = 2 ^ CLng(PL * BP)
MsgBox Str$(NumColors) 'Esto te dar谩 los colores del sistema que tienes actualmente
End Sub