a.txt

某 房 产 公 司 售 楼 管 理 系 统

是关于修改显示器分辩率的ChangeDisplaySetting, 请指教:)

A1:The first function returns the color of a specific pixel(像素;显示器的最小分辨单元). The SetPixel function changes the targeted pixel to the color sent. There is no PowerBuilder equivalent.
Global External Function: 
FUNCTION ulong GetPixel(ulong hwnd, long xpos, long ypos) LIBRARY "Gdi32.dll" 
FUNCTION ulong SetPixel(ulong hwnd, long xpos, long ypos, ulong pcol) LIBRARY "Gdi32.dll" 

Script: 
long lx, ly 
ulong rtn 
ulong l_handle, l_device 
lx = 100 
ly = 100 
l_handle = handle(w_main) 
l_device = GetDC(l_handle) 
rtn = GetPixel(l_device, 100, 100) 
MessageBox("Position " + string(lx) + "," + string(ly),"Color = " + string(rtn)) 
SetPixel(l_device, lx, ly, 0) // This call will set the pixel at lx, ly to black.