问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

用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)
以此类推
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
网络宣传文案心碎,句句获赞! 关于朋友圈上万人点赞转发的说说 人生看的很透彻的经典句子 超现实超扎心的说说大全2019最新 心脏血管堵塞吃什么食物 投资理财有什么前景 pp理财什么情况 P2P理财行业的前景如何? 中国目前的财富管理现状是什么情况? 呼吸皮沙发寿命多久 “皮沙发的呼吸寿命” 呼吸皮沙发寿命多久 什么是偿债基金系数? 吃螃蟹的禁忌什么饮料 初级监控证怎么考 飘荡着( ),如何填空? 飘荡的什么填空 什么水果加什么水果是葡萄的味道 吃什么水果可以减轻上火?? 吃什么水果可以降火上火了吃什么水果好 什么得什么填空二年级 形容飘荡的词语 火车无座票就是一直站着吗 什么似什么 补充句子加上标点一你知道什么在哪里吗提示江南海岛高原塞北二我长大了... 什么似什么的四字成语有哪些 求个像似的这种女生图片 什么似的图画填空两个字? 天天吃水果皮肤会好吗 十月份的水果都有什么功效 银耳雪梨和白萝卜雪梨哪个好 女人早安最吸引人的句子短句 ...地散步 ( )地吃 ( )地飞翔、怎么填上合适的词语?给五点财富悬赏_百... atrace开关要打开吗 《DNF手游》在哪里预约预约地址分享 ABB式的词语飘什么什么 马蹄怎么吃治咳嗽最好 像什么似的的什么造句子 骁龙865等于天玑1200吗 我又吃螃蟹,还有和苹果醋可以吗 哪些水果吃太多危害大? win10更新很慢怎么办 电脑wifi怎么连接 笔记本电脑连接wifi方法【教程】 苹果14灵动岛怎么设置外卖 在什么中什么比喻句怎么写? 用比喻的方法用在…上…在…中…在…中…在…上,对比之下,造句?_百度知... 比萨是不是中国美食 多吃水果的好处有什么 笔记本配置更新太慢 手机里什么占的内存最大 ipad爱思助手后置摄像头空 如何使电脑休眠时也更改为屏保?