精华内容
下载资源
问答
  • VB中列表框添加删除项目

    千次阅读 2019-02-11 16:50:17
  • Java数组倒置 简单 Java图片加水印,支持旋转透明度设置 摘要:Java源码,文件操作,图片水印 util实现Java图片水印添加功能,有添加图片水印文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印...
  • 题目来源:大工慕课 链接 原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育...单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图所示: 提示 只能输入数字...

    题目来源:大工慕课 链接
    原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验5-8
    作者:Caleb Sung

    题目要求

    窗体上建立一个简单组合框,在组合框的文本框输入数字字符,按回车键后加入到组合框的列表框内,如图E.8所示;单击“交换”按钮,将列表框中最小值项目和第0个项目交换;最大值与最后项目交换,如图所示:
    这里写图片描述

    提示

    1. 只能输入数字,Combo1_KeyPress事件通过如下代码实现:
    Select Case KeyAscii
    Case 48 to 57,13 '0~9数字和回车键为合法数据
    Case Else '否则为非法数据,去除非法字符
    KeyAscii=0
    End Select
    1. 求最大值和最小值必须声明4个变量:如Min、iMin、Max、iMax分别存放最小值、最小值下标、最大值和最大值下标,并将列表框中低0个项目作为上述4个变量的初值。
    2. 按照求最大值和最小值的方法,在组合框中找最小值和最大值,并获得最小值和最大值下标;注意比较时要用Val函数,否则作为字符串比较。
    3. 将组合框的第0项与最小值交换、最大值与最后项交换。例,最大值与最后项交换的代码如下:
    t=Combo1.List(Combo1.ListCount-1)
    Combo1.List(Combo1.ListCount-1)= Combo1.List(iMax)
    Combo1.List(iMax)= t

    参考解答

    首先画一个高度较高的ComboBox,它的按钮长这个样子:
    这里写图片描述
    随后选中画好的ComboBox,在属性面板里找到Style属性,设置为“1 - Simple Combo”:
    这里写图片描述
    接下来画一个Button,就可以愉快的Coding了 (>^ω^<)

    Private Sub Combo1_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
        Case 48 To 57, 13
        Case Else
        KeyAscii = 0
        End Select
        If KeyAscii = 13 Then
            Combo1.AddItem Combo1.Text
            Combo1.Text = ""
        End If
    End Sub
    
    Private Sub Command1_Click()
        Max = Val(Combo1.List(0))
        iMax = 0
        Min = Val(Combo1.List(0))
        iMin = 0
        For i = 1 To Combo1.ListCount - 1
            If Val(Combo1.List(i)) > Max Then
                Max = Val(Combo1.List(i))
                iMax = i
            ElseIf Val(Combo1.List(i)) < Min Then
                Min = Val(Combo1.List(i))
                iMin = i
            End If
        Next i
        t = Combo1.List(Combo1.ListCount - 1)
        Combo1.List(Combo1.ListCount - 1) = Combo1.List(iMax)
        Combo1.List(iMax) = t
        t = Combo1.List(0)
        Combo1.List(0) = Combo1.List(iMin)
        Combo1.List(iMin) = t
    End Sub
    
    
    展开全文
  • VB中关于LIST列表框的使用

    千次阅读 2019-01-29 14:35:42
    1.点击鼠标的左键,添加项目。点击鼠标的右键删除项目

    在这里插入图片描述
    1.点击鼠标的左键,添加项目。点击鼠标的右键删除项目
    注意:在使用list列表的过程中,添加的列表数量listcount由1起始,起到一个计数的作用。二表单项目list1.list(0)则由0起始.
    例如name名称list1列表框添加了了A,B,C三项,那么A项地址为list1.list(0),B项地址为list1.list(1),C项的地址为list1.list(2).列表的数量计数list1.listcount=3

    展开全文
  • vb列表框ListBox的详细使用方法

    万次阅读 2018-06-12 15:19:45
    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。 列表框的特点是:列表框中项目是通过程序插入到其中的,用户无法向清单输入数据,当选择其中的项
    原文地址为:
    vb列表框ListBox的详细使用方法
    

    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。

      列表框的特点是:列表框中的项目是通过程序插入到其中的,用户无法向清单中输入数据,当选择其中的项目,并在用户单击一个按钮或者执行某个操作时,由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。

      为了学习方便,提供的源码已经作了详细的中文注释,看看源码框中的代码:

    Option Explicit
    '--------------------------------------
    ' 简单的列表框ListBox的例子
    '--------------------------------------
    ' 洪恩在线 求知无限
    '--------------------------------------
    '------名称-------------作用------------
    ' List1、List2 列表框
    ' LefttoRightCmd 移动所选项目到另一个列表框(左到右)
    ' RighttoLeftCmd 移动所选项目到另一个列表框(右到左)
    ' List1MoveCmd 删除列表框List1中所选项目
    ' List2MoveCmd 删除列表框List2中所选项目
    ' List1AddCmd 给列表框List1增加新项目
    ' List2AddCmd 给列表框List2增加新项目
    ' List1ClearCmd 清空列表框List1
    ' List2ClearCmd 清空列表框List2
    '--------------------------------------
    '--------------------------------------
    '————名称————属性设置———
    '
    ' List1列表框 Sorted属性设为“False”
    ' List2列表框 Sorted属性设为“True”
    ' MultiSelect属性设置为2
    ' 即List2控件中的项目总是排序的
    '--------------------------------------

     

    Private Sub Form_Load()

    '装载窗体时,给列表中的元素赋值
    List1.AddItem "China"
    List1.AddItem "America"
    List1.AddItem "Japan"
    List2.AddItem "Soccer"
    List2.AddItem "Tennis"
    List2.AddItem "Basketball"

    End Sub

    Private Sub LefttoRightCmd_Click()
    '将左边列表中所选元素移动到右边列表中
    If List1.ListIndex >= 0 Then

    '在右边列表中增加新元素
    List2.AddItem List1.Text

    '删除左边列表中的所选元素
    List1.RemoveItem List1.ListIndex

    End If

    End Sub

    Private Sub List1AddCmd_Click()

    Dim ListItem As String
    '
    ListItem = InputBox("在列表中输入新项目")
    '向列表中加入新项目
    If Trim(ListItem) <> "" Then
    'Trim()作用是清除ListItem字符串内的空格

    List1.AddItem ListItem
    End If


    End Sub

    Private Sub List1ClearCmd_Click()

    '清空列表
    List1.Clear

    End Sub

    Private Sub List1MoveCmd_Click()

    Dim i As Integer
    '判断列表框是否只有一个项目被选中
    If List1.SelCount = 1 Then

    List1.RemoveItem List1.ListIndex

    ElseIf List1.ListCount > 1 Then

    '删除列表框中的所选中的多个项目
    For i = List1.ListCount - 1 To 0 Step -1
    'ListCount返回列表框中的项目总数
    'ListCount-1是列表框中最后一个项目的索引号

    '判断该项目是否被选中,Selected()返回布尔值
    If List1.Selected(i) Then
    '删除索引号为i的项目
    List1.RemoveItem i

    End If
    Next
    End If


    End Sub


    Private Sub List2AddCmd_Click()

    '定义变量,以接收输入的字符串
    Dim ListItem As String
    ListItem = InputBox("在列表中输入新项目")

    If Trim(ListItem) <> "" Then
    '将字符串增加到列表中
    List2.AddItem ListItem

    End If


    End Sub

    Private Sub List2ClearCmd_Click()

    '清空列表
    List2.Clear

    End Sub

    Private Sub List2MoveCmd_Click()

    Dim i As Integer
    '判断所选 元素是否只有一个
    If List2.SelCount = 1 Then

    List2.RemoveItem List2.ListIndex
    '如果所选 元素大于1,则按下列操作进行
    ElseIf List2.ListCount > 1 Then
    For i = List2.ListCount - 1 To 0 Step -1

    If List2.Selected(i) Then
    List2.RemoveItem i
    End If
    Next i
    End If

    End Sub

    Private Sub RighttoLeftCmd_Click()

    Dim i As Integer
    '判断选中的元素有几个
    If List2.SelCount = 1 Then

    List1.AddItem List2.Text
    List2.RemoveItem List2.ListIndex
    '当选中的元素大于一个时
    ElseIf List2.SelCount > 1 Then

    For i = List2.ListCount - 1 To 0 Step -1
    '如果该元素被选中,则将其从右边移至左边
    If List2.Selected(i) Then

    List1.AddItem List2.List(i)
    List2.RemoveItem i
    End If
    Next i
    End If

    End Sub
    (源程序下载)

    这个例子包含一个窗体,窗体中有两个列表框(List1、List2)和八个按钮,界面如下:

     


    窗体(FormListBox)

    我们首先新建一个标准的EXE工程,添加一个窗体,并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表:

    按钮名称
    名称属性
    按钮名称
    名称属性

    删除所选项目(左)
    List1movecmd
    删除所选项目(右)
    List2movecmd

    增加新项目(左)
    List1addcmd
    增加新项目(右)
    List2addcmd

    清除弄表(左)
    List1clearcmd
    清除列表(右)
    List2clearcmd

    右箭头 lefttorightcmd 左箭头 Righttoleftcmd


    ' List1列表框 Sorted属性设为“False” ' List2列表框 Sorted属性设为“True” ' MultiSelect属性设置为2 ' 即List2控件中的项目总是排序的

      在属性窗口中,将List1列表框 Sorted属性设为“False”;List2列表框 Sorted属性设为“True”,MultiSelect属性设置为2,即List2控件中的项目总是排序的。

      下一步我们为各控件添加相应的程序。

      其中:

      List1.AddItem "China" 是将“China”添加到列表框中。

      List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。

      List1.ListCount 返回的是列表框List1中项目总数。

      List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。

      List1.Selected() 返回的是一个项目的选择状态,返回的是布尔值。

      代码写好之后,我们就可以保存工程,然后按“Ctrl+F5”键,测试检验一下我们的程序了。在这个小程序中,包含了列表框中的一般常用属性和方法。


    转载请注明本文地址: vb列表框ListBox的详细使用方法
    展开全文
  • 主讲老师:郭盛华 ListBox控件使用: 列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。 ...列表框的特点是:列表框...向列表框添加项目,其格式为: ListBox控件名.AddIt...
  • 列表框和组合框 列表框是CListBox类的对象,组合框是CComboBox的对象。 列表框 属性设置 列表框的重要属性有: Selection 该属性决定用户的选择方式,缺省值为 Single 。属性值有: ①:Single ── 单项...
  • 1.同一个窗体内增添了多个单选,系统默认每次只选中一个单选按钮,若是选择一个框架Frame,那么则是这个框架之内,每次选中一个单选按钮。 2.判定option按钮是否被选中,需要判定option(i).value的值,若为...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
    有状态SessionBean,用累加器,以对话状态存储起来,创建EJB对象,并将当前的计数器初始化,调用每一个EJB对象的count()方法,保证Bean正常被激活钝化,EJB对象是用完毕,从内存清除…… Java Socket 聊天...
  • 哈喽大家好,欢迎来到一起学VB课堂,今天我们将要学习列表框ListBox控件组合框ComboBox控件,这两个控件在VB中是非常重要的控件,当然其难度也比前面学习的控件难度有所增加,这两个控件我会单独分两个课程,小...
  • 但是VB的List列表却没有自动检测功能,因此可能出现同样的信息被多次加入到列表中。 那么我们如何让VB的List列表拒绝添加重复信息呢?本资源包含的源程序代码将为您解答。 本资源压缩包内包含实现此功能的...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,并以此为基础,能够进一步学习用C#语言编写window应用程序Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言...
  • VB ListBox 添加不重复的值,当列表中已经存在该值即不再添加。 Private Function AddList(List As ListBox, Str As String) As Boolean Dim I As Long For I = 0 To List.ListCount - 1 If List.List(I) = Str ...
  • excel 中vb组合 Excel 2010修复组合大小调整 (Fix Combo Box Sizing in Excel 2010)With Excel data validation, you can create drop down lists on a worksheet. However, the font size is very small, ...
  • vb列表框ListBox的使用

    千次阅读 2007-10-11 11:09:00
     列表框的特点是:列表框中项目是通过程序插入到其中的,用户无法向清单输入数据,当选择其中的项目,并用户单击一个按钮或者执行某个操作时,由应用程序完成对指定项目的具体操作。下面这个例子充分说明了...
  • 是一个XP风格下拉列表框,自定义了很多下拉框增强功能,比如追加项目删除实际项目、禁止编辑、仅清除列表框中显示的文字、载入内容、列表框显示文字、总项目实际数量、复制xpcombo 中项目VB自带的 combo等。
  • VS2010 下 MFC下拉列表框的用法

    万次阅读 2014-01-21 16:51:26
    最近写一个串口程序,需要将下拉列表框的数据全部显示,怎么设置都不对,最后终于找到了设置方法: 二、如何控制Combo Box的下拉长度 1,首先要知道两点:一、那就是设计界面里,点击一下Combo Box的下拉...
  • MsgBox ("添加记录成功!") End Function '----------------End-----------------------新增一条记录------------------------------ '----------------Start-----------------------修改一条记录------------...
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    10) 第8列之前删除分页符: ExcelID.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度: ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( \ ) 6...
  • 如果您要删除记录的话同样可以双击数据列表框弹出删除工具栏。 7.单击“专业管理”按钮将弹出登陆对话框,只要进行软件注册即可得到用户名与密码。赶快注册吧! 8.输入正确的用户名与密码后将进入其余三张表的编辑...
  • 孙鑫C++教程(全20讲)

    千次阅读 2011-07-14 16:52:10
    (注意以下为FTP下载地址,建议使用迅雷等下载工具下载,全20CD,已添加完整)孙鑫C++教程(全20讲)PPT讲义.rar孙鑫C++教程01.rar孙鑫C++教程02.rar孙鑫C++教程03.rar孙鑫C++教程04.rar孙鑫C++教程05.rar孙鑫C++教程06....
  • Multiselect:操作多选列表框

    千次阅读 2014-06-12 11:03:54
    Multiselect:操作多选列表框 ... 标签: Multiselect  jquery插件  表单操作  ...可以将需要选定的项目从左边添加到右边的列表框中。或者将不需要的项目从右边列表框中删除。 查看演示DEMO下
  • vb中每个控件都有它的作用,而且只要好好研究它,你会发现它的作用真的不小!  listbox  一. 窗体上的Listbox添加  form1.listname.additem 字符串  字符串可以取你需要的长度字符  例如:
  • VB ListView控件各种操作详解

    千次阅读 2019-03-25 10:09:21
    Private Sub Form_Load() 'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件来。 ListView1.ListItems.Clear '清空列表 ListView1.ColumnHeaders.Clear ...
  • 利用VB控件操作目录文件夹

    千次阅读 2013-06-05 11:22:51
     (一) 察看显示目录下的文件文件夹  对于这个实现,其实很简单。... 一类是驱动器列表框(DriveListBox)、目录列表框(DirListBox)文件列表框(FileListBox)三个控件组合而成的自定义对话框;
  • Nothing Dim i, j As Integer '定义listbox1控件删除重复值变量 Dim strFilePath As String = "C:\Users\Dell\Desktop\数据可视化测试\计2020.3.20.xlsx" xlApp = New Excel.Application() xlBooks = xlApp....
  • 窗体上建立一个文本框、一个图片和三个命令 按钮,把三个命令按钮的标题分别设置为“开始”、“检查口令”“结束”。程序运行后,单击第一个命令按钮,清除文本框的信息,并把光标移到文本框文本框...
  • (5)列表框 列表框名. Clear 2.清除方法 例:Text1.Text="学习Visual Basic" (3)标 签 标签名.Caption=内容 (4)图片框 图片框名.Print 内容 (5)列表框 列表框催眠大师名.AddItem 内容[,位置号] 例
  • 管理页面中添加和删除友情连接。这样博友可以自己空间快速定位自己的关心的网站。这样还可以让网友看到自己的一些信息。友情链接及网页访问量统计显示:博客的个人页面还提供了推荐给普通网络用户的相关...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,771
精华内容 3,508
关键字:

vb在列表框中添加和删除项目