윈도우를 투명하게...

윈도우를 투명하게...

//투명..         long HWND, value,rtn         HWND =handle(this)         value = 15         rtn = GetWindowLongA(hWnd, GWL_EXSTYLE)         rtn = WS_EX_LAYERED         rtn = SetWindowLonga(HWND, GWL_EXSTYLE, rtn)         SetLayeredWindowAttributes(HWND, 0, (255 * Value) / 100, LWA_ALPHA) FUNCTION long GetWindowLongA(long hwnd,long nOffset) library "user32.dll" FUNCTION long SetWindowLongA(Long HWND,Long nIndex,Long dwNewLong) library "user32.dll" FUNCTION Long SetLayeredWindowAttributes(Long hWnd,Long crKey,long bAlpha,Long dwFlags) LIBRARY "user32.dll" //instance variable 설정 CONSTANT long GWL_EXSTYLE = (-20) CONSTANT long WS_EX_LAYERED = 524288 CONSTANT long LWA_COLORKEY = 1 CONSTANT long LWA_ALPHA = 2 CONSTANT long ULW_COLORKEY = 1 CONSTANT long ULW_ALPHA = 2 CONSTANT long ULW_OPAQUE = 4 Long Value