自制的VB窗体修饰控件集，内含漂亮按钮、ListView、下拉列表、TAB标签选项卡、树形控件、窗体滑动菜单、分组菜单，可折叠展开的菜单等，相信这些控件对于从事vb6编程的朋友来说，是相当实用的。 　　某内部控件代码释义： 　　Private m_List() As gListStruct ‘保存各组列表框列表项的内容,通过二维数组实现 　　Private m_Cnt() As Long ‘保存各组列表框的数目 　　Private m_Idx() As Long ‘保存各组列表框选中项的索引值 　　Private m_GroupName() As String ‘保存各个分组标题 　　Private m_IsSpread() As Boolean ‘各个分组列表框是否展开 　　Private m_GroupCnt As Long ‘分组的数目 　　Private m_TotalCnt As Long ‘整个个分组列表框的元素数目(包括正常列表项和分组标题两种元素,这个数目直变化) 　　Private m_GroupIdx() As Long ‘保存各个分组标题在整个分组列表框中的位置(该值和m_TotalCnt一样会变化) 　　Private m_PageCount As Long ‘整个分组列表框中一页中的最大元素数目(包括正常列表项和分组标题两种元素) 　　Private m_ItemHeight As Long ‘列表项的高度 　　Private m_HoverIndex As Long ‘鼠标所在位置列表项的索引号,-1表示不在任何一个列表项上 　　Private m_rel As Long ‘移除Item或Group时,记录滚动条的偏移值,在tmrInit里面处理,防止重复画滚动条 　　Private m_DisMode As GroupListMode ‘显示模式(0---无图标 1---小图标 2---大图标)

前面通过Picturebox控制图片缩放平移，操作很顺滑，但是放大的时候发现一个问题，放大超过一定尺寸之后画面会非常的卡，可能重绘的面积比较大。 解决思路：放大的过程中，如果图像有超出窗口的部分，则把这部分图像给拆切掉，只显示需要的部分。

在码农的生活中，很多级码农都有这样的经历，会被一个小小的技术问题拦住，然后进度跟不上了，被老板XXXX一大通了。心情不爽了。 好吧，这个曾经是我遇到拦路虎之一。但事实上不是什么大技术。技术就是一层纸，破了就破了。 这是一个关于如何跨窗体操作控件或过程的一个例子。比如，你想用窗体A的按键来执行窗体B的文本框变色。 Imports System Imports System.Threading Imports System.Text Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load CheckForIllegalCrossThreadCalls = False '不写这行，会出错，不允许线程的数据写到TextBox1.Text 中去。 Form2.Show() End Sub Private Sub form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' If runThread.IsAlive = True Then runThread.Abort() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '用的是委托方式 Me.Invoke(New MethodInvoker(AddressOf THREAD2)) End Sub Private Sub THREAD2() Static j As Integer j = j + 1 TextBox1.Text = " 这是 [线程] 操作" & vbCrLf & _ " Button2被点了: " & j & " 次" & vbCrLf & "要求是from2.textbox.text= textbox1.text 。[问题]但为什么不能成功显示呢？" End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Form2.TextBox1.Text = TextBox1.Text End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Static j As Integer j = j + 1 TextBox1.Text = " 这是 [非线程] 操作" & vbCrLf & _ "Button3 点击了: " & j & " 次" & vbCrLf & _ "要求是from2.textbox.text= textbox1.text， 可以成功显示，这个是对的。" End Sub End Class

很强大的自定义控件,比较实用！（近3兆内容）

内容索引:VB源码,界面编程,窗体控件,动态　　VB动态创建、删除一个窗体控件通，过使用WithEvents关键字声明一个对象变量为新的命令按钮，动态增加的按钮，你可以单击“删除控件”按钮删除它。

VB 动态创建、删除一个窗体控件 过使用WithEvents关键字声明一个对象变量为新的命令按钮，动态增加的按钮，你可以单击“删除控件”按钮删除它

用C#实现了普通类（非窗体类）调用控制已创建窗体和控件，比如改变窗体的背景色，改变控件的背景色，前景色，显示内容，字体、字号、大小等属性。

摘要:VB源码,报表打印,报表控件 VB在报表中显示窗体控件中的数据，报表中显示窗口控件中的内容，有兴趣的参考下，Vb的报表编程例子，很不错的，特别是初学者更应该参考。 运行环境：Windows/VB6

winform(c#)73种好看的窗体控件优化，界面样式，ssk文件。桌面程序美化。

C# 使用TableLayOutPanel控件内放入控件实现窗体控件随窗体变化自动缩放大小，不需要任何代码，直接将所以控件Dock属性填写为Fill即可，但是字体不会自动缩放大小，如果想要字体也缩放，请查看我另外一个关于自动缩放的资源