VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 10299|回复: 15

SoulDTLv1.4.0.7

[复制链接]
 楼主| 发表于 2007-3-28 20:09:47 | 显示全部楼层 |阅读模式
.
    此次更新的内容如下:
    (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 编辑 ]

SoulDTL.zip

359.4 KB, 下载次数: 382

SoulDTL.dll 库文件

评分

参与人数 2威望 +24 收起 理由
bshkl + 4 下了,谢谢
DreamonII + 20 好东西,不是一般的好~

查看全部评分

发表于 2007-3-28 20:56:01 | 显示全部楼层
这是什么啊???控件???
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 23:22:42 | 显示全部楼层
ActiveX DLL 啊。
回复 支持 反对

使用道具 举报

发表于 2007-3-29 12:14:52 | 显示全部楼层
哦!:)
回复 支持 反对

使用道具 举报

发表于 2007-3-29 13:43:23 | 显示全部楼层
啥来的??有啥用啊???
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-21 11:58:46 | 显示全部楼层

SoulDTLv1.5.0.5

.
    此次更新的内容如下:
        (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
复制代码


.

SoulDTLv1.5.0.5.zip

1.16 MB, 下载次数: 306

SoulDTLv1.5.0.5

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-20 17:30:59 | 显示全部楼层

SoulDTLv1.5.0.11

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

对比上一次发的版本(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 编辑 ]

SoulDTL_LastVersion.rar

615.22 KB, 下载次数: 360

回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2007-12-21 18:43:17 | 显示全部楼层
看看吧,希望能有改进!
回复 支持 反对

使用道具 举报

发表于 2008-5-16 18:26:32 | 显示全部楼层
关注
回复 支持 反对

使用道具 举报

发表于 2008-5-16 19:15:51 | 显示全部楼层
我是来看看这个是做什么用的
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-6 16:18

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表