精华内容
下载资源
问答
  • listbox

    2019-09-23 01:08:14
    delphi listbox 使用 listbox删除 删除选中的某个: procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; while i<listbox1.Count do//删除掉前一个后,下一个会上移,...

    delphi listbox 使用

    listbox删除
    
    删除选中的某个:
    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
      i:=0;
      while i<listbox1.Count do//删除掉前一个后,下一个会上移,所以用while
      if listbox1.selected[i] then
         listbox1.Items.delete(i)
       else
       i:=i+1;
    end;
    
    删除listbox中所有的内容:
    procedure TForm1.Button2Click(Sender: TObject);
    var i:integer;
    begin
       for i:=0 to listbox1.Items.Count-1 do
          listbox1.Items.Clear;
    end; 
    
    (1)添加记录:ListBox1.Add(EditBox1.Text);//添加到末尾  
    (2)插入记录:ListBox1.insert(0,EditBox1.Text);//添加到开头  
    (3)选中的记录号:Rc := ListBox1. CurIndex;//Rc:string;  
    (4)计数:Rn:=ListBox1.count;//Rn:integer;
    //  Form1.ListBox1.Items[1]:='123'; 改变 
    //  ShowMessage(listbox1.Items[listbox1.ItemIndex]);  显示当前数据 
    
    
    按钮事件 向上移动
    procedure TFormMain.RzBmpButton5Click(Sender: TObject);
    var
      ActiveItem: Integer;
    begin
      with lst2 do
      begin
        ActiveItem := ItemIndex;
        if (ItemIndex > 0) then
        begin
          Items.Move(ItemIndex, ItemIndex - 1);
          lst2.SetFocus;
          lst2.Selected[ActiveItem - 1] := True;
        end;
      end;
    end;
    
    向下移动
    procedure TFormMain.RzBmpButton6Click(Sender: TObject);
    var
      ActiveItem: Integer;
    begin
      with lst2 do
      begin
        ActiveItem := ItemIndex;
        if (ItemIndex >= 0) and (ItemIndex < Items.Count - 1) then
        begin
          Items.Move(ItemIndex, ItemIndex + 1);
          lst2.SetFocus;
          lst2.Selected[ActiveItem + 1] := True;
        end;
      end;
    end;
    
    拖拽事件
    procedure TFormMain.lst2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      StartingPoint.X := X;
      StartingPoint.Y := Y;
    end;
    
    procedure TFormMain.lst2DragDrop(Sender, Source: TObject; X, Y: Integer);
    var
      DropPosition, StartPosition: Integer;
      DropPoint: TPoint;
    begin
      DropPoint.X := X;
      DropPoint.Y := Y;
      with Source as TRzListBox do
      begin
        StartPosition := ItemAtPos(StartingPoint, True);
        DropPosition := ItemAtPos(DropPoint, True);
        Items.Move(StartPosition, DropPosition);
      end;    
    end;
    
    procedure TFormMain.lst2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    begin
      Accept := Source = lst2;
    end;
    View Code

     

    转载于:https://www.cnblogs.com/blogpro/p/11453402.html

    展开全文
  • ListBox

    2019-06-04 14:00:40
    1、ListBox横向排列: <ListBox> <ListBox.ItemsPanel> <ItemsPanelTemplate> <WrapPanel Orientation=”Horizontal” IsItemsHost=”True”/> </ItemsPanelTem...

    1、ListBox横向排列:

    <ListBox>
        <ListBox.ItemsPanel>
            <ItemsPanelTemplate>
                <WrapPanel Orientation=”Horizontal” IsItemsHost=”True”/>
            </ItemsPanelTemplate>
        </ListBox.ItemsPanel>
    </ListBox>

    2、ListBox横向排列 + 自动换行:

    <ListBox>
        <ListBox.Template>
            <ControlTemplate TargetType="{x:Type ListBox}">
                <ScrollViewer HorizontalScrollBarVisibility="Disabled" VerticalScrollBarVisibility="Auto">
                    <WrapPanel Orientation="Horizontal" IsItemsHost="True" ScrollViewer.CanContentScroll="True"/>
                </ScrollViewer>
            </ControlTemplate>
        </ListBox.Template>
    </ListBox>

     

    转载:https://blog.csdn.net/chenghui2006/article/details/77980549

    展开全文
  • Listbox

    2017-04-25 16:08:00
    Listbox(列表框)组件用于显示一个选择列表。 Listbox只能包含文本项目,并且所有的项目都需要使用相同的字体和颜色。 根据组件的配置,用户可以从列表中选择一个或多个选项。 何时使用Listbox组件? Listbox组件...

    Listbox(列表框)组件用于显示一个选择列表。

    Listbox只能包含文本项目,并且所有的项目都需要使用相同的字体和颜色。

    根据组件的配置,用户可以从列表中选择一个或多个选项。

    何时使用Listbox组件?

    Listbox组件通常被用于显示一组文本选项,Listbox组件跟Checkbutton和Radiobutton组件类似,

    不过,Listbox是以列表的形式来提供选项的(后两个是通过按钮的形式)。

     1 from tkinter import *
     2 
     3 master=Tk()
     4 
     5 lb= Listbox(master)
     6 lb.pack()
     7 
     8 books=['三国演义','水浒传','西游记','红楼梦']
     9 for book in books:
    10     lb.insert(END,book)
    11 
    12 def dele():
    13     lb.delete(ACTIVE)
    14 
    15 b1= Button(master,text='删除',command=dele)
    16 b1.pack()
    17 
    18 mainloop()

     

    转载于:https://www.cnblogs.com/themost/p/6762647.html

    展开全文
  • listbox

    2008-06-28 10:03:00
    ListBox作为vb的一个控件中文名称列表框可以通过vb的代码添加、修改列表框的内容列表框可以在编程中显示各种需要的数值方法:Sub AddItem(Item As String, [Index]) VB.ListBox 的成员 添加一项到 Listbox 控件。...

    ListBox作为vb的一个控件 中文名称列表框 可以通过vb的代码添加、修改列表框的内容 列表框可以在编程中显示各种需要的数值 方法: Sub AddItem(Item As String, [Index])     VB.ListBox 的成员     添加一项到 Listbox 控件。 参数: Item:所要添加的字符串 Index:可选,将字符串插入在第Index项前面 例: Dim i% For i = 1 To 10     List1.AddItem CStr(i) Next List1.AddItem "你好", 5 效果: 1 2 3 4 你好 5 6 7 8 9 10 方法: Sub AddString(CString s) 例: Dim i% For i = 1 To 10     List1.AddString( CStr(i)) Next List1.AddItem "你好", 5 效果: 1 2 3 4 你好 5 6 7 8 9 10 Sub Clear()     VB.ListBox 的成员     清除列表所有项。 参数:无 例:在AddItem的例子后添加 List1.Clear 这样你的列表框中的内容就都清除了 Sub RemoveItem(Index As Integer)     VB.ListBox 的成员     从一个 ListBox 控件中删除一项。 参数: Index:你要删除的那项的索引 例:在AddItem的例子后添加 List1.RemoveItem 3 效果: 1 2 3 5 你好 6 7 8 9 10 属性: Property Columns As Integer     VB.ListBox 的成员     返回/设置一个值,决定列表框为是在一列中(值为0时)垂直滚动,还是多个列中(值大于0时)水平滚动。 Property List(Integer) As String     VB.ListBox 的成员     返回/设置控件的列表部分中包含的项。 Property ListCount As Integer     只读     VB.ListBox 的成员     返回控件的列表部分中的项目数。 Property ListIndex As Integer     VB.ListBox 的成员     返回/设置该控件中当前选定项目的索引值。 Property MultiSelect As Integer     只读     VB.ListBox 的成员     返回/设置一个值,决定用户是否可以在一个控件中做多重选择。 Property NewIndex As Integer     只读     VB.ListBox 的成员     返回添加到控件中的最近一个项目的索引。 Property SelCount As Integer     只读     VB.ListBox 的成员     返回 ListBox 控件选定的项目数。 Property Selected(Integer) As Boolean     VB.ListBox 的成员     返回/设置控件中项目的选定状态。 Property Sorted As Boolean     只读     VB.ListBox 的成员     指出控件元素是否自动按字母顺序排序。 Property Style As Integer     只读     VB.ListBox 的成员     返回/设置一个值,决定是否将复选框显示在 ListBox 控件中。 Property Text As String     VB.ListBox 的成员     返回当前选中项的文本。 Property TopIndex As Integer     VB.ListBox 的成员     返回/设置在控件中显示在最顶端的项目。 ------------------------------------------------------------------- ListBox 和 ComboBox 为用户提供了选择。按照缺省规定,选项以垂直单列方式显示,也可以设置成多列方式。如果项目数量超过 ComboBox 或 ListBox 所能显示的数目,ScrollBar 自动出现在控件上。于是用户可以在列表中上下左右滚动。 ComboBox 兼有 TextBox 和 ListBox 两者的功能。该控件允许用户通过键入文本或选择列表中的项目来进行选择。 与其它含有单值的控件相反,例如 Label 的 Caption 属性或 TextBox 的 text 属性,ListBox 和 ComboBox 含有多个值或值的集合。在运行时用内置的方法增加、删除及保持集合中的值。要将几条项目添加到名为 List1 的 ListBox 中,其代码如下: List1.AddItem "Paris" List1.AddItem "New York" List1.AddItem "San Francisco" ListBox 和 ComboBox 是在有限空间为用户提供大量选项的有效方法。  

    展开全文
  • LISTBOX

    2009-12-03 10:58:00
     ListBox.Items[ListBox.SelectedIndex].Value=ListBox.Items[ListBox.SelectedIndex + index].Value;  // 把被选中项的前一条或下一条的值用临时变量中的取代  ListBox.Items[ListBox.SelectedIndex].Test=lt....
  • WPF listBox 漂亮的listBOX

    2015-10-10 09:16:25
    WPF listBox 漂亮的listBOX
  • smart-listboxListBox自定义元素
  • listbox:b bash的listbox元素
  • ListBox实例

    2019-03-13 19:48:04
    因项目的需要,自己用C#写了一个ListBox实例。
  • listbox java_ListBox控件

    2021-02-12 18:40:22
    终于对Series 60的ListBox控件有了一个比较清晰的了解.说真的这几天看这样的代码真有点赶鸭子上架.我在放ListBox控件的容器类中声明了一个CEikColumnListBox* _listbox;在其ConstructL函数中构造一个...
  • 摘要:VC/C++源码,界面编程,ListBox Windows界面编程之彩色的listbox,显示隔行变色效果,用于区分所显示的内容,使其结构更清淅,对于所显示的颜色值在源码内可根据你的爱好修改。源码内设置选中一行时,这一行加...
  • java listbox_listbox

    2021-03-04 03:33:05
    '''列表listbox(root, stringvar, height)''''''from tkinter import*#改变itemdef changeItems():print(cnames.get())tnames = 'python','TCL','java'cnames.set(tnames)#创建一个窗口root = Tk()#设置像素root....
  • listbox分组

    2014-12-27 23:43:50
    wpf listbox 分组
  • Transparent ListBox

    2020-08-17 09:02:08
    Transparent ListBox
  • C# ListBox

    2010-07-14 09:02:37
    C# ListBox C# ListBox C# ListBox
  • PB listbox

    2012-09-16 13:19:48
    PB listbox

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,827
精华内容 5,130
关键字:

listbox