2024年10月listbox控件使用（如何用VB的ListBox 控件显示并双击打开word等文档）

　　⑴listbox控件使用（如何用VB的ListBox控件显示并双击打开word等文档

　　⑵如何用VB的ListBox控件显示并双击打开word等文档

　　⑶分类:电脑/网络》》程序设计》》其他编程语言问题描述:我有一问题：如何用VB的ListBox（或其它控件，显示指定的.doc或.xls等文档的链接，双击后就可以用相应的office程序打开这些文件，谢谢！解析:可以用ShellExecuteAPI来实现当前文件的关联调用，如：’定义APIPrivateDeclareFunctionShellExecuteLib“shell.dll“Alias“ShellExecuteA“(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong’双击打开指定的文件PrivateSubFile_DblClick()DimstrFileNameAsStringstrFileName=File.PathIfRight$(strFileName,)=““ThenstrFileName=strFileName&File.List(File.ListIndex)ElsestrFileName=strFileName&““&File.List(File.ListIndex)EndIf’打开CallShellExecute(Me.hwnd,“open“,strFileName,vbNullString,strFileName,)EndSub

　　⑷VBLISTBOX详解

　　⑸ListBox控件常用的方法参数：AddItem向列表框添加新项目，其格式为：ListBox控件名．AddItem＜项目＞其中：《项目》为字符串表达式，表示添加到列表框中的新项目。《索引值》为数值表达式，指定在列表框中插入新项目的位置。若为，则插入到第一个项目位置；若缺省且Sorted属性为False，则插入到最后一个项目位置；若缺省且Sorted属性为True，则插入到合适的排序位置。RemoveItem从列表框中删除项目，其格式为：ListBox控件名．RemoveItem＜索引值＞Clear清除列表框中所有项目，其格式为：ListBox控件名.Clear例如添加代码到List列表框中，运行后的结果如下：PrivateSubForm_Load()List.AddItem“Germany“List.AddItem“India“List.AddItem“France“List.AddItem“USA“List.AddItem“Japan“,List.AddItem“China“,EndSub要从列表中删除项目，可使用RemoveItem方法，如要删除列表中的第一个项目，可添加如下代码：PrivateSubmand_Click()List.RemoveItemEndSub要删除连结版或标准版的列表框、组合框中的所有项目。可使用Clear方法：List.Clear注意：可以在设计时添加项目。做法：选列表框“属性”窗口中键进行换行。只能在列表末端添加项目。如果要将列表按字母顺序排序，则应将“Sorted”属性设置为“True”，且省略索引（否则，使用带有index参数的AddItem方法可能会导致不可预料的非排序结果，排序时不区分大小写。（常用属性属性描述代码及界面显示List（在设计时可向列表框中添加新项目，输人时用Ctrl+Enter组合键换行（在代码中可用来访问列表框中的所有项目，它包含了一个字符串数组，列表框中的每个项目都是这个数组的元素。其引用格式为：s$=ListBox控件名．List(索引值)其中：《索引值》为数值表达式，指定项目在列表中的位置，它是从开始的。例：s$=list.list()将列出list的第七项内容。PrivateSubmand_Click()Text.Text=List.List()EndSub也可改变数组中已有的值，格式：ListBox控件名．List(索引值)=s$例list.list()=“AAAA“将把list的第四项的内容设为AAAA。OptionExplicitPrivateSubmand_Click()Text.Text=“Youhave“&List.ListCount&“_entrifslister“EndSubPrivateSubmand_Click()Text.Text=List.List()EndSubPrivateSubmand_Click()Text.Text=List.ListIndexEndSubPrivateSubForm_Load()List.AddItem“Germany“List.AddItem“India“List.AddItem“France“List.AddItem“Canada“List.AddItem“USA“List.AddItem“Japan“,R》List.AddItem“China“,EndSubPrivateSubList_Click()IfList.Text=“Canada“ThenText.Text=“Canadahavemillionpeople.“EndIfEndSubListCount返回列表框中项目的总数，只在运行时可用。例：PrivateSubmand_Click()Text.Text=“Youhave“&List.ListCount&“_entrifslister“EndSubListIndex返回在列表框中当前选定项目的位置，只在运行时可用。未选定任何项目时，其值为-l。例：PrivateSubmand_Click()Text.Text=List.ListIndexEndSubText存放当前在列表框中选定的项目，即List(ListIndex)的值。例：PrivateSubList_Click()IfList.Text=“Canada“ThenText.Text=“Canadahavemillionpeople.“EndIfEndSubColumns指定列表框中的列数。其值为时，列表框以垂直滚动的单列方式显示；为l时，列表框以水平滚动的单列方式显示；大于l时，列表框以水平滚动的多列方式显示。OptionExplicitPrivateSubForm_Load()DimiAsIntegerFori=ToScreen.FontCount-List.AddItemScreen.Fonts(i)’“Columns”属性List.AddItemScreen.Fonts(i)’“Columns”属性NextiEndSubMultiSelect表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为时，只允许选择一个项目，不允许复选；为时，允许用户通过单击或按下空格键选定或撤消多个项目；为时，允许用户使用Shift和Ctrl组合操作来选定或撤消多个项目。语法结构：object.MultiSelect=Sorted为True时，自动将列表按字母顺序重新排列，排序时不区分大小写。Style表示列表框中项目的显示形式，运行时只读。其值为时，为标准方式显示；为时，在每个项目前加上一个复选框。Selected该属性实际上是一个数组，各个元素的值为True或False，表明是否选择了该项。用下面的语句可以检查指定的表项是否被选择（其中“索引值从开始：ListBox控件名．Selected(索引值)用下面的语句可以选择或取消指定的表项：ListBox控件名．Selected(索引值)=Ture│False

　　⑹excelvba窗体中listbox用法

　　⑺首先需要打开Excel的表格，如图所示，点击下面的文件，鼠标右键单击选择查看代码。

　　⑻然后就是进入代码页面，可以看到页面上现在的代码。

　　⑼然后接下来就是需要用listbox用法，如图所示，输入Sheet.Cells(,)=Sheet.Cells(,)+Sheet.Cells(,)，回车。

　　⑽最后，再返回到页面上，如图所示，双击一下表格就可以看到数字了，listbox用法成功。

　　⑾.中ListBox控件的使用，谢谢各位大侠啦

　　⑿这个好办。上次没理解好你的意思。先用一数组来存放listbox中被选中的项，然后再绑定到listbox中。usingSystem.Collections;//下面是程序实现部分//先定义一个数组变量ArrayListal=newArrayList();//把listbox中选中的项存入数组变量alfor(inti=;i《this.ListBox.Items.count;i++){if(this.ListBox.Items.Text);}}//把al绑定到listboxthis.ListBox.DataSource=al;this.ListBox.DataBind();

　　⒀关于VB里LIST控件的一些用法

　　⒁关于VB里LIST控件的一些用法。

　　⒂首先，打开Excel表，如图所示，单击下面的文件，右键单击并选择查看代码。

　　⒃进入学位后的代码页，可以在页面上看到当前版本的代码。

　　⒄然后我们需要使用listbox的用法，如图所示，输入sheet。细胞(,)=sheet。细胞(,)+sheet。单元格(,)，回车。

　　⒅最后，返回到如图所示的页面。双击表格以查看数字。

　　⒆关于VB的listbox控件的使用

　　⒇PrivateSubList_DblClick()DimiAsLongDimsAsStringIfList.ListIndex》-Thens=List.List(List.ListIndex)IfList.ListCount》ThenFori=ToList.ListCount-Ifs=List.List(i)ThenMsgBox“已经选过了。“,vbOKCancel,“提示“ExitForEndIfNextiIfi=List.ListCountThenList.AddItemsElseList.AddItemsEndIfEndIfEndSubPrivateSubForm_Load()DimiAsLongFori=ToList.AddItem“菜单“&iNextiEndSub

　　⒈VB的listbox控件怎么使用

　　⒉假设Listbox控件名字是List：List.Clear’清空列表中所有元素List.AddItem(“获得分数：“)’添加一行列表内容List.AddItem(“获得分数：“)’作用同上在图片的Click事件中选择性地加入上述部分代码就行了。以上是VB中用法，.中有所不同。

　　⒊VBA中如何使用ListBox控件呢

　　⒋Dim?Entry,?I,?Msg???’?声明变量。???Msg?=?“Choose?OK?to?add??items?to?your?list?box.“???MsgBox?Msg???’?显示信息。???For?I?=??To????’?计数值从??到?。??????Entry?=?“Entry?“?&?I???’?创建输入项。??????List.AddItem?Entry???’?添加该输入项。???Next?I???Msg?=?“Choose?OK?to?remove?every?other?entry.“???MsgBox?Msg???’?显示信息。???For?I?=??To????’?确定如何??????List.RemoveItem?I???’?每隔一项???Next?I???’?删除。???Msg?=?“Choose?OK?to?remove?all?items?from?the?list?box.“???MsgBox?Msg???’?显示信息。???List.Clear???’?清除列表框。

　　⒌用ListBox控件编写一个程序,要求能够实现向ListBox中添加项目删除项目写主要属性和方法

　　⒍Dimint_lstAsInteger

　　⒎PrivateSubmand_Click()

　　⒏List.AddItemText

　　⒐PrivateSubmand_Click()

　　⒑List.RemoveItemint_lst

　　⒒PrivateSubList_Click()

　　⒓int_lst=List.ListIndex

　　⒔Randomrand=newRandom(DateTime.Now.Millisecond);

　　⒕for(inti=;i《;i++)

　　⒖ListBox.Items.Add(rand.Next(,));

　　⒗如果项总数超出可以显示的项数，则自动向ListBox控件添加滚动条。

　　⒘当MultiColumn属性设置为true时，列表框以多列形式显示项，并且会出现一个水平滚动条。

　　⒙当MultiColumn属性设置为false时，列表框以单列形式显示项，并且会出现一个垂直滚动条。

　　⒚当ScrollAlwaysVisible设置为true时，无论项数多少都将显示滚动条。SelectionMode属性确定一次可以选择多少列表项。

　　⒛参考资料来源：百度百科-ListBox控件

　　如何使用VBA对窗体ListBox控件的多列列表框的数据进行添加与删除

　　思路如下：、Listbox本身并不带有删除和添加的功能，需要额外写代码、对于删除Listbox中的元素可以利用AddItem（、RemoveItem（方法、如果是通过点击listbox删除表中的元素。这需要给listbox添加事件。在事件中添加代码删除表格中的数据。