windows.bas

OpenPlayer代码

Attribute VB_Name = "Windows"
Option Explicit
'=======================================
'关于窗口系统操作的一些API声明
'=======================================

'==============================
'设置窗口总在最前面用到
' SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3   '设置
' SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3   '取消
'==============================
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'==============================
'移动窗口
'ReleaseCapture
'SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
'==============================
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const WM_NCRBUTTONDOWN = &HA4
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const SC_MINIMIZE = &HF020&
Public Const SC_PREVWINDOW = &HF050&
Public Const SC_RESTORE = &HF120&


'============================
'用于菜单图片
'============================
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Const MF_BYCOMMAND = &H0&
Public Const MF_BYPOSITION = &H400&
Public Const MF_BITMAP = &H4&





'============================
'用于捕捉MouseEixt 事件
'============================
Public Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long


'以下为创建无边框窗口
Public Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
   
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function CreatePolygonRgn Lib "GDI32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

'==============================
'取得鼠标的当前位置
'及取得鼠标当前位置下窗口名柄
'getcursorpos(mouse)
'==============================
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
   X As Long
   Y As Long
End Type


Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
'==============================
'显示或隐藏鼠标
'ShowCursor Ture '显示Mouse
'ShowCursor False '隐藏Mouse
'==============================
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long



'==============================
'查找父、子窗口的名柄
'==============================
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long


'使ListBox每个Item 有一个提示（tooltiptext）用到的常量
Public Const LB_ITEMFROMPOINT = &H1A9
Public Const LB_FINDSTRING = &H18F

'搜索Combo项
Public Const CB_FINDSTRING = &H14C
Public Const CB_SHOWDROPDOWN = &H14F