กรุณาใส่ข้อความต่อไปนี้ในพื้นที่ประกาศ
ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
ConstSWP_FRAMECHANGED=&H20
ConstSWP_NOMOVE=&H2
ConstSWP_NOSIZE=&H1
ConstSWP_SHOWME=SWP_FRAMECHANGEDหรือSWP_NOMOVEหรือSWP_NOSIZE
ConstHWND_NOTOPMOST=-2
PRivateDeclareFunctionSetWindowLongLib "ผู้ใช้ 32" นามแฝง "SetWindowLongA" (ByValhwndAsLong, ByValnIndexAsLong, ByValdwNewLongAsLong) AsLong
PrivateDeclareFunctionSetWindowPosLib "user32" (ByValhwndAsLong, ByValhWndInsertAfterAsLong, ByValxAsLong, ByValyAsLong, ByValcxAsLong, ByValcyAsLong, ByValwFlagsAsLong) AsLong
ตัวอย่างที่ใช้ใน Form_Load มีดังนี้:
ส่วนตัวSubForm_Load()
SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWME
ฉันรีเฟรช
สิ้นสุดย่อย ->