VB常用控件代码大全 持续更新（适用于初学者）



我学习这些控件的时候 感觉浪费的时间太多了 所以整理了一些 时间不足 周末结束了在整理自己会用的控件

在这里也希望高手们把自己认为有必要的控件使用代码粘出来 谢谢大家

我也刚接触VB 3个月 里面难免有很多错误和复杂的代码 高手不要骂我啊

谢谢

VB.NET code

Public Class 控件代码    '全局变量 - TrackBar1 改变图片大小使用    Dim l As Double    Dim t As Double#Region "时间控件 标签控件 链接标签控件 日期控件 下拉菜单控件 "    '窗体的设置    Private Sub 控件代码_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        '设置时间控件启用        Timer1.Enabled = True        '设置窗体不可改变大小        Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink        '设置窗体启动居中        Me.StartPosition = FormStartPosition.CenterScreen        '设置窗体启动最大/最小化        'Me.WindowState = FormWindowState.Maximized / FormWindowState.Minimized        '启动自动加载listbox1项目        '调用方法 加载listbox选项        SelectItems()        '—ataGridView1屏        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill        '加载树形菜单视图        LoadTreeView()        'ComboBox1 启动加载选项        '启动清空 ComboBox1        ComboBox1.Items.Clear()        Me.ComboBox1.Items.Add("ComboBox1启动加载选项")        Dim strSql As String = "SELECT EmpID FROM VWEmployees"        Dim ds As DataSet = GetDataSet(strSql)        If ds.Tables.Item(0).Rows.Count = 0 Then            MessageBox.Show("资料不存在")        Else            For i As Integer = 0 To ds.Tables.Item(0).Rows.Count - 1                Me.ComboBox1.Items.Add(ds.Tables.Item(0).Rows(i).Item(0))            Next            ComboBox1.SelectedIndex = 0        End If        '记录画面起始值 - 距左侧 顶部的距离        l = PictureBox1.Location.X.ToString()        t = PictureBox1.Location.Y.ToString()    End Sub    '时间控件的设置    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        TextBox1.Text = Now & "  系统时间"    End Sub    '链接标签的用法 - 两种打开方式    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked        '启动的是默认浏览器 - 推荐使用        System.Diagnostics.Process.Start("http://www.baidu.com/")        'Shell("explorer.exe http://www.baidu.com/")    End Sub#End Region

[解决办法]
谢谢楼主分享~
[解决办法]
很好.我给你设计个封面,再多发一些.当书来看.
[解决办法]
- -居然我能看见图。。。
[解决办法]

[解决办法]
然后版主帮忙把上图弄到楼主帖内容里.
[解决办法]
然后版主帮忙把上图弄到楼主帖内容里.
[解决办法]
图有问题？
[解决办法]
楼主很热心，谢谢分享
[解决办法]
谢谢分享！
[解决办法]
不错，辛苦了。
[解决办法]
支持分享
[解决办法]
VB版块人气不足,楼主加油吧.
[解决办法]
不错，顶你了
[解决办法]
这个是好东西啊
VB.NET板块难得的好贴
------解决方案--------------------

支持下。又见到DY设计的界面了，好东西
[解决办法]
能写出来也是个能力，支持下
[解决办法]
支持下
[解决办法]
学习了
[解决办法]
谢谢楼主的分享！
[解决办法]
支持
[解决办法]
支持
[解决办法]
谢谢分享
[解决办法]
不错。支持楼主
[解决办法]
要是能有这个示范的电子文档就好了

[解决办法]
我刚学VB.net，这可是好的资料呀，谢谢楼主！
[解决办法]
学习了,不过怎么没有树形控件的保存方法!
[解决办法]
还有树形控件修改后再更新的方法!!!
[解决办法]
高手们，合作一下，出点书！电子版的也好，做成宣传的。这样的东西很有价值的~
顶你们！VB.NET就得有你们拉起来！
[解决办法]
期待……顶！
[解决办法]
第一个画面中GroupBox1中系统时间下面的控件是什么，ListBox吗？工具条怎么设在外面的啊？
[解决办法]
是和scrollbar绑定的吧
[解决办法]
就是左上角，有两个滚动条, 怎么与text之类的绑定啊？
[解决办法]
谢谢分享
楼主辛苦了
[解决办法]
谢谢 收藏了
[解决办法]
了,我也收藏了
[解决办法]
收藏
[解决办法]
谢谢分享,辛苦
[解决办法]
DataGridView里面的出生日期,在下面修改或者添加时，用combox实现的吗？如何实现的？
[解决办法]
版主不推荐真是不够意思
[解决办法]
留记号，谢谢分享
[解决办法]
直接发源文件不好吗?
[解决办法]
"SELECT EmpID FROM VWEmployees"
数据库文件能否提供下