Windows窗体控件代码示例'全局变量- 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.A