形式码头工人

• 下载class library and sample (source included) - 47.5 KB

介绍 这个类库可以停靠任何形式,在屏幕的不同部分。它的作用就像码头财产的控制行为,只有更多的选择。不仅可以这类库码头上,下,左,右,和填补,它还可以停靠到屏幕的角落(右上方,左下,等等)。它还可以离开屏幕的边缘空间,使用填充属性。 背景 更新我的一个项目的时候,我发现我在写很多代码保持形式在一个特定的地方一遍又一遍。我决定写这类库,让它更容易保持形式在特定的地点,因为我认为它可能非常有用。如果控件可以停靠,为什么形式不能停靠吗? 使用图书馆 提供了类库DLL,可以从你的项目引用。对于那些不知道,您可以添加一个参考,选择“添加引用……”从“项目”菜单,然后选择“浏览”找到该文件。 一旦引用,您将需要创建一个新的实例FormDocker类的: 隐藏,复制Code

Dim Docker As New FormDocker.FormDocker(Me, _
           FormDocker.FormDocker.FormDockMode.Top, New Padding(5))

如果你想利用事件类,也可以声明使用感到失望: 隐藏,复制Code

WithEvents Docker As New FormDocker.FormDocker(Me, _
           FormDocker.FormDocker.FormDockMode.Top, New Padding(5))

第一个参数代表了码头。第二个就是码头,第三个是填充。也有可选参数。 一旦宣布,将自动对接。可以重新应用对接,形成的样子,任何时候,通过使用Refresh (): 隐藏,复制Code

Docker.Refresh()

于形式,使用UnDockForm()。码头形式,使用DockForm()。这些都是相当于码头= False和码头= True。 隐藏,复制Code

'Undock form:
Docker.UnDockForm() 
'Or:
Docker.Dock = False

'Dock form:
Docker.DockForm()
'Or:
Docker.Dock = True

随意探索图书馆的其他部分,一切都是评论。如果你有任何问题关于如何使用这个库,请发布评论。 历史 23/09/08——发布了1.0版本。 本文转载于：http://www.diyabc.com/frontweb/news11015.html