SoulDTLv1.4.0.7

cphong

.
    此次更新的内容如下：
    (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 编辑 ]

任天行

这是什么啊???控件???

cphong

ActiveX DLL 啊。

任天行

哦!:)

liusai

啥来的？？有啥用啊？？？

cphong

.
    此次更新的内容如下：
        (1).新成员类：LibraryClass、ProcessesClass、ThreadsClass、ClipboardClass、ScreenClass、ScreensClass。
        (2).公共类新成员：NewLibrary、NewStructure。
        (3).增强了 FileInfoClass 类和 DirectoryInfoClass 类的 CreationTime、LastAccessTime、LastWriteTime 属性。
        (4).新枚举：ProcessPriorityClass、ThreadPriority、ClipboardDataFormat、ClipboardTextFormat。
        (5).SystemClass 类新成员：Processes、Threads、Clipboard、Screen。
        (6).WindowsClass 类新成员：EnumWindows、EnumChildWindows、GetLocation、GetSize、GetClientLocation、GetClientSize。
        (7).ShutdownClass 类新成员：PriorityLevel 和 TimeoutNoRetry 属性。

        * StructureClass 类和 LibraryClass 类的代码已重写，并得到增强和优化。
        ** System.Screen.AllScreens：由于我没有多个显示器，所以没有对多个显示器的测试，如果哪位有多个显示器的，请测试一下看看有没有问题，谢谢。以下是一段简单的测试代码：

1.     Dim Index As Long
   
2.     For Index = 1 To System.Screen.AllScreens.Count
   
3.         With System.Screen.AllScreens.Item(Index)
   
4.             Debug.Print "Index:", Index
   
5.             Debug.Print "DeviceName:", .DeviceName
   
6.             Debug.Print "IsPrimary:", .Primary
   
7.             Debug.Print "BitsPerPixel:", .BitsPerPixel
   
8.             Debug.Print "Bounds:", .Bounds.ToString
   
9.             Debug.Print "WorkingArea:", .WorkingArea.ToString
   
10.             Debug.Print MakeString("-", 64)
    
11.         End With
    
12.     Next

复制代码

.

cphong

很久没更新了，此次的更新也是很久以前的，因为有朋友要，所以就发上来了，这是最后一个版本了，以后都不再更新了。

对比上一次发的版本(1.5.0.5)，此版本(1.5.0.11)的更新内容如下(2007年)：

[05月15日]
        发布版本：1.5.0.11
        StructureClass 类的 ToByteArray 方法得到增强，并加入了新方法：ToString。
        PowerClass 类新成员：SetDisplayState 方法。
        新枚举：DisplayPowerState。
[05月07日]
        发布版本：1.5.0.10
        新枚举：ProcessBasePriority。
        新成员类：ProcessEntriesClass、ProcessEntryClass。
        ProcessesClass 类新成员：EnumProcesses 方法。
[05月05日]
        发布版本：1.5.0.9
        公共类新成员：PB 属性。
        新成员类：ExecClass。
        新枚举：ExecStatus、FormatOptions、FormatResult、DriveLetter。
        ShellClass 类新成员：Exec、RunDialog、AboutDialog 方法，并修正了 Run 方法的描述。
        ScreenClass 类和 ScreensClass 类加入了 Tag 属性。
        FileSystemClass 类的新成员：PropertiesDialog、FormatDialog 方法。
        增强了 FolderBrowserDialogClass 类和 OperatingSystemClass 类的兼容性。
[04月30日]
        发布版本：1.5.0.8
        公共类的 LoWord、HiWord、MakeWord、MakeLong 方法的名称已分别更改为 LoInt16、HiInt16、MakeInt16、MakeInt32。
        公共类新成员：LoInt32、HiInt32 和 MakeInt64 方法。
[04月29日]
        发布版本：1.5.0.7
        修改了一些成员的描述错误。
        公共类新成员：FillMemory、LoByte、HiByte、MakeWord、LoWord、HiWord、MakeLong 方法。
[04月26日]
        发布版本：1.5.0.6
        FileSystemClass 类新成员：CreateTempFile 方法。
        StructureClass 类新成员：GetTempName 方法。
        TimerClass 类的 Enabled 属性设置为缺省成员。
        修正了 WndProcClass 类的 hWnd 属性总是返回 0 的错误。

-------------------------------------------------------------------------------------------------------

关于此源码：
　　在源码目录中有一个“Type Library”目录，该目录下有一个“urlmon.tlb”文件，此源码需要该类型库的引用，请通过主菜单中的“工程”->“引用”来引用该文件。

已知问题：
　　进程枚举类和下载文件类都存在资源泄漏问题！请自行修正该问题。

[ 本帖最后由 cphong 于 2007-12-20 17:34 编辑 ]

freebuy

看看吧,希望能有改进!

kernel64

关注

dolphins

我是来看看这个是做什么用的