精华内容
参与话题
问答
  • 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

    2017-11-19 09:28:56
    ListBox–List View 1.列表风格 LBS_COMBOBOX:组合框中列表LBS_EXTENDEDSEL:多选。Shift。 LBS_MULTIPLESEL:多选。按下选择,再按取消。LBS_HASSTRINGS:默认。列表条目有字符串组成。 LB_GETTEXT获取字符串...

    ListBox–List View
    1.列表风格
    LBS_COMBOBOX:组合框中列表

    LBS_EXTENDEDSEL:多选。Shift。
    LBS_MULTIPLESEL:多选。按下选择,再按取消。

    LBS_HASSTRINGS:默认。列表条目有字符串组成。
    LB_GETTEXT获取字符串。
    自绘列表+无此风格=LB_GETTEXT返回条目关联数据。

    LBS_MULTICOLUMN:多列
    LB_SETCOLUMNWIDTH 设置列宽
    自绘列表,再处理 WM_MEASUREITEM时,可设置列宽。

    LBS_NODATA:
    无数据列表。
    须同时具备:LBS_OWNERDRAWFIXED
    且无LBS_SORT or LBS_HASSTRINGS。
    条目没有数据。

    LBS_NOREDRAW:
    列表改变时,界面不更新。
    WM_SETREDRAW,切换。

    LBS_NOSEL:
    列表项不可选。

    LBS_NOTIFY:
    用户单击(LBN_SELCHANGE),双击(LBN_DBLCLK),取消选择(LBN_SELCANCEL)
    给父窗口发通知。

    LBS_OWNERDRAWFIXED:
    列表拥有者负责绘制列表内容+列表条目高度相同。
    列表创建时(WM_MEASUREITEM)
    列表可视部分改变时(WM_DRAWITEM)。
    此时须有:
    LBS_NOINTEGRALHEIGHT
    忽略:
    LBS_MULTICOLUMN

    LBS_SORT:
    有序列表

    LBS_USETABSTOPS:
    Tab支持。
    LB_SETTABSTOPS。
    对话框模板单位转换为像素单位:MapDialogRect。

    LBS_WANTKEYBOARDINPUT:
    列表有输入焦点+用户按下一个键=列表拥有者接收WM_VKEYTOITEM。

    2.通知码
    形式:
    WM_COMMAND
    wParam:LOWORD(wParam)-ID,HIWORD(wParam)-通知码。lParam:句柄。

    LBN_DBLCLK:双击。
    LBN_ERRSPACE:列表不能分配足够内存来满足一个请求。
    LBN_KILLFOCUS:列表框失去键盘焦点。
    LBN_SELCANCEL:取消选择某项
    LBN_SELCHANGE:选择项将改变。
    LBN_SETFOCUS:列表接收键盘焦点。

    列表放给父窗口的其它消息:
    WM_COMPAREITEM:
    WM_VKEYTOITEM:
    WM_VCHARTOITEM:
    WM_DELETEITEM:
    WM_CTLCOLORLISTBOX:

    3.可发往列表框的消息
    LD_ADDFILE:结合DlgDirList(文件目录相关)使用。
    LB_DIR:文件目录相关

    LB_ADDSTRING:插入字符串。
    LB_DELETESTRING:移除字符串。
    LB_FINDSTRING:搜索匹配项
    LB_FINDSTRINGEXACT:精确匹配。
    LB_GETANCHORINDEX:获得鼠标最后选择的条目索引。
    LB_GETCAREINDEX:获得有焦点矩形的条目索引。
    LB_GETCOUNT:
    LB_GETCURSEL:
    LB_GETHORIZONTALEXTENT:水平可滚动宽。
    LB_GETITEMDATA:
    LB_GETITEMHEIGHT:
    LB_GETITEMRECT:
    LB_GETLOCALE:语言相关。
    LB_GETSEL:选择状态。
    LB_GETSELCOUNT:多选。选择项数。
    LB_GETSELITEMS:多选中选择项。
    LB_GETTEXT:
    LB_GETTEXTLEN:字符数。
    LB_GETTOPINDEX:第一个可视条目索引。
    LB_INITSTORAGE:为指定数量条目和关联字符串分配内存。
    LB_INSERTSTRING:
    LB_ITEMFROMPOINT:最靠近指定点条目索引。
    LB_RESETCONTENT:
    LB_SELECTSTRING:匹配+选择。
    LB_SELITEMRANGE:范围选择
    LB_SETANCHORINDEX:把鼠标最后选择条目设为一指定条目。
    LB_SETCAREINDEX:设置焦点矩形到指定条目。
    LB_SETCOUNT:设置列表条目数。
    LB_SETCURSEL:选择指定项。
    LB_SETHORIZONTALEXTENT:可滚动宽。
    LB_SETITEMDATA:
    LB_SETITEMHEIGHT:
    LB_SETLOCALE:
    LB_SETSEL:多选,设置选择项集合。
    LB_SETTABSTOPS:格式控制。
    LB_SETTOPINDEX:把指定项显示为第一个可视项。

    4.Drag List Boxes
    可拖拉列表。

    展开全文
  • listbox

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

    2015-10-10 09:16:25
    WPF listBox 漂亮的listBOX
  • 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
  • tkinter listbox

    2020-11-04 21:10:20
    from tkinter import * import threading,time import _thread from tkinter import messagebox def testThread(threadName): ... listbox.delete(0) time.sleep(1) pass def process(listBox): sel = l...
  • WPF ListBox

    2017-10-06 11:22:00
    1、WPF ListBox基础(包括ListBox多列展示,ListBox实现分页效果,ListBox绑定XML数据源) 2、ListBox 单击变大动画效果(使用模板、样式、绑定数据源等) 二 ListBox基础:包括ListBox多列展示,ListBox实现分页...
  • ListBox例子

    2019-10-07 12:30:56
    1.ListBox节点动态增加; 2.显示ListBox中选中的节点; Code<%@PageLanguage="C#"%><scriptrunat="server">protectedvoidButton1_Click(objectsender,EventArgse){ListBox1.It...
  • Listbox Scrollbar issue

    2020-12-09 07:42:25
    <p>Attached is an example of a Listbox scrollbar problem. <p>You have a page with two Columns. <p>In the left Column, you have a Listbox that has a list of objects. Each object has a list of children...
  • <div><p>The collapsible listbox ...The best I can think of is to set the child listbox to required but this doesn't really satisfy the desire to mark the button itself as required.</p><p>该提问来源于...
  • ListBox控件

    2019-08-15 20:02:11
    ListBox控件 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 开发工具与关键技术:Visual Studio 2015 作者:李成富 撰写时间:2019年8月12日 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ListBox控件又称列表框,它在...

空空如也

1 2 3 4 5 ... 20
收藏数 11,522
精华内容 4,608
关键字:

listbox