vb.net教程之列表框、组合框

金沙澳门官网网址:www.js333com

VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > .net教程 >
  • vb.net教程之列表框、组合框

  • 2015-01-17 22:50 来源:www.js333com
列表框、组合框(相关vb.net教程)
一、列表框Listbox:
作用:在一个框中可以添加一些项,然后选某项并执行一定的操作。
例:在列表框中列出电脑上安装的常用软件单击可运行它。
WORD字处理系统计算器红豆红|退出
常用属性:
Items:显示的列表项
Selectindex:列表框中选择项的序号,从0开始
Selectitem:列表框中选择项的内容。
Text:选择项的内容,同上
常用处理方法:
Items.add:向列表框中添加项
Items.insert:从当前位置前插入项,位置在第一个参数中指明。
Items.clear:清空列框中各项
Items.remove:从列表框中删除指定内容的当前项
Items.removeat:从列表框中删除指定序号的当前项
常用事件:
Click—单击列表框中的某一项
Dbclick—双击
Getfocus—选择指定项
Lostfocus—从指定选择项中移出
说明:在vb.net中调用其它软件的方法:Shell函数
5列表框属性方法应用实例.
见,列表框中常用软件的运行
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim y As String
        y = InputBox("输入要添加的项", "输入", "第一个")
        ListBox2.Items.Add(y)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Insert(1, "我是新来的")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox2.Items.Clear()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox2.Items.Remove(ListBox2.Text)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
    End Sub
例6:在列表框中列出电脑上安装的常用软件单击可运行它。见,列表框与常用软件。[实验报告25]
程序为:
Dim x As String
    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Select Case ListBox1.SelectedIndex
            Case 0
                x = Shell("C:\WINDOWS\system32\calc.exe", 1)
            Case 1
                x = Shell("C:\Program Files\TTPlayer\TTPlayer.exe", 1)
            Case 2
                x = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe", 1)
            Case 3
                End
        End Select
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("计算器")
        ListBox1.Items.Add("千千静听")
        ListBox1.Items.Add("EXCEL电子表格")
        ListBox1.Items.Add("退出软件")
    End Sub
练习:在列表框中列出几个图片名,单击之可以加载对应图片.见,图片列表与显示
Combobox:
应用与列表项似,常用属性:
Dropdownstyle:有三个取值
Simple:单组合框,是一个文本框与一个列表框的组合,可以输入内容。
Dropdown:下拉式组合框,文本框与下拉列表框的组合,可以输入内容,
Dropdownlist:下拉列表框,不许输入内容
Text:列表框中输入的内容
应用见,列表框应用,程序为:
Public Class Form1
    Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        ComboBox1.Items.Add(ComboBox1.Text)
    End Sub

End Class
相关教程
Baidu
sogou