|
.
此次更新的内容如下:
(1).WindowsClass 类新成员:Animate、SetRegion、CallWndProc。
(2).修正 SocketClass 类的初始化注册问题。
(3).增强 StructureClass 类的 FromFile 方法。
(4).新枚举:AnimateWindowFlags、PowerState。
(5).WndProcRoute 枚举成员的变更。
(6).新成员类:PowerClass。
(7).SystemClass 类新成员:Power。
'----------------------------------------------------------------------------------
'一个示例代码:使用 WndProc 类限制窗口的可调整大小(最小:320X240,最大:640X480)。
'----------------------------------------------------------------------------------
Private Const WM_GETMINMAXINFO = &H24
Private WithEvents 窗口过程 As WndProcClass
Private Sub Form_Load()
Set 窗口过程 = NewWndProc(Me.hWnd)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
窗口过程.Dispose
End Sub
Private Sub 窗口过程_WndProc(ByVal hWnd As IntPtrClass, ByVal Msg As Int32Class, ByVal wParam As IntPtrClass, ByVal lParam As IntPtrClass, Route As WndProcRoute, Result As IntPtrClass)
If Msg = WM_GETMINMAXINFO Then
'创建一个结构 - MinMaxInfo 结构。
Dim MinMaxInfo As New StructureClass
With MinMaxInfo
'为结构添加成员。
.Add "Reserved", 8
.Add "MaxSize", 8
.Add "MaxPosition", 8
.Add "MinTrackSize", 8
.Add "MaxTrackSize", 8
'从内存中复制 MinMaxInfo 结构。
CopyMemory .Pointer, lParam, .Size
.SetValue "MinTrackSize", NewSize(320, 240).Pointer, 8 '设置 MinMaxInfo 结构的 MinTrackSize 成员的值。
.SetValue "MaxTrackSize", NewSize(640, 480).Pointer, 8 '设置 MinMaxInfo 结构的 MaxTrackSize 成员的值。
'将 MinMaxInfo 结构写回内存。
CopyMemory lParam, .Pointer, .Size
End With
Route = DefaultThrough
End If
End Sub
[ 本帖最后由 cphong 于 2007-3-28 20:17 编辑 ] |
评分
-
查看全部评分
|