重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB可通过循环来获取ListBox控件的List属性。
"热情、务实、专业、创新”我们不忘初心,砥砺前行,实在做人,认真做事,始终如一的专注企业互联网品牌建设与网络营销推广服务。高端网站设计本着让客户满意的目标,帮助企业通过互联网创造价值.成都创新互联公司全体员工将通过不懈努力,力争成为客户在信息化领域中值得长期信赖的合作伙伴。
List属性,返回或设置控件的列表部分的项目。列表是一个字符串数组,数组的每一项都是一列表项目。
下列代码读取ListBox控件的List属性。
Option Explicit
Dim I As Long
Private Sub Form_Click()
For I = 1 To 10
Print List1.List(I) '输出ListBox的前10项内容
Next
End Sub
Private Sub Form_Load()
Dim Entry As String ' 声明变量。
For I = 1 To 30 ' 计数值从 1 到 30。
Entry = "Entry " I ' 创建输入项。
List1.AddItem Entry ' 添加该输入项。
Next I
End Sub
定义一个表对象,定义一个连接对象,定义一个连接字符串变量;
然后定义一个查询字符串变量,你对照着例子,拼出来一个连接对象;
打开连接,执行查询并填充结果到表对象。
然后,按照表里面的顺序,一行一行的读取每一列的值。
请照着例子学。
.net应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容,File.ReadAllLine(filename)用于读取多行。
无法读取指定的某一行,只能通过对整个文本框里的字符串,采用字符串函数等方法,分离获得某一行的内容。
用Open打开文件,然后用Line行读取即可。
代码如下:
Dim tempStr as String '定义变量tempStr为字符串
Open "C:\Test.txt" For Input As #1 '打开文件
While Not EOF(1) '读取到结束
Line Input #1, tempStr '读取一行到变量tempStr
'对应的处理
Wend '未结束继续
Close #1 '关闭
把数据全部读出来,然后用split函数将整个字符串按换行符分割,放到某数组中去。换行符是Chr(10)
str=textbox.text'取得TEXTBOX的值,是不是这个具体我忘记了
arr=split(str,chr(10))
for each one in arr'枚举整个数组
print one
next