在VB中怎样获取LIST中的一个内容？
用list1.list(i)可以获取列表了某一项,i是列表项的索引,从0开始,由上到下.你的问题可以用如下代码实现:
Private Sub List1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
Text1.Text = List1.List(i)
End If
Next
End Sub
s = List1.List(0) '把List1的第1项赋值给变量s
s = List1.List(List1.ListCount - 1) '把List1的最后1项赋值给变量s
s = List1.List(i) '把List1的第i-1项赋值给变量s
s = List1.List(List1.ListIndex) '把List1的当前选项赋值给变量s
s = List1.Text '也是把List1的当前选项赋值给变量s
s = List1.List(List1.ListCount - 1) '把List1的最后1项赋值给变量s
s = List1.List(i) '把List1的第i-1项赋值给变量s
s = List1.List(List1.ListIndex) '把List1的当前选项赋值给变量s
s = List1.Text '也是把List1的当前选项赋值给变量s
用list1.list(i)可以获取列表了某一项,i是列表项的索引,从0开始,由上到下.你的问题可以用如下代码实现:
某一项内容等于list1.list(index)
,index是项序号，从0开始，代表第一项
如：list1.list(1)
获取第二项的内容
s
=
list1.list(0)
'把list1的第1项赋值给变量s
s
=
list1.list(list1.listcount
-
1)
'把list1的最后1项赋值给变量s
s
=
list1.list(i)
'把list1的第i-1项赋值给变量s
s
=
list1.list(list1.listindex)
'把list1的当前选项赋值给变量s
s
=
list1.text
'也是把list1的当前选项赋值给变量s
vb获取网页列表<li><\/li>里面的数据
'获得数值 Dim objli Dim sz1 As String, sz2 As String, sz3 As String For Each objli In WebBrowser1.Document.getElementById("SetMain").getElementsByName("li")Select Case objli.className Case "12"sz1 = objli.innerHTML Case "13"sz2 = objli.innerHTML Case "14"sz3 = ...
使用VB6.0 如何获取网站中 ul 下的 li 的 span 里面的文本内容 并输出...
VB6中用WebBrowser控件打开网页，然后这样来获取：Text1.Text = Replace(WebBrowser1.Document.querySelector("ul#lottery_list li:first-child span:last-child").innerHTML, ",", "") '获取ul的第一个li中的最后一个span的内容并把逗号去掉 ...
cad如何在vb中调用list
LIST命令的激活方式：① 命令行：直接输入LIST（LI）并按回车键确认。② 菜单栏：依次单击【工具】选项卡→【查询】→【列表显示】。具体操作如下：1.使用CAD软件打开需要查询信息的图纸文件；2.在命令栏中输入【LIST】并按回车键确认激活“列表显示”命令，根据命令栏提示选取一个或多个对象，在这里我...
VB中如何自动选择LI的下拉菜单呢?
你这个是vb吗？至少不是vb6.至于html，带预选的下拉菜单该是 <html> <body> <form> <select name="cars"> <option value="volvo">Volvo<\/option> <option value="saab">Saab<\/option> <option value="fiat" selected="selected">Fiat<\/option> <option value="audi">Audi<\/option> <\/selec...
VB程序,怎么实现: 当启动程序时,list1自动加载1.txt里的内容(1.txt每...
'给你一个加载文件的例子，供参考。Private Sub Form_Load()Show Dim s Open App.Path & "\/" & "1.txt" For Input As #1 Do While Not EOF(1)Line Input #1, s List1.AddItem s Loop Close End Sub
vb中text的属性值怎么设置
1、代码添加： <ul> <li><\/li> <li><\/li> <li><\/li> <\/ul> 2、dw操作添加： “插入”--“HTML”--“文本对象”--“项目列表”\/“列表项”（dw cs6） “插入”--“结构”--“项目列表”\/“列表项”（dw cc） 我只有dw cs6和dw cc，至于其他版本的里面叫什么我就不知道了，...
VB 获取网页 数据
'[获取onclick事件中的链接地址的函数]Function GetLink(ByVal strHtml As String) As String Dim myMatch As Object Dim myMatches As Object Dim myRegExp As Object Set myRegExp = CreateObject("VBScript.RegExp")myRegExp.IgnoreCase = True myRegExp.Pattern = "\\('(.+?)'\\)"Set my...
vb获取内存信息?
'新建窗体'在窗体里放个 Label1 和 Timer1 并复制下面的内容即可Private Type LARGE_INTEGERLowPart As LongHighPart As LongEnd TypePrivate Type MEMORYSTATUSEXdwLength As LongdwMemoryLoad As LongullTotalPhys As LARGE_INTEGERullAvailPhys As LARGE_INTEGERullTotalPageFile As LARGE_INTEGERullAvail...
比如说用VB 要把 李世明 三个字转成拼音LI SHI MING 拼音与拼音有空格...
strCode As String) As Integer Dim a2 As Integer Dim strCode As String strCode=Space(1024)a2=icePub_dictionaryCodeTransfer("拼音字典.txt","李世明",strCode)MsgBox strCode 拼音字典.txt内容如下 李世明LI SHI MING 张三ZHANG SAN http:\/\/dl.icese.net\/dev.php?f=icePubDll.rar 下载 ...
VB制作 产品价格查询软件
127,54元,LI5321 代码内容如下，放在Form窗体的Load事件或按钮的Click事件里都可以：Dim searchStr As String searchstr = InputBox("输入查询型号")Open "lib.txt" For Input As #1 Do While Not Eof(1)Input #1,s1,s2,s3 If Instr(1,s1,searchStr)>0 Then Msgbox "找到匹配型号" & s1 ...
元肯英特： 用list1.list(i)可以获取列表了某一项,i是列表项的索引,从0开始,由上到下.你的问题可以用如下代码实现:
安图县13770117737： 在VB中怎样获取LIST中的一个内容?？
元肯英特： 用list1.list(i)可以获取列表了某一项,i是列表项的索引,从0开始,由上到下.你的问题可以用如下代码实现: Private Sub List1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then Text1.Text = List1.List(i) End If Next End Sub
安图县13770117737： vb中怎样返回list中的一个值 - ？
元肯英特： 如果是要找某一个项 Private Sub Command1_Click() Dim i As Integer Dim Key as String Key = InputBox(＂输入要找的值!＂) For i = 0 To List1.ListCount - 1 If List1.List(i) = Key Then MsgBox List1.List(i) Exit Sub End If Next i MsgBox ＂找不到＂ End Sub 如果是要找指定序号的项,比如第2项 msgbox List1.List(2) 注意:项目的序号从0开始编号
安图县13770117737： 如何把VB 的listbox项中的一部分数据取出? - ？
元肯英特： a=＂原数据 ＂ b=＂ 修改为 : ＂ for i=0 to list1.listcount-1 c=list1.list(i) p1 = Len(a) p2 = InStr(1, c, b) Print Mid(c, p1 + 1, p2 - p1) ' listmodify(i) Print Mid(c, p2 + Len(b), Len(c) - p2 - Len(b) + 1) 'co2modify(i) next
安图县13770117737： VB LISTBOX 的问题,如何获取指定内容在第几项? - ？
元肯英特： Dim I As Integer For I = 0 To List1.ListCount - 1 If List1.List(I) = ＂12345＂ Then MsgBox (＂12345在第＂ & (I + 1) & ＂行＂) '由于List的第一项是0所以要第I+1项才是真正的位置.End If Next
安图县13770117737： VB菜鸟提问:VB 如何读取listbox中选中的一行数据至text中? - ？
元肯英特： 就这样白赚你100分我都不好意思了.Text1.Text = List1.List(List1.ListIndex)
安图县13770117737： vb 如何获取FileListBox指定项的值? - ？
元肯英特： 在 VB6.0中新建一工程并命名为 vbreg.vbp,删去其中所有窗体,在工程资源管理器中点击右键,选择添加模块,并命名为 vbreg.bas.双击reg.bas,输入如下代码: Dim avntSettings As Variant Dim intX As Integer avntSettings = GetAllSettings...
安图县13770117737： VB中如何将list中的列表项选中 - ？
元肯英特： 鼠标点击不就选中了,还可以用selected(0)=true 表示选中第一项for i=0 to list1.listcount-1 if i mod 2=1 then list1.selected(i)=true'选中全部奇数项 next
安图县13770117737： VB 怎么读取listbox里的数值? - ？
元肯英特： 比如我有个txtbox输入了100,然后我选中了listbox里的10,我要怎么写该能读取listbox里的10,然后来计算100*10?解答:当你选中的值是:List1.List(List1.ListIndex) 你只要 100 * Format(List1.List(List1.ListIndex), 0) 就能得到100乘以你选中的值了.
安图县13770117737： vb中listbox怎么读取txt文件某一列的内容 - ？
元肯英特： 与提取到Textbox中是一个方法 list1是用List1.AddItem ＂***＂ 提取指定的一行还是要用到 Line Input #1, 变量 据我所知最笨的方法可以是 Line Input #1,a Line Input #1,a Line Input #1,a Line Input #1,a Line Input #1,b 这样来用.那b获取的变量就是txt文件中的第五列.然后list1.addltem b 就可以了
