用VB做一个表格显示基金的买卖价格

发布网友发布时间：2023-08-24 02:00

共2个回答

热心网友时间：2024-12-11 21:46

'添加一个控件listview，把你需要显示的内容保存到一个记事本内，格式如上，复制下面的代码：
listview我不太会用，仅供参考！！
Private Sub Form_Load()
'设置表格表头
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "名称", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "价格1", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "价格2", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "价格3", ListView1.Width / 4
'填充数据
Dim x, y, z, i, fn
i = 0
fn = FreeFile
Open "c:\1.txt" For Input As fn'这里的c:\1.txt是保存的数据资料
Do While Not EOF(fn)
Line Input #fn, x
y = Split(x, "|")
ListView1.ListItems.Add , , y(0)
ListView1.ListItems.Item(i + 1).SubItems(1) = y(1)
ListView1.ListItems.Item(i + 1).SubItems(2) = y(2)
ListView1.ListItems.Item(i + 1).SubItems(3) = y(3)
i = i + 1
Loop
Close fn
End Sub

热心网友时间：2024-12-11 21:47

判别用竖杠隔开的每个数据使用split函数即可
如：
dim a() as string
a=split("欧元|1077.32|1042.71|1085.96","|")
这样子
当你想显示1077.32的时候就输入msgbox a(1)
显示欧元就是msgbox a(0)
以此类推