none
用API制作图形窗体 RRS feed

  • 常规讨论

  • bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
    End Type

    Dim bmByte() As Byte

    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 WM_SYSCOMMAND = &H112
    注释:Public Const SC_MOVE = &HF012
    Public Const HTCAPTION = 2
    Public Const WM_NCLBUTTONDOWN = &HA1

    Public Sub SetAutoRgn(hForm As Form, Optional transColor As Byte = vbNull)
    Dim X As Long, Y As Long
    Dim Rgn1 As Long, Rgn2 As Long
    Dim SPos As Long, EPos As Long
    Dim bm As BITMAP
    Dim hbm As Long
    Dim Wid As Long, Hgt As Long
    Dim xoff As Long, yoff As Long
    2009年5月27日 8:29