//투명..
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 | |
