Private Sub DS按钮1_ButtonClick(Sender As Object) Handles DS按钮1.ButtonClick Dim T As New Threading.Thread(AddressOf Doit) T.IsBackground = True T.Start() End Sub Private Sub Doit() For I As Integer = 1000 To 0 Step -1 DS进度条1.当前值 = I Dim Cl As Color = C…
在一些场合中,需要使用组合式下拉列表控件,比如带treeivew的combobox,但是代码较多,使用不便.为此,本人制作了一个超级易用的DS开放式下拉列表. 以下演示使用过程. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load DS开放式下拉列表1.内置控件 = New Form2 DS开放式下拉列表2.内置控件 = CheckedListBox1 DS开放式下拉列表3.内置控件 = Tre…
Win7链接列表框是仿Windos7开始菜单项开发的控件,同样支持右侧箭头,由于使用场合的不同,本控件中右键箭头不作为菜单扩展,而是通过事件触发式响应. 先上图 代码很简单,点击对右侧箭头区域点击的响应,此处显示在相应位置显示一个弹出菜单. Private Sub Win7链接列表框1_点击箭头区域(Sender As Win7链接列表框, Itm As Win7链接列表框.链接项, 箭头区域 As Rectangle) Handles Win7链接列表框1.点击箭头区域 ContextMenu…
Win7链接列表框是依照Windows7的开始菜单开发的,同时进行了属性和功能的扩展. 效果图 项属性 控件属性 控件主要事件 点击项(Sender As Win7链接列表框, Itm As 链接项, e As MouseEventArgs) 双击项(Sender As Win7链接列表框, Itm As 链接项, e As MouseEventArgs) 移入项(Sender As Win7链接列表框, Itm As 链接项, e As MouseEventArgs) 移出项(Sender A…
某些场合下,可以通过动态设置DS标签的文本内容来输出不同的显示效果,以下是示例. 示例中的素材 示例资源文本 String1="<linkimg=E1><b><link=1>是否可以将 Windows 副本安装到多台电脑上?</link></b> 不能将 Windows 安装到超过 Microsoft 软件许可条款所允许数量的电脑上.通常需遵循以下规则:一台电脑上只能安装一个 Windows 副本.有关在多台电脑上许可 Window…
在我们开发中怎么才能提高效率,就是要有大量的公共组件(控件)可以直接使用而不用自己再开发一遍,既然是公共控件那也得简单实用才行.下面就介绍一下SNF-MVC当中的控件库. 总体控件库展示: 1.通用用户选择(单选.多选) 2. 通用组织机构选择 3. 通用角色选择 4. 通用弹出选择窗口 a) 弹出列表(单选.多选) b) 弹出树(单选.多选) 5. 通用下拉选择 a) 下列选择(单选.多选) b) 下列选择树(单选.多选) 6. 几个通用表单控件 a) 金额.数字 b) 日期.日期范围 c)…