vb中listbox控件的使用
vb 如何在dirlistbox中选中的一个路径下建立一个新文件夹
说明：Dir1是你的DirListBox MkDir Dir1.Path & "\\新建文件夹"或 dim fs set fs = CreateObject("Scripting.FileSystemObject")fs.CreateFolder(Dir1.Path & "\\新建文件夹")
VB ListBox 里的内容上下移动问题
Private Sub Form_Load()List1.AddItem "a"List1.AddItem "b"List1.AddItem "c"List1.AddItem "d"List1.AddItem "e"End Sub '上移 Private Sub Command1_Click()Dim i As Integer Dim s As String i = List1.ListIndex If i > 0 Then s = List1.List(i)List1.RemoveItem i List...
下列关于列表控件(ListBox.的说法,错误的是
【答案】：D 【答案】D 【解析】当列表框的RowSourCeType为0时，在程序运行中。可以通过Addltem方法添加列表框条目，通过Re·moveltem方法移去列表框条目，故选项A正确。列表框可以有多个列，即一个条目可包含多个数据项，故B选项正确。Value属性返回列表框中被选中的条目，该属性为只读属性，故C选项正确...
vb.net读取txt文件,按照要求排序其中数据后显示在listbox控件中。
1中的items是A,B,E,F；而ListBox2中的Items是C,D,G,H。接下来的你应该就明白了吧，把ListBox2中的Items和对应的ListBox1中Item加到ListBox3中。下面简单写下代码，主要是处理问题的思路，代码很简单。Private Sub DoList(ByVal filePath As String)Dim str As String Dim num Dim listCount...
用vb.net怎么连接数据库?a列显示在ListBox1,b列显示在ListBox2中?求...
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load Dim t As New DataTable t = BindData("select * from Maintab")ListBox1.DataSource = t ListBox2.DataSource = t ListBox1.DisplayMember = "a"ListBox2.DisplayMember = "b"End Sub End Class ...
在MATLAB中用GUI作图,我想用listbox让曲线改变颜色,在m文件中输入什么...
plot(x, y, str); % str为接收用户输入的颜色，如点击blue的时候，就令str='b'就可以实现了
delphi listbox的用法
ListBox1.Items[0], 取listbox 第一行的值，copy（A,B,C） 是 取字符串A中 从B开始长度 为C 的子字符 length（） 取 字符的长度 listbox.itemindex 是你选中的选项 在listbox 中的位置。。。
VB读取C:\\1\\下所有以数字命名的文件夹的名称并显示在listbox里
Private Sub Command1_Click()get_folders List1, "C:\\1\\"End Sub Private Sub get_folders(ByRef List1 As ListBox, ByVal path As String)Dim fso As New Scripting.FileSystemObject Dim fd As Scripting.Folder Dim fd_1 As Scripting.Folder Set fd = fso.GetFolder(path)For Each fd_1...
EXCEL中VB,如何把A列的内容添加到LISTBOX1控件中?
是用VBA吗，可以先baA列的内容放到数组里，然后调用就可以了 Dim i As Integer Dim max As Long Dim a() As String max = 20 ReDim a(max) As String For i = 2 To 20 a(i) = Range("B" & i).Value Next ListBox1.items.Add (a(i))
vb编程,找出介于A B之间的所有只有素数因子(1和自身除外)的数。哪点...
If prime(i) Then k = k & i & "," Else Exit Sub End If4、其实这里还隐含了以个错误。3中将Exit Sub改为Exit For，我们就看出了这个问题：发现了非素数以后，是不是还要向ListBox中加入k呢？回答是：当然不加！那么就需要加以判断。上述四个问题修改了以后，程序运行正常了。
塔河县美加回答： 我们昨天ASP.NET上机课,就是讲的这个,这样吧,推荐一个视频教程给你,北大青鸟的ASP.NET视频教程,你去用电炉下载,里面有这个的讲解,
夙霭13966878882问： 关于VB的listbox控件的使用 - ？
塔河县美加回答： Private Sub List1_DblClick()Dim i As LongDim s As String If List1.ListIndex > -1 Thens = List1.List(List1.ListIndex)If List2.ListCount > 0 ThenFor i = 0 To List2.ListCount - 1If s = List2.List(i) ThenMsgBox ＂已经选过了.＂, vbOKCancel, ...
夙霭13966878882问： vb中listbox的应用 - ？
塔河县美加回答： 在编写过程双击listbox控件产生list_click()事件 如在窗体添加list1 添加代码 private list1_click() msgbox list1 end sub
夙霭13966878882问： VB中的listbox使用 - ？
塔河县美加回答： Private Sub List1_Click() Select Case List1.ListIndexCase 0Label1.Caption = ＂选择listbox的第一项的介绍＂Case 1Label1.Caption = ＂选择listbox的第二项的介绍＂...Case n - 1Label1.Caption = ＂选择listbox的第n项的说明＂ End Select End Sub
夙霭13966878882问： vb里listbox的用法,用text1和text2填入listbox,然后双击listbox里面填入的选择这项来确定？
塔河县美加回答： 用两个listbox,一个存zhanghao,一个存mima(不显示,visible=false) private sub command1_click msgbox ＂zhanghao:＂ & list1.text & vbcrlf & ＂mima:＂ & list2.list(list1.listindex) end sub private sub list1_click text1=list1.text text2=list2.list(list1.listindex) end sub
夙霭13966878882问： VB中的list控件是什么? - ？
塔河县美加回答： VB的ListBox控件是用来显示项目列表的控件. ListBox 控件,ListBox 控件显示项目列表,从其中可以选择一项或多项.如果项目总数超过了可显示的项目数,就自动在 ListBox 控件上添加滚动条. 使用 AddItem 或者 RemoveItem 方法可以添加...
夙霭13966878882问： 关于VB里LIST控件的一些用法 - ？
塔河县美加回答： 关于VB里LIST控件的一些用法. 如下参考: 1.首先,打开Excel表,如图所示,单击下面的文件1,右键单击并选择查看代码. 2、.进入学位后的代码页,可以在页面上看到当前版本的代码. 3.然后我们需要使用listbox的用法,如图所示,输入sheet1.细胞(1,3)=sheet1.细胞(1,1)+sheet1.单元格(1,2),回车. 4.最后,返回到如图所示的页面.双击表格以查看数字.
夙霭13966878882问： vb2010 listbox 控件的使用方法 - ？
塔河县美加回答： AutoPostBack设置为True,SelectedIndexChanged事件里写提示代码:For Each li As ListItem In CheckBoxList.Items If (li.text == ＂a＂ and li.Checked) Then msgbox(＂a＂) End If If (li.text == ＂b＂ and li.Checked) Then msgbox(＂b＂) End IfNext
夙霭13966878882问： VB里面的listBox控件怎么用啊? - ？
塔河县美加回答： Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If CInt(List1.List(i)) = 10 Then List1.RemoveItem i '移走用这句 'List1.List(i) = ＂＂ '移走并留出空位用这句 Exit For End If Next i End Sub
夙霭13966878882问： 在VB里“FileListBox ”这个控件是怎么用的啊?``打个例子看看. - ？
塔河县美加回答： Private Sub Command3_Click() File1.Path = ＂c:\＂ End Sub Private Sub Command4_Click() MsgBox File1.FileName End Sub
