VB 版 (精华区)

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: 创建窗口的新模式
发信站: 哈工大紫丁香 (2000年08月28日14:21:24 星期一), 转信

在 VB 中创建窗体是在容易不过的事情了，但是 VB 指给我们提供了非常简单的集中窗
体模式。但是系统提供的窗体模式时非常多的，系统使用风格来指定窗体的模式，并且
窗口的风格还分为“标准风格”和“扩展风格”两组。下面我示例如何创建没有标题栏
但可改变大小的窗口：
把下面的代码加入到一个窗体中
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (
ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (
ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal 
x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByV
al bRepaint As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Sub Form_Load()
Dim lResult As Long
    lResult = GetWindowLong(hwnd, GWL_STYLE)
    If lResult And WS_CAPTION = WS_CAPTION Then
        lResult = lResult Xor WS_CAPTION
    End If
    lResult = SetWindowLong(hwnd, GWL_STYLE, lResult)
    DoEvents
    lResult = MoveWindow(hwnd, 1, 1, 200, 200, 1)
End Sub
    最后的 MoveWindow 函数的调用是必须加入的，你可以试试在程序中屏蔽这条语句
，看看结果。

--
├┝┞┟┠┢┣◣◢
               ∣
             ▆▆▆    
              ▇▇            

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: jxjdadmin.hit.edu.cn]