CSDN 论坛

[img=http://album.hi.csdn.net/app_uploads/xunis/20090918/165249078.p.jpg?d=20090918165421500][/img]
[img=http://album.hi.csdn.net/app_uploads/xunis/20090918/165249921.p.jpg?d=20090918165456343][/img]

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

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

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

谢谢

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()

        '設定DataGridView1滿屏
        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