UC知道VB问题(帮帮新手啊)
来源：百度知道 编辑：UC知道 时间：2024/05/19 06:36:53
列表框一个(list1) 按钮四个 添加(command1) 删除(command2)
打开(command3) 保存(command4)
文本框四个 text1~text4
目的:1.点击添加按钮将文本框中的值(转换为Integer型)依次添加到列表框中.
2.点击删除按钮将当前选中的条删除,被删除条以后的自动补上被删条的位置.
3.双击列表框中的任意一条,打开form2,并读取出该条的四个值
4.点击保存按钮将列表框中内容保存到文件
5.点击打开命令将保存的文件内容载入到列表框
实在不好意思..遇到的难题有点多..希望各位帮助下小弟(小弟初学VB中...)
妮可
Private Sub Command1_Click() '添加
List1.AddItem Text1 & d & Text2 & d & Text3 & d & Text4
End Sub
每个数据中间有10个空格怎么弄?
如 10[10个空格]20[10个空格]30[10个空格]40
保存的时候通过自己指定文件.
打开(command3) 保存(command4)
文本框四个 text1~text4
目的:1.点击添加按钮将文本框中的值(转换为Integer型)依次添加到列表框中.
2.点击删除按钮将当前选中的条删除,被删除条以后的自动补上被删条的位置.
3.双击列表框中的任意一条,打开form2,并读取出该条的四个值
4.点击保存按钮将列表框中内容保存到文件
5.点击打开命令将保存的文件内容载入到列表框
实在不好意思..遇到的难题有点多..希望各位帮助下小弟(小弟初学VB中...)
妮可
Private Sub Command1_Click() '添加
List1.AddItem Text1 & d & Text2 & d & Text3 & d & Text4
End Sub
每个数据中间有10个空格怎么弄?
如 10[10个空格]20[10个空格]30[10个空格]40
保存的时候通过自己指定文件.
===============补充==========
稍微的动动脑筋呀,我的代码有注释的, 在代码的顶部,有分隔符,如果你想改成10个空格,你可以改成d=10个空格呀
代码顶部也有那个变量存放着路径呀.. 我是固定的,如果你想随时修改,可以改成:
dim saveFile$
然后新建一个文本框,用来输入路径,比如叫txtpath,这个文本框的change事件中,使用:
saveFile=trim(txtpath)
==============================
举个实例吧, 有几条,我没太看懂..
比如说:
text1=3 text2=4 text3=8 text4=99
点一下添加: list1里面添加4条记录??
分别是
3
4
8
99
那你说的第3条,双击列表中的一条.. 读取此条的4个值??
如果用1条来记录4个值, 那为什么还要转为int型呀? 那就有分隔符来保存4条了,就不在是int型,而是字符型了, 比如:
list1的第1条为:
3,4,8,99
其它都很容易..
================代码来了==================
Const d$ = "," '数据分隔符
Const saveFile$ = "c:\list1.dat" '存储路径
Private Sub Command1_Click() '添加
List1.AddItem Text1 & d & Text2 & d & Text3 & d & Text4
End Sub
Private Sub Command2_Click() '删除
If List1.ListIndex > -1 Then List1.RemoveItem List1.List