-
本版专家分：2959结帖率 95.52% -
[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
-
本版专家分：2959
-
#Region "树形菜单 和 DataGridView1 操作"
'修改标题
Private Sub chineseTitle()
'Grid使用的標題
Dim columnNameGrid() As String = {"员工编号", "员工名称", "性别", "身份证号码", "出生日期", "年龄", "部门编号", "部门名称", "上级部门"}
'將欄位名稱改成中文
For i As Integer = 1 To columnNameGrid.Length
Me.DataGridView1.Columns(i - 1).HeaderText = columnNameGrid(i - 1)
Next i
End Sub
'點選行資料,塞入輸入區
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Try
'将值塞入输入区
If DataGridView1.CurrentCellAddress.Y >= 0 Then
Me.txtEmpID.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("EmpID").Value.ToString.Trim
Me.txtEmpName.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("EmpName").Value.ToString.Trim
Dim sex As String
'性别处理
sex = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("EmpSex").Value.ToString.Trim
If sex = "1" Then
Me.cmbEmpSex.Text = "男"
Else
Me.cmbEmpSex.Text = "女"
End If
Me.txtEmpPID.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("EmpPID").Value.ToString.Trim
Me.dtpEmpBirthday.Value = (DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("EmpBirthday").Value.ToString.Trim)
Me.txtEmpAge.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("EmpAge").Value.ToString.Trim
Me.cmbDepID.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("DepID").Value.ToString.Trim
Me.cmbDepName.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("DepName").Value.ToString.Trim
Me.cmbPDepID.Text = DataGridView1.Rows(DataGridView1.CurrentCellAddress.Y).Cells("PDepID").Value.ToString.Trim
End If
Catch ex As Exception
'Throw ex
End Try
End Sub
'执行查询
Private Sub GetEmployee()
'校驗密碼和用戶名的SQL語句
Try
Dim strSql As String = "SELECT * FROM VWEmployees WHERE 1=1 " & GetWhere() & " order by EmpID"
Dim ds As DataSet = GetDataSet(strSql)
If ds.Tables.Item(0).Rows.Count = 0 Then
MessageBox.Show("资料不存在")
Else
'显示数据
Me.DataGridView1.DataSource = ds.Tables.Item(0).DefaultView
'中文标题
chineseTitle()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
'where查询条件
Private Function GetWhere() As String
Dim strWhere As String = ""
If Me.txtEmpID.Text.Trim.Length > 0 Then
strWhere = strWhere & " AND EmpID ='" + Me.txtEmpID.Text.Trim + "' "
ElseIf Me.txtEmpName.Text.Trim.Length > 0 Then
strWhere = strWhere & " AND EmpName LIKE '%" + Me.txtEmpName.Text.Trim + "%' "
ElseIf Me.cmbEmpSex.Text.Trim.Length > 0 Then
If cmbEmpSex.Text.Trim = "男" Then
strWhere = strWhere & " AND EmpSex LIKE '%" + "1" + "%' "
Else
strWhere = strWhere & " AND EmpSex LIKE '%" + "0" + "%' "
End If
ElseIf Me.txtEmpPID.Text.Trim.Length > 0 Then
strWhere = strWhere & " AND EmpPID LIKE '%" + Me.txtEmpPID.Text.Trim + "%'"
ElseIf Me.txtEmpAge.Text.Trim.Length > 0 Then
strWhere = strWhere & " AND EmpAge LIKE '%" + Me.txtEmpAge.Text.Trim + "%'"
ElseIf Me.cmbDepID.Text.Trim.Length > 0 Then
strWhere = strWhere & "AND DepID LIKE '%" + Me.cmbDepID.Text.Trim + "%'"
ElseIf Me.cmbDepName.Text.Trim.Length > 0 Then
If cmbDepName.Text.Trim = "事业一部" Then
strWhere = strWhere & "AND DepID LIKE '%" + "D01" + "%'"
ElseIf cmbDepName.Text.Trim = "事业二部" Then
strWhere = strWhere & "AND DepID LIKE '%" + "D02" + "%'"
Else
strWhere = strWhere & "AND DepID LIKE '%" + "D020" + "%'"
End If
ElseIf Me.cmbPDepID.Text.Trim.Length > 0 Then
strWhere = strWhere & "AND PDepID LIKE '%" + Me.cmbPDepID.Text.Trim + "%'"
End If
Return strWhere
End Function
'查询员工信息
Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
GetEmployee()
End Sub
'新增员工信息
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
Dim strSQL As String = ""
If txtEmpID.Text.Trim = "" Or cmbEmpSex.Text.Trim = "" Or txtEmpPID.Text.Trim = "" Or cmbDepID.Text.Trim = "" Then
MessageBox.Show("红色为必输项！")
Else
'生日处理
Dim Birthday As String = txtEmpPID.Text.Trim.ToString.Substring(6, 4) + "-" + txtEmpPID.Text.Trim.ToString.Substring(10, 2) + "-" + txtEmpPID.Text.Trim.ToString.Substring(12, 2)
'性别处理
Dim sex As String
If cmbEmpSex.Text.Trim = "男" Then
sex = "1"
Else
sex = "0"
End If
'年龄处理
Dim age As String
age = CInt(Now().ToString.Substring(0, 4) - txtEmpPID.Text.Trim.ToString.Substring(6, 4) + 1)
Try
strSQL = "INSERT INTO Employees(EmpID,EmpName,EmpSex,EmpPID,EmpBirthday,EmpAge,DepID)" & _
"VALUES('" & txtEmpID.Text.Trim & "','" & txtEmpName.Text.Trim & "','" & sex & "','" & txtEmpPID.Text.Trim & "','" & Birthday & "','" & age & "','" & cmbDepID.Text.Trim & "')"
If ExecuteSQL(strSQL) > 0 Then
btnUserClear_Click(sender, e)
MessageBox.Show("員工信息新增成功！")
End If
Catch ex As Exception
MessageBox.Show("員工信息新增失败！")
End Try
End If
End Sub
'修改员工信息
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
'判斷員工ID是否為空
If Me.txtEmpID.Text = "" Then
MessageBox.Show("請選擇需要修改的資料！")
Else
'生日处理
Dim Birthday As String = txtEmpPID.Text.Trim.ToString.Substring(6, 4) + "-" + txtEmpPID.Text.Trim.ToString.Substring(10, 2) + "-" + txtEmpPID.Text.Trim.ToString.Substring(12, 2)
'性别处理
Dim Sex As String
If cmbEmpSex.Text.Trim = "男" Then
Sex = "1"
Else
Sex = "0"
End If
'年龄处理
Dim Age As Integer
Age = CInt(Now().ToString.Substring(0, 4) - txtEmpPID.Text.Trim.ToString.Substring(6, 4) + 1)
'部门表资料同步处理
Dim strSQL As String = "update Employees" & " SET EmpName='" & txtEmpName.Text.Trim & "',EmpSex='" & Sex & "',EmpPID=" & txtEmpPID.Text.Trim & ",EmpBirthday='" & Birthday & "',EmpAge='" & Age & "',DepID='" & cmbDepID.Text.Trim & "'" & _
" where EmpID = '" & txtEmpID.Text.Trim & "'"
If ExecuteSQL(strSQL) > 0 Then
btnClear_Click(sender, e)
btnSelect_Click(sender, e)
MessageBox.Show("員工信息修改成功！")
End If
End If
End Sub
-
本版专家分：2959
-
'刪除信息
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
'删除树形菜单资料
If Not TreeView1.SelectedNode Is Nothing Then
If TreeView1.SelectedNode.Name <> "" Then
If MessageBox.Show("確定刪除此信息？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
Dim strSQL As String = "delete FROM Employees where DepID ='" & TreeView1.SelectedNode.Name & "'"
If ExecuteSQL(strSQL) > 0 Then
MessageBox.Show("删除成功！")
Else
MessageBox.Show("删除失败！")
End If
End If
End If
Else
'删除输入区资料
If txtEmpID.Text.Trim <> "" Then
If MessageBox.Show("確定刪除此信息？？？？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
Dim strSQL As String = "delete FROM Employees where EmpID ='" + txtEmpID.Text.Trim + "'"
If ExecuteSQL(strSQL) > 0 Then
btnClear_Click(sender, e)
btnSelect_Click(sender, e)
MessageBox.Show("删除成功！")
Else
MessageBox.Show("删除失败！")
End If
End If
End If
End If
End Sub
'清空事件
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
Try
'清除欄位資料
txtEmpID.Text = ""
txtEmpName.Text = ""
cmbEmpSex.ResetText()
txtEmpPID.Text = ""
dtpEmpBirthday.ResetText()
txtEmpAge.Text = ""
cmbDepID.ResetText()
cmbDepName.ResetText()
cmbPDepID.ResetText()
Catch ex As Exception
MessageBox.Show("清空失败！")
End Try
End Sub
'加载主节点
Private Sub LoadTreeView()
Dim strSQL As String = "select * from Departments"
Dim ds As DataSet = GetDataSet(strSQL)
Dim dt As DataTable = ds.Tables(0)
'Dim dtTable As DataTable = dtSet.Tables(0)
Dim i As Integer
'遍历所有的数据
For i = 0 To dt.Rows.Count - 1
'寻找主节点 A
If dt.Rows(i).Item("PDepID") = "A" Then
Dim tNode As New TreeNode
'给主节点赋名字
tNode.Name = dt.Rows(i).Item("DepID")
tNode.Text = dt.Rows(i).Item("DepName")
'将主节点加载到树上
Me.TreeView1.Nodes.Add(tNode)
'调用加载子节点方法 将所有的子节点加载到主节点下
LoadSubTree(dt, tNode)
tNode = Nothing
End If
Next
End Sub
'加载子节点
Private Sub LoadSubTree(ByVal dtTable As DataTable, ByVal tNode As TreeNode)
Dim i As Integer
'遍历所有的数据
For i = 0 To dtTable.Rows.Count - 1
'寻找主节点
If tNode.Name = dtTable.Rows(i).Item("PDepID") Then
Dim sNode As New TreeNode
'给子节点赋名字
sNode.Name = dtTable.Rows(i).Item("DepID")
sNode.Text = dtTable.Rows(i).Item("DepName")
'将子节点加载到主节点上
tNode.Nodes.Add(sNode)
'递归调用 自己调用自己加载全部子节点
LoadSubTree(dtTable, sNode)
sNode = Nothing
End If
Next
End Sub
'树形菜单查询
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
btnClear_Click(sender, e)
Dim tNode As New TreeNode
Dim sNode As New TreeNode
'校驗密碼和用戶名的SQL語句
Try
Dim strSql As String = "SELECT * FROM VWEmployees WHERE DepID like '%" & TreeView1.SelectedNode.Name & "%' order by EmpID"
Dim ds As DataSet = GetDataSet(strSql)
If ds.Tables.Item(0).Rows.Count = 0 Then
MessageBox.Show("资料不存在")
Else
'显示数据
Me.DataGridView1.DataSource = ds.Tables.Item(0).DefaultView
'中文标题
chineseTitle()
End If
Catch ex As Exception
MessageBox.Show("GetEmployee出错！")
Return
End Try
End Sub
#End Region
#Region "TrackBar1 使用方法"
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
'TrackBar1使用 - 记录图片的大小
Dim w As Double = 200
Dim h As Double = 147
PictureBox1.Width = w + TrackBar1.Value * 0.2 * w
PictureBox1.Height = h + TrackBar1.Value * 0.2 * h
PictureBox1.Left = l
PictureBox1.Top = t - TrackBar1.Value * 0.2 * h
End Sub
#End Region
#Region "ListBox1 使用方法"
'单击事件
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox1.Invalidate()
btnNext.Enabled = True
btnPrevious.Enabled = True
'判断是否允许多选
If CheckBox1.Checked = True Then
ListBox1.SelectionMode = SelectionMode.MultiSimple
Else
ListBox1.SelectionMode = SelectionMode.One
End If
End Sub
'上一个
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
If ListBox1.SelectedIndex > 0 Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
End If
End Sub
'下一个
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
End Sub
'第一个
Private Sub btnTop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTop.Click
If ListBox1.Items.Count > 0 Then
ListBox1.SelectedIndex = 0
End If
End Sub
'最后一个
Private Sub btnBotton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBotton.Click
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End Sub
'增加一个项目
Private Sub btnAddOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddOne.Click
Dim strIn As String = InputBox("请输入添加项目", "提示：")
If strIn.Trim <> "" Then
ListBox1.Items.Add(strIn)
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End If
End Sub
'增加一组数据
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
ListBox1.Items.Clear()
SelectItems()
End Sub
'删除一个
Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
Try
Dim s As Integer = ListBox1.SelectedIndex
If ListBox1.Items.Count > 1 Then
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
ListBox1.Items.Remove(ListBox1.SelectedItem)
ListBox1.SelectedIndex = s - 1
Else
ListBox1.Items.Remove(ListBox1.SelectedItem)
ListBox1.SelectedIndex = s
End If
Else
ListBox1.Items.Remove(ListBox1.SelectedItem)
End If
Catch ex As System.Exception
End Try
End Sub
'清空全部
Private Sub btnCle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCle.Click
ListBox1.Items.Clear()
End Sub
#End Region
-
本版专家分：2959
-
断
-
本版专家分：2959
-
#Region "TrackBar1 使用方法"
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
'TrackBar1使用 - 记录图片的大小
Dim w As Double = 200
Dim h As Double = 147
PictureBox1.Width = w + TrackBar1.Value * 0.2 * w
PictureBox1.Height = h + TrackBar1.Value * 0.2 * h
PictureBox1.Left = l
PictureBox1.Top = t - TrackBar1.Value * 0.2 * h
End Sub
#End Region
#Region "ListBox1 使用方法"
'单击事件
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox1.Invalidate()
btnNext.Enabled = True
btnPrevious.Enabled = True
'判断是否允许多选
If CheckBox1.Checked = True Then
ListBox1.SelectionMode = SelectionMode.MultiSimple
Else
ListBox1.SelectionMode = SelectionMode.One
End If
End Sub
'上一个
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
If ListBox1.SelectedIndex > 0 Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
End If
End Sub
'下一个
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
End Sub
'第一个
Private Sub btnTop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTop.Click
If ListBox1.Items.Count > 0 Then
ListBox1.SelectedIndex = 0
End If
End Sub
'最后一个
Private Sub btnBotton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBotton.Click
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End Sub
'增加一个项目
Private Sub btnAddOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddOne.Click
Dim strIn As String = InputBox("请输入添加项目", "提示：")
If strIn.Trim <> "" Then
ListBox1.Items.Add(strIn)
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End If
End Sub
'增加一组数据
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
ListBox1.Items.Clear()
SelectItems()
End Sub
'删除一个
Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
Try
Dim s As Integer = ListBox1.SelectedIndex
If ListBox1.Items.Count > 1 Then
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
ListBox1.Items.Remove(ListBox1.SelectedItem)
ListBox1.SelectedIndex = s - 1
Else
ListBox1.Items.Remove(ListBox1.SelectedItem)
ListBox1.SelectedIndex = s
End If
Else
ListBox1.Items.Remove(ListBox1.SelectedItem)
End If
Catch ex As System.Exception
End Try
End Sub
'清空全部
Private Sub btnCle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCle.Click
ListBox1.Items.Clear()
End Sub
#End Region
#Region "MenuStrip1 使用方法 - 页面顶部的菜单"
'几个功能键按钮
'遍历所有的控件
Dim i As Integer = 0
Private Sub btnLock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLock.Click
i = i + 1
If i Mod 2 = 1 Then
For Each a As Control In Me.Controls
If Not a.Name.ToString.Equals("MenuStrip1") Then
a.Enabled = False
End If
Next
ElseIf i Mod 2 = 0 Then
For Each a As Control In Me.Controls
a.Enabled = True
Next
End If
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
End ' Me.Close()
End Sub
Private Sub btnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHelp.Click
'Me.Close() ' Me.Visible = False
'**窗体.Visible=True
End Sub
#End Region
-
本版专家分：2959
-
#Region "左下角网址链接 - 幸福颜色提示"
Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Do While True
For a As Integer = 0 To 10
For b As Integer = 9 To 10
For c As Integer = 0 To 10
Label1.BackColor = Color.FromArgb(255 / 10 * a, 255 / 10 * b, 255 / 10 * c, 255)
Label1.ForeColor = Color.FromArgb(255 / 10 * c, 255 / 10 * a, 255 / 10 * b, 255)
Threading.Thread.Sleep(100)
Application.DoEvents()
If LinkLabel1.Capture Then
Return
End If
Next
Next
Next
Loop
End Sub
#End Region
#Region "ListView 操作"
'点控件右边小箭头 添加列 和资料栏位对应即可
'设置 fullrowselect = True 显示美观一点
'设置 gridlines = True 整齐一点
'设置view = details 显示出设置的效果
'员工资料查询
Private Sub btnUserSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUserSelect.Click
'调用查询方法
SelectList()
End Sub
'员工资料新增
Private Sub btnUserInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUserInsert.Click
'栏位检查
If CheckInput() = True Then
'性别处理
Dim strUserSex As String = ""
If Me.cmbUserSex.Text.Trim = "男" Then
strUserSex = "1"
Else
strUserSex = "0"
End If
'SQL语句
Dim strSQL As String = " INSERT INTO Users(UserID,UserName,UserTel,UserSex,UserAge,UserWorkAge)" & _
" VALUES('" & Me.txtUserID.Text & "','" & Me.txtUserName.Text & "','" & Me.txtUserTel.Text & "','" & strUserSex & "','" & Me.txtUserAge.Text & "','" & Me.txtUserWorkAge.Text & "')"
If ExecuteSQL(strSQL) = True Then
btnClear_Click(sender, e)
SelectList()
MsgBox("新增成功", MsgBoxStyle.Exclamation)
Else
MsgBox("新增失败，请检查输入是否正确！", MsgBoxStyle.Exclamation)
End If
End If
End Sub
'员工资料修改
Private Sub btnUserUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUserUpdate.Click
'栏位检查
If CheckInput() = True Then
'性别处理
Dim strUserSex As String = ""
If Me.cmbUserSex.Text.Trim = "男" Then
strUserSex = "1"
Else
strUserSex = "0"
End If
Dim strSQL As String = "UPDATE Users SET " & _
"UserName='" & Me.txtUserName.Text & "',UserTel='" & Me.txtUserTel.Text & "'" & "," & _
"UserSex='" & strUserSex & "',UserAge='" & Me.txtUserAge.Text & "'" & "," & _
"UserWorkAge='" & Me.txtUserWorkAge.Text & "' WHERE UserID='" & Me.txtUserID.Text & "'"
If ExecuteSQL(strSQL) = True Then
btnClear_Click(sender, e)
SelectList()
Me.txtUserID.Text = ""
Me.txtUserName.Text = ""
'Me.btnDelete.Enabled = False
'Me.btnUpdate.Enabled = False
MsgBox("修改成功", MsgBoxStyle.Exclamation)
Else
MsgBox("修改失败", MsgBoxStyle.Exclamation)
End If
End If
End Sub
'员工资料删除
Private Sub btnUserDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUserDelete.Click
If MessageBox.Show("確定刪除此信息？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
'SQL语句
Dim strSQL As String = "DELETE FROM Users WHERE UserID='" & Me.txtUserID.Text & "'"
If ExecuteSQL(strSQL) = True Then
btnClear_Click(sender, e)
SelectList()
Me.txtUserID.Text = ""
Me.txtUserName.Text = ""
'Me.btnDelete.Enabled = False
'Me.btnUpdate.Enabled = False
Else
MsgBox("删除失败！", MsgBoxStyle.Exclamation)
End If
End If
End Sub
'清空输入区
Private Sub btnUserClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUserClear.Click
Try
txtUserID.Text = ""
txtUserAge.Text = ""
txtUserName.Text = ""
txtUserTel.Text = ""
txtUserWorkAge.Text = ""
cmbUserSex.SelectedIndex = 0
Catch ex As Exception
MsgBox("清空失败！", MsgBoxStyle.Exclamation)
End Try
End Sub
'查询
Private Sub SelectList()
Dim strSQL As String = ""
'SQL查询
If txtUserID.Text.Trim.Length > 0 Then
strSQL = "SELECT * FROM Users WHERE UserID='" & txtUserID.Text.Trim & "' ORDER BY UserID"
Else
strSQL = "SELECT * FROM Users ORDER BY UserID"
End If
'获得的datatable
Dim ds As DataSet = GetDataSet(strSQL)
Dim i As Integer
'每次查询清空listview菜单
Me.ListView1.Items.Clear()
Try
Dim lstItem As ListViewItem
'for循环加载每行数据
For i = 0 To ds.Tables.Item(0).Rows.Count - 1
lstItem = New ListViewItem
lstItem.Tag = ds.Tables.Item(0).Rows(i).Item("UserID")
lstItem.Text = ds.Tables.Item(0).Rows(i).Item("UserID")
lstItem.SubItems.Add(ds.Tables.Item(0).Rows(i).Item("UserName"))
lstItem.SubItems.Add(ds.Tables.Item(0).Rows(i).Item("UserTel"))
lstItem.SubItems.Add(ds.Tables.Item(0).Rows(i).Item("UserSex"))
lstItem.SubItems.Add(ds.Tables.Item(0).Rows(i).Item("UserAge"))
lstItem.SubItems.Add(ds.Tables.Item(0).Rows(i).Item("UserWorkAge"))
'加载行
Me.ListView1.Items.Add(lstItem)
Next
Catch ex As Exception
MessageBox.Show("查询失败")
End Try
'释放资源
ds = Nothing
End Sub
'检查栏位
Private Function CheckInput() As Boolean
If Me.txtUserID.Text.Trim.Length = 0 Then
MsgBox("请输入员工编号！", MsgBoxStyle.Exclamation)
Me.txtUserID.Focus()
Return False
End If
If Me.txtUserName.Text.Trim.Length = 0 Then
MsgBox("请输入员工名称！", MsgBoxStyle.Exclamation)
Me.txtUserName.Focus()
Return False
End If
If Me.txtUserTel.Text.Trim.Length = 0 Then
MsgBox("请输入员工电话！", MsgBoxStyle.Exclamation)
Me.txtUserTel.Focus()
Return False
End If
If Me.cmbUserSex.Text.Trim.Length = 0 Then
MsgBox("请输入员工性别！", MsgBoxStyle.Exclamation)
Me.cmbUserSex.Focus()
Return False
End If
Return True
End Function
'给输入区塞值
Private Sub listview1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.Click
If Me.ListView1.SelectedItems.Count > 0 Then
Me.txtUserID.Text = Me.ListView1.SelectedItems(0).Tag
Me.txtUserName.Text = Me.ListView1.SelectedItems(0).SubItems(1).Text
Me.txtUserTel.Text = Me.ListView1.SelectedItems(0).SubItems(2).Text
'性别处理
If Me.ListView1.SelectedItems(0).SubItems(3).Text = "1" Then
Me.cmbUserSex.Text = "男"
Else
Me.cmbUserSex.Text = "女"
End If
Me.txtUserAge.Text = Me.ListView1.SelectedItems(0).SubItems(4).Text
Me.txtUserWorkAge.Text = Me.ListView1.SelectedItems(0).SubItems(5).Text
'Me.btnUpdate.Enabled = True
'Me.btnDelete.Enabled = True
End If
End Sub
#End Region
End Class
-
本版专家分：23959 -
谢谢楼主分享~
-
本版专家分：2959
-
这个是模块的东西 和 app.config 的东西 希望可以对刚接触vb的有用 谢谢
Imports System.Data.SqlClient
Imports System.Configuration
Module Module1
Public g_CN As SqlConnection
Private Sub GetConnection()
Dim conn As New SqlConnection
'在解决方案资源管理器 右键项目名称 添加引用 System.Configuration
conn.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString
conn.Open()
g_CN = conn
End Sub
Public Function GetDataSet(ByVal strSQL As String) As DataSet
Dim ds As DataSet = New DataSet '聲明數據表 Dim ds As New DataSet
Try
'初始化適配器
Dim da As SqlDataAdapter
'打開數據庫鏈接
If g_CN Is Nothing Then
GetConnection()
End If
ds.Clear()
'將數據庫和適配器鏈接在一起
da = New SqlDataAdapter(strSQL, g_CN)
'將數據放到數據集中
da.Fill(ds)
Return ds
Catch ex As Exception
MessageBox.Show("GetDataSet出错！")
End Try
Return ds
End Function
Public Function ExecuteSQL(ByVal strSQL As String) As Integer
'數據命令
Dim comm As SqlCommand = New SqlCommand()
Dim iReturn As Integer = 0
'打開數據庫鏈接
If g_CN Is Nothing Then
GetConnection()
End If
comm.Connection = g_CN
comm.CommandType = CommandType.Text
comm.CommandText = strSQL
iReturn = CInt(comm.ExecuteNonQuery.ToString)
Return iReturn
End Function
'公共模块 供listbox1加载项目使用
Sub SelectItems()
'SQL語句
控件代码.btnNext.Enabled = False
控件代码.btnPrevious.Enabled = False
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 = 0 To ds.Tables.Item(0).Rows.Count - 1
控件代码.ListBox1.Items.Add(ds.Tables.Item(0).Rows(i).Item(0))
Next
End If
End Sub
End Module
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<connectionStrings>
<add name="ConnectionString"
connectionString="Data Source=.;Initial Catalog=DBAccess;Persist Security Info=True;User ID=sa;Password=111111"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
<!-- 本节定义 My.Application.Log 的登录配置-->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- 取消注释以下一节可写入应用程序事件日志-->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- 取消注释以下一节并用应用程序名替换 APPLICATION_NAME 可写入应用程序事件日志-->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
</configuration>
-
本版专家分：22942 -
很好.我给你设计个封面,再多发一些.当书来看.
-
本版专家分：248 -
- -居然我能看见图。。。
-
本版专家分：2959
-
啊 能力有限啊 边学习边复习 你给我的线程题还不会呢 看线程书看的头疼 哈哈
-
本版专家分：22942
-
-
本版专家分：22942
-
然后版主帮忙把上图弄到楼主帖内容里.
-
本版专家分：22942
-
然后版主帮忙把上图弄到楼主帖内容里.
-
本版专家分：69159
-
- 红花 2008年2月 .NET技术大版内专家分月排行榜第一
-
-
蓝花
2009年9月 .NET技术大版内专家分月排行榜第三
2005年9月 .NET技术大版内专家分月排行榜第三
-
-
图有问题？
-
本版专家分：773 -
楼主很热心，谢谢分享
-
本版专家分：2959
-
dy啊 别被人笑话啦 什么还主讲啊 我就是把很基础的几个控件的 没有什么技术含量 只是让一些初学者少走弯路而已 哈哈 感谢dy啊 你做的那个很猛 你就是我的目标了 加油学习 吼吼
-
本版专家分：330
-
谢谢分享！
-
本版专家分：2940
-
不错，辛苦了。
-
本版专家分：22942
-
VB版块人气不足,楼主加油吧.
-
本版专家分：156
-
不错，顶你了
-
本版专家分：965
-
这个是好东西啊
VB.NET板块难得的好贴
-
本版专家分：21201
-
支持下。又见到DY设计的界面了，好东西
-
本版专家分：7996
-
-
蓝花
2015年1月 扩充话题大版内专家分月排行榜第三
2014年9月 扩充话题大版内专家分月排行榜第三(补)
-
-
能写出来也是个能力，支持下
-
本版专家分：15 -
支持下
-
本版专家分：15
-
学习了
-
本版专家分：26
-
谢谢楼主的分享！
-
本版专家分：317
-
支持
-
本版专家分：106
-
谢谢分享
-
本版专家分：70
-
不错。支持楼主
-
本版专家分：2959
-
几个部分还没有完成
1 文本框两边的滚动条还没有写
2 中间的两个小控件也没写
3 左下角的WebBrowser也没写
有点琐事 之后补上更新
这次更新的控件如图2
有问题的地方请指出下 谢拉
-
本版专家分：2959
-
#Region "load"
Private Sub 控件代码_续__Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'设置窗体不可改变大小
Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
'设置窗体启动居中
Me.StartPosition = FormStartPosition.CenterScreen
'设置TableLayoutPanel1的边框样式 - 默认空
TableLayoutPanel1.CellBorderStyle = TableLayoutPanelCellBorderStyle.Inset
'设置SplitContainer1的边框样式 - 默认空
SplitContainer1.BorderStyle = BorderStyle.Fixed3D
'设置 阅读区 txtRead 为不可编辑
txtRead.Enabled = False
txtRead.BackColor = Color.White
'SplitContainer1控件分离的起始位置
SplitContainer1.SplitterDistance = 639
'MonthCalendar1.Visible = False
End Sub
#End Region
#Region "SplitContainer控件的使用"
'打开MonthCalendar日期控件
Private Sub btnOpenMonthCalendar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenMonthCalendar.Click
'SplitContainer1控件分离的起始位置
For i As Integer = CInt(SplitContainer1.SplitterDistance.ToString) To 370 Step -10
SplitContainer1.SplitterDistance = i
SplitContainer1.Width -= 10
'运动中的控件强制重绘
SplitContainer1.Refresh()
MonthCalendar1.Refresh()
Next
SplitContainer1.Width += 10
'隐藏图片
PictureBox1.Visible = False
'MonthCalendar1.Visible = True
'此步骤最后效果类似于DateTimePicker
End Sub
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
'注意 ("yyyy年MM月dd日") 里面的MM是大写 如果是小写？ 你试试就知道了 嘿嘿
txtMonth.Text = MonthCalendar1.SelectionStart.ToString("yyyy年MM月dd日") & " " & Now.Hour.ToString("00") & ":" & Now.Minute.ToString("00") & ":" & Now.Second.ToString("00")
SplitContainer1.Width = 868
SplitContainer1.SplitterDistance = 640
PictureBox1.Visible = True
End Sub
#End Region
#Region "ToolStripProgressBar 进度条使用 StatusStrip控件使用"
Dim i As Integer = 0
Private Sub btnVisable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVisable.Click
's 记录页面控件个数
'X 记录进度条的value
Dim s As Integer = 0
Dim X As Integer = 0
For Each a As Control In Me.Controls
s += 1
Next
'进度条设置
ToolStripProgressBar1.Visible = True
ToolStripProgressBar1.Minimum = 0
ToolStripProgressBar1.Maximum = s
i = i + 1
If i Mod 2 = 1 Then
For Each a As Control In Me.Controls
If Not a.Name.ToString.Equals("btnVisable") Then
X += 1
ToolStripProgressBar1.Value = X
Threading.Thread.Sleep(100)
a.Enabled = False
End If
Next
ElseIf i Mod 2 = 0 Then
For Each a As Control In Me.Controls
a.Enabled = True
Next
End If
ToolStripProgressBar1.Value = 0
End Sub
'返回上一页
Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
Me.Visible = False
控件代码.Visible = True
End Sub
#End Region
-
本版专家分：2959
-
#Region "文本文档打开保存 - OpenFileDialog SaveFileDialog控件的使用 设置颜色"
Private Sub btnSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSet.Click
颜色设置.Visible = True
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtRead.Text = ""
txtRead.BackColor = DefaultBackColor
txtRead.ForeColor = Color.Black
End Sub
'修改txtRead 的东西保存
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
System.IO.File.AppendAllText(SaveFileDialog1.FileName, Me.txtRead.Text, System.Text.Encoding.GetEncoding("gb2312")) '如果要覆盖原有文件内容，就把AppendAllText换成WriteAllText
'如果要覆盖原有文件内容，就把AppendAllText换成WriteAllText
End If
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
'通过OpenFileDialog控件打开文件
OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt"
Me.txtRead.Multiline = True
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Me.txtRead.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName, System.Text.Encoding.GetEncoding("gb2312"))
End If
'***通过流打开的另外种打开方式
'Dim strFile As String = ""
' OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt"
''打开文本的方式 判断 是否选择正确格式的文档并且点击确定
' If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
' strFile = OpenFileDialog1.FileName.ToString().Trim()
' End If
''打开文档
'Dim openFile As New IO.FileStream(strFile, IO.FileMode.Open)
''读取文档
'Dim readFile As New IO.StreamReader(openFile)
''从头开始
' readFile.BaseStream.Seek(0, IO.SeekOrigin.Begin)
''控制TextBox 控件是否能够接受和显示多行文本
' Me.txtRead.Multiline = True
''赋给文本框
' Me.txtRead.Text = readFile.ReadToEnd
''关闭链接源
' openFile.Close()
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
'设置 阅读区 txtRead 可编辑
txtRead.Enabled = True
End Sub
#End Region
#Region "TabControl 使用方法"
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
System.Diagnostics.Process.Start("http://email.163.com/#163")
End Sub
#End Region
#Region "WebBrowser控件使用"
#End Region
#Region "DomainUpDown 控件使用"
#End Region
-
本版专家分：133
-
要是能有这个示范的电子文档就好了
-
本版专家分：12
-
我刚学VB.net，这可是好的资料呀，谢谢楼主！
-
本版专家分：379
-
还有树形控件修改后再更新的方法!!!
-
本版专家分：11
-
高手们，合作一下，出点书！电子版的也好，做成宣传的。这样的东西很有价值的~
顶你们！VB.NET就得有你们拉起来！
-
本版专家分：18840
-
期待……顶！
-
本版专家分：2959
-
#Region "DomainUpDown 控件使用"
'DomainUpDown1 控件的使用
Private Sub DomainUpDown1_SelectedItemChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainUpDown1.SelectedItemChanged
' ' 使用 Add 方法将项添加到项列表的末尾。
' DomainUpDown1.Items.Add("noodles")
' ' 使用 Insert 方法将项插入到列表中的指定位置。
' ' Inserts an item at the third position in the list
' DomainUpDown1.Items.Insert(2, "rice")
' ' 使用 RemoveAt 方法按照项的位置移除项。
' ' Removes the first item in the list.
' DomainUpDown1.Items.RemoveAt(0)
' DomainUpDown1.Items.Remove("noodles")
End Sub
#End Region
#Region "MaskedTextBox1 控件使用"
'MaskedTextBox1 控件的使用
Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
' 话气球加黑加粗标题
ToolTip1.ToolTipTitle = "Invalid Input"
' 话气球内容
ToolTip1.Show("We're sorry, but only digits (0-9) are allowed in dates.", MaskedTextBox1, 5000)
End Sub
Private Sub MaskedTextBox2_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox2.MaskInputRejected
' 话气球标题
ToolTip1.ToolTipTitle = "Invalid Input"
' 话气球内容
ToolTip1.Show("输入不正确", MaskedTextBox2, 5000)
End Sub
#End Region
-
本版专家分：2959
-
'MaskedTextBox1 控件的使用 点击控件右上角三角箭头 设置掩码 选择自己需要的格式
-
本版专家分：156
-
第一个画面中GroupBox1中系统时间下面的控件是什么，ListBox吗？工具条怎么设在外面的啊？
-
本版专家分：156
-
是和scrollbar绑定的吧
-
本版专家分：2959
-
哪个？ combobox? 还是 两个滚动条？ 滚动条的话那是没写 闲置的
-
本版专家分：156
-
就是左上角，有两个滚动条, 怎么与text之类的绑定啊？
-
本版专家分：16
-
谢谢分享
楼主辛苦了
- VB经典代码片
- 【前言】 1.<em>vb</em>中经典代码块，循环、载入图像、MDI窗体 2.各类循环体、图片图像Msgbox与InPutBox 3.声明变量的区别 4.变量类型有哪些 5.相似的语句 …. 在这里说一下循环语句的使用 一、Do..Loop循环语句 前提：计算1+2+3+4+···+100 1.当型循环语句Do While …Loop Private sub f...
- 细述那些带有OCR技术的图像处理控件
- 盘点那些“深藏不露”的图像处理控件 前言： 目前，多数图像处理控件基本上都自带OCR引擎，识别数据库，以及多语言字典等高级功能。这几个高级功能中，使用OCR功能将扫描图像转换成可搜索文本文件，是最为有必要的功能。如果没有OCR功能、多语言字典和识别数据库等，图像处理应用程序就只能输出扫描的图像文件，无法捕获打印文本。然而，在众多的图像处理控件中，你又知道到底有些图像处理控件带有OCR识别功
- VB语言
- 重新回头看VB课本，在看过C#的视频之后，老师们经常说计算机的语言有很大的相似性，只要你学会精通一门计算机高级语言其他的高级语言就很容易的学会了，就像经历过的人学VB学一年，,NET学习一个月，C# 学习两个月，C++学习两个月，JAVA学习两个月基本的理论知识就了解了，通过项目练习积累经验你就完美的学会了编程。说说我的VB的学习，通过积累自己对VB有了现在的理解，虽然还有很多的东西不是知道。但是
- vb常用控件
- 收藏了VB的<em>常用控件</em>
- VB常用控件的事件详解
- VB<em>常用控件</em>的事件详解
- VB颜色代码与HTML颜色代码的综合表
- VB颜色代码与HTML颜色代码的综合表，很是费了一番心思整理，希望对大家有帮助
- VB控件教程 VB控件大全 VB控件详解 VB控件用法 所有控件介绍
- VB控件教程 VB控件大全 VB控件详解 VB控件用法 所有控件介绍
- VB 整人程序 带源码
- VB整人程序 挂起所有正在运行的程序
- vb课件之常用控件1
- <em>vb</em>课件之<em>常用控件</em>1
- ｃ／ｃ＋＋编译器ｃ－ｆｒｅｅ适合初学者
- c-free是一款集c语言和c++编译功能于一体的适合广大<em>初学者</em>的编译器，希望大家喜欢
- VB最常用的编程命令大全
- VB编程最常用的命令，对于初学VB的朋友很有帮助。
- VB语言大全
- VB语言大全，可以下载来看看啊！
- VBS整人代码大全
- VBS也可以用来整人？对，可以。不爽时用此代码做成一个小程序，让对方运行
- 个人用于学习的一套C++源码，有几十个小游戏，是新手学习的最佳资料
- 个人用于学习的一套C++源码，有几十个小游戏，是新手学习的最佳资料，亲测可用
- vb代码学习大全
- <em>vb</em>学习<em>代码大全</em>
- vb颜色代码与rgb互转工具
- <em>vb</em>颜色代码与rgb互转工具 很好用实在，欢迎下载，资源共享
- VB的控件的学习
- <em>vb</em><em>常用控件</em>详细使用方法和事例！
- VB常用控件和变量的命名规则
- <em>vb</em><em>常用控件</em>和变量的命名规则
- SVM的一些总结与认识-入门级
- 支持向量机的一些总结，一整套的推导，浅显易懂，适合入门
- 初学第一个项目：wepack+react项目（持续更新）
- wepack+react项目 写在前面 1.里面的内容有些是用es6的语法写的，我是初学es6，更多详细用法可以自行gg/baidu，这里有一篇中文文档：来自阮一峰大神 可以先看看 2.环境部署一波三折，这边简单的说明一下，我遇到的问题我另外整理 环境部署 node.js 安装 webpack 安装 react.js 安装 安装完node.js之后 npm init 生...
- VB程序练习
- VB的几个简单的程序小练习，<em>适用于</em>VB的<em>初学者</em>的使用。
- vb 简易计算器
- 用<em>vb</em>编程实现计算器的基本功能，例如：加减乘除。<em>适用于</em><em>vb</em><em>初学者</em>。
- 200多个VB界面设计实例源码及课件
- 200多个VB界面设计实例源码和课件，<em>适用于</em>VB<em>初学者</em>
- VB程序设计教程PPT共15章
- VB程序设计教程PPT共15章 VB基础教程，<em>适用于</em><em>初学者</em>
- VB基础入门教程.pdf
- VB 基础 入门教程 VB 最简单入门教程 Visual_Basic6.0_基础知识
- vb 入门代码 小程序
- <em>vb</em> 简易 代码 Private Sub Command1_Click() Line1.BorderWidth = 10 End Sub Private Sub Form_Load() End Sub
- HTML常用代码大全
- 1.控制横向和纵向滚动条的是否显示？ 去掉x轴 去掉y轴 不显示滚动条 ----------------------------------------------------------------------------- 2.表格变色代码 ------------------------------------------------------------------
- VB资源代码大全
- VBS脚本常用<em>代码大全</em>_2011_整理.doc
- VB常用控件
- <em>vb</em><em>常用控件</em>，每个控件进行定义说明、用法说明、如何导入程序中等
- ＶＢ实用代码收集
- （一）窗体居中显示 Private Sub Form_Load() Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2 End Sub __
- 程序员想打基础看哪几本书合适?
- 对成长这事，我一直觉得有俩思路可以解决问题。 一个是偏速成的，一个打基础的。 打基础自然是厚积薄发，这样的话我一般推荐下面四本书： 计算机体系结构 这一类别下最具代表性的书籍是《深入理解计算机系统》，作者是Randal E.Bryant和David O’Hallaron。读这本书的目的是了解计算机到底是怎么个东西，软件到底运行在什么样的基础之上。 算法和数据结构 这
- vb黑客程序源码大全
- 44个实用VB小技巧的打包.rar Ping,扫描,Whois IP.rar QQ密码截取，内含说明书.rar <em>vb</em>的远程监控程序(全源码提供).rar <em>vb</em>控件ping.rar Windows安全黑客全部是注册表的修改.rar Windows超级黑客得到windows运行程序的信息,很经典的.rar Winsock API高级编程调用大全.rar WinSpy一个VB编程辅助工具（主要是针对窗口函数）.rar 保护电脑防止电脑被bo侵入.rar 比较无聊的程序.rar 不用介绍了吧.是有名的netbus源程序.rar 查看access97数据库的密码.rar 程序分,shell,caption,windows管理三个部分.rar 程序可以帮助你隐藏任何运行的窗.rar 程序里有一个张图片.把图片移动到星号密码上,密码的原形就看到啦.rar 对指定文件进行扫瞄,确定是否含有木马.rar 非常酷的程序,鼠标移动到号上以后密码就变成原形了.rar 非常优秀而且稳定的防火墙代码.rar 风暴木马非常好的木马程序.rar 服务器客户端结构的桌面捕捉传送程序.rar 更换screensaver的密码.rar 黑客字典的制作,和流光一样完整.字典可以自定义.rar 很完整的一个木马程序,也可以聊天...功能很全.rar 记录键盘,并且到一定时候发送到指定的Email里.rar 简单的说是个远程控制程序.rar 可以控制正在运行窗口,改变窗口里面的内容...不可思议....rar 垃圾制造者在任何文件上添加字节.rar 另一个可以在你的计算机上开FTP服务器的木马源代码.rar 木马的扫描.rar 骗取Novell网密码的源代码.rar 拖动程序内的图标得到窗口的handle,class,text,parent,颜色,windo.rar 完整的特洛伊木马 PRIORITY 源代码.rar 完整的特洛伊木马 Serve_Me 源代码.rar 完整的子网扫描程序本机和远程机器的端口扫瞄.rar 网路IP小工具,包括扫瞄,Ping,多线Ping..rar 想编自己的天网防火墙或BlackICE DEFEND吗.rar 象sub7的打字效果.rar 一个本机和远程扫描木马端口的程序.rar 一个比较完整的端口扫瞄程序.rar 一个查看主板BIOS密码的程序.rar 一个非常完整的扫描工具.rar 一个很慢的端口扫描，指定IP和端口范围进行扫描.rar 一个基于UDP协议的网络聊天程序.rar 一个极好的远程控制程序.rar 一个简单的木马程式.rar 一个可以自己添加端口的木马扫描程序.rar 一个模仿Netbus的程序,还不错.rar 一个特洛伊木马防御系统.rar 一个综合的黑客程序.rar 以修改菜单拉出的速度,改变windows注册信.rar 用winsock简单的木马程序。.rar 优秀的木马程序,自己看吧.rar 又一个捣乱的程序,模范病毒删除电脑上所有文件.rar 运行程序杀手关闭正在运行的程序.自己可以选择.rar 运行以后把电脑里拨号密码都偷出来.rar 找到运行程序的路径.！然后关闭选择的程序！.rar 只要按一下按钮直接把所有运行窗口的密码全部变成真正的符号.rar 1500个WINDOWSAPI类全集.zip 防火墙代码.zip 黑客帝国屏保源码.zip 经典加解密源码.zip 完整的下载程序（COOL！）.zip
- VB常用控件源码集（VB常用控件）
- VB<em>常用控件</em>，包括COMMONDIALOG LISTVIEW DATAGRID SSTAB等内容。
- VB控件命名前缀
- 推荐使用的控件前缀控件类型前缀例子3D PanelpnlpnlGroupADO DataadoadoBiblioAnimated buttonanianiMailBoxCheck boxchkchkReadOnlyCombo box, drop-down list boxcbocboEnglishCommand buttoncmdcmdExitCommon dialogdlgdlgFileOpen...
- VB.net 绘图代码
- Imports SystemImports System.IOPublic Class Form2 Private mBmpBuffer As Bitmap Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- VB和C语言代码
- 功能是根据三边求三角形面积，要求能反复输入。先写出C语言的： #include #include int main() { double area,a,b,c,s; char ch; ch='y'; while(ch=='y'||ch=='Y') { s=0; printf("请输入a,b
- VB 编程所有颜色的代码
- 编程界面所有颜色的源码参考，<em>适用于</em>所有编程语言。
- 一个用VB编写的OPENGL程序
- 一个用VB编写的OPENGL程序，<em>适用于</em><em>初学者</em>。
- VB窗口属性中文对照表
- 《VB窗口属性中文对照表》<em>适用于</em><em>初学者</em>.
- vb开发实例
- <em>vb</em>开发实例<em>适用于</em><em>初学者</em>学习
- VB基础入门教程
- VB基础入门教程 实例 <em>适用于</em><em>初学者</em>
- VB资料推荐
- VB资料 <em>代码大全</em> 推荐 开发VB必不可少的资料
- 初学者之路100个视频教程
- 电脑基础视频教程：http://www.cxzzl.com.cn/cxzzlschool/index.asp?boardid=34 免费 五笔输入法视频教程：http://www.cxzzl.com.cn/cxzzlschool/index.asp?boardid=93 免费 Word视频教程：http://www.cxzzl.com.cn/cxzzlschool/index.asp?boardid=3 免费 Excel视频教程：http://www.cxzzl.com.cn/cxzzlschool
- vb实例及代码大全，适合初学者的资料
- 包含各种常用的实例，代码简单易学，是<em>初学者</em>学习<em>vb</em>的好助手
- VB程序设计教程实验
- VB程序设计教程当中<em>常用控件</em>与界面设计的实验
- VB源代码
- 1 课前体验 Private Sub Form_Click() For i = 1 To 10 For j = 1 To i Print "* "; Next j Print Next i End Sub 【例 3-1 】 Private Sub Form_Click() c1$ = Chr$(13) + Chr$(10) msg1$
- 110个VB小程序源码实例
- 大量VB小程序源码，快速上手<em>vb</em>，大家一起学习，共同进步
- jquery/js实现一个网页同时调用多个倒计时(最新的)
- jquery/js实现一个网页同时调用多个倒计时(最新的) 最近需要网页添加多个倒计时. 查阅网络,基本上都是千遍一律的不好用. 自己按需写了个.希望对大家有用. 有用请赞一个哦! //js //js2 var plugJs={ stamp:0, tid:1, stampnow:Date.parse(new Date())/1000,//统一开始时间戳 ...
- 网络电子商务系统源码 .rar下载
- 网络电子商务系统源码 .rar网络电子商务系统源码 .rar网络电子商务系统源码 .rar网络电子商务系统源码 .rar网络电子商务系统源码 .rar网络电子商务系统源码 .rar网络电子商务系统源码 .rar 相关下载链接：[url=//download.csdn.net/download/chajun0918/2289104?utm_source=bbsseo]//download.csdn.net/download/chajun0918/2289104?utm_source=bbsseo[/url]
- 软件工程——方法与实践 课后习题答案下载
- 软件工程——方法与实践 许家珆 主编 电子工业出版社 相关下载链接：[url=//download.csdn.net/download/jccg20033088999/2403541?utm_source=bbsseo]//download.csdn.net/download/jccg20033088999/2403541?utm_source=bbsseo[/url]
- 红旗linux系统维护与排障下载
- 红旗linux系统维护与排障红旗linux系统维护与排障 相关下载链接：[url=//download.csdn.net/download/xiaod74/2486832?utm_source=bbsseo]//download.csdn.net/download/xiaod74/2486832?utm_source=bbsseo[/url]
我们是很有底线的